--- 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