ProcessorScheduler.st
changeset 15473 4e282be80765
parent 15438 9934d8542668
child 15510 204a7b5f1d9f
child 18071 009cf668b0ed
--- a/ProcessorScheduler.st	Fri Jul 05 14:36:41 2013 +0200
+++ b/ProcessorScheduler.st	Fri Jul 05 15:27:01 2013 +0200
@@ -2415,7 +2415,7 @@
     wasBlocked := OperatingSystem blockInterrupts.
 
     aFileDescriptor isNil ifTrue:[
-        (readCheckArray identityIndexOf:aSemaphore startingAt:1) == 0 ifTrue:[
+        (idx := readCheckArray identityIndexOf:aSemaphore startingAt:1) == 0 ifTrue:[
             idx := readFdArray identityIndexOf:nil startingAt:1.
             idx ~~ 0 ifTrue:[
                 readFdArray at:idx put:aFileDescriptor.
@@ -2435,7 +2435,7 @@
             ].
         ]
     ] ifFalse:[
-        (readFdArray identityIndexOf:aFileDescriptor startingAt:1) == 0 ifTrue:[
+        (idx := readFdArray identityIndexOf:aFileDescriptor startingAt:1) == 0 ifTrue:[
             idx := readFdArray identityIndexOf:nil startingAt:1.
             idx ~~ 0 ifTrue:[
                 readFdArray at:idx put:aFileDescriptor.
@@ -3377,11 +3377,11 @@
 !ProcessorScheduler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.270 2013-06-27 09:49:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.271 2013-07-05 13:27:01 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.270 2013-06-27 09:49:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.271 2013-07-05 13:27:01 cg Exp $'
 ! !