removed debugPrint
authorClaus Gittinger <cg@exept.de>
Fri, 26 Feb 1999 13:53:03 +0100
changeset 4008 27a9c75eecdc
parent 4007 561d175af944
child 4009 15be251e3a47
removed debugPrint
ProcSched.st
ProcessorScheduler.st
--- a/ProcSched.st	Fri Feb 26 13:27:56 1999 +0100
+++ b/ProcSched.st	Fri Feb 26 13:53:03 1999 +0100
@@ -1831,7 +1831,6 @@
     (l isNil or:[(l remove:aProcess ifAbsent:nil) isNil]) ifTrue:[
         wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
         'Processor [warning]: bad suspend: not on run list' errorPrintCR.
-aProcess printCR.
         "/ MiniDebugger enterWithMessage:'bad suspend: not on run list'.
         aProcess == activeProcess ifTrue:[
             self threadSwitch:scheduler.
@@ -2999,6 +2998,6 @@
 !ProcessorScheduler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ProcSched.st,v 1.172 1999-02-25 20:16:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ProcSched.st,v 1.173 1999-02-26 12:53:03 cg Exp $'
 ! !
 ProcessorScheduler initialize!
--- a/ProcessorScheduler.st	Fri Feb 26 13:27:56 1999 +0100
+++ b/ProcessorScheduler.st	Fri Feb 26 13:53:03 1999 +0100
@@ -1831,7 +1831,6 @@
     (l isNil or:[(l remove:aProcess ifAbsent:nil) isNil]) ifTrue:[
         wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
         'Processor [warning]: bad suspend: not on run list' errorPrintCR.
-aProcess printCR.
         "/ MiniDebugger enterWithMessage:'bad suspend: not on run list'.
         aProcess == activeProcess ifTrue:[
             self threadSwitch:scheduler.
@@ -2999,6 +2998,6 @@
 !ProcessorScheduler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.172 1999-02-25 20:16:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.173 1999-02-26 12:53:03 cg Exp $'
 ! !
 ProcessorScheduler initialize!