JavaByteCodeDisassembler.st
branchcvs_MAIN
changeset 3386 ddcff50a1fdc
parent 3360 1a8899091305
parent 3383 858b2f40ce91
child 3412 df11bb428463
--- a/JavaByteCodeDisassembler.st	Fri Feb 20 19:52:09 2015 +0100
+++ b/JavaByteCodeDisassembler.st	Mon Mar 02 17:50:49 2015 +0100
@@ -20,6 +20,8 @@
 "
 "{ Package: 'stx:libjava' }"
 
+"{ NameSpace: Smalltalk }"
+
 JavaByteCodeProcessor subclass:#JavaByteCodeDisassembler
 	instanceVariableNames:'outStream placeholders format lastLno'
 	classVariableNames:'StandardFormat ExtendedFormat'
@@ -1345,6 +1347,19 @@
     "Modified: / 20-03-2011 / 20:29:20 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
 !
 
+invdynamic
+    | index |
+
+    index := self fetchIndex2.
+    pc := pc + 2.
+    self 
+        writeInstructionWithArgs: (self prettyPrintIndex: index)                 
+        stackBefore: self objRef , self sep , self varArgs
+        after: self whatever.
+
+    "Created: / 25-02-2015 / 19:37:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 invinterface
     self 
         writeInstructionWithArgs: (self prettyPrintIndex: self fetchIndex2) , self sep , ( self prettyPrintByte: self fetchByte) , self sep , 0 printString
@@ -1355,13 +1370,13 @@
 !
 
 invnonvirt
-self 
-        writeInstructionWithArgs: (self prettyPrintIndex: self fetchIndex2) 
-                
+    self 
+        writeInstructionWithArgs: (self prettyPrintIndex: self fetchIndex2)                 
         stackBefore: self objRef , self sep , self varArgs
         after: self whatever.
 
     "Modified: / 20-03-2011 / 21:17:35 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
+    "Modified (format): / 25-02-2015 / 19:36:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 invstatic
@@ -1852,7 +1867,7 @@
 !JavaByteCodeDisassembler class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libjava/JavaByteCodeDisassembler.st,v 1.7 2015-01-28 02:10:49 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libjava/JavaByteCodeDisassembler.st,v 1.8 2015-03-02 16:50:49 vrany Exp $'
 !
 
 version_HG