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>
Wed, 04 Mar 1998 20:07:14 +0100
changeset 3312 3c04e7517f17
parent 3311 2f7f489ebff8
child 3313 06da74a9cb04
*** empty log message ***
ProcSched.st file | annotate | diff | comparison | revisions
ProcessorScheduler.st file | annotate | diff | comparison | revisions 
--- a/ProcSched.st	Wed Mar 04 17:43:01 1998 +0100
+++ b/ProcSched.st	Wed Mar 04 20:07:14 1998 +0100
@@ -977,16 +977,18 @@
 	 switch failed for some reason -
 	 destroy the bad process
 	"
-	p id ~~ 0 ifTrue:[
-	    'Processor [warning]: problem with process ' errorPrint. 
-		p id errorPrint. 
+	(id := p id) ~~ 0 ifTrue:[
+	    id notNil ifTrue:[
+	        'Processor [warning]: problem with process ' errorPrint. 
+		id errorPrint. 
 		p name notNil ifTrue:[
 		    ' (' errorPrint. p name errorPrint. ')' errorPrint.
 		].
 		'; hard-terminate it.' errorPrintCR.
-	    'Processor [info]: cleanup may take a while if stack is huge' infoPrintCR.
-	    p state:#suspended.
-	    self terminateNoSignal:p.
+	        'Processor [info]: cleanup may take a while if stack is huge' infoPrintCR.
+	        p state:#suspended.
+	        self terminateNoSignal:p.
+	    ]
 	]
     ].
     zombie notNil ifTrue:[
@@ -2676,6 +2678,6 @@
 !ProcessorScheduler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ProcSched.st,v 1.146 1998-02-05 10:55:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ProcSched.st,v 1.147 1998-03-04 19:07:14 cg Exp $'
 ! !
 ProcessorScheduler initialize!
--- a/ProcessorScheduler.st	Wed Mar 04 17:43:01 1998 +0100
+++ b/ProcessorScheduler.st	Wed Mar 04 20:07:14 1998 +0100
@@ -977,16 +977,18 @@
 	 switch failed for some reason -
 	 destroy the bad process
 	"
-	p id ~~ 0 ifTrue:[
-	    'Processor [warning]: problem with process ' errorPrint. 
-		p id errorPrint. 
+	(id := p id) ~~ 0 ifTrue:[
+	    id notNil ifTrue:[
+	        'Processor [warning]: problem with process ' errorPrint. 
+		id errorPrint. 
 		p name notNil ifTrue:[
 		    ' (' errorPrint. p name errorPrint. ')' errorPrint.
 		].
 		'; hard-terminate it.' errorPrintCR.
-	    'Processor [info]: cleanup may take a while if stack is huge' infoPrintCR.
-	    p state:#suspended.
-	    self terminateNoSignal:p.
+	        'Processor [info]: cleanup may take a while if stack is huge' infoPrintCR.
+	        p state:#suspended.
+	        self terminateNoSignal:p.
+	    ]
 	]
     ].
     zombie notNil ifTrue:[
@@ -2676,6 +2678,6 @@
 !ProcessorScheduler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.146 1998-02-05 10:55:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.147 1998-03-04 19:07:14 cg Exp $'
 ! !
 ProcessorScheduler initialize!
hg/stx-libbasic