equal
deleted
inserted
replaced
2661 "remove the argument, aBlock from the list of time-sceduled-blocks." |
2661 "remove the argument, aBlock from the list of time-sceduled-blocks." |
2662 |
2662 |
2663 |index "{ Class: SmallInteger }" |
2663 |index "{ Class: SmallInteger }" |
2664 wasBlocked| |
2664 wasBlocked| |
2665 |
2665 |
|
2666 aBlock isNil ifTrue:[^ self]. |
|
2667 |
2666 wasBlocked := OperatingSystem blockInterrupts. |
2668 wasBlocked := OperatingSystem blockInterrupts. |
2667 index := timeoutActionArray identityIndexOf:aBlock startingAt:1. |
2669 index := timeoutActionArray identityIndexOf:aBlock startingAt:1. |
2668 (index ~~ 0) ifTrue:[ |
2670 (index ~~ 0) ifTrue:[ |
2669 timeoutArray at:index put:nil. |
2671 timeoutArray at:index put:nil. |
2670 timeoutActionArray at:index put:nil. |
2672 timeoutActionArray at:index put:nil. |
2995 ! ! |
2997 ! ! |
2996 |
2998 |
2997 !ProcessorScheduler class methodsFor:'documentation'! |
2999 !ProcessorScheduler class methodsFor:'documentation'! |
2998 |
3000 |
2999 version |
3001 version |
3000 ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.167 1998-10-01 11:00:06 cg Exp $' |
3002 ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.168 1998-11-09 20:19:41 cg Exp $' |
3001 ! ! |
3003 ! ! |
3002 ProcessorScheduler initialize! |
3004 ProcessorScheduler initialize! |