Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
comments
authorClaus Gittinger <cg@exept.de>
Wed, 29 Jan 1997 23:44:54 +0100
changeset 2320 a6f75a38159f
parent 2319 640bb389f90a
child 2321 2fdc6e08cd05
comments
ObjMem.st file | annotate | diff | comparison | revisions
ObjectMemory.st file | annotate | diff | comparison | revisions 
--- a/ObjMem.st	Wed Jan 29 23:29:49 1997 +0100
+++ b/ObjMem.st	Wed Jan 29 23:44:54 1997 +0100
@@ -640,11 +640,16 @@
 !ObjectMemory class methodsFor:'ST-80 compatibility'!
 
 availableFreeBytes
+    "return the amount of free memory
+     (both in the compact free area and in the free lists)"
+
     ^ self freeSpace + self freeListSpace
 
     "
      ObjectMemory availableFreeBytes 
     "
+
+    "Modified: 29.1.1997 / 23:43:05 / cg"
 !
 
 bytesPerOOP
@@ -674,28 +679,49 @@
 !
 
 compactingGC
+    "perform a compacting garbage collect"
+
     self garbageCollect
+
+    "Modified: 29.1.1997 / 23:43:25 / cg"
 !
 
 current
+    "the 'current' ObjectMemory - thats myself"
+
     ^ self
+
+    "Modified: 29.1.1997 / 23:43:39 / cg"
 !
 
 globalCompactingGC
+    "perform a compacting garbage collect"
+
     self garbageCollect
+
+    "Modified: 29.1.1997 / 23:43:47 / cg"
 !
 
 growMemoryBy:numberOfBytes
+    "allocate more memory"
+
     ^ self moreOldSpace:numberOfBytes
+
+    "Modified: 29.1.1997 / 23:44:01 / cg"
 !
 
 numOopsNumBytes
+    "return an array filled with the number of objects
+     and the number of used bytes."
+
     ^ Array with:(self numberOfObjects)
-	    with:(self bytesUsed)
+            with:(self bytesUsed)
 
     "
      ObjectMemory numOopsNumBytes 
     "
+
+    "Modified: 29.1.1997 / 23:44:24 / cg"
 ! !
 
 !ObjectMemory class methodsFor:'Signal constants'!
@@ -3983,6 +4009,6 @@
 !ObjectMemory class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ObjMem.st,v 1.134 1997-01-24 22:10:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ObjMem.st,v 1.135 1997-01-29 22:44:54 cg Exp $'
 ! !
 ObjectMemory initialize!
--- a/ObjectMemory.st	Wed Jan 29 23:29:49 1997 +0100
+++ b/ObjectMemory.st	Wed Jan 29 23:44:54 1997 +0100
@@ -640,11 +640,16 @@
 !ObjectMemory class methodsFor:'ST-80 compatibility'!
 
 availableFreeBytes
+    "return the amount of free memory
+     (both in the compact free area and in the free lists)"
+
     ^ self freeSpace + self freeListSpace
 
     "
      ObjectMemory availableFreeBytes 
     "
+
+    "Modified: 29.1.1997 / 23:43:05 / cg"
 !
 
 bytesPerOOP
@@ -674,28 +679,49 @@
 !
 
 compactingGC
+    "perform a compacting garbage collect"
+
     self garbageCollect
+
+    "Modified: 29.1.1997 / 23:43:25 / cg"
 !
 
 current
+    "the 'current' ObjectMemory - thats myself"
+
     ^ self
+
+    "Modified: 29.1.1997 / 23:43:39 / cg"
 !
 
 globalCompactingGC
+    "perform a compacting garbage collect"
+
     self garbageCollect
+
+    "Modified: 29.1.1997 / 23:43:47 / cg"
 !
 
 growMemoryBy:numberOfBytes
+    "allocate more memory"
+
     ^ self moreOldSpace:numberOfBytes
+
+    "Modified: 29.1.1997 / 23:44:01 / cg"
 !
 
 numOopsNumBytes
+    "return an array filled with the number of objects
+     and the number of used bytes."
+
     ^ Array with:(self numberOfObjects)
-	    with:(self bytesUsed)
+            with:(self bytesUsed)
 
     "
      ObjectMemory numOopsNumBytes 
     "
+
+    "Modified: 29.1.1997 / 23:44:24 / cg"
 ! !
 
 !ObjectMemory class methodsFor:'Signal constants'!
@@ -3983,6 +4009,6 @@
 !ObjectMemory class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.134 1997-01-24 22:10:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.135 1997-01-29 22:44:54 cg Exp $'
 ! !
 ObjectMemory initialize!
hg/stx-libbasic