ObjectMemory.st
branchjv
changeset 17847 62aa54f44969
parent 17846 24edc476ac18
child 17849 30004e7fe0ae
--- a/ObjectMemory.st	Mon Jul 18 16:22:09 2011 +0100
+++ b/ObjectMemory.st	Wed Aug 10 15:59:08 2011 +0100
@@ -4042,22 +4042,24 @@
 performLowSpaceCleanup
     "ask all classes to remove possibly cached data.
      You may help the system a bit, in providing a lowSpaceCleanup method
-     in your classes which have lots of data kept somewhere (usually, cached data)."
+     in your classes which have lots of data kept somewhere (usually, cached data).
+     Notice: it may never hurt to call lowSpaceCleanup (i.e. the data must always be
+     reconstructable)"
 
     "avoid to allocate memory here - so don't send Smalltalk>>allClassesDo:,
      which allocates an IdentitySet"
 
     Smalltalk do:[:eachGlobal|
-	eachGlobal isBehavior ifTrue:[
-	    eachGlobal lowSpaceCleanup
-	].
+        eachGlobal isBehavior ifTrue:[
+            eachGlobal lowSpaceCleanup
+        ].
     ].
 
     "
-      ObjectMemory performLowSpaceCleanup
-    "
-
-    "Created: 12.4.1996 / 14:57:28 / cg"
+     ObjectMemory performLowSpaceCleanup
+    "
+
+    "Created: / 12-04-1996 / 14:57:28 / cg"
 ! !
 
 !ObjectMemory class methodsFor:'object finalization'!
@@ -5440,11 +5442,12 @@
 !ObjectMemory class methodsFor:'documentation'!
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.251 2011/06/28 14:00:53 vrany Exp §'
+    ^ '§Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.252 2011/08/08 17:20:22 cg Exp §'
 !
 
 version_SVN
-    ^ '$Id: ObjectMemory.st 10660 2011-07-18 15:22:09Z vranyj1 $'
+    ^ '$ Id: ObjectMemory.st 10643 2011-06-08 21:53:07Z vranyj1  $'
 ! !
 
 ObjectMemory initialize!
+