--- a/Java.st Fri Feb 06 00:33:06 1998 +0000
+++ b/Java.st Fri Feb 06 01:56:01 1998 +0000
@@ -690,21 +690,21 @@
self flushClasses.
ObjectMemory allObjectsDo:[:someObject |
- someObject isBehavior ifTrue:[
- someObject isJavaClass ifTrue:[
- someObject setConstantPool:nil.
- someObject setInterfaces:nil.
- someObject setMethodDictionary:(MethodDictionary new).
-someObject fullName printCR.
- ]
- ].
- (someObject isMemberOf:JavaMethod) ifTrue:[
- someObject setJavaClass:nil.
- someObject setExceptionTable:nil.
- ].
- (someObject isMemberOf:JavaUnresolvedClassConstant) ifTrue:[
- someObject constantPool:nil
- ].
+ someObject isBehavior ifTrue:[
+ someObject isJavaClass ifTrue:[
+ someObject setConstantPool:nil.
+ someObject setInterfaces:nil.
+ someObject setMethodDictionary:(MethodDictionary new).
+'JAVA [info]: flushing ' print. someObject fullName printCR.
+ ]
+ ].
+ (someObject isMemberOf:JavaMethod) ifTrue:[
+ someObject setJavaClass:nil.
+ someObject setExceptionTable:nil.
+ ].
+ (someObject isMemberOf:JavaUnresolvedClassConstant) ifTrue:[
+ someObject constantPool:nil
+ ].
].
self flushClasses
@@ -712,7 +712,7 @@
Java flushAllJavaResources
"
- "Modified: 7.4.1997 / 16:49:23 / cg"
+ "Modified: / 6.2.1998 / 02:25:16 / cg"
!
flushClasses
@@ -1041,6 +1041,6 @@
!Java class methodsFor:'documentation'!
version
- ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/Java.st,v 1.60 1998/02/05 11:13:14 cg Exp $'
+ ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/Java.st,v 1.61 1998/02/06 01:56:01 cg Exp $'
! !
Java initialize!