--- a/Decomp.st Fri Oct 11 20:26:37 1996 +0200
+++ b/Decomp.st Sat Oct 12 19:58:07 1996 +0200
@@ -253,17 +253,6 @@
index := index + 2
!
-showLiteral16Skip6:byte
- |litIndex|
-
- litIndex := bytes wordAt:index MSB:false.
- index := index + 2.
- listStream show:(literals at:litIndex) printString.
- index := index + 6
-
- "Modified: 16.4.1996 / 20:28:23 / cg"
-!
-
showLiteral:byte
index := index + 1.
self showLit:byte
@@ -276,14 +265,6 @@
self showLit:offs
!
-showLiteralSkip6:byte
- index := index + 1.
- listStream show:(literals at:byte) printString.
- index := index + 6
-
- "Modified: 16.4.1996 / 20:28:27 / cg"
-!
-
showLongOffset:byte
|offs|
@@ -493,7 +474,7 @@
storeBlockVar
storeInstVar
storeClassVar " 40 "
- storeGlobal
+ storeGlobal
pushOuterBlockArg
pushOuter1BlockArg
pushOuter2BlockArg
@@ -973,13 +954,13 @@
index
index
instvarIndex
- literalSkip6 " 35 "
- literalSkip6
+ literal " 35 "
+ literal
index
index
instvarIndex
- literalSkip6 " 40 "
- literalSkip6
+ literal " 40 "
+ literal
indexLevel
index
index
@@ -1156,8 +1137,8 @@
nil " 215 "
nil
nil
- literal16Skip6
- literal16Skip6
+ literal16
+ literal16
nil " 220 "
nil
lit1
@@ -1192,5 +1173,5 @@
!Decompiler class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/Attic/Decomp.st,v 1.20 1996-10-02 14:44:21 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/Attic/Decomp.st,v 1.21 1996-10-12 17:57:56 cg Exp $'
! !