--- a/ProcessorScheduler.st Wed Nov 02 23:38:06 2016 +0100
+++ b/ProcessorScheduler.st Wed Nov 02 23:47:08 2016 +0100
@@ -2018,6 +2018,8 @@
|pri id l wasBlocked|
aProcess isNil ifTrue:[^ self].
+
+'terminate: ' errorPrint. aProcess errorPrintCR.
aProcess == scheduler ifTrue:[
InvalidProcessSignal raiseWith:aProcess errorString:'attempt to terminate scheduler'.
^ self
@@ -2028,6 +2030,7 @@
id := aProcess id.
id isNil ifTrue:[ "already dead"
wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
+'no id' errorPrintCR.
^ self
].
@@ -2060,6 +2063,7 @@
zombie := id.
wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
+'checking2' errorPrintCR.
self checkForEndOfDispatch.
self threadSwitch:scheduler.
"not reached"
@@ -2070,6 +2074,7 @@
self class threadDestroy:id.
wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
+'checking3' errorPrintCR.
self checkForEndOfDispatch.
"Modified: / 23-09-1996 / 13:50:24 / stefan"
@@ -3329,8 +3334,9 @@
"/ (and anyTimeouts is false, which means that no timeout blocks are present)
"/ and no readSemaphores are present (which means that noone is waiting for input)
"/ and no writeSemaphores are present
-
+'check' errorPrintCR.
self noMoreUserProcesses ifTrue:[
+'end of dispatch' errorPrintCR.
dispatching := false.
^ self
].