CVS: sbcl/src/code room.lisp,1.23,1.24

Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs1:/tmp/cvs-serv32268/src/code

Modified Files:
        room.lisp 
Log Message:
0.pre8.96:
        Make ROOM work on cheneygc systems more than half of the time
        ... ensure that we map over allocated objects from the start
                of the current dynamic (semi-)space, not from the start
                of the whole dynamic space region.


Index: room.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/room.lisp,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -d -r1.23 -r1.24
--- room.lisp   24 Mar 2003 18:39:01 -0000      1.23
+++ room.lisp   23 Apr 2003 09:38:05 -0000      1.24
@@ -132,7 +132,8 @@
      (values (int-sap read-only-space-start)
             (int-sap (* *read-only-space-free-pointer* n-word-bytes))))
     (:dynamic
-     (values (int-sap dynamic-space-start)
+     (values (int-sap #!+gencgc dynamic-space-start 
+                     #!-gencgc (current-dynamic-space-start))
             (dynamic-space-free-pointer)))))
 
 ;;; Return the total number of bytes used in SPACE.



-------------------------------------------------------
This sf.net email is sponsored by:ThinkGeek
Welcome to geek heaven.
http://thinkgeek.com/sf