Java.st
changeset 318 8720093188f7
parent 313 e2488feeb885
child 324 f92b236baea5
--- 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!