JavaClassReader.st
changeset 67 a72c949d86dd
parent 62 64723aa4c315
child 71 feb1b4907dd4
--- a/JavaClassReader.st	Tue Jun 25 08:16:11 1996 +0000
+++ b/JavaClassReader.st	Tue Jun 25 08:20:31 1996 +0000
@@ -45,6 +45,7 @@
     Verbose := aBoolean
 
     "
+     Java flushClasses.
      JavaClassReader verbose:true
      JavaClassReader verbose:false
     "
@@ -576,11 +577,13 @@
     constSlot := -1.
 
     1 to:constantPoolCount-1 do:[:i |
-        |const|
+        |const value|
 
         const := constants at:i.
         const notNil ifTrue:[   "/ kludge for 2-slot constants (which only take 1 slot in ST/X)
-            constants at:i put:(JavaUnresolvedConstant resolve:const from:constants).
+            value := JavaUnresolvedConstant resolve:const from:constants.
+value printCR.
+            constants at:i put:value.
         ]
     ].
 
@@ -1190,6 +1193,6 @@
 !JavaClassReader  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaClassReader.st,v 1.22 1996/06/24 15:10:41 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaClassReader.st,v 1.23 1996/06/25 08:15:32 cg Exp $'
 ! !
 JavaClassReader initialize!