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>
Mon, 08 Feb 1999 13:33:29 +0100
changeset 3969 0f30268b10c3
parent 3968 a526029723ac
child 3970 22ea3856e87e
*** empty log message ***
ProcSched.st file | annotate | diff | comparison | revisions
ProcessorScheduler.st file | annotate | diff | comparison | revisions 
--- a/ProcSched.st	Mon Feb 08 12:38:31 1999 +0100
+++ b/ProcSched.st	Mon Feb 08 13:33:29 1999 +0100
@@ -558,7 +558,7 @@
 
     wasBlocked := OperatingSystem blockInterrupts.
     idleActions notNil ifTrue:[
-       idleActions removeIdentical:aBlock ifAbsent:[]
+       idleActions removeIdentical:aBlock ifAbsent:nil
     ].
     wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
 
@@ -932,11 +932,12 @@
     "notice: this is slightly faster than putting the if-code into
      the ifAbsent block, because [] is a shared cheap block, created at compile time
     "
-    (l isNil or:[(l remove:activeProcess ifAbsent:[]) isNil]) ifTrue:[
+    (l isNil or:[(l remove:activeProcess ifAbsent:nil) isNil]) ifTrue:[
         "/ 'Processor [warning]: bad immediateInterrupt: not on run list' errorPrintCR.
         MiniDebugger enterWithMessage:'bad immediateInterrupt: not on run list'.
         ^ self
     ].
+
 "/    id := scheduler id.
 "/    pri := scheduler priority.
 "/    scheduler state:#active.
@@ -1824,7 +1825,7 @@
     "notice: this is slightly faster than putting the if-code into
      the ifAbsent block, because [] is a shared cheap block, created at compile time
     "
-    (l isNil or:[(l remove:aProcess ifAbsent:[]) isNil]) ifTrue:[
+    (l isNil or:[(l remove:aProcess ifAbsent:nil) isNil]) ifTrue:[
         wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
         'Processor [warning]: bad suspend: not on run list' errorPrintCR.
         "/ MiniDebugger enterWithMessage:'bad suspend: not on run list'.
@@ -2992,6 +2993,6 @@
 !ProcessorScheduler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ProcSched.st,v 1.170 1999-02-04 12:08:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ProcSched.st,v 1.171 1999-02-08 12:33:29 cg Exp $'
 ! !
 ProcessorScheduler initialize!
--- a/ProcessorScheduler.st	Mon Feb 08 12:38:31 1999 +0100
+++ b/ProcessorScheduler.st	Mon Feb 08 13:33:29 1999 +0100
@@ -558,7 +558,7 @@
 
     wasBlocked := OperatingSystem blockInterrupts.
     idleActions notNil ifTrue:[
-       idleActions removeIdentical:aBlock ifAbsent:[]
+       idleActions removeIdentical:aBlock ifAbsent:nil
     ].
     wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
 
@@ -932,11 +932,12 @@
     "notice: this is slightly faster than putting the if-code into
      the ifAbsent block, because [] is a shared cheap block, created at compile time
     "
-    (l isNil or:[(l remove:activeProcess ifAbsent:[]) isNil]) ifTrue:[
+    (l isNil or:[(l remove:activeProcess ifAbsent:nil) isNil]) ifTrue:[
         "/ 'Processor [warning]: bad immediateInterrupt: not on run list' errorPrintCR.
         MiniDebugger enterWithMessage:'bad immediateInterrupt: not on run list'.
         ^ self
     ].
+
 "/    id := scheduler id.
 "/    pri := scheduler priority.
 "/    scheduler state:#active.
@@ -1824,7 +1825,7 @@
     "notice: this is slightly faster than putting the if-code into
      the ifAbsent block, because [] is a shared cheap block, created at compile time
     "
-    (l isNil or:[(l remove:aProcess ifAbsent:[]) isNil]) ifTrue:[
+    (l isNil or:[(l remove:aProcess ifAbsent:nil) isNil]) ifTrue:[
         wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
         'Processor [warning]: bad suspend: not on run list' errorPrintCR.
         "/ MiniDebugger enterWithMessage:'bad suspend: not on run list'.
@@ -2992,6 +2993,6 @@
 !ProcessorScheduler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.170 1999-02-04 12:08:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.171 1999-02-08 12:33:29 cg Exp $'
 ! !
 ProcessorScheduler initialize!
hg/stx-libbasic