preserve more old space, when loading shared objects
authorClaus Gittinger <cg@exept.de>
Tue, 14 May 1996 07:33:16 +0200
changeset 271 dc566f61879d
parent 270 fff03eea5307
child 272 04bf9e0c89da
preserve more old space, when loading shared objects
ObjFLoader.st
ObjectFileLoader.st
--- a/ObjFLoader.st	Mon May 13 23:07:26 1996 +0200
+++ b/ObjFLoader.st	Tue May 14 07:33:16 1996 +0200
@@ -1239,8 +1239,8 @@
 
 	    force = (forceOld == true);
 	    if (force) {
-		if ((__oldSpaceSize() - __oldSpaceUsed()) < (64*1024)) {
-		    __moreOldSpace(__thisContext, 64*1024);
+		if ((__oldSpaceSize() - __oldSpaceUsed()) < (256*1024)) {
+		    __moreOldSpace(__thisContext, 256*1024);
 		} 
 		prevSpace = __allocForceSpace(OLDSPACE);
 	    }
@@ -3206,6 +3206,6 @@
 !ObjectFileLoader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Attic/ObjFLoader.st,v 1.93 1996-04-25 17:07:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Attic/ObjFLoader.st,v 1.94 1996-05-14 05:33:16 cg Exp $'
 ! !
 ObjectFileLoader initialize!
--- a/ObjectFileLoader.st	Mon May 13 23:07:26 1996 +0200
+++ b/ObjectFileLoader.st	Tue May 14 07:33:16 1996 +0200
@@ -1239,8 +1239,8 @@
 
 	    force = (forceOld == true);
 	    if (force) {
-		if ((__oldSpaceSize() - __oldSpaceUsed()) < (64*1024)) {
-		    __moreOldSpace(__thisContext, 64*1024);
+		if ((__oldSpaceSize() - __oldSpaceUsed()) < (256*1024)) {
+		    __moreOldSpace(__thisContext, 256*1024);
 		} 
 		prevSpace = __allocForceSpace(OLDSPACE);
 	    }
@@ -3206,6 +3206,6 @@
 !ObjectFileLoader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ObjectFileLoader.st,v 1.93 1996-04-25 17:07:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ObjectFileLoader.st,v 1.94 1996-05-14 05:33:16 cg Exp $'
 ! !
 ObjectFileLoader initialize!