--- a/ProcessorScheduler.st Wed May 07 18:17:15 1997 +0200
+++ b/ProcessorScheduler.st Wed May 07 19:04:17 1997 +0200
@@ -22,7 +22,8 @@
classVariableNames:'KnownProcesses KnownProcessIds PureEventDriven
UserSchedulingPriority UserInterruptPriority TimingPriority
HighestPriority SchedulingPriority MaxNumberOfProcesses
- InvalidProcessSignal TimeSlicingPriorityLimit TimeSliceInterval'
+ InvalidProcessSignal TimeSlicingPriorityLimit TimeSliceInterval
+ EventPollingInterval'
poolDictionaries:''
category:'Kernel-Processes'
!
@@ -111,6 +112,9 @@
processes are only timesliced, if running
at or below this priority.
+ EventPollingInterval for systems which do not support select on
+ a fileDescriptor: the polling interval in millis.
+
most interesting methods:
Processor>>suspend: (see also Process>>suspend)
@@ -189,6 +193,7 @@
setup some priority values."
TimeSliceInterval := 50.
+ EventPollingInterval := 20.
UserSchedulingPriority := 8.
UserInterruptPriority := 24.
@@ -627,9 +632,9 @@
].
] ifFalse:[
millis notNil ifTrue:[
- millis := millis min:50
+ millis := millis min:EventPollingInterval
] ifFalse:[
- millis := 50
+ millis := EventPollingInterval
]
]
].
@@ -826,7 +831,7 @@
polling := true.
[polling] whileTrue:[
- Delay waitForMilliseconds:50.
+ Delay waitForMilliseconds:EventPollingInterval.
(osChildExitActions includesKey:pid) ifFalse:[
polling := false.
] ifTrue:[
@@ -2522,7 +2527,7 @@
(self checkForInputWithTimeout:0) ifTrue:[
^ self "go back checking"
].
- OperatingSystem millisecondDelay:50.
+ OperatingSystem millisecondDelay:EventPollingInterval.
^ self
].
@@ -2540,6 +2545,6 @@
!ProcessorScheduler class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.131 1997-05-07 16:17:15 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.132 1997-05-07 17:04:17 cg Exp $'
! !
ProcessorScheduler initialize!