--- a/private.rc Sat Mar 18 06:30:14 1995 +0100
+++ b/private.rc Sat Mar 18 16:29:30 1995 +0100
@@ -71,7 +71,8 @@
experimental: try to always keep some bytes in the pocket
"
OperatingSystem getLoginName = 'claus' ifTrue:[
- ObjectMemory freeSpaceGCLimit:1000000.
+ ObjectMemory freeSpaceGCAmount:1000000.
+ ObjectMemory freeSpaceGCLimit:250000.
ObjectMemory startBackgroundCollectorAt:5.
ObjectMemory startBackgroundFinalizationAt:5.
]
@@ -85,8 +86,11 @@
ObjectMemory newSpaceSize > (500*1024) ifTrue:[
a := #(nil nil nil nil -16 -4 -2 -2 0 0 16 nil) copy.
] ifFalse:[
-"/ a := #(nil nil nil nil -16 -4 0 0 0 4 16 nil) copy.
-"/ a := #(nil nil nil nil -20 -8 -3 -1 0 4 16 nil) copy.
+"/ min max cpy /32 /16 /8 /4 /2 /4 /8 /16 /32 "
+ "slow tenure"
+"/ a := #(nil nil nil -100 -8 -4 -1 1 2 4 8 16 nil) copy.
+"/ a := #(nil nil nil nil -16 -4 0 0 0 4 16 nil) copy.
+ "fast tenure"
a := #(nil nil nil nil -20 -8 -3 -1 -1 1 16 nil) copy.
].
ObjectMemory tenureParameters:a.