--- a/ObjectMemory.st Mon Feb 13 20:47:36 2017 +0100
+++ b/ObjectMemory.st Mon Feb 13 20:47:39 2017 +0100
@@ -2000,7 +2000,7 @@
|idx|
(anObject == val) ifTrue:[
- "/ for our convenience - if its a nameSpace, cut off Smalltalk.
+ "/ for our convenience - if it's a nameSpace, cut off Smalltalk.
idx := key string indexOf:$:.
(idx ~~ 0
and:[idx < key string size
@@ -2034,8 +2034,9 @@
self error:'no reference' mayProceed:true.
^ nil.
- "Created: / 2.2.1998 / 23:46:12 / cg"
- "Modified: / 4.2.1998 / 22:03:36 / cg"
+ "Created: / 02-02-1998 / 23:46:12 / cg"
+ "Modified: / 04-02-1998 / 22:03:36 / cg"
+ "Modified (format): / 13-02-2017 / 20:28:14 / cg"
!
sizeOf:anObject
@@ -3381,7 +3382,7 @@
"allocate howMuch bytes more for old objects; return true if this worked,
false if that failed.
This is done automatically, when running out of space, but makes
- sense, if its known in advance that a lot of memory is needed to
+ sense, if it's known in advance that a lot of memory is needed to
avoid multiple reallocations and compresses.
On systems which do not support the mmap (or equivalent) system call,
this (currently) implies a compressing garbage collect - so its slow.
@@ -3392,7 +3393,7 @@
return __c__._RETURN_true();
#else
if (__isSmallInteger(howMuch)) {
- RETURN( __moreOldSpace((OBJ)__context, __intVal(howMuch)) ? true : false );
+ RETURN( __moreOldSpace((OBJ)__context, __intVal(howMuch)) ? true : false );
}
RETURN (false);
#endif
@@ -3400,6 +3401,8 @@
"
ObjectMemory moreOldSpace:1000000
"
+
+ "Modified: / 13-02-2017 / 20:28:09 / cg"
!
moreOldSpaceIfUseful
@@ -4004,7 +4007,7 @@
byteCodeSizeLimitForDynamicCompilation:aNumber
"set a limit on a methods number of byteCodes.
Compilation of a method into machine code is aborted,
- if its bytecode size is larger than the given number.
+ if it's bytecode size is larger than the given number.
This is only useful, if large methods have a smaller
chance of being evaluated often (which may not be true).
The predefined limit is some 4k (which seems to be ok)."
@@ -4014,9 +4017,9 @@
int prev;
prev = __byteCodeSizeLimitForDynamicCompilation(
- __isSmallInteger(aNumber)
- ? __intVal(aNumber)
- : -1);
+ __isSmallInteger(aNumber)
+ ? __intVal(aNumber)
+ : -1);
RETURN (__mkSmallInteger(prev));
%}.
^ 0
@@ -4025,6 +4028,8 @@
ObjectMemory byteCodeSizeLimitForDynamicCompilation:nil
ObjectMemory byteCodeSizeLimitForDynamicCompilation:8000
"
+
+ "Modified: / 13-02-2017 / 20:28:02 / cg"
!
codeForCPU:aCPUSymbol