--- 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!