ProcessorScheduler.st
changeset 6214 145efcef27b6
parent 6044 f752aac6b456
child 6238 cefe40ecf525
--- a/ProcessorScheduler.st	Sat Nov 17 11:13:13 2001 +0100
+++ b/ProcessorScheduler.st	Sat Nov 17 11:14:07 2001 +0100
@@ -774,20 +774,20 @@
     dispatchAction := [self dispatch].
 
     handlerAction := [:ex |
-			('Processor [info]: ignored signal (', ex signal printString, ')') infoPrintCR.
-			ex return
-		     ].
+                        ('Processor [info]: ignored signal (', ex signal printString, ')') infoPrintCR.
+                        ex return
+                     ].
 
     ignoredSignals := SignalSet 
-			with:(Process terminateSignal)
-			with:AbortSignal.
+                        with:TerminateProcessRequest
+                        with:AbortSignal.
 
     "/
     "/ I made this an extra call to dispatch; this allows recompilation
     "/  of the dispatch-handling code in the running system.
     "/
     [dispatching] whileTrue:[
-	ignoredSignals handle:handlerAction do:dispatchAction
+        ignoredSignals handle:handlerAction do:dispatchAction
     ].
 
     "/ we arrive here in standalone Apps,
@@ -796,8 +796,8 @@
 
     'Processor [info]: finish dispatch (no more processes)' infoPrintCR.
 
-    "Modified: 23.9.1996 / 14:19:56 / stefan"
-    "Modified: 10.1.1997 / 19:10:53 / cg"
+    "Modified: / 23.9.1996 / 14:19:56 / stefan"
+    "Modified: / 17.11.2001 / 11:10:23 / cg"
 !
 
 exitWhenNoMoreUserProcesses:aBoolean
@@ -3139,6 +3139,6 @@
 !ProcessorScheduler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.192 2001-09-26 13:08:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.193 2001-11-17 10:14:07 cg Exp $'
 ! !
 ProcessorScheduler initialize!