Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs1:/tmp/cvs-serv31620/src/code
Modified Files:
gc.lisp
Log Message:
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.
Index: gc.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/gc.lisp,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -d -r1.47 -r1.48
--- gc.lisp 22 May 2003 16:46:59 -0000 1.47
+++ gc.lisp 29 May 2003 16:14:44 -0000 1.48
@@ -138,23 +138,6 @@
(+ (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
|