ProcessorScheduler.st
changeset 16322 a8391a3cb10a
parent 16319 d38c34400bd0
child 16338 b8defcce7efc
equal deleted inserted replaced
16321:6e24f3c5ba96 16322:a8391a3cb10a
  3134                     action value.
  3134                     action value.
  3135                     newProcessMaybeReady := true
  3135                     newProcessMaybeReady := true
  3136                 ]
  3136                 ]
  3137             ].
  3137             ].
  3138             nReady := nReady - 1.
  3138             nReady := nReady - 1.
  3139             index := index + 1.
  3139             readyIndex := readyIndex + 1.
  3140         ].
  3140         ].
  3141 
  3141 
  3142         readyIndex := 1.
  3142         readyIndex := 1.
  3143         [nReady > 0
  3143         [nReady > 0
  3144              and:[ readyIndex <= writableResultFdArray size
  3144              and:[ readyIndex <= writableResultFdArray size
  3156                     action value.
  3156                     action value.
  3157                     newProcessMaybeReady := true
  3157                     newProcessMaybeReady := true
  3158                 ]
  3158                 ]
  3159             ].
  3159             ].
  3160             nReady := nReady - 1.
  3160             nReady := nReady - 1.
  3161             index := index + 1.
  3161             readyIndex := readyIndex + 1.
  3162         ].
  3162         ].
  3163     ].
  3163     ].
  3164     ^ newProcessMaybeReady
  3164     ^ newProcessMaybeReady
  3165 
  3165 
  3166     "Modified: / 12-04-1996 / 09:31:22 / stefan"
  3166     "Modified: / 12-04-1996 / 09:31:22 / stefan"
  3405 ! !
  3405 ! !
  3406 
  3406 
  3407 !ProcessorScheduler class methodsFor:'documentation'!
  3407 !ProcessorScheduler class methodsFor:'documentation'!
  3408 
  3408 
  3409 version
  3409 version
  3410     ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.284 2014-04-10 19:14:50 stefan Exp $'
  3410     ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.285 2014-04-11 09:14:17 stefan Exp $'
  3411 !
  3411 !
  3412 
  3412 
  3413 version_CVS
  3413 version_CVS
  3414     ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.284 2014-04-10 19:14:50 stefan Exp $'
  3414     ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.285 2014-04-11 09:14:17 stefan Exp $'
  3415 ! !
  3415 ! !
  3416 
  3416 
  3417 
  3417 
  3418 ProcessorScheduler initialize!
  3418 ProcessorScheduler initialize!