0.pre8.71

	Fix bug that was causing ROOM to enter the debugger

diff --git a/src/code/gc.lisp b/src/code/gc.lisp
index 5cfa8b0..7dfd23c 100644 (file)
--- a/src/code/gc.lisp
+++ b/src/code/gc.lisp
@@ -52,14 +52,14 @@
 (defun control-stack-usage ()
   #!-stack-grows-downward-not-upward
   (- (sb!sys:sap-int (sb!c::control-stack-pointer-sap))
-     sb!vm:control-stack-start)
+     (sb!vm:fixnumize sb!vm::*control-stack-start*))
   #!+stack-grows-downward-not-upward
-  (- sb!vm:control-stack-end
+  (- (sb!vm:fixnumize 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))
-     sb!vm:binding-stack-start))
+     (sb!vm:fixnumize sb!vm::*binding-stack-start*)))
 \f
 ;;;; ROOM
 
@@ -69,6 +69,9 @@
   (format t "Static space usage is:    ~10:D bytes.~%" (static-space-usage))
   (format t "Control stack usage is:   ~10:D bytes.~%" (control-stack-usage))
   (format t "Binding stack usage is:   ~10:D bytes.~%" (binding-stack-usage))
+  #!+sb-thread
+  (format t 
+         "Control and binding stack usage is for the current thread only.~%")
   (format t "Garbage collection is currently ~:[enabled~;DISABLED~].~%"
          (> *gc-inhibit* 0)))
 

diff --git a/version.lisp-expr b/version.lisp-expr
index 9b894c6..dc433fb 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -18,4 +18,4 @@
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
 
-"0.pre8.70"
+"0.pre8.71"