From: Christophe Rhodes <csr21@cam.ac.uk>
Date: Wed, 23 Apr 2003 09:38:04 +0000 (+0000)
Subject: 0.pre8.96:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=120209c7e55d70aa96f4f7bcb0cbcf292b8e125f;p=sbcl.git

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.
---

diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr
index 12f5e8e..7ec97a8 100644
--- a/package-data-list.lisp-expr
+++ b/package-data-list.lisp-expr
@@ -1042,6 +1042,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
              "COPY-BYTE-VECTOR-TO-SYSTEM-AREA"
              "CSUBTYPEP" "CTYPE" "TYPE-HASH-VALUE"
              "CTYPE-OF" "CTYPE-P" "CTYPEP" "CURRENT-FP" "CURRENT-SP"
+             "CURRENT-DYNAMIC-SPACE-START"
              "DATA-VECTOR-REF" "DATA-VECTOR-SET" "DECODE-DOUBLE-FLOAT"
              #!+long-float "DECODE-LONG-FLOAT"
 	     "DECODE-SINGLE-FLOAT"
@@ -1882,7 +1883,6 @@ structure representations"
              "CONTEXT-PC" "CONTEXT-REGISTER"
              "CONTROL-STACK-SC-NUMBER" "COUNT-NO-OPS"
 	     "*CURRENT-CATCH-BLOCK*"
-             "CURRENT-DYNAMIC-SPACE-START"
              "CURRENT-FLOAT-TRAP" "DEFINE-FOR-EACH-PRIMITIVE-OBJECT"
              "DESCRIPTOR-REG-SC-NUMBER" "DESCRIPTOR-VS-NON-DESCRIPTOR-STORAGE"
              "DOUBLE-FLOAT-EXPONENT-BYTE" "DOUBLE-FLOAT-BIAS"
diff --git a/src/code/room.lisp b/src/code/room.lisp
index 4dbefe7..6c8625a 100644
--- a/src/code/room.lisp
+++ b/src/code/room.lisp
@@ -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.
diff --git a/version.lisp-expr b/version.lisp-expr
index d6990d5..cc241b6 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.pre8.95"
+"0.pre8.96"