--- a/ProcSched.st Thu Jan 29 17:03:01 1998 +0100
+++ b/ProcSched.st Thu Jan 29 17:05:21 1998 +0100
@@ -2267,6 +2267,13 @@
block value
] ifFalse:[
p isDead ifTrue:[
+
+ "/ a timedBlock for a process which has already terminated
+ "/ issue a warning and do not execute it.
+ "/ (exeuting here may be dangerous, since it would run at scheduler priority here,
+ "/ and thereby could block the whole smalltalk system.
+ "/ For this reason is it IGNORED here.)
+
('ProcessorScheduler [warning]: cannot evaluate timedBlock for dead process: ''' , p name , '''') infoPrintCR.
('ProcessorScheduler [warning]: the timedBlock is: ' , block displayString) infoPrintCR.
] ifFalse:[
@@ -2276,7 +2283,7 @@
]
]
- "Modified: / 29.1.1998 / 17:02:25 / cg"
+ "Modified: / 29.1.1998 / 17:05:03 / cg"
!
removeTimedBlock:aBlock
@@ -2613,6 +2620,6 @@
!ProcessorScheduler class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Attic/ProcSched.st,v 1.142 1998-01-29 16:03:01 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Attic/ProcSched.st,v 1.143 1998-01-29 16:05:21 cg Exp $'
! !
ProcessorScheduler initialize!
--- a/ProcessorScheduler.st Thu Jan 29 17:03:01 1998 +0100
+++ b/ProcessorScheduler.st Thu Jan 29 17:05:21 1998 +0100
@@ -2267,6 +2267,13 @@
block value
] ifFalse:[
p isDead ifTrue:[
+
+ "/ a timedBlock for a process which has already terminated
+ "/ issue a warning and do not execute it.
+ "/ (exeuting here may be dangerous, since it would run at scheduler priority here,
+ "/ and thereby could block the whole smalltalk system.
+ "/ For this reason is it IGNORED here.)
+
('ProcessorScheduler [warning]: cannot evaluate timedBlock for dead process: ''' , p name , '''') infoPrintCR.
('ProcessorScheduler [warning]: the timedBlock is: ' , block displayString) infoPrintCR.
] ifFalse:[
@@ -2276,7 +2283,7 @@
]
]
- "Modified: / 29.1.1998 / 17:02:25 / cg"
+ "Modified: / 29.1.1998 / 17:05:03 / cg"
!
removeTimedBlock:aBlock
@@ -2613,6 +2620,6 @@
!ProcessorScheduler class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.142 1998-01-29 16:03:01 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.143 1998-01-29 16:05:21 cg Exp $'
! !
ProcessorScheduler initialize!