From: Christophe Rhodes <csr21@cam.ac.uk>
Date: Thu, 29 May 2003 16:14:44 +0000 (+0000)
Subject: 0.8.0.16:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=ebdf67c1da1884d5def43062a97174f28fcb6a2c;p=sbcl.git

0.8.0.16:
	Code deletion, yay
	... since we've expunged *BYTES-CONSED-BETWEEN-GCS* everywhere else,
		we might as well stop it being set and confusing people, so
		delete it;
	... since our CMUCL brethren have decided that 12Mb is a good value
		for (BYTES-CONSED-BETWEEN-GCS), let's follow that.  Note that
		this increases the default on x86, but decreases the historical
		default on non-x86 (though in recent times a refactor had
		likewise changed that default);
	... fix an error caught by new function warning stuff: bogus
		parenthesis in a sparc VOP.
---

diff --git a/src/code/gc.lisp b/src/code/gc.lisp
index 917b6d0..f3daccc 100644
--- a/src/code/gc.lisp
+++ b/src/code/gc.lisp
@@ -138,23 +138,6 @@ and submit it as a patch."
   (+ (dynamic-usage)
      *n-bytes-freed-or-purified*))
 
-;;;; variables and constants
-
-;;; the minimum amount of dynamic space which must be consed before a
-;;; GC will be triggered
-;;;
-;;; Unlike CMU CL, we don't export this variable. (There's no need to,
-;;; since our BYTES-CONSED-BETWEEN-GCS function is SETFable.)
-(defvar *bytes-consed-between-gcs*
-  #!+gencgc (* 4 (expt 10 6))
-  ;; Stop-and-copy GC is really really slow when used too often. CSR
-  ;; reported that even on his old 64 Mb SPARC, 20 Mb is much faster
-  ;; than 4 Mb when rebuilding SBCL ca. 0.7.1. For modern machines
-  ;; with >> 128 Mb memory, the optimum could be significantly more
-  ;; than this, but at least 20 Mb should be better than 4 Mb.
-  #!-gencgc (* 20 (expt 10 6)))
-(declaim (type index *bytes-consed-between-gcs*))
-
 ;;;; GC hooks
 
 (defvar *before-gc-hooks* nil ; actually initialized in cold init
diff --git a/src/compiler/sparc/float.lisp b/src/compiler/sparc/float.lisp
index 329d8be..f472a82 100644
--- a/src/compiler/sparc/float.lisp
+++ b/src/compiler/sparc/float.lisp
@@ -118,7 +118,7 @@
 (defun move-long-reg (dst src)
   (cond
     ((member :sparc-v9 *backend-subfeatures*)
-     (inst fmovq dst src)
+     (inst fmovq dst src))
     (t
      (dotimes (i 4)
        (let ((dst (make-random-tn :kind :normal
@@ -127,7 +127,7 @@
 	     (src (make-random-tn :kind :normal
 				  :sc (sc-or-lose 'single-reg)
 				  :offset (+ i (tn-offset src)))))
-	 (inst fmovs dst src)))))))
+	 (inst fmovs dst src))))))
 
 (macrolet ((frob (vop sc format)
 	     `(progn
diff --git a/src/runtime/gc-common.c b/src/runtime/gc-common.c
index 357ad77..891d717 100644
--- a/src/runtime/gc-common.c
+++ b/src/runtime/gc-common.c
@@ -99,7 +99,7 @@ lispobj (*transother[256])(lispobj object);
 int (*sizetab[256])(lispobj *where);
 struct weak_pointer *weak_pointers;
 
-unsigned long bytes_consed_between_gcs = 4*1024*1024;
+unsigned long bytes_consed_between_gcs = 12*1024*1024;
 
 
 /*
diff --git a/version.lisp-expr b/version.lisp-expr
index fcfd53f..10ac6c5 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.8.0.15"
+"0.8.0.16"