# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1312135373 -7200
# Node ID 839fe9c573042bd2f8add66230b8e3892f593296
# Parent  991cd63e450c965dd888de721302bce434e52831
added: #startSchedulerAndBackgroundCollector
changed: #start

diff -r 991cd63e450c -r 839fe9c57304 Smalltalk.st
--- a/Smalltalk.st	Sun Jul 31 09:30:26 2011 +0200
+++ b/Smalltalk.st	Sun Jul 31 20:02:53 2011 +0200
@@ -3996,6 +3996,7 @@
             idx := CommandLineArguments indexOf:'--repl'.
             idx ~~ 0 ifTrue:[
                 CommandLineArguments removeAtIndex:idx.
+                self startSchedulerAndBackgroundCollector.
                 self readEvalPrint.
                 self exit.
             ].
@@ -4019,6 +4020,7 @@
                 CommandLineArguments
                     removeAtIndex:idx+1; removeAtIndex:idx.
 
+                self startSchedulerAndBackgroundCollector.
                 arg = '-' ifTrue:[
                     self fileInStream:Stdin
                            lazy:nil
@@ -4043,6 +4045,7 @@
                 CommandLineArguments
                     removeAtIndex:idx+1; removeAtIndex:idx.
 
+                self startSchedulerAndBackgroundCollector.
                 self
                     fileInStream:arg readStream
                     lazy:nil
@@ -4067,6 +4070,7 @@
         ].
 
         commandFile notNil ifTrue:[
+            self startSchedulerAndBackgroundCollector.
             (self secureFileIn:commandFile) ifFalse:[
                 ('Smalltalk [error]: startup file "', commandFile, '" not found.') errorPrintCR.
                 OperatingSystem exit:1.
@@ -4114,10 +4118,7 @@
                 ObjectMemory startBackgroundCollectorAt:5.
                 ObjectMemory startBackgroundFinalizationAt:5.
                 self addStartBlock:[
-                    Processor startTimeSlicing.
-                    Processor supportDynamicPriorities:true.
-                    ObjectMemory backgroundCollectProcess priorityRange:(4 to:9).
-                    ObjectMemory backgroundFinalizationProcess priorityRange:(4 to:9).
+                    self startSchedulerAndBackgroundCollector
                 ].
             ].
         ].
@@ -4129,7 +4130,16 @@
 
     self mainStartup:graphicalMode
 
-    "Modified: / 29-07-2011 / 18:07:15 / cg"
+    "Modified: / 31-07-2011 / 20:02:37 / cg"
+!
+
+startSchedulerAndBackgroundCollector
+    Processor startTimeSlicing.
+    Processor supportDynamicPriorities:true.
+    ObjectMemory backgroundCollectProcess priorityRange:(4 to:9).
+    ObjectMemory backgroundFinalizationProcess priorityRange:(4 to:9).
+
+    "Created: / 31-07-2011 / 20:01:33 / cg"
 !
 
 startStartBlockProcess
@@ -7616,11 +7626,11 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.963 2011-07-29 18:41:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.964 2011-07-31 18:02:53 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.963 2011-07-29 18:41:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.964 2011-07-31 18:02:53 cg Exp $'
 !
 
 version_SVN