equal
deleted
inserted
replaced
2413 wasBlocked| |
2413 wasBlocked| |
2414 |
2414 |
2415 wasBlocked := OperatingSystem blockInterrupts. |
2415 wasBlocked := OperatingSystem blockInterrupts. |
2416 |
2416 |
2417 aFileDescriptor isNil ifTrue:[ |
2417 aFileDescriptor isNil ifTrue:[ |
2418 (readCheckArray identityIndexOf:aSemaphore startingAt:1) == 0 ifTrue:[ |
2418 (idx := readCheckArray identityIndexOf:aSemaphore startingAt:1) == 0 ifTrue:[ |
2419 idx := readFdArray identityIndexOf:nil startingAt:1. |
2419 idx := readFdArray identityIndexOf:nil startingAt:1. |
2420 idx ~~ 0 ifTrue:[ |
2420 idx ~~ 0 ifTrue:[ |
2421 readFdArray at:idx put:aFileDescriptor. |
2421 readFdArray at:idx put:aFileDescriptor. |
2422 readSemaphoreArray at:idx put:aSemaphore. |
2422 readSemaphoreArray at:idx put:aSemaphore. |
2423 readCheckArray at:idx put:aBlock |
2423 readCheckArray at:idx put:aBlock |
2433 readCheckArray at:idx put:aBlock. |
2433 readCheckArray at:idx put:aBlock. |
2434 ] |
2434 ] |
2435 ]. |
2435 ]. |
2436 ] |
2436 ] |
2437 ] ifFalse:[ |
2437 ] ifFalse:[ |
2438 (readFdArray identityIndexOf:aFileDescriptor startingAt:1) == 0 ifTrue:[ |
2438 (idx := readFdArray identityIndexOf:aFileDescriptor startingAt:1) == 0 ifTrue:[ |
2439 idx := readFdArray identityIndexOf:nil startingAt:1. |
2439 idx := readFdArray identityIndexOf:nil startingAt:1. |
2440 idx ~~ 0 ifTrue:[ |
2440 idx ~~ 0 ifTrue:[ |
2441 readFdArray at:idx put:aFileDescriptor. |
2441 readFdArray at:idx put:aFileDescriptor. |
2442 readSemaphoreArray at:idx put:aSemaphore. |
2442 readSemaphoreArray at:idx put:aSemaphore. |
2443 readCheckArray at:idx put:aBlock |
2443 readCheckArray at:idx put:aBlock |
3375 ! ! |
3375 ! ! |
3376 |
3376 |
3377 !ProcessorScheduler class methodsFor:'documentation'! |
3377 !ProcessorScheduler class methodsFor:'documentation'! |
3378 |
3378 |
3379 version |
3379 version |
3380 ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.270 2013-06-27 09:49:11 cg Exp $' |
3380 ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.271 2013-07-05 13:27:01 cg Exp $' |
3381 ! |
3381 ! |
3382 |
3382 |
3383 version_CVS |
3383 version_CVS |
3384 ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.270 2013-06-27 09:49:11 cg Exp $' |
3384 ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.271 2013-07-05 13:27:01 cg Exp $' |
3385 ! ! |
3385 ! ! |
3386 |
3386 |
3387 |
3387 |
3388 ProcessorScheduler initialize! |
3388 ProcessorScheduler initialize! |