--- a/Decomp.st Thu Oct 24 16:23:58 1996 +0200
+++ b/Decomp.st Thu Oct 24 16:59:01 1996 +0200
@@ -396,7 +396,25 @@
index := index + 1.
"/ listStream show:specialIndex printString.
listStream show:'#'.
- listStream show:(#(top bottom left right) at:specialIndex + 1)
+ listStream show:(#(
+ top
+ bottom
+ left
+ right
+
+ x
+ y
+ width
+ height
+ origin
+ extent
+
+ asInteger
+ rounded
+
+ next
+ peek
+ ) at:specialIndex + 1)
"Modified: 16.4.1996 / 20:28:55 / cg"
!
@@ -438,7 +456,7 @@
!
symbolicCodeFor:aByte
- |syms extras lnos|
+ |syms extras lnos sym|
syms := #( retTop " 0 "
retNil
@@ -546,10 +564,10 @@
storeMethodVar4
storeMethodVar5
storeMethodVar6 " 105 "
- sendY
- sendX
- sendWIDTH
- sendHEIGHT
+ nil
+ nil
+ nil
+ nil
storeInstVar1 " 110 "
storeInstVar2
storeInstVar3
@@ -589,17 +607,17 @@
sendGE
sendLT
sendLE
- sendNEXT
- sendPEEK " 150 "
+ nil
+ nil " 150 "
sendVALUE
sendVALUE1
sendSIZE
- sendORIGIN
- sendEXTENT " 155 "
+ nil
+ nil " 155 "
make0Block
makeNILBlock
- sendASINTEGER " 158 "
- sendROUNDED " 159 "
+ nil " 158 "
+ nil " 159 "
retMvar1 " 160 " "16rA0"
retMvar2
retMvar3
@@ -1169,8 +1187,14 @@
index " 240 "
).
- extra := extras at:(aByte + 1).
- hasLineNo := lnos at:(aByte + 1).
+ sym := syms at:(aByte + 1).
+ sym isNil ifTrue:[
+ extra := nil.
+ hasLineNo := nil.
+ ] ifFalse:[
+ extra := extras at:(aByte + 1).
+ hasLineNo := lnos at:(aByte + 1).
+ ].
^ syms at:(aByte + 1)
"Modified: 2.9.1995 / 00:12:11 / claus"
@@ -1180,5 +1204,5 @@
!Decompiler class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/Attic/Decomp.st,v 1.23 1996-10-21 15:53:12 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/Attic/Decomp.st,v 1.24 1996-10-24 14:59:01 cg Exp $'
! !