equal
deleted
inserted
replaced
981 pri := aProcess priority. |
981 pri := aProcess priority. |
982 l := quiescentProcessLists at:pri. |
982 l := quiescentProcessLists at:pri. |
983 "if already running, ignore" |
983 "if already running, ignore" |
984 l notNil ifTrue:[ |
984 l notNil ifTrue:[ |
985 (l identityIndexOf:aProcess) ~~ 0 ifTrue:[ |
985 (l identityIndexOf:aProcess) ~~ 0 ifTrue:[ |
986 'oops - resumeImmIRQ for already running process' printCR. |
986 'ProcSched [info]: oops - resumeImmIRQ for already running process' infoPrintCR. |
987 ^ self |
987 ^ self |
988 ] |
988 ] |
989 ] ifFalse:[ |
989 ] ifFalse:[ |
990 l := LinkedList new. |
990 l := LinkedList new. |
991 quiescentProcessLists at:pri put:l. |
991 quiescentProcessLists at:pri put:l. |
992 ]. |
992 ]. |
993 l addLast:aProcess. |
993 l addLast:aProcess. |
994 aProcess state:#run. |
994 aProcess state:#run. |
995 ] ifFalse:[ |
995 ] ifFalse:[ |
996 'oops - resumeImmIRQ for unknown process' printCR. |
996 'ProcSched [info]: oops - resumeImmIRQ for unknown process' infoPrintCR. |
997 ] |
997 ] |
998 |
998 |
999 "Modified: / 28.9.1998 / 11:36:53 / cg" |
999 "Modified: / 28.9.1998 / 11:36:53 / cg" |
1000 ! ! |
1000 ! ! |
1001 |
1001 |
2996 ! ! |
2996 ! ! |
2997 |
2997 |
2998 !ProcessorScheduler class methodsFor:'documentation'! |
2998 !ProcessorScheduler class methodsFor:'documentation'! |
2999 |
2999 |
3000 version |
3000 version |
3001 ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.173 1999-02-26 12:53:03 cg Exp $' |
3001 ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.174 1999-03-08 12:40:33 cg Exp $' |
3002 ! ! |
3002 ! ! |
3003 ProcessorScheduler initialize! |
3003 ProcessorScheduler initialize! |