equal
deleted
inserted
replaced
2870 "Created: 23.9.1996 / 14:32:33 / cg" |
2870 "Created: 23.9.1996 / 14:32:33 / cg" |
2871 "Modified: 23.9.1996 / 14:35:09 / cg" |
2871 "Modified: 23.9.1996 / 14:35:09 / cg" |
2872 ! |
2872 ! |
2873 |
2873 |
2874 timeoutHandlerProcess |
2874 timeoutHandlerProcess |
2875 timeoutHandlerProcess isNil ifTrue:[ |
2875 (timeoutHandlerProcess isNil or:[timeoutHandlerProcess isDead]) ifTrue:[ |
2876 timeoutHandlerProcess := |
2876 timeoutHandlerProcess := |
2877 [ |
2877 [ |
2878 [ |
2878 [ |
2879 [true] whileTrue:[self timeoutHandlerProcessLoop] |
2879 [true] whileTrue:[self timeoutHandlerProcessLoop] |
2880 ] ensure:[ timeoutHandlerProcess := nil ]. |
2880 ] ensure:[ timeoutHandlerProcess := nil ]. |
2883 timeoutHandlerProcess name:'Timeout handler'. |
2883 timeoutHandlerProcess name:'Timeout handler'. |
2884 timeoutHandlerProcess resume. |
2884 timeoutHandlerProcess resume. |
2885 ]. |
2885 ]. |
2886 ^ timeoutHandlerProcess. |
2886 ^ timeoutHandlerProcess. |
2887 |
2887 |
2888 "Modified: / 19-07-2006 / 18:14:49 / cg" |
2888 "Modified: / 20-07-2006 / 09:52:27 / cg" |
2889 ! |
2889 ! |
2890 |
2890 |
2891 timeoutHandlerProcessLoop |
2891 timeoutHandlerProcessLoop |
2892 Semaphore new wait. |
2892 Semaphore new wait. |
2893 ! ! |
2893 ! ! |
3333 ! ! |
3333 ! ! |
3334 |
3334 |
3335 !ProcessorScheduler class methodsFor:'documentation'! |
3335 !ProcessorScheduler class methodsFor:'documentation'! |
3336 |
3336 |
3337 version |
3337 version |
3338 ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.231 2006-07-19 16:14:23 cg Exp $' |
3338 ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.232 2006-07-20 20:43:19 cg Exp $' |
3339 ! ! |
3339 ! ! |
3340 |
3340 |
3341 ProcessorScheduler initialize! |
3341 ProcessorScheduler initialize! |