--- a/AssignNd.st Sun Nov 05 18:20:13 1995 +0100
+++ b/AssignNd.st Sat Nov 11 16:31:47 1995 +0100
@@ -17,13 +17,6 @@
category:'System-Compiler-Support'
!
-AssignmentNode comment:'
-COPYRIGHT (c) 1989 by Claus Gittinger
- All Rights Reserved
-
-$Header: /cvs/stx/stx/libcomp/Attic/AssignNd.st,v 1.12 1995-09-07 12:06:26 claus Exp $
-'!
-
!AssignmentNode class methodsFor:'documentation'!
copyright
@@ -41,9 +34,7 @@
!
version
-"
-$Header: /cvs/stx/stx/libcomp/Attic/AssignNd.st,v 1.12 1995-09-07 12:06:26 claus Exp $
-"
+ ^ '$Header: /cvs/stx/stx/libcomp/Attic/AssignNd.st,v 1.13 1995-11-11 15:29:49 cg Exp $'
!
documentation
--- a/AssignmentNode.st Sun Nov 05 18:20:13 1995 +0100
+++ b/AssignmentNode.st Sat Nov 11 16:31:47 1995 +0100
@@ -17,13 +17,6 @@
category:'System-Compiler-Support'
!
-AssignmentNode comment:'
-COPYRIGHT (c) 1989 by Claus Gittinger
- All Rights Reserved
-
-$Header: /cvs/stx/stx/libcomp/AssignmentNode.st,v 1.12 1995-09-07 12:06:26 claus Exp $
-'!
-
!AssignmentNode class methodsFor:'documentation'!
copyright
@@ -41,9 +34,7 @@
!
version
-"
-$Header: /cvs/stx/stx/libcomp/AssignmentNode.st,v 1.12 1995-09-07 12:06:26 claus Exp $
-"
+ ^ '$Header: /cvs/stx/stx/libcomp/AssignmentNode.st,v 1.13 1995-11-11 15:29:49 cg Exp $'
!
documentation
--- a/BCompiler.st Sun Nov 05 18:20:13 1995 +0100
+++ b/BCompiler.st Sat Nov 11 16:31:47 1995 +0100
@@ -25,9 +25,8 @@
!ByteCodeCompiler class methodsFor:'documentation'!
version
-"
-$Header: /cvs/stx/stx/libcomp/Attic/BCompiler.st,v 1.44 1995-10-29 19:27:36 cg Exp $
-"!
+ ^ '$Header: /cvs/stx/stx/libcomp/Attic/BCompiler.st,v 1.45 1995-11-11 15:29:59 cg Exp $'
+!
documentation
"
--- a/BinaryNd.st Sun Nov 05 18:20:13 1995 +0100
+++ b/BinaryNd.st Sat Nov 11 16:31:47 1995 +0100
@@ -17,13 +17,6 @@
category:'System-Compiler-Support'
!
-BinaryNode comment:'
-COPYRIGHT (c) 1989 by Claus Gittinger
- All Rights Reserved
-
-$Header: /cvs/stx/stx/libcomp/Attic/BinaryNd.st,v 1.16 1995-08-19 01:43:48 claus Exp $
-'!
-
!BinaryNode class methodsFor:'documentation'!
copyright
@@ -41,9 +34,7 @@
!
version
-"
-$Header: /cvs/stx/stx/libcomp/Attic/BinaryNd.st,v 1.16 1995-08-19 01:43:48 claus Exp $
-"
+ ^ '$Header: /cvs/stx/stx/libcomp/Attic/BinaryNd.st,v 1.17 1995-11-11 15:30:10 cg Exp $'
!
documentation
--- a/BinaryNode.st Sun Nov 05 18:20:13 1995 +0100
+++ b/BinaryNode.st Sat Nov 11 16:31:47 1995 +0100
@@ -17,13 +17,6 @@
category:'System-Compiler-Support'
!
-BinaryNode comment:'
-COPYRIGHT (c) 1989 by Claus Gittinger
- All Rights Reserved
-
-$Header: /cvs/stx/stx/libcomp/BinaryNode.st,v 1.16 1995-08-19 01:43:48 claus Exp $
-'!
-
!BinaryNode class methodsFor:'documentation'!
copyright
@@ -41,9 +34,7 @@
!
version
-"
-$Header: /cvs/stx/stx/libcomp/BinaryNode.st,v 1.16 1995-08-19 01:43:48 claus Exp $
-"
+ ^ '$Header: /cvs/stx/stx/libcomp/BinaryNode.st,v 1.17 1995-11-11 15:30:10 cg Exp $'
!
documentation
--- a/BlockNode.st Sun Nov 05 18:20:13 1995 +0100
+++ b/BlockNode.st Sat Nov 11 16:31:47 1995 +0100
@@ -19,13 +19,6 @@
category:'System-Compiler-Support'
!
-BlockNode comment:'
-COPYRIGHT (c) 1989 by Claus Gittinger
- All Rights Reserved
-
-$Header: /cvs/stx/stx/libcomp/BlockNode.st,v 1.17 1995-08-11 20:27:44 claus Exp $
-'!
-
!BlockNode class methodsFor:'documentation'!
copyright
@@ -43,9 +36,7 @@
!
version
-"
-$Header: /cvs/stx/stx/libcomp/BlockNode.st,v 1.17 1995-08-11 20:27:44 claus Exp $
-"
+ ^ '$Header: /cvs/stx/stx/libcomp/BlockNode.st,v 1.18 1995-11-11 15:30:12 cg Exp $'
!
documentation
--- a/ByteCodeCompiler.st Sun Nov 05 18:20:13 1995 +0100
+++ b/ByteCodeCompiler.st Sat Nov 11 16:31:47 1995 +0100
@@ -25,9 +25,8 @@
!ByteCodeCompiler class methodsFor:'documentation'!
version
-"
-$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.44 1995-10-29 19:27:36 cg Exp $
-"!
+ ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.45 1995-11-11 15:29:59 cg Exp $'
+!
documentation
"
--- a/CascadeNd.st Sun Nov 05 18:20:13 1995 +0100
+++ b/CascadeNd.st Sat Nov 11 16:31:47 1995 +0100
@@ -17,13 +17,6 @@
category:'System-Compiler-Support'
!
-CascadeNode comment:'
-COPYRIGHT (c) 1989 by Claus Gittinger
- All Rights Reserved
-
-$Header: /cvs/stx/stx/libcomp/Attic/CascadeNd.st,v 1.10 1995-08-11 20:27:48 claus Exp $
-'!
-
!CascadeNode class methodsFor:'documentation'!
copyright
@@ -41,9 +34,7 @@
!
version
-"
-$Header: /cvs/stx/stx/libcomp/Attic/CascadeNd.st,v 1.10 1995-08-11 20:27:48 claus Exp $
-"
+ ^ '$Header: /cvs/stx/stx/libcomp/Attic/CascadeNd.st,v 1.11 1995-11-11 15:30:15 cg Exp $'
!
documentation
--- a/CascadeNode.st Sun Nov 05 18:20:13 1995 +0100
+++ b/CascadeNode.st Sat Nov 11 16:31:47 1995 +0100
@@ -17,13 +17,6 @@
category:'System-Compiler-Support'
!
-CascadeNode comment:'
-COPYRIGHT (c) 1989 by Claus Gittinger
- All Rights Reserved
-
-$Header: /cvs/stx/stx/libcomp/CascadeNode.st,v 1.10 1995-08-11 20:27:48 claus Exp $
-'!
-
!CascadeNode class methodsFor:'documentation'!
copyright
@@ -41,9 +34,7 @@
!
version
-"
-$Header: /cvs/stx/stx/libcomp/CascadeNode.st,v 1.10 1995-08-11 20:27:48 claus Exp $
-"
+ ^ '$Header: /cvs/stx/stx/libcomp/CascadeNode.st,v 1.11 1995-11-11 15:30:15 cg Exp $'
!
documentation
--- a/CodeStream.st Sun Nov 05 18:20:13 1995 +0100
+++ b/CodeStream.st Sat Nov 11 16:31:47 1995 +0100
@@ -17,13 +17,6 @@
category:'System-Compiler ST-80-compatibility'
!
-CodeStream comment:'
-COPYRIGHT (c) 1995 by Claus Gittinger
- All Rights Reserved
-
-$Header: /cvs/stx/stx/libcomp/CodeStream.st,v 1.4 1995-08-23 17:53:30 claus Exp $
-'!
-
!CodeStream class methodsFor:'documentation'!
copyright
@@ -41,9 +34,7 @@
!
version
-"
-$Header: /cvs/stx/stx/libcomp/CodeStream.st,v 1.4 1995-08-23 17:53:30 claus Exp $
-"
+ ^ '$Header: /cvs/stx/stx/libcomp/CodeStream.st,v 1.5 1995-11-11 15:30:16 cg Exp $'
!
documentation
--- a/CompErr.st Sun Nov 05 18:20:13 1995 +0100
+++ b/CompErr.st Sat Nov 11 16:31:47 1995 +0100
@@ -1,6 +1,6 @@
"
COPYRIGHT (c) 1995 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
@@ -22,9 +22,7 @@
!CompilationErrorHandler class methodsFor:'documentation'!
version
-"
-$Header: /cvs/stx/stx/libcomp/Attic/CompErr.st,v 1.1 1995-02-24 15:21:56 claus Exp $
-"
+ ^ '$Header: /cvs/stx/stx/libcomp/Attic/CompErr.st,v 1.2 1995-11-11 15:30:16 cg Exp $'
!
documentation
@@ -39,7 +37,7 @@
copyright
"
COPYRIGHT (c) 1995 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
--- a/CompilationErrorHandler.st Sun Nov 05 18:20:13 1995 +0100
+++ b/CompilationErrorHandler.st Sat Nov 11 16:31:47 1995 +0100
@@ -1,6 +1,6 @@
"
COPYRIGHT (c) 1995 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
@@ -22,9 +22,7 @@
!CompilationErrorHandler class methodsFor:'documentation'!
version
-"
-$Header: /cvs/stx/stx/libcomp/CompilationErrorHandler.st,v 1.1 1995-02-24 15:21:56 claus Exp $
-"
+ ^ '$Header: /cvs/stx/stx/libcomp/CompilationErrorHandler.st,v 1.2 1995-11-11 15:30:16 cg Exp $'
!
documentation
@@ -39,7 +37,7 @@
copyright
"
COPYRIGHT (c) 1995 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
--- a/ConstNode.st Sun Nov 05 18:20:13 1995 +0100
+++ b/ConstNode.st Sat Nov 11 16:31:47 1995 +0100
@@ -18,13 +18,6 @@
category:'System-Compiler-Support'
!
-ConstantNode comment:'
-COPYRIGHT (c) 1989 by Claus Gittinger
- All Rights Reserved
-
-$Header: /cvs/stx/stx/libcomp/Attic/ConstNode.st,v 1.16 1995-08-13 20:52:08 claus Exp $
-'!
-
!ConstantNode class methodsFor:'documentation'!
copyright
@@ -42,9 +35,7 @@
!
version
-"
-$Header: /cvs/stx/stx/libcomp/Attic/ConstNode.st,v 1.16 1995-08-13 20:52:08 claus Exp $
-"
+ ^ '$Header: /cvs/stx/stx/libcomp/Attic/ConstNode.st,v 1.17 1995-11-11 15:30:17 cg Exp $'
!
documentation
--- a/ConstantNode.st Sun Nov 05 18:20:13 1995 +0100
+++ b/ConstantNode.st Sat Nov 11 16:31:47 1995 +0100
@@ -18,13 +18,6 @@
category:'System-Compiler-Support'
!
-ConstantNode comment:'
-COPYRIGHT (c) 1989 by Claus Gittinger
- All Rights Reserved
-
-$Header: /cvs/stx/stx/libcomp/ConstantNode.st,v 1.16 1995-08-13 20:52:08 claus Exp $
-'!
-
!ConstantNode class methodsFor:'documentation'!
copyright
@@ -42,9 +35,7 @@
!
version
-"
-$Header: /cvs/stx/stx/libcomp/ConstantNode.st,v 1.16 1995-08-13 20:52:08 claus Exp $
-"
+ ^ '$Header: /cvs/stx/stx/libcomp/ConstantNode.st,v 1.17 1995-11-11 15:30:17 cg Exp $'
!
documentation
--- a/Decomp.st Sun Nov 05 18:20:13 1995 +0100
+++ b/Decomp.st Sat Nov 11 16:31:47 1995 +0100
@@ -1,6 +1,6 @@
"
COPYRIGHT (c) 1991 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
@@ -17,15 +17,33 @@
category:'System-Compiler'
!
-Decompiler comment:'
+!Decompiler class methodsFor:'documentation'!
-COPYRIGHT (c) 1991 by Claus Gittinger
- All Rights Reserved
+copyright
+"
+ COPYRIGHT (c) 1991 by Claus Gittinger
+ All Rights Reserved
-additional methods for decompilation
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice. This software may not
+ be provided or otherwise made available to, or used by, any
+ other person. No title to or ownership of the software is
+ hereby transferred.
+"
+!
-$Header: /cvs/stx/stx/libcomp/Attic/Decomp.st,v 1.3 1993-10-13 02:41:18 claus Exp $
-'!
+version
+ ^ '$Header: /cvs/stx/stx/libcomp/Attic/Decomp.st,v 1.4 1995-11-11 15:30:20 cg Exp $'
+!
+
+documentation
+"
+ only for stx-debugging. Not for public eyes.
+
+ Decompiler decompile:(someClass compiledMethodAt:#someSelector)
+"
+! !
!Decompiler class methodsFor:'decompiling'!
@@ -42,9 +60,9 @@
index := index + 1.
(byte > 127) ifTrue:[
- offs := byte - 256
+ offs := byte - 256
] ifFalse:[
- offs := byte
+ offs := byte
].
Transcript show:(offs printString).
Transcript show:' ('.
@@ -57,9 +75,9 @@
index := index + 1.
(byte > 127) ifTrue:[
- offs := byte - 256 - 128
+ offs := byte - 256 - 128
] ifFalse:[
- offs := byte + 128
+ offs := byte + 128
].
Transcript show:offs printString.
Transcript show:' ('.
@@ -72,9 +90,9 @@
index := index + 1.
(byte > 127) ifTrue:[
- offs := byte - 256 - 256
+ offs := byte - 256 - 256
] ifFalse:[
- offs := byte + 256
+ offs := byte + 256
].
Transcript show:offs printString.
Transcript show:' ('.
@@ -203,40 +221,40 @@
|nBytes offs byte sym sel|
aMethod isNil ifTrue:[
- Transcript showCr:'nil method'.
- ^ self
+ Transcript showCr:'nil method'.
+ ^ self
].
bytes := aMethod byteCode.
bytes isNil ifTrue:[
- Transcript showCr:'no bytecode'.
- ^ self
+ Transcript showCr:'no bytecode'.
+ ^ self
].
literals := aMethod literals.
index := 1.
nBytes := bytes size.
[index <= nBytes] whileTrue:[
- self showPC.
- sym := self symbolicCodeFor:(bytes at:index).
- Transcript show:sym.
+ self showPC.
+ sym := self symbolicCodeFor:(bytes at:index).
+ Transcript show:sym.
"
- extra notNil ifTrue:[Transcript show:(extra printString)].
+ extra notNil ifTrue:[Transcript show:(extra printString)].
"
- hasLineNo ifTrue:[
- index := index + 1
- ].
- index := index + 1.
- extra notNil ifTrue:[
- Transcript show:' '.
- byte := bytes at:index.
+ hasLineNo ifTrue:[
+ index := index + 1
+ ].
+ index := index + 1.
+ extra notNil ifTrue:[
+ Transcript show:' '.
+ byte := bytes at:index.
- "compute argument showXXX selector from extra ..."
+ "compute argument showXXX selector from extra ..."
- sel := 'show' , extra , ':'.
- sel at:5 put:(sel at:5) asUppercase.
- self perform:sel asSymbol with:byte
- ].
- Transcript showCr:''
+ sel := 'show' , extra , ':'.
+ sel at:5 put:(sel at:5) asUppercase.
+ self perform:sel asSymbol with:byte
+ ].
+ Transcript showCr:''
]
!
@@ -244,610 +262,610 @@
|syms extras lnos|
syms := #( retTop " 0 "
- retNil
- retTrue
- retFalse
- ret0
- retSelf " 5 "
- blockRetTop
- nil
- nil
- nil
- pushNil " 10 "
- pushTrue
- pushFalse
- pushInt
- pushLit
- pushSelf " 15 "
- pushNum
- pushChar
- drop
- send
- superSend " 20 "
- send0
- send1
- send2
- send3
- sendDrop " 25 "
- sendDrop0
- sendDrop1
- sendDrop2
- sendDrop3
- pushMethodArg " 30 "
- pushMethodVar
- pushBlockArg
- pushBlockVar
- pushInstVar
- pushClassVar " 35 "
- pushGlobal
- storeMethodVar
- storeBlockVar
- storeInstVar
- storeClassVar " 40 "
- storeGlobal
- pushOuterBlockArg
- pushOuter1BlockArg
- pushOuter2BlockArg
- equal " 45 "
- notEqual
- dup
- equal0
- notEqual0
- falseJump " 50 "
- trueJump
- nilJump
- notNilJump
- jump
- makeBlock " 55 "
- zeroJump
- notZeroJump
- eqJump
- notEqJump
- falseJump " 60 "
- trueJump
- nilJump
- notNilJump
- jump
- makeBlock " 65 "
- zeroJump
- notZeroJump
- eqJump
- notEqJump
- falseJump " 70 "
- trueJump
- nilJump
- notNilJump
- jump
- makeBlock " 75 "
- zeroJump
- notZeroJump
- eqJump
- notEqJump
- pushMethodVar1 " 80 "
- pushMethodVar2
- pushMethodVar3
- pushMethodVar4
- pushMethodVar5
- pushMethodVar6 " 85 "
- pushMethodArg1
- pushMethodArg2
- pushMethodArg3
- pushMethodArg4
- pushInstVar1 " 90 "
- pushInstVar2
- pushInstVar3
- pushInstVar4
- pushInstVar5
- pushInstVar6 " 95 "
- pushInstVar7
- pushInstVar8
- pushInstVar9
- pushInstVar10
- storeMethodVar1 " 100 "
- storeMethodVar2
- storeMethodVar3
- storeMethodVar4
- storeMethodVar5
- storeMethodVar6 " 105 "
- sendY
- sendX
- sendWidth
- sendHeight
- storeInstVar1 " 110 "
- storeInstVar2
- storeInstVar3
- storeInstVar4
- storeInstVar5
- storeInstVar6 " 115 "
- storeInstVar7
- storeInstVar8
- storeInstVar9
- storeInstVar10
- push0 " 120 "
- push1
- pushMinus1
- sendPlus1
- sendMinus1
- incMethodVar " 125 "
- decMethodVar
- retNum
- pushOuterBlockVar
- storeOuterBlockVar
- sendEQ " 130 "
- sendPLUS
- sendNE
- sendMINUS
- sendCLASS
- sendAT " 135 "
- sendATPUT
- sendBitAnd
- sendBitOr
- push2
- pushBlockArg1 " 140 "
- pushBlockArg2
- pushBlockArg3
- pushBlockArg4
- pushContext
- sendGT " 145 "
- sendGE
- sendLT
- sendLE
- sendNEXT
- sendPEEK " 150 "
- sendVALUE
- sendVALUE1
- sendSIZE
- sendORIGIN
- sendEXTENT " 155 "
- make0Block
- makeNILBlock
- nil
- nil
- retMvar1 " 160 "
- retMvar2
- retMvar3
- retMvar4
- retMvar5
- retMvar6 " 165 "
- retIvar1
- retIvar2
- retIvar3
- retIvar4
- retIvar5 " 170 "
- retIvar6
- retIvar7
- retIvar8
- retMarg1
- retMarg2 " 175 "
- pushClassInstVar
- storeClassInstVar
- nil
- nil
- sendSelf0 " 180 "
- sendSelf1
- sendSelf2
- sendSelf3
- sendSelfDrop0
- sendSelfDrop1 " 185 "
- sendSelfDrop2
- sendSelfDrop3
- nil
- nil
- falseJumpAbs " 190 "
- trueJumpAbs
- nilJumpAbs
- notNilJumpAbs
- jumpAbs
- makeBlockAbs " 195 "
- zeroJumpAbs
- notZeroJumpAbs
- eqJumpAbs
- notEqJumpAbs " 199 "
- ).
+ retNil
+ retTrue
+ retFalse
+ ret0
+ retSelf " 5 "
+ blockRetTop
+ nil
+ nil
+ nil
+ pushNil " 10 "
+ pushTrue
+ pushFalse
+ pushInt
+ pushLit
+ pushSelf " 15 "
+ pushNum
+ pushChar
+ drop
+ send
+ superSend " 20 "
+ send0
+ send1
+ send2
+ send3
+ sendDrop " 25 "
+ sendDrop0
+ sendDrop1
+ sendDrop2
+ sendDrop3
+ pushMethodArg " 30 "
+ pushMethodVar
+ pushBlockArg
+ pushBlockVar
+ pushInstVar
+ pushClassVar " 35 "
+ pushGlobal
+ storeMethodVar
+ storeBlockVar
+ storeInstVar
+ storeClassVar " 40 "
+ storeGlobal
+ pushOuterBlockArg
+ pushOuter1BlockArg
+ pushOuter2BlockArg
+ equal " 45 "
+ notEqual
+ dup
+ equal0
+ notEqual0
+ falseJump " 50 "
+ trueJump
+ nilJump
+ notNilJump
+ jump
+ makeBlock " 55 "
+ zeroJump
+ notZeroJump
+ eqJump
+ notEqJump
+ falseJump " 60 "
+ trueJump
+ nilJump
+ notNilJump
+ jump
+ makeBlock " 65 "
+ zeroJump
+ notZeroJump
+ eqJump
+ notEqJump
+ falseJump " 70 "
+ trueJump
+ nilJump
+ notNilJump
+ jump
+ makeBlock " 75 "
+ zeroJump
+ notZeroJump
+ eqJump
+ notEqJump
+ pushMethodVar1 " 80 "
+ pushMethodVar2
+ pushMethodVar3
+ pushMethodVar4
+ pushMethodVar5
+ pushMethodVar6 " 85 "
+ pushMethodArg1
+ pushMethodArg2
+ pushMethodArg3
+ pushMethodArg4
+ pushInstVar1 " 90 "
+ pushInstVar2
+ pushInstVar3
+ pushInstVar4
+ pushInstVar5
+ pushInstVar6 " 95 "
+ pushInstVar7
+ pushInstVar8
+ pushInstVar9
+ pushInstVar10
+ storeMethodVar1 " 100 "
+ storeMethodVar2
+ storeMethodVar3
+ storeMethodVar4
+ storeMethodVar5
+ storeMethodVar6 " 105 "
+ sendY
+ sendX
+ sendWidth
+ sendHeight
+ storeInstVar1 " 110 "
+ storeInstVar2
+ storeInstVar3
+ storeInstVar4
+ storeInstVar5
+ storeInstVar6 " 115 "
+ storeInstVar7
+ storeInstVar8
+ storeInstVar9
+ storeInstVar10
+ push0 " 120 "
+ push1
+ pushMinus1
+ sendPlus1
+ sendMinus1
+ incMethodVar " 125 "
+ decMethodVar
+ retNum
+ pushOuterBlockVar
+ storeOuterBlockVar
+ sendEQ " 130 "
+ sendPLUS
+ sendNE
+ sendMINUS
+ sendCLASS
+ sendAT " 135 "
+ sendATPUT
+ sendBitAnd
+ sendBitOr
+ push2
+ pushBlockArg1 " 140 "
+ pushBlockArg2
+ pushBlockArg3
+ pushBlockArg4
+ pushContext
+ sendGT " 145 "
+ sendGE
+ sendLT
+ sendLE
+ sendNEXT
+ sendPEEK " 150 "
+ sendVALUE
+ sendVALUE1
+ sendSIZE
+ sendORIGIN
+ sendEXTENT " 155 "
+ make0Block
+ makeNILBlock
+ nil
+ nil
+ retMvar1 " 160 "
+ retMvar2
+ retMvar3
+ retMvar4
+ retMvar5
+ retMvar6 " 165 "
+ retIvar1
+ retIvar2
+ retIvar3
+ retIvar4
+ retIvar5 " 170 "
+ retIvar6
+ retIvar7
+ retIvar8
+ retMarg1
+ retMarg2 " 175 "
+ pushClassInstVar
+ storeClassInstVar
+ nil
+ nil
+ sendSelf0 " 180 "
+ sendSelf1
+ sendSelf2
+ sendSelf3
+ sendSelfDrop0
+ sendSelfDrop1 " 185 "
+ sendSelfDrop2
+ sendSelfDrop3
+ nil
+ nil
+ falseJumpAbs " 190 "
+ trueJumpAbs
+ nilJumpAbs
+ notNilJumpAbs
+ jumpAbs
+ makeBlockAbs " 195 "
+ zeroJumpAbs
+ notZeroJumpAbs
+ eqJumpAbs
+ notEqJumpAbs " 199 "
+ ).
lnos := #( false " 0 "
- false
- false
- false
- false
- false " 5 "
- false
- false
- false
- false
- false " 10 "
- false
- false
- false
- false
- false " 15 "
- false
- false
- false
- true
- true " 20 "
- true
- true
- true
- true
- true " 25 "
- true
- true
- true
- true
- false " 30 "
- false
- false
- false
- false
- false " 35 "
- false
- false
- false
- false
- false " 40 "
- false
- false
- false
- false
- false " 45 "
- false
- false
- false
- false
- false " 50 "
- false
- false
- false
- false
- false " 55 "
- false
- false
- false
- false
- false " 60 "
- false
- false
- false
- false
- false " 65 "
- false
- false
- false
- false
- false " 70 "
- false
- false
- false
- false
- false " 75 "
- false
- false
- false
- false
- false " 80 "
- false
- false
- false
- false
- false " 85 "
- false
- false
- false
- false
- false " 90 "
- false
- false
- false
- false
- false " 95 "
- false
- false
- false
- false
- false " 100 "
- false
- false
- false
- false
- false " 105 "
- false
- false
- false
- false
- false " 110 "
- false
- false
- false
- false
- false " 115 "
- false
- false
- false
- false
- false " 120 "
- false
- false
- false
- false
- false " 125 "
- false
- false
- false
- false
- false " 130 "
- false
- false
- false
- false
- false " 135 "
- false
- false
- false
- false
- false " 140 "
- false
- false
- false
- false
- false " 145 "
- false
- false
- false
- false
- false " 150 "
- false
- false
- false
- false
- false " 155 "
- false
- false
- false
- false
- false " 160 "
- false
- false
- false
- false
- false " 165 "
- false
- false
- false
- false
- false " 170 "
- false
- false
- false
- false
- false " 175 "
- false
- false
- false
- false
- true " 180 "
- true
- true
- true
- true
- true " 185 "
- true
- true
- false
- false
- false " 190 "
- false
- false
- false
- false
- false " 195 "
- false
- false
- false
- false " 199 "
- ).
+ false
+ false
+ false
+ false
+ false " 5 "
+ false
+ false
+ false
+ false
+ false " 10 "
+ false
+ false
+ false
+ false
+ false " 15 "
+ false
+ false
+ false
+ true
+ true " 20 "
+ true
+ true
+ true
+ true
+ true " 25 "
+ true
+ true
+ true
+ true
+ false " 30 "
+ false
+ false
+ false
+ false
+ false " 35 "
+ false
+ false
+ false
+ false
+ false " 40 "
+ false
+ false
+ false
+ false
+ false " 45 "
+ false
+ false
+ false
+ false
+ false " 50 "
+ false
+ false
+ false
+ false
+ false " 55 "
+ false
+ false
+ false
+ false
+ false " 60 "
+ false
+ false
+ false
+ false
+ false " 65 "
+ false
+ false
+ false
+ false
+ false " 70 "
+ false
+ false
+ false
+ false
+ false " 75 "
+ false
+ false
+ false
+ false
+ false " 80 "
+ false
+ false
+ false
+ false
+ false " 85 "
+ false
+ false
+ false
+ false
+ false " 90 "
+ false
+ false
+ false
+ false
+ false " 95 "
+ false
+ false
+ false
+ false
+ false " 100 "
+ false
+ false
+ false
+ false
+ false " 105 "
+ false
+ false
+ false
+ false
+ false " 110 "
+ false
+ false
+ false
+ false
+ false " 115 "
+ false
+ false
+ false
+ false
+ false " 120 "
+ false
+ false
+ false
+ false
+ false " 125 "
+ false
+ false
+ false
+ false
+ false " 130 "
+ false
+ false
+ false
+ false
+ false " 135 "
+ false
+ false
+ false
+ false
+ false " 140 "
+ false
+ false
+ false
+ false
+ false " 145 "
+ false
+ false
+ false
+ false
+ false " 150 "
+ false
+ false
+ false
+ false
+ false " 155 "
+ false
+ false
+ false
+ false
+ false " 160 "
+ false
+ false
+ false
+ false
+ false " 165 "
+ false
+ false
+ false
+ false
+ false " 170 "
+ false
+ false
+ false
+ false
+ false " 175 "
+ false
+ false
+ false
+ false
+ true " 180 "
+ true
+ true
+ true
+ true
+ true " 185 "
+ true
+ true
+ false
+ false
+ false " 190 "
+ false
+ false
+ false
+ false
+ false " 195 "
+ false
+ false
+ false
+ false " 199 "
+ ).
extras := #(nil " 0 "
- nil
- nil
- nil
- nil
- nil " 5 "
- nil
- nil
- nil
- nil
- nil " 10 "
- nil
- nil
- nil
- literal
- nil " 15 "
- number
- nil
- nil
- sendArgs
- superSendArgs " 20 "
- literal
- literal
- literal
- literal
- sendArgs " 25 "
- literal
- literal
- literal
- literal
- index " 30 "
- index
- index
- index
- index
- literalSkip5 " 35 "
- literalSkip5
- index
- index
- index
- literalSkip5 " 40 "
- literalSkip5
- indexLevel
- index
- index
- nil " 45 "
- nil
- nil
- nil
- nil
- offset " 50 "
- offset
- offset
- offset
- offset
- offsetLevel " 55 "
- offset
- offset
- offset
- offset
- longOffset " 60 "
- longOffset
- longOffset
- longOffset
- longOffset
- longOffsetLevel " 65 "
- longOffset
- longOffset
- longOffset
- longOffset
- veryLongOffset " 70 "
- veryLongOffset
- veryLongOffset
- veryLongOffset
- veryLongOffset
- veryLongOffsetLevel " 75 "
- veryLongOffset
- veryLongOffset
- veryLongOffset
- veryLongOffset
- nil " 80 "
- nil
- nil
- nil
- nil
- nil " 85 "
- nil
- nil
- nil
- nil
- nil " 90 "
- nil
- nil
- nil
- nil
- nil " 95 "
- nil
- nil
- nil
- nil
- nil " 100 "
- nil
- nil
- nil
- nil
- nil " 105 "
- nil
- nil
- nil
- nil
- nil " 110 "
- nil
- nil
- nil
- nil
- nil " 115 "
- nil
- nil
- nil
- nil
- nil " 120 "
- nil
- nil
- nil
- nil
- index " 125 "
- index
- number
- indexLevel
- indexLevel
- nil " 130 "
- nil
- nil
- nil
- nil
- nil " 135 "
- nil
- nil
- nil
- nil
- nil " 140 "
- nil
- nil
- nil
- nil
- nil " 145 "
- nil
- nil
- nil
- nil
- nil " 150 "
- nil
- nil
- nil
- nil
- nil " 155 "
- nil
- nil
- nil
- nil
- nil " 160 "
- nil
- nil
- nil
- nil
- nil " 165 "
- nil
- nil
- nil
- nil
- nil " 170 "
- nil
- nil
- nil
- nil
- nil " 175 "
- index
- index
- nil
- nil
- literal " 180 "
- literal
- literal
- literal
- literal
- literal " 185 "
- literal
- literal
- nil
- nil
- absOffset " 190 "
- absOffset
- absOffset
- absOffset
- absOffset
- absOffsetLevel
- absOffset
- absOffset
- absOffset
- absOffset " 199 "
- ).
+ nil
+ nil
+ nil
+ nil
+ nil " 5 "
+ nil
+ nil
+ nil
+ nil
+ nil " 10 "
+ nil
+ nil
+ nil
+ literal
+ nil " 15 "
+ number
+ nil
+ nil
+ sendArgs
+ superSendArgs " 20 "
+ literal
+ literal
+ literal
+ literal
+ sendArgs " 25 "
+ literal
+ literal
+ literal
+ literal
+ index " 30 "
+ index
+ index
+ index
+ index
+ literalSkip5 " 35 "
+ literalSkip5
+ index
+ index
+ index
+ literalSkip5 " 40 "
+ literalSkip5
+ indexLevel
+ index
+ index
+ nil " 45 "
+ nil
+ nil
+ nil
+ nil
+ offset " 50 "
+ offset
+ offset
+ offset
+ offset
+ offsetLevel " 55 "
+ offset
+ offset
+ offset
+ offset
+ longOffset " 60 "
+ longOffset
+ longOffset
+ longOffset
+ longOffset
+ longOffsetLevel " 65 "
+ longOffset
+ longOffset
+ longOffset
+ longOffset
+ veryLongOffset " 70 "
+ veryLongOffset
+ veryLongOffset
+ veryLongOffset
+ veryLongOffset
+ veryLongOffsetLevel " 75 "
+ veryLongOffset
+ veryLongOffset
+ veryLongOffset
+ veryLongOffset
+ nil " 80 "
+ nil
+ nil
+ nil
+ nil
+ nil " 85 "
+ nil
+ nil
+ nil
+ nil
+ nil " 90 "
+ nil
+ nil
+ nil
+ nil
+ nil " 95 "
+ nil
+ nil
+ nil
+ nil
+ nil " 100 "
+ nil
+ nil
+ nil
+ nil
+ nil " 105 "
+ nil
+ nil
+ nil
+ nil
+ nil " 110 "
+ nil
+ nil
+ nil
+ nil
+ nil " 115 "
+ nil
+ nil
+ nil
+ nil
+ nil " 120 "
+ nil
+ nil
+ nil
+ nil
+ index " 125 "
+ index
+ number
+ indexLevel
+ indexLevel
+ nil " 130 "
+ nil
+ nil
+ nil
+ nil
+ nil " 135 "
+ nil
+ nil
+ nil
+ nil
+ nil " 140 "
+ nil
+ nil
+ nil
+ nil
+ nil " 145 "
+ nil
+ nil
+ nil
+ nil
+ nil " 150 "
+ nil
+ nil
+ nil
+ nil
+ nil " 155 "
+ nil
+ nil
+ nil
+ nil
+ nil " 160 "
+ nil
+ nil
+ nil
+ nil
+ nil " 165 "
+ nil
+ nil
+ nil
+ nil
+ nil " 170 "
+ nil
+ nil
+ nil
+ nil
+ nil " 175 "
+ index
+ index
+ nil
+ nil
+ literal " 180 "
+ literal
+ literal
+ literal
+ literal
+ literal " 185 "
+ literal
+ literal
+ nil
+ nil
+ absOffset " 190 "
+ absOffset
+ absOffset
+ absOffset
+ absOffset
+ absOffsetLevel
+ absOffset
+ absOffset
+ absOffset
+ absOffset " 199 "
+ ).
extra := extras at:(aByte + 1).
hasLineNo := lnos at:(aByte + 1).
--- a/Decompiler.st Sun Nov 05 18:20:13 1995 +0100
+++ b/Decompiler.st Sat Nov 11 16:31:47 1995 +0100
@@ -1,6 +1,6 @@
"
COPYRIGHT (c) 1991 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
@@ -17,15 +17,33 @@
category:'System-Compiler'
!
-Decompiler comment:'
+!Decompiler class methodsFor:'documentation'!
-COPYRIGHT (c) 1991 by Claus Gittinger
- All Rights Reserved
+copyright
+"
+ COPYRIGHT (c) 1991 by Claus Gittinger
+ All Rights Reserved
-additional methods for decompilation
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice. This software may not
+ be provided or otherwise made available to, or used by, any
+ other person. No title to or ownership of the software is
+ hereby transferred.
+"
+!
-$Header: /cvs/stx/stx/libcomp/Decompiler.st,v 1.3 1993-10-13 02:41:18 claus Exp $
-'!
+version
+ ^ '$Header: /cvs/stx/stx/libcomp/Decompiler.st,v 1.4 1995-11-11 15:30:20 cg Exp $'
+!
+
+documentation
+"
+ only for stx-debugging. Not for public eyes.
+
+ Decompiler decompile:(someClass compiledMethodAt:#someSelector)
+"
+! !
!Decompiler class methodsFor:'decompiling'!
@@ -42,9 +60,9 @@
index := index + 1.
(byte > 127) ifTrue:[
- offs := byte - 256
+ offs := byte - 256
] ifFalse:[
- offs := byte
+ offs := byte
].
Transcript show:(offs printString).
Transcript show:' ('.
@@ -57,9 +75,9 @@
index := index + 1.
(byte > 127) ifTrue:[
- offs := byte - 256 - 128
+ offs := byte - 256 - 128
] ifFalse:[
- offs := byte + 128
+ offs := byte + 128
].
Transcript show:offs printString.
Transcript show:' ('.
@@ -72,9 +90,9 @@
index := index + 1.
(byte > 127) ifTrue:[
- offs := byte - 256 - 256
+ offs := byte - 256 - 256
] ifFalse:[
- offs := byte + 256
+ offs := byte + 256
].
Transcript show:offs printString.
Transcript show:' ('.
@@ -203,40 +221,40 @@
|nBytes offs byte sym sel|
aMethod isNil ifTrue:[
- Transcript showCr:'nil method'.
- ^ self
+ Transcript showCr:'nil method'.
+ ^ self
].
bytes := aMethod byteCode.
bytes isNil ifTrue:[
- Transcript showCr:'no bytecode'.
- ^ self
+ Transcript showCr:'no bytecode'.
+ ^ self
].
literals := aMethod literals.
index := 1.
nBytes := bytes size.
[index <= nBytes] whileTrue:[
- self showPC.
- sym := self symbolicCodeFor:(bytes at:index).
- Transcript show:sym.
+ self showPC.
+ sym := self symbolicCodeFor:(bytes at:index).
+ Transcript show:sym.
"
- extra notNil ifTrue:[Transcript show:(extra printString)].
+ extra notNil ifTrue:[Transcript show:(extra printString)].
"
- hasLineNo ifTrue:[
- index := index + 1
- ].
- index := index + 1.
- extra notNil ifTrue:[
- Transcript show:' '.
- byte := bytes at:index.
+ hasLineNo ifTrue:[
+ index := index + 1
+ ].
+ index := index + 1.
+ extra notNil ifTrue:[
+ Transcript show:' '.
+ byte := bytes at:index.
- "compute argument showXXX selector from extra ..."
+ "compute argument showXXX selector from extra ..."
- sel := 'show' , extra , ':'.
- sel at:5 put:(sel at:5) asUppercase.
- self perform:sel asSymbol with:byte
- ].
- Transcript showCr:''
+ sel := 'show' , extra , ':'.
+ sel at:5 put:(sel at:5) asUppercase.
+ self perform:sel asSymbol with:byte
+ ].
+ Transcript showCr:''
]
!
@@ -244,610 +262,610 @@
|syms extras lnos|
syms := #( retTop " 0 "
- retNil
- retTrue
- retFalse
- ret0
- retSelf " 5 "
- blockRetTop
- nil
- nil
- nil
- pushNil " 10 "
- pushTrue
- pushFalse
- pushInt
- pushLit
- pushSelf " 15 "
- pushNum
- pushChar
- drop
- send
- superSend " 20 "
- send0
- send1
- send2
- send3
- sendDrop " 25 "
- sendDrop0
- sendDrop1
- sendDrop2
- sendDrop3
- pushMethodArg " 30 "
- pushMethodVar
- pushBlockArg
- pushBlockVar
- pushInstVar
- pushClassVar " 35 "
- pushGlobal
- storeMethodVar
- storeBlockVar
- storeInstVar
- storeClassVar " 40 "
- storeGlobal
- pushOuterBlockArg
- pushOuter1BlockArg
- pushOuter2BlockArg
- equal " 45 "
- notEqual
- dup
- equal0
- notEqual0
- falseJump " 50 "
- trueJump
- nilJump
- notNilJump
- jump
- makeBlock " 55 "
- zeroJump
- notZeroJump
- eqJump
- notEqJump
- falseJump " 60 "
- trueJump
- nilJump
- notNilJump
- jump
- makeBlock " 65 "
- zeroJump
- notZeroJump
- eqJump
- notEqJump
- falseJump " 70 "
- trueJump
- nilJump
- notNilJump
- jump
- makeBlock " 75 "
- zeroJump
- notZeroJump
- eqJump
- notEqJump
- pushMethodVar1 " 80 "
- pushMethodVar2
- pushMethodVar3
- pushMethodVar4
- pushMethodVar5
- pushMethodVar6 " 85 "
- pushMethodArg1
- pushMethodArg2
- pushMethodArg3
- pushMethodArg4
- pushInstVar1 " 90 "
- pushInstVar2
- pushInstVar3
- pushInstVar4
- pushInstVar5
- pushInstVar6 " 95 "
- pushInstVar7
- pushInstVar8
- pushInstVar9
- pushInstVar10
- storeMethodVar1 " 100 "
- storeMethodVar2
- storeMethodVar3
- storeMethodVar4
- storeMethodVar5
- storeMethodVar6 " 105 "
- sendY
- sendX
- sendWidth
- sendHeight
- storeInstVar1 " 110 "
- storeInstVar2
- storeInstVar3
- storeInstVar4
- storeInstVar5
- storeInstVar6 " 115 "
- storeInstVar7
- storeInstVar8
- storeInstVar9
- storeInstVar10
- push0 " 120 "
- push1
- pushMinus1
- sendPlus1
- sendMinus1
- incMethodVar " 125 "
- decMethodVar
- retNum
- pushOuterBlockVar
- storeOuterBlockVar
- sendEQ " 130 "
- sendPLUS
- sendNE
- sendMINUS
- sendCLASS
- sendAT " 135 "
- sendATPUT
- sendBitAnd
- sendBitOr
- push2
- pushBlockArg1 " 140 "
- pushBlockArg2
- pushBlockArg3
- pushBlockArg4
- pushContext
- sendGT " 145 "
- sendGE
- sendLT
- sendLE
- sendNEXT
- sendPEEK " 150 "
- sendVALUE
- sendVALUE1
- sendSIZE
- sendORIGIN
- sendEXTENT " 155 "
- make0Block
- makeNILBlock
- nil
- nil
- retMvar1 " 160 "
- retMvar2
- retMvar3
- retMvar4
- retMvar5
- retMvar6 " 165 "
- retIvar1
- retIvar2
- retIvar3
- retIvar4
- retIvar5 " 170 "
- retIvar6
- retIvar7
- retIvar8
- retMarg1
- retMarg2 " 175 "
- pushClassInstVar
- storeClassInstVar
- nil
- nil
- sendSelf0 " 180 "
- sendSelf1
- sendSelf2
- sendSelf3
- sendSelfDrop0
- sendSelfDrop1 " 185 "
- sendSelfDrop2
- sendSelfDrop3
- nil
- nil
- falseJumpAbs " 190 "
- trueJumpAbs
- nilJumpAbs
- notNilJumpAbs
- jumpAbs
- makeBlockAbs " 195 "
- zeroJumpAbs
- notZeroJumpAbs
- eqJumpAbs
- notEqJumpAbs " 199 "
- ).
+ retNil
+ retTrue
+ retFalse
+ ret0
+ retSelf " 5 "
+ blockRetTop
+ nil
+ nil
+ nil
+ pushNil " 10 "
+ pushTrue
+ pushFalse
+ pushInt
+ pushLit
+ pushSelf " 15 "
+ pushNum
+ pushChar
+ drop
+ send
+ superSend " 20 "
+ send0
+ send1
+ send2
+ send3
+ sendDrop " 25 "
+ sendDrop0
+ sendDrop1
+ sendDrop2
+ sendDrop3
+ pushMethodArg " 30 "
+ pushMethodVar
+ pushBlockArg
+ pushBlockVar
+ pushInstVar
+ pushClassVar " 35 "
+ pushGlobal
+ storeMethodVar
+ storeBlockVar
+ storeInstVar
+ storeClassVar " 40 "
+ storeGlobal
+ pushOuterBlockArg
+ pushOuter1BlockArg
+ pushOuter2BlockArg
+ equal " 45 "
+ notEqual
+ dup
+ equal0
+ notEqual0
+ falseJump " 50 "
+ trueJump
+ nilJump
+ notNilJump
+ jump
+ makeBlock " 55 "
+ zeroJump
+ notZeroJump
+ eqJump
+ notEqJump
+ falseJump " 60 "
+ trueJump
+ nilJump
+ notNilJump
+ jump
+ makeBlock " 65 "
+ zeroJump
+ notZeroJump
+ eqJump
+ notEqJump
+ falseJump " 70 "
+ trueJump
+ nilJump
+ notNilJump
+ jump
+ makeBlock " 75 "
+ zeroJump
+ notZeroJump
+ eqJump
+ notEqJump
+ pushMethodVar1 " 80 "
+ pushMethodVar2
+ pushMethodVar3
+ pushMethodVar4
+ pushMethodVar5
+ pushMethodVar6 " 85 "
+ pushMethodArg1
+ pushMethodArg2
+ pushMethodArg3
+ pushMethodArg4
+ pushInstVar1 " 90 "
+ pushInstVar2
+ pushInstVar3
+ pushInstVar4
+ pushInstVar5
+ pushInstVar6 " 95 "
+ pushInstVar7
+ pushInstVar8
+ pushInstVar9
+ pushInstVar10
+ storeMethodVar1 " 100 "
+ storeMethodVar2
+ storeMethodVar3
+ storeMethodVar4
+ storeMethodVar5
+ storeMethodVar6 " 105 "
+ sendY
+ sendX
+ sendWidth
+ sendHeight
+ storeInstVar1 " 110 "
+ storeInstVar2
+ storeInstVar3
+ storeInstVar4
+ storeInstVar5
+ storeInstVar6 " 115 "
+ storeInstVar7
+ storeInstVar8
+ storeInstVar9
+ storeInstVar10
+ push0 " 120 "
+ push1
+ pushMinus1
+ sendPlus1
+ sendMinus1
+ incMethodVar " 125 "
+ decMethodVar
+ retNum
+ pushOuterBlockVar
+ storeOuterBlockVar
+ sendEQ " 130 "
+ sendPLUS
+ sendNE
+ sendMINUS
+ sendCLASS
+ sendAT " 135 "
+ sendATPUT
+ sendBitAnd
+ sendBitOr
+ push2
+ pushBlockArg1 " 140 "
+ pushBlockArg2
+ pushBlockArg3
+ pushBlockArg4
+ pushContext
+ sendGT " 145 "
+ sendGE
+ sendLT
+ sendLE
+ sendNEXT
+ sendPEEK " 150 "
+ sendVALUE
+ sendVALUE1
+ sendSIZE
+ sendORIGIN
+ sendEXTENT " 155 "
+ make0Block
+ makeNILBlock
+ nil
+ nil
+ retMvar1 " 160 "
+ retMvar2
+ retMvar3
+ retMvar4
+ retMvar5
+ retMvar6 " 165 "
+ retIvar1
+ retIvar2
+ retIvar3
+ retIvar4
+ retIvar5 " 170 "
+ retIvar6
+ retIvar7
+ retIvar8
+ retMarg1
+ retMarg2 " 175 "
+ pushClassInstVar
+ storeClassInstVar
+ nil
+ nil
+ sendSelf0 " 180 "
+ sendSelf1
+ sendSelf2
+ sendSelf3
+ sendSelfDrop0
+ sendSelfDrop1 " 185 "
+ sendSelfDrop2
+ sendSelfDrop3
+ nil
+ nil
+ falseJumpAbs " 190 "
+ trueJumpAbs
+ nilJumpAbs
+ notNilJumpAbs
+ jumpAbs
+ makeBlockAbs " 195 "
+ zeroJumpAbs
+ notZeroJumpAbs
+ eqJumpAbs
+ notEqJumpAbs " 199 "
+ ).
lnos := #( false " 0 "
- false
- false
- false
- false
- false " 5 "
- false
- false
- false
- false
- false " 10 "
- false
- false
- false
- false
- false " 15 "
- false
- false
- false
- true
- true " 20 "
- true
- true
- true
- true
- true " 25 "
- true
- true
- true
- true
- false " 30 "
- false
- false
- false
- false
- false " 35 "
- false
- false
- false
- false
- false " 40 "
- false
- false
- false
- false
- false " 45 "
- false
- false
- false
- false
- false " 50 "
- false
- false
- false
- false
- false " 55 "
- false
- false
- false
- false
- false " 60 "
- false
- false
- false
- false
- false " 65 "
- false
- false
- false
- false
- false " 70 "
- false
- false
- false
- false
- false " 75 "
- false
- false
- false
- false
- false " 80 "
- false
- false
- false
- false
- false " 85 "
- false
- false
- false
- false
- false " 90 "
- false
- false
- false
- false
- false " 95 "
- false
- false
- false
- false
- false " 100 "
- false
- false
- false
- false
- false " 105 "
- false
- false
- false
- false
- false " 110 "
- false
- false
- false
- false
- false " 115 "
- false
- false
- false
- false
- false " 120 "
- false
- false
- false
- false
- false " 125 "
- false
- false
- false
- false
- false " 130 "
- false
- false
- false
- false
- false " 135 "
- false
- false
- false
- false
- false " 140 "
- false
- false
- false
- false
- false " 145 "
- false
- false
- false
- false
- false " 150 "
- false
- false
- false
- false
- false " 155 "
- false
- false
- false
- false
- false " 160 "
- false
- false
- false
- false
- false " 165 "
- false
- false
- false
- false
- false " 170 "
- false
- false
- false
- false
- false " 175 "
- false
- false
- false
- false
- true " 180 "
- true
- true
- true
- true
- true " 185 "
- true
- true
- false
- false
- false " 190 "
- false
- false
- false
- false
- false " 195 "
- false
- false
- false
- false " 199 "
- ).
+ false
+ false
+ false
+ false
+ false " 5 "
+ false
+ false
+ false
+ false
+ false " 10 "
+ false
+ false
+ false
+ false
+ false " 15 "
+ false
+ false
+ false
+ true
+ true " 20 "
+ true
+ true
+ true
+ true
+ true " 25 "
+ true
+ true
+ true
+ true
+ false " 30 "
+ false
+ false
+ false
+ false
+ false " 35 "
+ false
+ false
+ false
+ false
+ false " 40 "
+ false
+ false
+ false
+ false
+ false " 45 "
+ false
+ false
+ false
+ false
+ false " 50 "
+ false
+ false
+ false
+ false
+ false " 55 "
+ false
+ false
+ false
+ false
+ false " 60 "
+ false
+ false
+ false
+ false
+ false " 65 "
+ false
+ false
+ false
+ false
+ false " 70 "
+ false
+ false
+ false
+ false
+ false " 75 "
+ false
+ false
+ false
+ false
+ false " 80 "
+ false
+ false
+ false
+ false
+ false " 85 "
+ false
+ false
+ false
+ false
+ false " 90 "
+ false
+ false
+ false
+ false
+ false " 95 "
+ false
+ false
+ false
+ false
+ false " 100 "
+ false
+ false
+ false
+ false
+ false " 105 "
+ false
+ false
+ false
+ false
+ false " 110 "
+ false
+ false
+ false
+ false
+ false " 115 "
+ false
+ false
+ false
+ false
+ false " 120 "
+ false
+ false
+ false
+ false
+ false " 125 "
+ false
+ false
+ false
+ false
+ false " 130 "
+ false
+ false
+ false
+ false
+ false " 135 "
+ false
+ false
+ false
+ false
+ false " 140 "
+ false
+ false
+ false
+ false
+ false " 145 "
+ false
+ false
+ false
+ false
+ false " 150 "
+ false
+ false
+ false
+ false
+ false " 155 "
+ false
+ false
+ false
+ false
+ false " 160 "
+ false
+ false
+ false
+ false
+ false " 165 "
+ false
+ false
+ false
+ false
+ false " 170 "
+ false
+ false
+ false
+ false
+ false " 175 "
+ false
+ false
+ false
+ false
+ true " 180 "
+ true
+ true
+ true
+ true
+ true " 185 "
+ true
+ true
+ false
+ false
+ false " 190 "
+ false
+ false
+ false
+ false
+ false " 195 "
+ false
+ false
+ false
+ false " 199 "
+ ).
extras := #(nil " 0 "
- nil
- nil
- nil
- nil
- nil " 5 "
- nil
- nil
- nil
- nil
- nil " 10 "
- nil
- nil
- nil
- literal
- nil " 15 "
- number
- nil
- nil
- sendArgs
- superSendArgs " 20 "
- literal
- literal
- literal
- literal
- sendArgs " 25 "
- literal
- literal
- literal
- literal
- index " 30 "
- index
- index
- index
- index
- literalSkip5 " 35 "
- literalSkip5
- index
- index
- index
- literalSkip5 " 40 "
- literalSkip5
- indexLevel
- index
- index
- nil " 45 "
- nil
- nil
- nil
- nil
- offset " 50 "
- offset
- offset
- offset
- offset
- offsetLevel " 55 "
- offset
- offset
- offset
- offset
- longOffset " 60 "
- longOffset
- longOffset
- longOffset
- longOffset
- longOffsetLevel " 65 "
- longOffset
- longOffset
- longOffset
- longOffset
- veryLongOffset " 70 "
- veryLongOffset
- veryLongOffset
- veryLongOffset
- veryLongOffset
- veryLongOffsetLevel " 75 "
- veryLongOffset
- veryLongOffset
- veryLongOffset
- veryLongOffset
- nil " 80 "
- nil
- nil
- nil
- nil
- nil " 85 "
- nil
- nil
- nil
- nil
- nil " 90 "
- nil
- nil
- nil
- nil
- nil " 95 "
- nil
- nil
- nil
- nil
- nil " 100 "
- nil
- nil
- nil
- nil
- nil " 105 "
- nil
- nil
- nil
- nil
- nil " 110 "
- nil
- nil
- nil
- nil
- nil " 115 "
- nil
- nil
- nil
- nil
- nil " 120 "
- nil
- nil
- nil
- nil
- index " 125 "
- index
- number
- indexLevel
- indexLevel
- nil " 130 "
- nil
- nil
- nil
- nil
- nil " 135 "
- nil
- nil
- nil
- nil
- nil " 140 "
- nil
- nil
- nil
- nil
- nil " 145 "
- nil
- nil
- nil
- nil
- nil " 150 "
- nil
- nil
- nil
- nil
- nil " 155 "
- nil
- nil
- nil
- nil
- nil " 160 "
- nil
- nil
- nil
- nil
- nil " 165 "
- nil
- nil
- nil
- nil
- nil " 170 "
- nil
- nil
- nil
- nil
- nil " 175 "
- index
- index
- nil
- nil
- literal " 180 "
- literal
- literal
- literal
- literal
- literal " 185 "
- literal
- literal
- nil
- nil
- absOffset " 190 "
- absOffset
- absOffset
- absOffset
- absOffset
- absOffsetLevel
- absOffset
- absOffset
- absOffset
- absOffset " 199 "
- ).
+ nil
+ nil
+ nil
+ nil
+ nil " 5 "
+ nil
+ nil
+ nil
+ nil
+ nil " 10 "
+ nil
+ nil
+ nil
+ literal
+ nil " 15 "
+ number
+ nil
+ nil
+ sendArgs
+ superSendArgs " 20 "
+ literal
+ literal
+ literal
+ literal
+ sendArgs " 25 "
+ literal
+ literal
+ literal
+ literal
+ index " 30 "
+ index
+ index
+ index
+ index
+ literalSkip5 " 35 "
+ literalSkip5
+ index
+ index
+ index
+ literalSkip5 " 40 "
+ literalSkip5
+ indexLevel
+ index
+ index
+ nil " 45 "
+ nil
+ nil
+ nil
+ nil
+ offset " 50 "
+ offset
+ offset
+ offset
+ offset
+ offsetLevel " 55 "
+ offset
+ offset
+ offset
+ offset
+ longOffset " 60 "
+ longOffset
+ longOffset
+ longOffset
+ longOffset
+ longOffsetLevel " 65 "
+ longOffset
+ longOffset
+ longOffset
+ longOffset
+ veryLongOffset " 70 "
+ veryLongOffset
+ veryLongOffset
+ veryLongOffset
+ veryLongOffset
+ veryLongOffsetLevel " 75 "
+ veryLongOffset
+ veryLongOffset
+ veryLongOffset
+ veryLongOffset
+ nil " 80 "
+ nil
+ nil
+ nil
+ nil
+ nil " 85 "
+ nil
+ nil
+ nil
+ nil
+ nil " 90 "
+ nil
+ nil
+ nil
+ nil
+ nil " 95 "
+ nil
+ nil
+ nil
+ nil
+ nil " 100 "
+ nil
+ nil
+ nil
+ nil
+ nil " 105 "
+ nil
+ nil
+ nil
+ nil
+ nil " 110 "
+ nil
+ nil
+ nil
+ nil
+ nil " 115 "
+ nil
+ nil
+ nil
+ nil
+ nil " 120 "
+ nil
+ nil
+ nil
+ nil
+ index " 125 "
+ index
+ number
+ indexLevel
+ indexLevel
+ nil " 130 "
+ nil
+ nil
+ nil
+ nil
+ nil " 135 "
+ nil
+ nil
+ nil
+ nil
+ nil " 140 "
+ nil
+ nil
+ nil
+ nil
+ nil " 145 "
+ nil
+ nil
+ nil
+ nil
+ nil " 150 "
+ nil
+ nil
+ nil
+ nil
+ nil " 155 "
+ nil
+ nil
+ nil
+ nil
+ nil " 160 "
+ nil
+ nil
+ nil
+ nil
+ nil " 165 "
+ nil
+ nil
+ nil
+ nil
+ nil " 170 "
+ nil
+ nil
+ nil
+ nil
+ nil " 175 "
+ index
+ index
+ nil
+ nil
+ literal " 180 "
+ literal
+ literal
+ literal
+ literal
+ literal " 185 "
+ literal
+ literal
+ nil
+ nil
+ absOffset " 190 "
+ absOffset
+ absOffset
+ absOffset
+ absOffset
+ absOffsetLevel
+ absOffset
+ absOffset
+ absOffset
+ absOffset " 199 "
+ ).
extra := extras at:(aByte + 1).
hasLineNo := lnos at:(aByte + 1).
--- a/Explainer.st Sun Nov 05 18:20:13 1995 +0100
+++ b/Explainer.st Sat Nov 11 16:31:47 1995 +0100
@@ -17,13 +17,6 @@
category:'System-Compiler'
!
-Explainer comment:'
-COPYRIGHT (c) 1993 by Claus Gittinger
- All Rights Reserved
-
-$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.13 1995-08-11 16:03:02 claus Exp $
-'!
-
!Explainer class methodsFor:'documentation'!
copyright
@@ -41,9 +34,7 @@
!
version
-"
-$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.13 1995-08-11 16:03:02 claus Exp $
-"
+ ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.14 1995-11-11 15:30:23 cg Exp $'
!
documentation
--- a/ImmArray.st Sun Nov 05 18:20:13 1995 +0100
+++ b/ImmArray.st Sat Nov 11 16:31:47 1995 +0100
@@ -36,9 +36,7 @@
!
version
-"
-$Header: /cvs/stx/stx/libcomp/Attic/ImmArray.st,v 1.9 1995-08-11 16:03:05 claus Exp $
-"
+ ^ '$Header: /cvs/stx/stx/libcomp/Attic/ImmArray.st,v 1.10 1995-11-11 15:30:26 cg Exp $'
!
documentation
--- a/ImmutableArray.st Sun Nov 05 18:20:13 1995 +0100
+++ b/ImmutableArray.st Sat Nov 11 16:31:47 1995 +0100
@@ -36,9 +36,7 @@
!
version
-"
-$Header: /cvs/stx/stx/libcomp/Attic/ImmutableArray.st,v 1.9 1995-08-11 16:03:05 claus Exp $
-"
+ ^ '$Header: /cvs/stx/stx/libcomp/Attic/ImmutableArray.st,v 1.10 1995-11-11 15:30:26 cg Exp $'
!
documentation
--- a/LazyMethod.st Sun Nov 05 18:20:13 1995 +0100
+++ b/LazyMethod.st Sat Nov 11 16:31:47 1995 +0100
@@ -17,13 +17,6 @@
category:'Kernel-Methods'
!
-LazyMethod comment:'
-COPYRIGHT (c) 1994 by Claus Gittinger
- All Rights Reserved
-
-$Header: /cvs/stx/stx/libcomp/LazyMethod.st,v 1.14 1995-10-24 15:54:57 cg Exp $
-'!
-
!LazyMethod class methodsFor:'documentation'!
copyright
@@ -41,9 +34,7 @@
!
version
-"
-$Header: /cvs/stx/stx/libcomp/LazyMethod.st,v 1.14 1995-10-24 15:54:57 cg Exp $
-"
+ ^ '$Header: /cvs/stx/stx/libcomp/LazyMethod.st,v 1.15 1995-11-11 15:30:27 cg Exp $'
!
documentation
--- a/MessageNd.st Sun Nov 05 18:20:13 1995 +0100
+++ b/MessageNd.st Sat Nov 11 16:31:47 1995 +0100
@@ -17,13 +17,6 @@
category:'System-Compiler-Support'
!
-MessageNode comment:'
-COPYRIGHT (c) 1989 by Claus Gittinger
- All Rights Reserved
-
-$Header: /cvs/stx/stx/libcomp/Attic/MessageNd.st,v 1.30 1995-09-07 12:06:43 claus Exp $
-'!
-
!MessageNode class methodsFor:'documentation'!
copyright
@@ -41,9 +34,7 @@
!
version
-"
-$Header: /cvs/stx/stx/libcomp/Attic/MessageNd.st,v 1.30 1995-09-07 12:06:43 claus Exp $
-"
+ ^ '$Header: /cvs/stx/stx/libcomp/Attic/MessageNd.st,v 1.31 1995-11-11 15:30:33 cg Exp $'
!
documentation
--- a/MessageNode.st Sun Nov 05 18:20:13 1995 +0100
+++ b/MessageNode.st Sat Nov 11 16:31:47 1995 +0100
@@ -17,13 +17,6 @@
category:'System-Compiler-Support'
!
-MessageNode comment:'
-COPYRIGHT (c) 1989 by Claus Gittinger
- All Rights Reserved
-
-$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.30 1995-09-07 12:06:43 claus Exp $
-'!
-
!MessageNode class methodsFor:'documentation'!
copyright
@@ -41,9 +34,7 @@
!
version
-"
-$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.30 1995-09-07 12:06:43 claus Exp $
-"
+ ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.31 1995-11-11 15:30:33 cg Exp $'
!
documentation
--- a/MethodNode.st Sun Nov 05 18:20:13 1995 +0100
+++ b/MethodNode.st Sat Nov 11 16:31:47 1995 +0100
@@ -17,13 +17,6 @@
category:'System-Compiler ST-80-compatibility'
!
-MethodNode comment:'
-COPYRIGHT (c) 1995 by Claus Gittinger
- All Rights Reserved
-
-$Header: /cvs/stx/stx/libcomp/MethodNode.st,v 1.6 1995-08-23 17:53:43 claus Exp $
-'!
-
!MethodNode class methodsFor:'documentation'!
copyright
@@ -41,9 +34,7 @@
!
version
-"
-$Header: /cvs/stx/stx/libcomp/MethodNode.st,v 1.6 1995-08-23 17:53:43 claus Exp $
-"
+ ^ '$Header: /cvs/stx/stx/libcomp/MethodNode.st,v 1.7 1995-11-11 15:30:39 cg Exp $'
!
documentation
--- a/NullScope.st Sun Nov 05 18:20:13 1995 +0100
+++ b/NullScope.st Sat Nov 11 16:31:47 1995 +0100
@@ -17,13 +17,6 @@
category:'System-Compiler ST-80-compatibility'
!
-NullScope comment:'
-COPYRIGHT (c) 1995 by Claus Gittinger
- All Rights Reserved
-
-$Header: /cvs/stx/stx/libcomp/NullScope.st,v 1.4 1995-08-23 17:53:46 claus Exp $
-'!
-
!NullScope class methodsFor:'documentation'!
copyright
@@ -41,9 +34,7 @@
!
version
-"
-$Header: /cvs/stx/stx/libcomp/NullScope.st,v 1.4 1995-08-23 17:53:46 claus Exp $
-"
+ ^ '$Header: /cvs/stx/stx/libcomp/NullScope.st,v 1.5 1995-11-11 15:30:39 cg Exp $'
!
documentation
--- a/ObjFHandle.st Sun Nov 05 18:20:13 1995 +0100
+++ b/ObjFHandle.st Sat Nov 11 16:31:47 1995 +0100
@@ -10,9 +10,7 @@
!ObjectFileHandle class methodsFor:'documentation'!
version
-"
-$Header: /cvs/stx/stx/libcomp/Attic/ObjFHandle.st,v 1.5 1995-10-23 16:57:59 cg Exp $
-"
+ ^ '$Header: /cvs/stx/stx/libcomp/Attic/ObjFHandle.st,v 1.6 1995-11-11 15:30:40 cg Exp $'
!
documentation
--- a/ObjFLoader.st Sun Nov 05 18:20:13 1995 +0100
+++ b/ObjFLoader.st Sat Nov 11 16:31:47 1995 +0100
@@ -19,13 +19,6 @@
category:'System-Compiler'
!
-ObjectFileLoader comment:'
-COPYRIGHT (c) 1993 by Claus Gittinger
- All Rights Reserved
-
-$Header: /cvs/stx/stx/libcomp/Attic/ObjFLoader.st,v 1.51 1995-11-05 17:20:13 cg Exp $
-'!
-
!ObjectFileLoader class methodsFor:'documentation'!
copyright
@@ -43,9 +36,7 @@
!
version
-"
-$Header: /cvs/stx/stx/libcomp/Attic/ObjFLoader.st,v 1.51 1995-11-05 17:20:13 cg Exp $
-"
+ ^ '$Header: /cvs/stx/stx/libcomp/Attic/ObjFLoader.st,v 1.52 1995-11-11 15:30:50 cg Exp $'
!
documentation
--- a/ObjectFileHandle.st Sun Nov 05 18:20:13 1995 +0100
+++ b/ObjectFileHandle.st Sat Nov 11 16:31:47 1995 +0100
@@ -10,9 +10,7 @@
!ObjectFileHandle class methodsFor:'documentation'!
version
-"
-$Header: /cvs/stx/stx/libcomp/ObjectFileHandle.st,v 1.5 1995-10-23 16:57:59 cg Exp $
-"
+ ^ '$Header: /cvs/stx/stx/libcomp/ObjectFileHandle.st,v 1.6 1995-11-11 15:30:40 cg Exp $'
!
documentation
--- a/ObjectFileLoader.st Sun Nov 05 18:20:13 1995 +0100
+++ b/ObjectFileLoader.st Sat Nov 11 16:31:47 1995 +0100
@@ -19,13 +19,6 @@
category:'System-Compiler'
!
-ObjectFileLoader comment:'
-COPYRIGHT (c) 1993 by Claus Gittinger
- All Rights Reserved
-
-$Header: /cvs/stx/stx/libcomp/ObjectFileLoader.st,v 1.51 1995-11-05 17:20:13 cg Exp $
-'!
-
!ObjectFileLoader class methodsFor:'documentation'!
copyright
@@ -43,9 +36,7 @@
!
version
-"
-$Header: /cvs/stx/stx/libcomp/ObjectFileLoader.st,v 1.51 1995-11-05 17:20:13 cg Exp $
-"
+ ^ '$Header: /cvs/stx/stx/libcomp/ObjectFileLoader.st,v 1.52 1995-11-11 15:30:50 cg Exp $'
!
documentation
--- a/ParseNode.st Sun Nov 05 18:20:13 1995 +0100
+++ b/ParseNode.st Sat Nov 11 16:31:47 1995 +0100
@@ -17,13 +17,6 @@
category:'System-Compiler-Support'
!
-ParseNode comment:'
-COPYRIGHT (c) 1989 by Claus Gittinger
- All Rights Reserved
-
-$Header: /cvs/stx/stx/libcomp/ParseNode.st,v 1.12 1995-08-11 20:28:09 claus Exp $
-'!
-
!ParseNode class methodsFor:'documentation'!
copyright
@@ -41,9 +34,7 @@
!
version
-"
-$Header: /cvs/stx/stx/libcomp/ParseNode.st,v 1.12 1995-08-11 20:28:09 claus Exp $
-"
+ ^ '$Header: /cvs/stx/stx/libcomp/ParseNode.st,v 1.13 1995-11-11 15:31:02 cg Exp $'
!
documentation
--- a/Parser.st Sun Nov 05 18:20:13 1995 +0100
+++ b/Parser.st Sat Nov 11 16:31:47 1995 +0100
@@ -38,13 +38,6 @@
category:'System-Compiler'
!
-Parser comment:'
-COPYRIGHT (c) 1989 by Claus Gittinger
- All Rights Reserved
-
-$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.54 1995-10-31 14:37:14 cg Exp $
-'!
-
!Parser class methodsFor:'documentation'!
copyright
@@ -62,9 +55,7 @@
!
version
-"
-$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.54 1995-10-31 14:37:14 cg Exp $
-"
+ ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.55 1995-11-11 15:31:13 cg Exp $'
!
documentation
--- a/PrimNd.st Sun Nov 05 18:20:13 1995 +0100
+++ b/PrimNd.st Sat Nov 11 16:31:47 1995 +0100
@@ -17,13 +17,6 @@
category:'System-Compiler-Support'
!
-PrimitiveNode comment:'
-COPYRIGHT (c) 1990 by Claus Gittinger
- All Rights Reserved
-
-$Header: /cvs/stx/stx/libcomp/Attic/PrimNd.st,v 1.10 1995-10-24 15:55:13 cg Exp $
-'!
-
!PrimitiveNode class methodsFor:'documentation'!
copyright
@@ -41,9 +34,7 @@
!
version
-"
-$Header: /cvs/stx/stx/libcomp/Attic/PrimNd.st,v 1.10 1995-10-24 15:55:13 cg Exp $
-"
+ ^ '$Header: /cvs/stx/stx/libcomp/Attic/PrimNd.st,v 1.11 1995-11-11 15:31:26 cg Exp $'
!
documentation
--- a/PrimaryNd.st Sun Nov 05 18:20:13 1995 +0100
+++ b/PrimaryNd.st Sat Nov 11 16:31:47 1995 +0100
@@ -17,13 +17,6 @@
category:'System-Compiler-Support'
!
-PrimaryNode comment:'
-COPYRIGHT (c) 1989 by Claus Gittinger
- All Rights Reserved
-
-$Header: /cvs/stx/stx/libcomp/Attic/PrimaryNd.st,v 1.11 1995-08-11 20:28:17 claus Exp $
-'!
-
!PrimaryNode class methodsFor:'documentation'!
copyright
@@ -41,9 +34,7 @@
!
version
-"
-$Header: /cvs/stx/stx/libcomp/Attic/PrimaryNd.st,v 1.11 1995-08-11 20:28:17 claus Exp $
-"
+ ^ '$Header: /cvs/stx/stx/libcomp/Attic/PrimaryNd.st,v 1.12 1995-11-11 15:31:27 cg Exp $'
!
documentation
--- a/PrimaryNode.st Sun Nov 05 18:20:13 1995 +0100
+++ b/PrimaryNode.st Sat Nov 11 16:31:47 1995 +0100
@@ -17,13 +17,6 @@
category:'System-Compiler-Support'
!
-PrimaryNode comment:'
-COPYRIGHT (c) 1989 by Claus Gittinger
- All Rights Reserved
-
-$Header: /cvs/stx/stx/libcomp/PrimaryNode.st,v 1.11 1995-08-11 20:28:17 claus Exp $
-'!
-
!PrimaryNode class methodsFor:'documentation'!
copyright
@@ -41,9 +34,7 @@
!
version
-"
-$Header: /cvs/stx/stx/libcomp/PrimaryNode.st,v 1.11 1995-08-11 20:28:17 claus Exp $
-"
+ ^ '$Header: /cvs/stx/stx/libcomp/PrimaryNode.st,v 1.12 1995-11-11 15:31:27 cg Exp $'
!
documentation
--- a/PrimitiveNode.st Sun Nov 05 18:20:13 1995 +0100
+++ b/PrimitiveNode.st Sat Nov 11 16:31:47 1995 +0100
@@ -17,13 +17,6 @@
category:'System-Compiler-Support'
!
-PrimitiveNode comment:'
-COPYRIGHT (c) 1990 by Claus Gittinger
- All Rights Reserved
-
-$Header: /cvs/stx/stx/libcomp/PrimitiveNode.st,v 1.10 1995-10-24 15:55:13 cg Exp $
-'!
-
!PrimitiveNode class methodsFor:'documentation'!
copyright
@@ -41,9 +34,7 @@
!
version
-"
-$Header: /cvs/stx/stx/libcomp/PrimitiveNode.st,v 1.10 1995-10-24 15:55:13 cg Exp $
-"
+ ^ '$Header: /cvs/stx/stx/libcomp/PrimitiveNode.st,v 1.11 1995-11-11 15:31:26 cg Exp $'
!
documentation
--- a/ProgNodeBldr.st Sun Nov 05 18:20:13 1995 +0100
+++ b/ProgNodeBldr.st Sat Nov 11 16:31:47 1995 +0100
@@ -17,13 +17,6 @@
category:'System-Compiler ST-80-compatibility'
!
-ProgramNodeBuilder comment:'
-COPYRIGHT (c) 1995 by Claus Gittinger
- All Rights Reserved
-
-$Header: /cvs/stx/stx/libcomp/Attic/ProgNodeBldr.st,v 1.3 1995-08-11 16:03:48 claus Exp $
-'!
-
!ProgramNodeBuilder class methodsFor:'documentation'!
copyright
@@ -41,9 +34,7 @@
!
version
-"
-$Header: /cvs/stx/stx/libcomp/Attic/ProgNodeBldr.st,v 1.3 1995-08-11 16:03:48 claus Exp $
-"
+ ^ '$Header: /cvs/stx/stx/libcomp/Attic/ProgNodeBldr.st,v 1.4 1995-11-11 15:31:29 cg Exp $'
!
documentation
--- a/ProgramNodeBuilder.st Sun Nov 05 18:20:13 1995 +0100
+++ b/ProgramNodeBuilder.st Sat Nov 11 16:31:47 1995 +0100
@@ -17,13 +17,6 @@
category:'System-Compiler ST-80-compatibility'
!
-ProgramNodeBuilder comment:'
-COPYRIGHT (c) 1995 by Claus Gittinger
- All Rights Reserved
-
-$Header: /cvs/stx/stx/libcomp/ProgramNodeBuilder.st,v 1.3 1995-08-11 16:03:48 claus Exp $
-'!
-
!ProgramNodeBuilder class methodsFor:'documentation'!
copyright
@@ -41,9 +34,7 @@
!
version
-"
-$Header: /cvs/stx/stx/libcomp/ProgramNodeBuilder.st,v 1.3 1995-08-11 16:03:48 claus Exp $
-"
+ ^ '$Header: /cvs/stx/stx/libcomp/ProgramNodeBuilder.st,v 1.4 1995-11-11 15:31:29 cg Exp $'
!
documentation
--- a/RetNode.st Sun Nov 05 18:20:13 1995 +0100
+++ b/RetNode.st Sat Nov 11 16:31:47 1995 +0100
@@ -17,13 +17,6 @@
category:'System-Compiler-Support'
!
-ReturnNode comment:'
-COPYRIGHT (c) 1989 by Claus Gittinger
- All Rights Reserved
-
-$Header: /cvs/stx/stx/libcomp/Attic/RetNode.st,v 1.11 1995-08-11 20:28:21 claus Exp $
-'!
-
!ReturnNode class methodsFor:'documentation'!
copyright
@@ -41,9 +34,7 @@
!
version
-"
-$Header: /cvs/stx/stx/libcomp/Attic/RetNode.st,v 1.11 1995-08-11 20:28:21 claus Exp $
-"
+ ^ '$Header: /cvs/stx/stx/libcomp/Attic/RetNode.st,v 1.12 1995-11-11 15:31:30 cg Exp $'
!
documentation
--- a/ReturnNode.st Sun Nov 05 18:20:13 1995 +0100
+++ b/ReturnNode.st Sat Nov 11 16:31:47 1995 +0100
@@ -17,13 +17,6 @@
category:'System-Compiler-Support'
!
-ReturnNode comment:'
-COPYRIGHT (c) 1989 by Claus Gittinger
- All Rights Reserved
-
-$Header: /cvs/stx/stx/libcomp/ReturnNode.st,v 1.11 1995-08-11 20:28:21 claus Exp $
-'!
-
!ReturnNode class methodsFor:'documentation'!
copyright
@@ -41,9 +34,7 @@
!
version
-"
-$Header: /cvs/stx/stx/libcomp/ReturnNode.st,v 1.11 1995-08-11 20:28:21 claus Exp $
-"
+ ^ '$Header: /cvs/stx/stx/libcomp/ReturnNode.st,v 1.12 1995-11-11 15:31:30 cg Exp $'
!
documentation
--- a/Scanner.st Sun Nov 05 18:20:13 1995 +0100
+++ b/Scanner.st Sat Nov 11 16:31:47 1995 +0100
@@ -31,13 +31,6 @@
category:'System-Compiler'
!
-Scanner comment:'
-COPYRIGHT (c) 1989 by Claus Gittinger
- All Rights Reserved
-
-$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.35 1995-09-14 23:31:09 claus Exp $
-'!
-
!Scanner class methodsFor:'documentation'!
copyright
@@ -55,9 +48,7 @@
!
version
-"
-$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.35 1995-09-14 23:31:09 claus Exp $
-"
+ ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.36 1995-11-11 15:31:34 cg Exp $'
!
documentation
--- a/SelfNode.st Sun Nov 05 18:20:13 1995 +0100
+++ b/SelfNode.st Sat Nov 11 16:31:47 1995 +0100
@@ -17,13 +17,6 @@
category:'System-Compiler-Support'
!
-SelfNode comment:'
-COPYRIGHT (c) 1994 by Claus Gittinger
- All Rights Reserved
-
-$Header: /cvs/stx/stx/libcomp/SelfNode.st,v 1.6 1995-08-11 20:28:27 claus Exp $
-'!
-
!SelfNode class methodsFor:'documentation'!
copyright
@@ -41,9 +34,7 @@
!
version
-"
-$Header: /cvs/stx/stx/libcomp/SelfNode.st,v 1.6 1995-08-11 20:28:27 claus Exp $
-"
+ ^ '$Header: /cvs/stx/stx/libcomp/SelfNode.st,v 1.7 1995-11-11 15:31:37 cg Exp $'
!
documentation
--- a/SourceFileLoader.st Sun Nov 05 18:20:13 1995 +0100
+++ b/SourceFileLoader.st Sat Nov 11 16:31:47 1995 +0100
@@ -22,9 +22,7 @@
!SourceFileLoader class methodsFor:'documentation'!
version
-"
-$Header: /cvs/stx/stx/libcomp/SourceFileLoader.st,v 1.7 1995-08-11 16:04:03 claus Exp $
-"
+ ^ '$Header: /cvs/stx/stx/libcomp/SourceFileLoader.st,v 1.8 1995-11-11 15:31:38 cg Exp $'
!
documentation
--- a/SrcFLoader.st Sun Nov 05 18:20:13 1995 +0100
+++ b/SrcFLoader.st Sat Nov 11 16:31:47 1995 +0100
@@ -22,9 +22,7 @@
!SourceFileLoader class methodsFor:'documentation'!
version
-"
-$Header: /cvs/stx/stx/libcomp/Attic/SrcFLoader.st,v 1.7 1995-08-11 16:04:03 claus Exp $
-"
+ ^ '$Header: /cvs/stx/stx/libcomp/Attic/SrcFLoader.st,v 1.8 1995-11-11 15:31:38 cg Exp $'
!
documentation
--- a/StatNode.st Sun Nov 05 18:20:13 1995 +0100
+++ b/StatNode.st Sat Nov 11 16:31:47 1995 +0100
@@ -17,13 +17,6 @@
category:'System-Compiler-Support'
!
-StatementNode comment:'
-COPYRIGHT (c) 1989 by Claus Gittinger
- All Rights Reserved
-
-$Header: /cvs/stx/stx/libcomp/Attic/StatNode.st,v 1.10 1995-08-11 20:28:31 claus Exp $
-'!
-
!StatementNode class methodsFor:'documentation'!
copyright
@@ -41,9 +34,7 @@
!
version
-"
-$Header: /cvs/stx/stx/libcomp/Attic/StatNode.st,v 1.10 1995-08-11 20:28:31 claus Exp $
-"
+ ^ '$Header: /cvs/stx/stx/libcomp/Attic/StatNode.st,v 1.11 1995-11-11 15:31:39 cg Exp $'
!
documentation
--- a/StatementNode.st Sun Nov 05 18:20:13 1995 +0100
+++ b/StatementNode.st Sat Nov 11 16:31:47 1995 +0100
@@ -17,13 +17,6 @@
category:'System-Compiler-Support'
!
-StatementNode comment:'
-COPYRIGHT (c) 1989 by Claus Gittinger
- All Rights Reserved
-
-$Header: /cvs/stx/stx/libcomp/StatementNode.st,v 1.10 1995-08-11 20:28:31 claus Exp $
-'!
-
!StatementNode class methodsFor:'documentation'!
copyright
@@ -41,9 +34,7 @@
!
version
-"
-$Header: /cvs/stx/stx/libcomp/StatementNode.st,v 1.10 1995-08-11 20:28:31 claus Exp $
-"
+ ^ '$Header: /cvs/stx/stx/libcomp/StatementNode.st,v 1.11 1995-11-11 15:31:39 cg Exp $'
!
documentation
--- a/SuperNode.st Sun Nov 05 18:20:13 1995 +0100
+++ b/SuperNode.st Sat Nov 11 16:31:47 1995 +0100
@@ -17,13 +17,6 @@
category:'System-Compiler-Support'
!
-SuperNode comment:'
-COPYRIGHT (c) 1994 by Claus Gittinger
- All Rights Reserved
-
-$Header: /cvs/stx/stx/libcomp/SuperNode.st,v 1.6 1995-08-11 16:04:10 claus Exp $
-'!
-
!SuperNode class methodsFor:'documentation'!
copyright
@@ -41,9 +34,7 @@
!
version
-"
-$Header: /cvs/stx/stx/libcomp/SuperNode.st,v 1.6 1995-08-11 16:04:10 claus Exp $
-"
+ ^ '$Header: /cvs/stx/stx/libcomp/SuperNode.st,v 1.7 1995-11-11 15:31:40 cg Exp $'
!
documentation
--- a/Switch.st Sun Nov 05 18:20:13 1995 +0100
+++ b/Switch.st Sat Nov 11 16:31:47 1995 +0100
@@ -1,6 +1,6 @@
"
COPYRIGHT (c) 1994 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
@@ -17,13 +17,6 @@
category:'System-Misc'
!
-Switch comment:'
-COPYRIGHT (c) 1994 by Claus Gittinger
- All Rights Reserved
-
-$Header: /cvs/stx/stx/libcomp/Switch.st,v 1.3 1995-08-11 16:04:13 claus Exp $
-'!
-
!Switch class methodsFor:'documentation'!
documentation
@@ -37,18 +30,18 @@
example:
- (Switch new)
- if:[a > b] then:['a is greater than b'];
- if:[a < b] then:['a is less than b'];
- otherwise:['a same as b';
- value
+ (Switch new)
+ if:[a > b] then:['a is greater than b'];
+ if:[a < b] then:['a is less than b'];
+ otherwise:['a same as b';
+ value
"
!
copyright
"
COPYRIGHT (c) 1994 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
@@ -60,9 +53,7 @@
!
version
-"
-$Header: /cvs/stx/stx/libcomp/Switch.st,v 1.3 1995-08-11 16:04:13 claus Exp $
-"
+ ^ '$Header: /cvs/stx/stx/libcomp/Switch.st,v 1.4 1995-11-11 15:31:41 cg Exp $'
! !
!Switch class methodsFor:'instance creation'!
@@ -86,9 +77,9 @@
value
1 to:expressions size do:[:index |
- (expressions at:index) value ifTrue:[
- ^ (values at:index) value
- ]
+ (expressions at:index) value ifTrue:[
+ ^ (values at:index) value
+ ]
].
^ default value
! !
--- a/UnaryNd.st Sun Nov 05 18:20:13 1995 +0100
+++ b/UnaryNd.st Sat Nov 11 16:31:47 1995 +0100
@@ -17,13 +17,6 @@
category:'System-Compiler-Support'
!
-UnaryNode comment:'
-COPYRIGHT (c) 1989 by Claus Gittinger
- All Rights Reserved
-
-$Header: /cvs/stx/stx/libcomp/Attic/UnaryNd.st,v 1.16 1995-08-19 01:44:18 claus Exp $
-'!
-
!UnaryNode class methodsFor:'documentation'!
copyright
@@ -41,9 +34,7 @@
!
version
-"
-$Header: /cvs/stx/stx/libcomp/Attic/UnaryNd.st,v 1.16 1995-08-19 01:44:18 claus Exp $
-"
+ ^ '$Header: /cvs/stx/stx/libcomp/Attic/UnaryNd.st,v 1.17 1995-11-11 15:31:42 cg Exp $'
!
documentation
--- a/UnaryNode.st Sun Nov 05 18:20:13 1995 +0100
+++ b/UnaryNode.st Sat Nov 11 16:31:47 1995 +0100
@@ -17,13 +17,6 @@
category:'System-Compiler-Support'
!
-UnaryNode comment:'
-COPYRIGHT (c) 1989 by Claus Gittinger
- All Rights Reserved
-
-$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.16 1995-08-19 01:44:18 claus Exp $
-'!
-
!UnaryNode class methodsFor:'documentation'!
copyright
@@ -41,9 +34,7 @@
!
version
-"
-$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.16 1995-08-19 01:44:18 claus Exp $
-"
+ ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.17 1995-11-11 15:31:42 cg Exp $'
!
documentation
--- a/UndefVar.st Sun Nov 05 18:20:13 1995 +0100
+++ b/UndefVar.st Sat Nov 11 16:31:47 1995 +0100
@@ -17,13 +17,6 @@
category:'System-Compiler-Support'
!
-UndefinedVariable comment:'
-COPYRIGHT (c) 1993 by Claus Gittinger
- All Rights Reserved
-
-$Header: /cvs/stx/stx/libcomp/Attic/UndefVar.st,v 1.7 1995-08-11 16:04:21 claus Exp $
-'!
-
!UndefinedVariable class methodsFor:'documentation'!
copyright
@@ -41,9 +34,7 @@
!
version
-"
-$Header: /cvs/stx/stx/libcomp/Attic/UndefVar.st,v 1.7 1995-08-11 16:04:21 claus Exp $
-"
+ ^ '$Header: /cvs/stx/stx/libcomp/Attic/UndefVar.st,v 1.8 1995-11-11 15:31:44 cg Exp $'
!
documentation
--- a/UndefinedVariable.st Sun Nov 05 18:20:13 1995 +0100
+++ b/UndefinedVariable.st Sat Nov 11 16:31:47 1995 +0100
@@ -17,13 +17,6 @@
category:'System-Compiler-Support'
!
-UndefinedVariable comment:'
-COPYRIGHT (c) 1993 by Claus Gittinger
- All Rights Reserved
-
-$Header: /cvs/stx/stx/libcomp/UndefinedVariable.st,v 1.7 1995-08-11 16:04:21 claus Exp $
-'!
-
!UndefinedVariable class methodsFor:'documentation'!
copyright
@@ -41,9 +34,7 @@
!
version
-"
-$Header: /cvs/stx/stx/libcomp/UndefinedVariable.st,v 1.7 1995-08-11 16:04:21 claus Exp $
-"
+ ^ '$Header: /cvs/stx/stx/libcomp/UndefinedVariable.st,v 1.8 1995-11-11 15:31:44 cg Exp $'
!
documentation
--- a/VarNode.st Sun Nov 05 18:20:13 1995 +0100
+++ b/VarNode.st Sat Nov 11 16:31:47 1995 +0100
@@ -17,13 +17,6 @@
category:'System-Compiler-Support'
!
-VariableNode comment:'
-COPYRIGHT (c) 1994 by Claus Gittinger
- All Rights Reserved
-
-$Header: /cvs/stx/stx/libcomp/Attic/VarNode.st,v 1.11 1995-09-07 12:07:16 claus Exp $
-'!
-
!VariableNode class methodsFor:'documentation'!
copyright
@@ -41,9 +34,7 @@
!
version
-"
-$Header: /cvs/stx/stx/libcomp/Attic/VarNode.st,v 1.11 1995-09-07 12:07:16 claus Exp $
-"
+ ^ '$Header: /cvs/stx/stx/libcomp/Attic/VarNode.st,v 1.12 1995-11-11 15:31:46 cg Exp $'
!
documentation
--- a/Variable.st Sun Nov 05 18:20:13 1995 +0100
+++ b/Variable.st Sat Nov 11 16:31:47 1995 +0100
@@ -1,6 +1,6 @@
"
COPYRIGHT (c) 1989 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
@@ -17,19 +17,12 @@
category:'System-Compiler-Support'
!
-Variable comment:'
-COPYRIGHT (c) 1989 by Claus Gittinger
- All Rights Reserved
-
-$Header: /cvs/stx/stx/libcomp/Variable.st,v 1.8 1995-08-11 16:04:27 claus Exp $
-'!
-
!Variable class methodsFor:'documentation'!
copyright
"
COPYRIGHT (c) 1989 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
@@ -41,9 +34,7 @@
!
version
-"
-$Header: /cvs/stx/stx/libcomp/Variable.st,v 1.8 1995-08-11 16:04:27 claus Exp $
-"
+ ^ '$Header: /cvs/stx/stx/libcomp/Variable.st,v 1.9 1995-11-11 15:31:47 cg Exp $'
!
documentation
--- a/VariableNode.st Sun Nov 05 18:20:13 1995 +0100
+++ b/VariableNode.st Sat Nov 11 16:31:47 1995 +0100
@@ -17,13 +17,6 @@
category:'System-Compiler-Support'
!
-VariableNode comment:'
-COPYRIGHT (c) 1994 by Claus Gittinger
- All Rights Reserved
-
-$Header: /cvs/stx/stx/libcomp/VariableNode.st,v 1.11 1995-09-07 12:07:16 claus Exp $
-'!
-
!VariableNode class methodsFor:'documentation'!
copyright
@@ -41,9 +34,7 @@
!
version
-"
-$Header: /cvs/stx/stx/libcomp/VariableNode.st,v 1.11 1995-09-07 12:07:16 claus Exp $
-"
+ ^ '$Header: /cvs/stx/stx/libcomp/VariableNode.st,v 1.12 1995-11-11 15:31:46 cg Exp $'
!
documentation