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
Wed, 24 Aug 1994 01:11:00 +0200
changeset 144 dcea1d2b93bc
parent 143 5ebe463ba109
child 145 217dc62c4ddd
*** empty log message ***
ProcSched.st file | annotate | diff | comparison | revisions
ProcessorScheduler.st file | annotate | diff | comparison | revisions 
--- a/ProcSched.st	Wed Aug 24 01:10:03 1994 +0200
+++ b/ProcSched.st	Wed Aug 24 01:11:00 1994 +0200
@@ -32,7 +32,7 @@
 COPYRIGHT (c) 1993 by Claus Gittinger
              All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Attic/ProcSched.st,v 1.19 1994-08-22 12:11:30 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/ProcSched.st,v 1.20 1994-08-23 23:11:00 claus Exp $
 '!
 
 Smalltalk at:#Processor put:nil!
@@ -55,7 +55,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Attic/ProcSched.st,v 1.19 1994-08-22 12:11:30 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/ProcSched.st,v 1.20 1994-08-23 23:11:00 claus Exp $
 "
 !
 
@@ -695,6 +695,7 @@
     ].
     aProcess id isNil ifTrue:[
         MiniDebugger enterWithMessage:'bad suspend: already dead'.
+	self reschedule.
         ^ self
     ].
     aProcess == scheduler ifTrue:[
--- a/ProcessorScheduler.st	Wed Aug 24 01:10:03 1994 +0200
+++ b/ProcessorScheduler.st	Wed Aug 24 01:11:00 1994 +0200
@@ -32,7 +32,7 @@
 COPYRIGHT (c) 1993 by Claus Gittinger
              All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.19 1994-08-22 12:11:30 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.20 1994-08-23 23:11:00 claus Exp $
 '!
 
 Smalltalk at:#Processor put:nil!
@@ -55,7 +55,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.19 1994-08-22 12:11:30 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.20 1994-08-23 23:11:00 claus Exp $
 "
 !
 
@@ -695,6 +695,7 @@
     ].
     aProcess id isNil ifTrue:[
         MiniDebugger enterWithMessage:'bad suspend: already dead'.
+	self reschedule.
         ^ self
     ].
     aProcess == scheduler ifTrue:[
hg/stx-libbasic