Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Fri, 02 May 1997 08:44:04 +0200
changeset 2614 9671d06c2f02
parent 2613 d0c8595f910d
child 2615 85d8b7ee95f1
*** empty log message ***
ProcSched.st file | annotate | diff | comparison | revisions
ProcessorScheduler.st file | annotate | diff | comparison | revisions 
--- a/ProcSched.st	Thu May 01 22:26:32 1997 +0200
+++ b/ProcSched.st	Fri May 02 08:44:04 1997 +0200
@@ -751,7 +751,7 @@
     wasBlocked := OperatingSystem blockInterrupts.
     [
 	[
-	    osProcessStatus := OperatingSystem childProcessWait:blocking.
+	    osProcessStatus := OperatingSystem childProcessWait:blocking pid:nil.
 	    osProcessStatus notNil ifTrue:[
 		|pid action|
 
@@ -1389,10 +1389,6 @@
 
     |oldList newList oldPrio newPrio wasBlocked|
 
-"/ 'ProcessorScheduler changePriority 1 ...' infoPrintCR.
-prio infoPrintCR.
-aProcess infoPrintCR.
-
     oldPrio := aProcess priority.
     oldPrio == prio ifTrue:[^ self].
     aProcess == scheduler ifTrue:[^ self].
@@ -1442,9 +1438,6 @@
 	wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
     ]
 
-"/ .
-"/ 'ProcessorScheduler changePriority 2 ...' infoPrintCR.
-
     "Modified: 20.3.1997 / 16:02:00 / cg"
 !
 
@@ -2535,6 +2528,6 @@
 !ProcessorScheduler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ProcSched.st,v 1.127 1997-05-01 20:20:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ProcSched.st,v 1.128 1997-05-02 06:44:04 cg Exp $'
 ! !
 ProcessorScheduler initialize!
--- a/ProcessorScheduler.st	Thu May 01 22:26:32 1997 +0200
+++ b/ProcessorScheduler.st	Fri May 02 08:44:04 1997 +0200
@@ -751,7 +751,7 @@
     wasBlocked := OperatingSystem blockInterrupts.
     [
 	[
-	    osProcessStatus := OperatingSystem childProcessWait:blocking.
+	    osProcessStatus := OperatingSystem childProcessWait:blocking pid:nil.
 	    osProcessStatus notNil ifTrue:[
 		|pid action|
 
@@ -1389,10 +1389,6 @@
 
     |oldList newList oldPrio newPrio wasBlocked|
 
-"/ 'ProcessorScheduler changePriority 1 ...' infoPrintCR.
-prio infoPrintCR.
-aProcess infoPrintCR.
-
     oldPrio := aProcess priority.
     oldPrio == prio ifTrue:[^ self].
     aProcess == scheduler ifTrue:[^ self].
@@ -1442,9 +1438,6 @@
 	wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
     ]
 
-"/ .
-"/ 'ProcessorScheduler changePriority 2 ...' infoPrintCR.
-
     "Modified: 20.3.1997 / 16:02:00 / cg"
 !
 
@@ -2535,6 +2528,6 @@
 !ProcessorScheduler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.127 1997-05-01 20:20:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.128 1997-05-02 06:44:04 cg Exp $'
 ! !
 ProcessorScheduler initialize!
hg/stx-libbasic