JavaDecompiler.st
changeset 701 4d62047c1358
parent 620 c19348d8e671
child 713 75e92ac63bf1
--- a/JavaDecompiler.st	Mon Dec 18 15:43:46 2000 +0000
+++ b/JavaDecompiler.st	Mon Dec 18 16:43:45 2000 +0000
@@ -11,6 +11,8 @@
 "
 
 
+"{ Package: 'stx:libjava' }"
+
 Object subclass:#JavaDecompiler
 	instanceVariableNames:'code pc javaMethod outStream classToCompileFor isStaticMethod
 		lastConstIndex lastConstant accessedInstvars modifiedInstvars
@@ -849,16 +851,23 @@
 !
 
 constIndexShort
+    |s|
+
     lastConstIndex := code wordAt:pc MSB:true.
     pc := pc + 2.
 
     lastConstant := javaMethod constantPool at:lastConstIndex ifAbsent:nil.
-
     outStream notNil ifTrue:[
+        s := (lastConstant ? '??') displayString.
+        s isString ifTrue:[
+            s bitsPerCharacter > 8 ifTrue:[
+                s := '...a 2-byte string...'
+            ]
+        ].
         outStream
             show:lastConstIndex; 
             show:' ['; 
-            show:(lastConstant ? '??') displayString; 
+            show:s; 
             show:'] '
     ]
 
@@ -1235,6 +1244,6 @@
 !JavaDecompiler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaDecompiler.st,v 1.47 1999/11/09 14:56:42 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaDecompiler.st,v 1.48 2000/12/18 16:43:45 cg Exp $'
 ! !
 JavaDecompiler initialize!