--- a/smalltalk.rc Sat Mar 20 01:09:02 2004 +0100
+++ b/smalltalk.rc Sat Mar 20 01:43:29 2004 +0100
@@ -1,3 +1,4 @@
+"/ Encoding: iso8859-1
"/
"/ $Header$
"/
@@ -58,7 +59,7 @@
cpu = 'sparc' ifTrue:[
"/ for now, disable if we detect running on a sparcV10;
"/ Reason:
- "/ we do not have v10 machines here at Exept (they even do not exist at this time),
+ "/ we do not have v10 machines here at Exept (they even do not exist at this time),
"/ and therefore have no way of checking if it runs on v10.
"/ I dont want ST/X to crash on your side in that case ...
"/ ... better run a bit slower than not running at all.
@@ -81,8 +82,8 @@
ObjectMemory infoPrinting:false.
"/ Smalltalk loadBinaries:true.
-Compiler allowUnderscoreInIdentifier:true.
-Compiler warnUnderscoreInIdentifier:false.
+Compiler allowUnderscoreInIdentifier:true.
+Compiler warnUnderscoreInIdentifier:false.
Compiler warnSTXSpecials:false.
!
@@ -129,7 +130,7 @@
"/ only use the local packages.
"/
'../../projects/smalltalk' asFilename exists ifTrue:[
- Smalltalk packagePath removeAll; add:'../../..'.
+ Smalltalk packagePath removeAll; add:'../../..'.
'smalltalk.rc [info]: setting packagePath for local operation' printCR.
].
@@ -137,7 +138,7 @@
"/ any additional local packages ?.
"/
'packages' asFilename exists ifTrue:[
- Smalltalk packagePath addFirst:'./packages'.
+ Smalltalk packagePath addFirst:'./packages'.
"/ 'additional local packages' printCR.
].
"/ 'packagePath: ' print. Smalltalk packagePath printCR.
@@ -178,7 +179,7 @@
Smalltalk fileInClassLibrary:'XWorkstation' inPackage:'stx:libview'.
OperatingSystem isMSWINDOWSlike ifTrue:[
Smalltalk fileInClassLibrary:'WinWorkstation' inPackage:'stx:libview'.
- ].
+ ].
].
openDisplay := true.
].
@@ -252,7 +253,7 @@
"/ and install all nonExisting classes as autoloaded
"/
-Class withoutUpdatingChangesDo:[
+Class withoutUpdatingChangesDo:[
|needToReactivate|
HistoryManager notNil ifTrue:[
@@ -300,7 +301,7 @@
"/ (see ObjectMemory>>documentation)
"/ Claus: I moved this to the private.rc file
"/
-"/ ObjectMemory incrementalGCLimit:100000.
+"/ ObjectMemory incrementalGCLimit:100000.
"/
"/ this starts the incremental GC when freeSpace drops below a limit
@@ -308,24 +309,24 @@
"/ (see ObjectMemory>>documentation)
"/ Claus: I moved this to the private.rc file
"/
-"/ ObjectMemory freeSpaceGCLimit:300000.
+"/ ObjectMemory freeSpaceGCLimit:300000.
"/ experimental: try to always keep some bytes in the pocket
"/ this changes the memory policy, to start the background collector whenever
-"/ freespace drops below 250k or 500k have been allocated since the last GC.
+"/ freespace drops below 250k or 500k have been allocated since the last GC.
"/ AND to allocate more memory, if (after the collect) less than 1Mb is free.
"/ Doing so makes the system behave better if lots of memory is required
"/ for short periods of time, since it prepares itself for that situation
"/ during idle time. (I often walk around in the fileBrowser, loading big
"/ files like XWorkstation.st or SystemBrowser.st ....)
-ObjectMemory freeSpaceGCAmount:1000000.
-ObjectMemory freeSpaceGCLimit:250000.
-ObjectMemory incrementalGCLimit:500000.
+ObjectMemory freeSpaceGCAmount:1000000.
+ObjectMemory freeSpaceGCLimit:250000.
+ObjectMemory incrementalGCLimit:500000.
ObjectMemory oldSpaceIncrement:500000.
ObjectMemory oldSpaceCompressLimit:0. "/ temporary kludge
-ObjectMemory startBackgroundCollectorAt:5.
-ObjectMemory startBackgroundFinalizationAt:5.
+ObjectMemory startBackgroundCollectorAt:5.
+ObjectMemory startBackgroundFinalizationAt:5.
"/ this limits the amount of memory which is allocated for oldSpace
"/ (for example to prevent ST/X from taking memory from other processes)
@@ -513,7 +514,7 @@
"/ just a quick check, if this ST/X installation seems to
"/ be halfway complete (it happened to some people, that
"/ their source/resource directories were not installed)
-"/ - better to warn early ...
+"/ - better to warn early ...
"/
|anyWrong missing|
Smalltalk isStandAloneApp ifFalse:[
@@ -617,9 +618,9 @@
'st.img' asFilename exists ifFalse:[
'.' asFilename isWritable ifTrue:[
|doneWithStartupStuff|
-
+
doneWithStartupStuff := Semaphore new.
-
+
Smalltalk addStartBlock:[
[
doneWithStartupStuff wait.
@@ -627,7 +628,7 @@
ObjectMemory primSnapShotOn:'st.img'
] forkAt:1
].
-
+
Smalltalk addStartBlock:[
[
Delay waitForSeconds:10.