--- a/ObjectMemory.st Mon Oct 29 17:05:17 2012 +0000
+++ b/ObjectMemory.st Mon Oct 29 22:07:56 2012 +0000
@@ -4345,7 +4345,7 @@
%{ /* NOCONTEXT */
extern unsigned __oldSpaceUsed(), __newSpaceUsed(), __freeListSpace();
- RETURN ( __mkSmallInteger(__oldSpaceUsed() + __newSpaceUsed() - __freeListSpace()) );
+ RETURN ( __MKUINT(__oldSpaceUsed() + __newSpaceUsed() - __freeListSpace()) );
%}
"
ObjectMemory bytesUsed
@@ -4387,7 +4387,7 @@
%{ /* NOCONTEXT */
extern unsigned __fixSpaceSize();
- RETURN ( __mkSmallInteger(__fixSpaceSize()) );
+ RETURN ( __MKUINT(__fixSpaceSize()) );
%}
"
ObjectMemory fixSpaceSize
@@ -4400,7 +4400,7 @@
%{ /* NOCONTEXT */
extern unsigned __fixSpaceUsed();
- RETURN ( __mkSmallInteger(__fixSpaceUsed()) );
+ RETURN ( __MKUINT(__fixSpaceUsed()) );
%}
"
ObjectMemory fixSpaceUsed
@@ -4414,7 +4414,7 @@
%{ /* NOCONTEXT */
extern unsigned __freeListSpace();
- RETURN ( __mkSmallInteger(__freeListSpace()) );
+ RETURN ( __MKUINT(__freeListSpace()) );
%}
"
ObjectMemory freeListSpace
@@ -4428,7 +4428,7 @@
%{ /* NOCONTEXT */
extern unsigned __oldSpaceSize(), __oldSpaceUsed();
- RETURN ( __mkSmallInteger(__oldSpaceSize() - __oldSpaceUsed()) );
+ RETURN ( __MKUINT(__oldSpaceSize() - __oldSpaceUsed()) );
%}
"
ObjectMemory freeSpace
@@ -4658,7 +4658,7 @@
%{ /* NOCONTEXT */
extern unsigned __newSpaceSize();
- RETURN ( __mkSmallInteger(__newSpaceSize()) );
+ RETURN ( __MKUINT(__newSpaceSize()) );
%}
"
ObjectMemory newSpaceSize
@@ -4673,7 +4673,7 @@
%{ /* NOCONTEXT */
extern unsigned __newSpaceUsed();
- RETURN ( __mkSmallInteger(__newSpaceUsed()) );
+ RETURN ( __MKUINT(__newSpaceUsed()) );
%}
"
ObjectMemory newSpaceUsed
@@ -4726,7 +4726,7 @@
%{ /* NOCONTEXT */
extern unsigned __oldSpaceAllocatedSinceLastGC();
- RETURN ( __mkSmallInteger(__oldSpaceAllocatedSinceLastGC()) );
+ RETURN ( __MKUINT(__oldSpaceAllocatedSinceLastGC()) );
%}
"
ObjectMemory oldSpaceAllocatedSinceLastGC
@@ -4739,7 +4739,7 @@
%{ /* NOCONTEXT */
extern unsigned __oldSpaceSize();
- RETURN ( __mkSmallInteger(__oldSpaceSize()) );
+ RETURN ( __MKUINT(__oldSpaceSize()) );
%}
"
ObjectMemory oldSpaceSize
@@ -4753,7 +4753,7 @@
%{ /* NOCONTEXT */
extern unsigned __oldSpaceUsed();
- RETURN ( __mkSmallInteger(__oldSpaceUsed()) );
+ RETURN ( __MKUINT(__oldSpaceUsed()) );
%}
"
ObjectMemory oldSpaceUsed
@@ -5538,11 +5538,11 @@
!ObjectMemory class methodsFor:'documentation'!
version_CVS
- ^ '§Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.261 2012/07/24 13:26:44 stefan Exp §'
+ ^ '§Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.262 2012/10/10 16:50:24 cg Exp §'
!
version_SVN
- ^ '$Id: ObjectMemory.st 10829 2012-07-25 08:45:15Z vranyj1 $'
+ ^ '$Id: ObjectMemory.st 10858 2012-10-29 22:07:56Z vranyj1 $'
! !
ObjectMemory initialize!