handle non-fix OLDSPACE
authorClaus Gittinger <cg@exept.de>
Wed, 02 Jan 2013 13:29:07 +0100
changeset 14622 59306ad8f1be
parent 14621 7f004e0e8998
child 14623 c433536ae3ab
handle non-fix OLDSPACE
ObjectMemory.st
--- a/ObjectMemory.st	Tue Jan 01 12:30:33 2013 +0100
+++ b/ObjectMemory.st	Wed Jan 02 13:29:07 2013 +0100
@@ -4327,7 +4327,11 @@
 
 collectedOldSpaceAddress
 %{
+#ifdef COLLECTEDOLD_ADDRESS 
     RETURN(__MKUINT(COLLECTEDOLD_ADDRESS));
+#else
+    RETURN(__MKUINT(0));
+#endif
 %}
 
     "
@@ -4663,7 +4667,11 @@
 
 oldSpaceAddress
 %{
+#ifdef OLDSPACE_ADDRESS
     RETURN(__MKUINT(OLDSPACE_ADDRESS));
+#else
+    RETURN(__MKUINT(0));
+#endif
 %}
 
     "
@@ -5492,7 +5500,7 @@
 !ObjectMemory class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.262 2012-10-10 16:50:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.263 2013-01-02 12:29:07 cg Exp $'
 !
 
 version_SVN