--- a/ProcessorScheduler.st Wed Feb 15 18:55:50 2006 +0100
+++ b/ProcessorScheduler.st Wed Feb 15 19:02:28 2006 +0100
@@ -2212,15 +2212,13 @@
"/ every other tick, recompute priorities.
flipFlop := flipFlop not.
flipFlop ifTrue:[
- scheduledProcesses isNil ifTrue:[
- scheduledProcesses := IdentitySet new.
- ] ifFalse:[
+ scheduledProcesses notNil ifTrue:[
supportDynamicPriorities == true ifTrue:[
self recomputeDynamicPriorities.
].
scheduledProcesses removeAll.
].
-
+ scheduledProcesses := IdentitySet new.
].
]
] ifCurtailed:[
@@ -3315,7 +3313,7 @@
!ProcessorScheduler class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.227 2005-07-08 17:15:02 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.228 2006-02-15 18:02:28 cg Exp $'
! !
ProcessorScheduler initialize!