equal
deleted
inserted
replaced
3220 ]. |
3220 ]. |
3221 (OperatingSystem millisecondTime:aTime isAfter:now) ifFalse:[^ 0]. |
3221 (OperatingSystem millisecondTime:aTime isAfter:now) ifFalse:[^ 0]. |
3222 delta := OperatingSystem millisecondTimeDeltaBetween:aTime and:now. |
3222 delta := OperatingSystem millisecondTimeDeltaBetween:aTime and:now. |
3223 delta < 0 ifTrue:[ |
3223 delta < 0 ifTrue:[ |
3224 'Processor [warning]: negative time delta' errorPrintCR. |
3224 'Processor [warning]: negative time delta' errorPrintCR. |
3225 delta := 0. |
3225 delta := 10. |
3226 ]. |
3226 ]. |
3227 minDelta isNil ifTrue:[ |
3227 minDelta isNil ifTrue:[ |
3228 minDelta := delta |
3228 minDelta := delta |
3229 ] ifFalse:[ |
3229 ] ifFalse:[ |
3230 minDelta := minDelta min:delta |
3230 minDelta := minDelta min:delta |
3352 ! ! |
3352 ! ! |
3353 |
3353 |
3354 !ProcessorScheduler class methodsFor:'documentation'! |
3354 !ProcessorScheduler class methodsFor:'documentation'! |
3355 |
3355 |
3356 version |
3356 version |
3357 ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.244 2007-10-22 08:37:16 cg Exp $' |
3357 ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.245 2007-10-22 11:38:41 cg Exp $' |
3358 ! ! |
3358 ! ! |
3359 |
3359 |
3360 ProcessorScheduler initialize! |
3360 ProcessorScheduler initialize! |