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