--- a/ProcSched.st Sun Dec 17 17:32:14 1995 +0100
+++ b/ProcSched.st Mon Dec 18 15:18:32 1995 +0100
@@ -613,7 +613,7 @@
millis notNil ifTrue:[
OperatingSystem disableTimer.
useIOInterrupts ifFalse:[
- self checkForInputWithTimeout:0.
+ self checkForInputWithTimeout:0.
]
]
@@ -624,20 +624,23 @@
"central dispatch loop; the scheduler process is always staying in
this method, looping forever."
+ |dispatchAction|
+
"avoid confusion if entered twice"
dispatching == true ifTrue:[^ self].
dispatching := true.
- "I made this an extra call to dispatch; this allows recompilation
- of the dispatch-handling code in the running system.
- "
+ dispatchAction := [self dispatch].
+
+ "/
+ "/ I made this an extra call to dispatch; this allows recompilation
+ "/ of the dispatch-handling code in the running system.
+ "/
[true] whileTrue:[
AbortSignal handle:[:ex |
ex return
- ] do:[
- self dispatch
- ]
+ ] do:dispatchAction
]
! !
@@ -1758,6 +1761,6 @@
!ProcessorScheduler class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Attic/ProcSched.st,v 1.58 1995-12-16 16:19:02 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Attic/ProcSched.st,v 1.59 1995-12-18 14:18:32 cg Exp $'
! !
ProcessorScheduler initialize!
--- a/ProcessorScheduler.st Sun Dec 17 17:32:14 1995 +0100
+++ b/ProcessorScheduler.st Mon Dec 18 15:18:32 1995 +0100
@@ -613,7 +613,7 @@
millis notNil ifTrue:[
OperatingSystem disableTimer.
useIOInterrupts ifFalse:[
- self checkForInputWithTimeout:0.
+ self checkForInputWithTimeout:0.
]
]
@@ -624,20 +624,23 @@
"central dispatch loop; the scheduler process is always staying in
this method, looping forever."
+ |dispatchAction|
+
"avoid confusion if entered twice"
dispatching == true ifTrue:[^ self].
dispatching := true.
- "I made this an extra call to dispatch; this allows recompilation
- of the dispatch-handling code in the running system.
- "
+ dispatchAction := [self dispatch].
+
+ "/
+ "/ I made this an extra call to dispatch; this allows recompilation
+ "/ of the dispatch-handling code in the running system.
+ "/
[true] whileTrue:[
AbortSignal handle:[:ex |
ex return
- ] do:[
- self dispatch
- ]
+ ] do:dispatchAction
]
! !
@@ -1758,6 +1761,6 @@
!ProcessorScheduler class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.58 1995-12-16 16:19:02 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.59 1995-12-18 14:18:32 cg Exp $'
! !
ProcessorScheduler initialize!