262 TimeSlicingPriorityLimit := 26. |
262 TimeSlicingPriorityLimit := 26. |
263 HighestPriority := 30. |
263 HighestPriority := 30. |
264 SchedulingPriority := 31. |
264 SchedulingPriority := 31. |
265 |
265 |
266 InvalidProcessSignal isNil ifTrue:[ |
266 InvalidProcessSignal isNil ifTrue:[ |
267 InvalidProcessSignal := Error newSignalMayProceed:true. |
267 InvalidProcessSignal := Error newSignalMayProceed:true. |
268 InvalidProcessSignal nameClass:self message:#invalidProcessSignal. |
268 InvalidProcessSignal nameClass:self message:#invalidProcessSignal. |
269 InvalidProcessSignal notifierString:'invalid process'. |
269 InvalidProcessSignal notifierString:'invalid process'. |
270 ]. |
270 ]. |
271 |
271 |
272 Processor isNil ifTrue:[ |
272 Processor isNil ifTrue:[ |
273 "create the one and only processor" |
273 "create the one and only processor" |
274 |
274 |
275 Processor := self basicNew initialize. |
275 Smalltalk at:#Processor put:(self basicNew initialize). |
276 ]. |
276 ]. |
277 |
277 |
278 " |
278 " |
279 allow configurations without processes |
279 allow configurations without processes |
280 (but such configurations are no longer distributed) |
280 (but such configurations are no longer distributed) |
281 " |
281 " |
282 PureEventDriven := self threadsAvailable not. |
282 PureEventDriven := self threadsAvailable not. |
283 PureEventDriven ifTrue:[ |
283 PureEventDriven ifTrue:[ |
284 'Processor [error]: no process support - running event driven' errorPrintCR |
284 'Processor [error]: no process support - running event driven' errorPrintCR |
285 ]. |
285 ]. |
286 self initializeVMMaxProcessId |
286 self initializeVMMaxProcessId |
287 |
287 |
288 "Modified: / 23-09-1996 / 14:24:50 / stefan" |
288 "Modified: / 23-09-1996 / 14:24:50 / stefan" |
289 "Modified: / 10-01-1997 / 18:03:03 / cg" |
289 "Modified: / 10-01-1997 / 18:03:03 / cg" |