equal
deleted
inserted
replaced
91 |
91 |
92 "Modified: 29.7.1997 / 17:38:35 / cg" |
92 "Modified: 29.7.1997 / 17:38:35 / cg" |
93 "Created: 29.7.1997 / 17:39:24 / cg" |
93 "Created: 29.7.1997 / 17:39:24 / cg" |
94 ! ! |
94 ! ! |
95 |
95 |
|
96 !JavaConstantPool methodsFor:'special'! |
|
97 |
|
98 updateClassRefsFrom:oldClass to:newClass |
|
99 self keysAndValuesDo:[:index :constItem | |
|
100 constItem == oldClass ifTrue:[ |
|
101 self at:index put:newClass |
|
102 ] ifFalse:[ |
|
103 constItem isNumber ifFalse:[ |
|
104 constItem isString ifTrue:[ |
|
105 "/ nothing done ... |
|
106 ] ifFalse:[ |
|
107 (constItem isMemberOf:(Java java_lang_String)) ifTrue:[ |
|
108 "/ nothing done ... |
|
109 ] ifFalse:[ |
|
110 constItem isJavaClass ifFalse:[ |
|
111 constItem updateClassRefsFrom:oldClass to:newClass |
|
112 ] |
|
113 ] |
|
114 ] |
|
115 ] |
|
116 ] |
|
117 ] |
|
118 |
|
119 "Modified: 7.8.1997 / 15:00:10 / cg" |
|
120 ! ! |
|
121 |
96 !JavaConstantPool class methodsFor:'documentation'! |
122 !JavaConstantPool class methodsFor:'documentation'! |
97 |
123 |
98 version |
124 version |
99 ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaConstantPool.st,v 1.3 1997/07/29 19:03:27 cg Exp $' |
125 ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaConstantPool.st,v 1.4 1997/08/07 13:19:09 cg Exp $' |
100 ! ! |
126 ! ! |