--- a/BContext.st Fri Oct 28 02:16:28 1994 +0100
+++ b/BContext.st Fri Oct 28 02:19:22 1994 +0100
@@ -1,6 +1,6 @@
"
COPYRIGHT (c) 1993 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
@@ -19,9 +19,9 @@
BlockContext comment:'
COPYRIGHT (c) 1993 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
-$Header: /cvs/stx/stx/libbasic/Attic/BContext.st,v 1.8 1994-10-10 00:19:46 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/BContext.st,v 1.9 1994-10-28 01:19:07 claus Exp $
'!
!BlockContext class methodsFor:'documentation'!
@@ -29,7 +29,7 @@
copyright
"
COPYRIGHT (c) 1993 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
@@ -42,7 +42,7 @@
version
"
-$Header: /cvs/stx/stx/libbasic/Attic/BContext.st,v 1.8 1994-10-10 00:19:46 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/BContext.st,v 1.9 1994-10-28 01:19:07 claus Exp $
"
!
@@ -54,7 +54,7 @@
(has become necessary with cheap blocks, which have no home).
WARNING: layout and size known by compiler and runtime system -
- do not change.
+ do not change.
"
! !
@@ -77,8 +77,8 @@
con := self.
h := home.
[h notNil] whileTrue:[
- con := h.
- h := con home
+ con := h.
+ h := con home
].
^ con
!
@@ -112,22 +112,26 @@
receiverPrintString
home isNil ifTrue:[
- ^ '[] optimized'
+ ^ '[] optimized'
].
home isContext ifFalse:[
- "a copying block"
+ "a copying block"
- "receiverClassName := home selfValue class name."
- ^ '[] optimized'
+ "receiverClassName := home selfValue class name."
+ ^ '[] optimized'
].
^ '[] in ' , receiver class name , '-' , self methodHome selector printString
!
printReceiver
+ "print the contexts receiver on the standard output"
+
self receiverPrintString print
!
printString
+ "return a string describing the context"
+
^ self receiverPrintString , ' ' , self selector printString
! !
--- a/Behavior.st Fri Oct 28 02:16:28 1994 +0100
+++ b/Behavior.st Fri Oct 28 02:19:22 1994 +0100
@@ -23,7 +23,7 @@
COPYRIGHT (c) 1988 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.21 1994-10-10 00:19:49 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.22 1994-10-28 01:19:22 claus Exp $
'!
!Behavior class methodsFor:'documentation'!
@@ -44,7 +44,7 @@
version
"
-$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.21 1994-10-10 00:19:49 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.22 1994-10-28 01:19:22 claus Exp $
"
!
@@ -364,9 +364,10 @@
"
memory allocation failed.
When we arrive here, there was no memory, even after
- a garbage collect. This means, that the VM wanted to
- get some more memory from the Operatingsystem, which
- was not kind enough to give some
+ a garbage collect.
+ This means, that the VM wanted to get some more memory from the
+ Operatingsystem, which was not kind enough to give it.
+ Bad luck - you should increase the swap space on your machine.
"
^ ObjectMemory allocationFailureSignal raise.
!
@@ -720,9 +721,10 @@
"
memory allocation failed.
When we arrive here, there was no memory, even after
- a garbage collect. This means, that the VM wanted to
- get some more memory from the Operatingsystem, which
- was not kind enough to give some
+ a garbage collect.
+ This means, that the VM wanted to get some more memory from the
+ Operatingsystem, which was not kind enough to give it.
+ Bad luck - you should increase the swap space on your machine.
"
^ ObjectMemory allocationFailureSignal raise.
!
@@ -1525,7 +1527,7 @@
|coll|
- coll := OrderedCollection new.
+ coll := OrderedCollection new:100.
self allInstancesDo:[:anObject |
coll add:anObject
].
@@ -1542,7 +1544,7 @@
|coll|
- coll := OrderedCollection new.
+ coll := OrderedCollection new:100.
self allDerivedInstancesDo:[:anObject |
(anObject isKindOf:self) ifTrue:[
coll add:anObject
--- a/BlockContext.st Fri Oct 28 02:16:28 1994 +0100
+++ b/BlockContext.st Fri Oct 28 02:19:22 1994 +0100
@@ -1,6 +1,6 @@
"
COPYRIGHT (c) 1993 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
@@ -19,9 +19,9 @@
BlockContext comment:'
COPYRIGHT (c) 1993 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
-$Header: /cvs/stx/stx/libbasic/BlockContext.st,v 1.8 1994-10-10 00:19:46 claus Exp $
+$Header: /cvs/stx/stx/libbasic/BlockContext.st,v 1.9 1994-10-28 01:19:07 claus Exp $
'!
!BlockContext class methodsFor:'documentation'!
@@ -29,7 +29,7 @@
copyright
"
COPYRIGHT (c) 1993 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
@@ -42,7 +42,7 @@
version
"
-$Header: /cvs/stx/stx/libbasic/BlockContext.st,v 1.8 1994-10-10 00:19:46 claus Exp $
+$Header: /cvs/stx/stx/libbasic/BlockContext.st,v 1.9 1994-10-28 01:19:07 claus Exp $
"
!
@@ -54,7 +54,7 @@
(has become necessary with cheap blocks, which have no home).
WARNING: layout and size known by compiler and runtime system -
- do not change.
+ do not change.
"
! !
@@ -77,8 +77,8 @@
con := self.
h := home.
[h notNil] whileTrue:[
- con := h.
- h := con home
+ con := h.
+ h := con home
].
^ con
!
@@ -112,22 +112,26 @@
receiverPrintString
home isNil ifTrue:[
- ^ '[] optimized'
+ ^ '[] optimized'
].
home isContext ifFalse:[
- "a copying block"
+ "a copying block"
- "receiverClassName := home selfValue class name."
- ^ '[] optimized'
+ "receiverClassName := home selfValue class name."
+ ^ '[] optimized'
].
^ '[] in ' , receiver class name , '-' , self methodHome selector printString
!
printReceiver
+ "print the contexts receiver on the standard output"
+
self receiverPrintString print
!
printString
+ "return a string describing the context"
+
^ self receiverPrintString , ' ' , self selector printString
! !