equal
deleted
inserted
replaced
1114 block, but go into a select if there is nothing to do. |
1114 block, but go into a select if there is nothing to do. |
1115 Also, it has a prio of max+1 - thus, it comes first when looking |
1115 Also, it has a prio of max+1 - thus, it comes first when looking |
1116 for a runnable process. |
1116 for a runnable process. |
1117 " |
1117 " |
1118 currentPriority := SchedulingPriority. |
1118 currentPriority := SchedulingPriority. |
1119 p := Process new. |
1119 p := Process basicNew. |
1120 p setId:0 state:#run. |
1120 p setId:0 state:#run. |
1121 p setPriority:currentPriority. |
1121 p setPriority:currentPriority. |
1122 p name:'scheduler'. |
1122 p name:'scheduler'. |
1123 |
1123 |
1124 scheduler := activeProcess := p. |
1124 scheduler := activeProcess := p. |
2497 ! ! |
2497 ! ! |
2498 |
2498 |
2499 !ProcessorScheduler class methodsFor:'documentation'! |
2499 !ProcessorScheduler class methodsFor:'documentation'! |
2500 |
2500 |
2501 version |
2501 version |
2502 ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.116 1997-01-24 22:10:38 cg Exp $' |
2502 ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.117 1997-01-25 00:43:51 cg Exp $' |
2503 ! ! |
2503 ! ! |
2504 ProcessorScheduler initialize! |
2504 ProcessorScheduler initialize! |