private.rc
changeset 198 7bbdd3d72cea
parent 195 1cf850844da9
child 199 2f1fb3201393
--- a/private.rc	Thu Jan 16 16:30:20 1997 +0100
+++ b/private.rc	Mon Jan 27 19:29:59 1997 +0100
@@ -24,7 +24,15 @@
 "/ a year or so ;-)
 "/
 ObjectMemory justInTimeCompilation:true.
-ObjectMemory dynamicCodeLimit:64000.
+
+"/
+"/ you may limit the amount of memory allocated to
+"/ dynamic compiled code ...
+"/ (I use a very small size, to stress the garbage collector a bit;
+"/  you should not do so. A good limit is some 0.5 to 1Mb)
+"/
+
+"/    ObjectMemory dynamicCodeLimit:64000.
 
 "/
 "/ If local sources have preference over source code managment
@@ -51,7 +59,7 @@
 ].
 !
 
-|whoAmI thisIsMySystem conf systemType|
+|whoAmI domain thisIsMySystem conf systemType|
 
 'private.rc [info]: reading ''keyboard.rc'' ...' infoPrintCR.
 Smalltalk fileIn:'keyboard.rc'.
@@ -71,10 +79,17 @@
 "/
 Smalltalk systemPath addFirst:'../..'.
 
+"/
+"/ some of my private settings ...
+"/
 whoAmI := OperatingSystem getLoginName.
-thisIsMySystem := whoAmI = 'claus' or:[whoAmI = 'cg'].
+domain := OperatingSystem getDomainName.
+thisIsMySystem := (whoAmI = 'claus' or:[whoAmI = 'cg'])
+		  and:[domain = 'axept.de' or:[domain = 'exept.de']].
 
 thisIsMySystem ifTrue:[
+    ObjectMemory dynamicCodeLimit:64000.
+
     MenuView defaultFont:(MenuView defaultFont size:10).
 
     Smalltalk systemPath addFirst:'../../not_delivered'.