ObjectMemory.st
branchjv
changeset 17976 50c2416f962a
parent 17955 f5ee690b1a27
child 18011 deb0c3355881
--- 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!