X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fgc.lisp;h=bfeb9278291e10b6787b8cc92c781fbeba27162e;hb=8097f555eb90f15c51b96e20bd88db15757247b9;hp=7e20cd4550101b8a1874b226403f6227eb2c6a3e;hpb=80722c917cade18ab933fd313b13c56c6073ae01;p=sbcl.git

diff --git a/src/code/gc.lisp b/src/code/gc.lisp
index 7e20cd4..bfeb927 100644
--- a/src/code/gc.lisp
+++ b/src/code/gc.lisp
@@ -42,18 +42,19 @@
           (current-dynamic-space-start))))
 
 (defun static-space-usage ()
-  (- (* sb!vm:*static-space-free-pointer* sb!vm:word-bytes)
+  (- (* sb!vm:*static-space-free-pointer* sb!vm:n-word-bytes)
      sb!vm:static-space-start))
 
 (defun read-only-space-usage ()
-  (- (* sb!vm::*read-only-space-free-pointer* sb!vm:word-bytes)
+  (- (* sb!vm::*read-only-space-free-pointer* sb!vm:n-word-bytes)
      sb!vm:read-only-space-start))
 
 (defun control-stack-usage ()
-  #!-x86 (- (sb!sys:sap-int (sb!c::control-stack-pointer-sap))
-            sb!vm:control-stack-start)
-  #!+x86 (- sb!vm:control-stack-end
-	    (sb!sys:sap-int (sb!c::control-stack-pointer-sap))))
+  #!+stack-grows-upward (- (sb!sys:sap-int (sb!c::control-stack-pointer-sap))
+			     sb!vm:control-stack-start)
+  #!+stack-grows-downward (- sb!vm:control-stack-end
+			     (sb!sys:sap-int
+			      (sb!c::control-stack-pointer-sap))))
 
 (defun binding-stack-usage ()
   (- (sb!sys:sap-int (sb!c::binding-stack-pointer-sap))
@@ -140,7 +141,14 @@ and submit it as a patch."
 ;;;
 ;;; 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* (* 4 (expt 10 6)))
+(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
@@ -239,13 +247,13 @@ function should notify the user that the system has finished GC'ing.")
 
 ;;;; internal GC
 
-(sb!alien:def-alien-routine collect-garbage sb!c-call:int
-  #!+gencgc (last-gen sb!c-call:int))
+(sb!alien:define-alien-routine collect-garbage sb!alien:int
+  #!+gencgc (last-gen sb!alien:int))
 
-(sb!alien:def-alien-routine set-auto-gc-trigger sb!c-call:void
-  (dynamic-usage sb!c-call:unsigned-long))
+(sb!alien:define-alien-routine set-auto-gc-trigger sb!alien:void
+  (dynamic-usage sb!alien:unsigned-long))
 
-(sb!alien:def-alien-routine clear-auto-gc-trigger sb!c-call:void)
+(sb!alien:define-alien-routine clear-auto-gc-trigger sb!alien:void)
 
 ;;; This variable contains the function that does the real GC. This is
 ;;; for low-level GC experimentation. Do not touch it if you do not
@@ -285,7 +293,7 @@ function should notify the user that the system has finished GC'ing.")
 				  *soft-heap-limit*)))
       (when soft-heap-limit-exceeded?
 	(cerror "Continue with GC."
-		"soft heap limit exceeded (temporary new limit=~D)"
+		"soft heap limit exceeded (temporary new limit=~W)"
 		*soft-heap-limit*))
       (when (and *gc-trigger* (> pre-gc-dynamic-usage *gc-trigger*))
 	(setf *need-to-collect-garbage* t))