*** empty log message ***
authorclaus
Sat, 05 Aug 1995 16:05:36 +0200
changeset 374 7eb5bedfaa1c
parent 373 00599575a949
child 375 e5019c22f40e
*** empty log message ***
ProcSched.st
ProcessorScheduler.st
--- a/ProcSched.st	Thu Aug 03 05:26:11 1995 +0200
+++ b/ProcSched.st	Sat Aug 05 16:05:36 1995 +0200
@@ -35,7 +35,7 @@
 COPYRIGHT (c) 1993 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Attic/ProcSched.st,v 1.43 1995-07-28 02:37:48 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/ProcSched.st,v 1.44 1995-08-05 14:05:36 claus Exp $
 '!
 
 Smalltalk at:#Processor put:nil!
@@ -58,7 +58,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Attic/ProcSched.st,v 1.43 1995-07-28 02:37:48 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/ProcSched.st,v 1.44 1995-08-05 14:05:36 claus Exp $
 "
 !
 
@@ -1150,7 +1150,7 @@
     any := false.
     nActions := readCheckArray size.
     1 to:nActions do:[:index |
-	|checkBlock sema action|
+	|checkBlock sema|
 
 	checkBlock := readCheckArray at:index.
 	(checkBlock notNil and:[checkBlock value]) ifTrue:[
--- a/ProcessorScheduler.st	Thu Aug 03 05:26:11 1995 +0200
+++ b/ProcessorScheduler.st	Sat Aug 05 16:05:36 1995 +0200
@@ -35,7 +35,7 @@
 COPYRIGHT (c) 1993 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.43 1995-07-28 02:37:48 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.44 1995-08-05 14:05:36 claus Exp $
 '!
 
 Smalltalk at:#Processor put:nil!
@@ -58,7 +58,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.43 1995-07-28 02:37:48 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.44 1995-08-05 14:05:36 claus Exp $
 "
 !
 
@@ -1150,7 +1150,7 @@
     any := false.
     nActions := readCheckArray size.
     1 to:nActions do:[:index |
-	|checkBlock sema action|
+	|checkBlock sema|
 
 	checkBlock := readCheckArray at:index.
 	(checkBlock notNil and:[checkBlock value]) ifTrue:[