ObjectMemory.st
changeset 13587 d2c9f7edef49
parent 13586 636b2e7b2748
child 13946 8cd0070fa496
--- a/ObjectMemory.st	Wed Aug 17 16:23:24 2011 +0200
+++ b/ObjectMemory.st	Wed Aug 17 21:29:47 2011 +0200
@@ -4484,13 +4484,13 @@
     "return the number of bytes allocated (and used) by malloc."
 
 %{  /* NOCONTEXT */
-    extern unsigned __stx_malloc_stats();
+    extern int __stx_malloc_stats();
     long statsArray[3];
     int filled;
 
     filled = __stx_malloc_stats(statsArray, sizeof(statsArray));
     if (filled < 1) {
-	RETURN(__mkSmallInteger(0));
+        RETURN(__mkSmallInteger(0));
     }
     RETURN ( __MKUINT(statsArray[0]));
 %}
@@ -4505,19 +4505,19 @@
     |allStats|
 
 %{
-    extern unsigned __stx_malloc_stats();
+    extern int __stx_malloc_stats();
     long statsArray[30];
     int filled, i;
     OBJ temp;
 
     filled = __stx_malloc_stats(statsArray, sizeof(statsArray));
     if (filled < 1) {
-	RETURN(nil);
+        RETURN(nil);
     }
     allStats = __ARRAY_NEW_INT(filled);
     for (i = 0; i < filled; i++) {
-	__arrayVal(allStats)[i] = temp = __MKUINT(statsArray[i]);
-	__STORE(allStats, temp);
+        __arrayVal(allStats)[i] = temp = __MKUINT(statsArray[i]);
+        __STORE(allStats, temp);
     }
 
     RETURN ( allStats );
@@ -4531,13 +4531,13 @@
     "return the number of bytes reserved by malloc (may not have been used yet)."
 
 %{  /* NOCONTEXT */
-    extern unsigned __stx_malloc_stats();
+    extern int __stx_malloc_stats();
     long statsArray[3];
     int filled;
 
     filled = __stx_malloc_stats(statsArray, sizeof(statsArray));
     if (filled < 2) {
-	RETURN(__mkSmallInteger(0));
+        RETURN(__mkSmallInteger(0));
     }
     RETURN ( __MKUINT(statsArray[1]));
 %}
@@ -5524,7 +5524,7 @@
 !ObjectMemory class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.257 2011-08-17 14:23:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.258 2011-08-17 19:29:47 stefan Exp $'
 !
 
 version_SVN