*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Thu, 11 Jan 2001 16:37:11 +0100
changeset 1140 40bb7432cea2
parent 1139 6ee1d0f53d8e
child 1141 87c9fb0b53e0
*** empty log message ***
Decompiler.st
--- a/Decompiler.st	Thu Jan 11 12:17:18 2001 +0100
+++ b/Decompiler.st	Thu Jan 11 16:37:11 2001 +0100
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libcomp' }"
+
 ByteCodeCompiler subclass:#Decompiler
 	instanceVariableNames:'hasLineNo bytes literals index listStream outputStream'
 	classVariableNames:''
@@ -636,7 +638,7 @@
                 retMarg2        " 175 "
                 pushClassInstVar
                 storeClassInstVar
-                nil
+                'send2 #value:value:'
                 not
                 sendSelf0       " 180 "
                 sendSelf1
@@ -879,7 +881,7 @@
                 false        " 175 "
                 false
                 false
-                false
+                true
                 true
                 true         " 180 "
                 true
@@ -1204,5 +1206,5 @@
 !Decompiler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Decompiler.st,v 1.32 1998-08-29 14:58:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Decompiler.st,v 1.33 2001-01-11 15:37:11 cg Exp $'
 ! !