0.6.11.10:

[sbcl.git] / src / code / room.lisp

diff --git a/src/code/room.lisp b/src/code/room.lisp
index 15a7742..4ba273d 100644 (file)
--- a/src/code/room.lisp
+++ b/src/code/room.lisp
@@ -10,9 +10,6 @@
 ;;;; files for more information.
 
 (in-package "SB!VM")
-
-(file-comment
-  "$Header$")
 \f
 ;;;; type format database
 
@@ -110,20 +107,23 @@
 \f
 ;;;; MAP-ALLOCATED-OBJECTS
 
-(declaim (type fixnum *static-space-free-pointer*
-              *read-only-space-free-pointer* ))
+;;; Since they're represented as counts of words, we should never
+;;; need bignums to represent these:
+(declaim (type fixnum
+              *static-space-free-pointer*
+              *read-only-space-free-pointer*))
 
 (defun space-bounds (space)
   (declare (type spaces space))
   (ecase space
     (:static
-     (values (int-sap (static-space-start))
+     (values (int-sap static-space-start)
             (int-sap (* *static-space-free-pointer* word-bytes))))
     (:read-only
-     (values (int-sap (read-only-space-start))
+     (values (int-sap read-only-space-start)
             (int-sap (* *read-only-space-free-pointer* word-bytes))))
     (:dynamic
-     (values (int-sap (current-dynamic-space-start))
+     (values (int-sap dynamic-space-start)
             (dynamic-space-free-pointer)))))
 
 ;;; Return the total number of bytes used in SPACE.