--- 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!