Decomp.st
changeset 401 f85fe04ce607
parent 384 92c963b7922b
child 408 d36f5c1c6686
--- 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 $'
 ! !