ProcessorScheduler.st
changeset 20723 510279fb2401
parent 20722 0eeb9a61979f
child 20724 1aad98bb2518
--- 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
         ].