JavaConstantPool.st
branchdevelopment
changeset 2992 732f9db2a195
parent 2976 a384a02381c0
child 3067 4bbacafb9592
--- a/JavaConstantPool.st	Thu Jan 30 23:40:39 2014 +0000
+++ b/JavaConstantPool.st	Fri Jan 31 09:19:51 2014 +0000
@@ -238,56 +238,6 @@
                 ifTrue: [ entry invalidate] ].
 
     "Created: / 13-05-2011 / 09:37:41 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
-!
-
-updateClassRefsFrom:oldClass to:newClass
-owner == oldClass ifTrue:[
-    self halt.
-    ^ self
-].
-
-    self keysAndValuesDo:[:index :constItem |
-        |nameIndex|
-
-        constItem == oldClass ifTrue:[
-            self at:index put:newClass
-        ] ifFalse:[
-            (constItem isNil
-            or:[constItem isNumber]) ifFalse:[
-                constItem isString ifTrue:[
-                    "/ nothing done ...
-                ] ifFalse:[
-                    (constItem isMemberOf:(Java java_lang_String)) ifTrue:[
-                        "/ nothing done ...
-                    ] ifFalse:[
-                        constItem isBehavior ifFalse:[
-                            constItem updateClassRefsFrom:oldClass to:newClass
-                        ] ifTrue:[
-                            constItem isJavaClass ifTrue:[
-                                constItem fullName = oldClass fullName ifTrue:[
-                                    'JAVA: class update by name [in pool].' infoPrintCR.
-                                    newClass isNil ifTrue:[
-                                        "/ mhm - must find a slot for the classes name
-                                        nameIndex := -1.
-                                        self 
-                                            at:index
-                                            put:(JavaUnresolvedClassConstant
-                                                    pool:self
-                                                    poolIndex:index
-                                                    nameIndex:nameIndex)
-                                    ] ifFalse:[
-                                        self at:index put:newClass
-                                    ]
-                                ]
-                            ]
-                        ]
-                    ]
-                ]
-            ]
-        ]
-    ]
-
-    "Modified: / 4.2.1998 / 22:12:03 / cg"
 ! !
 
 !JavaConstantPool class methodsFor:'documentation'!