--- a/ObjectMemory.st Sun Aug 18 13:02:56 2013 +0200
+++ b/ObjectMemory.st Mon Aug 19 12:02:34 2013 +0200
@@ -4334,12 +4334,12 @@
#ifdef COLLECTEDOLD_ADDRESS
RETURN(__MKUINT(COLLECTEDOLD_ADDRESS));
#else
- RETURN(__MKUINT(0));
+ RETURN(__mkSmallInteger(0));
#endif
%}
"
- self collectedOldSpaceAddress
+ self collectedOldSpaceAddress
"
!
@@ -4674,12 +4674,12 @@
#ifdef OLDSPACE_ADDRESS
RETURN(__MKUINT(OLDSPACE_ADDRESS));
#else
- RETURN(__MKUINT(0));
+ RETURN(__mkSmallInteger(0));
#endif
%}
"
- self oldSpaceAddress
+ self oldSpaceAddress
"
!
@@ -5506,7 +5506,7 @@
!ObjectMemory class methodsFor:'documentation'!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.271 2013-08-16 17:38:47 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.272 2013-08-19 10:02:34 stefan Exp $'
!
version_SVN