equal
deleted
inserted
replaced
1228 |
1228 |
1229 scheduleForInterrupt:aProcess |
1229 scheduleForInterrupt:aProcess |
1230 "make aProcess evaluate its pushed interrupt block(s)" |
1230 "make aProcess evaluate its pushed interrupt block(s)" |
1231 |
1231 |
1232 self scheduleInterruptActionsOf:aProcess. |
1232 self scheduleInterruptActionsOf:aProcess. |
1233 " |
|
1234 and, make the process runnable |
|
1235 " |
|
1236 aProcess state ~~ #stopped ifTrue:[ |
1233 aProcess state ~~ #stopped ifTrue:[ |
1237 aProcess state == #osWait ifTrue:[ |
1234 " |
1238 ('Processor [warning]: ignored scheduleForInterrupt:Process ',(aProcess id) printString,' state osWait') errorPrintCR. |
1235 make the process runnable |
1239 "/ self halt. |
1236 " |
1240 ] ifFalse:[ |
1237 self resume:aProcess |
1241 " |
|
1242 and, make the process runnable |
|
1243 " |
|
1244 self resume:aProcess |
|
1245 ] |
|
1246 ] |
1238 ] |
1247 |
1239 |
1248 "Modified: / 24.8.1998 / 18:31:32 / cg" |
1240 "Modified: / 24.8.1998 / 18:31:32 / cg" |
1249 ! |
1241 ! |
1250 |
1242 |
3321 ! ! |
3313 ! ! |
3322 |
3314 |
3323 !ProcessorScheduler class methodsFor:'documentation'! |
3315 !ProcessorScheduler class methodsFor:'documentation'! |
3324 |
3316 |
3325 version |
3317 version |
3326 ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.218 2004-01-28 18:56:27 ca Exp $' |
3318 ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.219 2004-01-28 20:07:52 ca Exp $' |
3327 ! ! |
3319 ! ! |
3328 |
3320 |
3329 ProcessorScheduler initialize! |
3321 ProcessorScheduler initialize! |