ObjectMemory.st
changeset 21442 632af5f20348
parent 21094 e6a4ef61584c
child 21497 2758bcde7a58
--- 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