From: Daniel Barlow <dan@telent.net>
Date: Fri, 18 Apr 2003 03:13:26 +0000 (+0000)
Subject: 0.pre8.71
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=cede27c2b30bdcb127af27bc51c8dfa44b14685b;p=sbcl.git

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
--- 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*)))
 
 ;;;; 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
--- 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"