hg/stx-libjava: src/JavaConstantPool.st@b98b1cd769c0 (annotated)

752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1	"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	2	COPYRIGHT (c) 1997 by eXept Software AG
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	3	All Rights Reserved
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	4
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	5	This software is furnished under a license and may be used
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	6	only in accordance with the terms of that license and with the
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	7	inclusion of the above copyright notice. This software may not
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	8	be provided or otherwise made available to, or used by, any
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	9	other person. No title to or ownership of the software is
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	10	hereby transferred.
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	11	"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	12	"{ Package: 'stx:libjava' }"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	13
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	14	Array variableSubclass:#JavaConstantPool
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	15	instanceVariableNames:'owner'
757 b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	16	classVariableNames:'ConstantPools'
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	17	poolDictionaries:''
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	18	category:'Languages-Java-Reader-Support'
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	19	!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	20
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	21	!JavaConstantPool class methodsFor:'documentation'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	22
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	23	copyright
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	24	"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	25	COPYRIGHT (c) 1997 by eXept Software AG
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	26	All Rights Reserved
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	27
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	28	This software is furnished under a license and may be used
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	29	only in accordance with the terms of that license and with the
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	30	inclusion of the above copyright notice. This software may not
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	31	be provided or otherwise made available to, or used by, any
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	32	other person. No title to or ownership of the software is
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	33	hereby transferred.
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	34	"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	35
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	36
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	37	! !
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	38
757 b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	39	!JavaConstantPool class methodsFor:'initialization'!
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	40
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	41	initialize
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	42	ConstantPools := OrderedCollection new: 1000.
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	43
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	44	"Modified: / 08-04-2011 / 17:28:07 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	45	"Modified: / 09-04-2011 / 09:25:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	46	! !
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	47
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	48	!JavaConstantPool class methodsFor:'instance creation'!
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	49
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	50	new: size
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	51	"return an initialized instance"
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	52
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	53	^ ConstantPools add:
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	54	((super new: size)
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	55	initialize;
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	56	yourself)
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	57
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	58	"Created: / 08-04-2011 / 16:56:18 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	59	"Modified: / 09-04-2011 / 09:24:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	60	! !
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	61
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	62	!JavaConstantPool class methodsFor:'accessing'!
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	63
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	64	allConstantPools
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	65	"linked list of all constant pools in system"
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	66	^ ConstantPools.
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	67
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	68	"Created: / 08-04-2011 / 16:53:58 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	69	"Modified: / 09-04-2011 / 09:24:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	70	!
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	71
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	72	allConstantPools: aLinkedList
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	73	"linked list of all constant pools in system"
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	74
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	75	ConstantPools := aLinkedList.
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	76
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	77	"Created: / 08-04-2011 / 17:07:28 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	78	"Modified: / 09-04-2011 / 09:24:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	79	! !
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	80
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	81	!JavaConstantPool class methodsFor:'special'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	82
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	83	compressPools
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	84	"unify all constants"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	85
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	86	\|strings nameandTypes jStrings\|
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	87
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	88	strings := Set new.
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	89	nameandTypes := Set new.
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	90
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	91	self allInstancesDo:[:aPool \|
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	92	aPool keysAndValuesDo:[:idx :aConst \|
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	93	\|existing nt\|
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	94
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	95	aConst isString ifTrue:[
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	96	existing := strings elementAt:aConst ifAbsent:nil.
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	97	existing isNil ifTrue:[
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	98	strings add:aConst
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	99	] ifFalse:[
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	100	aPool at:idx put:existing
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	101	]
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	102	] ifFalse:[
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	103	(aConst isMemberOf:JavaFieldref) ifTrue:[
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	104	nt := aConst nameandType.
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	105	existing := nameandTypes elementAt:nt ifAbsent:nil.
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	106	existing isNil ifTrue:[
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	107	nameandTypes add:nt
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	108	] ifFalse:[
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	109	aConst nameandType:existing
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	110	]
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	111	] ifFalse:[
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	112	(aConst isMemberOf:JavaNameandType) ifTrue:[
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	113	existing := nameandTypes elementAt:aConst ifAbsent:nil.
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	114	existing isNil ifTrue:[
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	115	nameandTypes add:aConst
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	116	] ifFalse:[
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	117	aPool at:idx put:existing
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	118	]
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	119	]
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	120	]
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	121	]
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	122	].
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	123	]
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	124
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	125	"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	126	self compressPools
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	127	"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	128
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	129	"Modified: 19.8.1997 / 14:04:25 / cg"
757 b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	130	!
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	131
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	132	invalidateForClass: internalJavaClassName
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	133	"Only alias, everybody calls invalidateForClass so why not me :)"
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	134
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	135	^self invalidateReferencesToClass: internalJavaClassName.
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	136
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	137	"Created: / 08-04-2011 / 16:52:52 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	138	!
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	139
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	140	invalidateReferencesToClass: internalJavaClassName
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	141	"Go over all constant pools and call invalidateForClass on all references. (usable when given class was unloaded etc)"
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	142	allConstantPools do: [:each \| each invalidateForClass: internalJavaClassName].
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	143
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	144	"Created: / 08-04-2011 / 16:09:03 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	145	! !
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	146
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	147	!JavaConstantPool methodsFor:'accessing'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	148
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	149	owner
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	150	"return owner"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	151
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	152	^ owner
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	153
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	154	"Created: 28.6.1996 / 21:12:22 / cg"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	155	!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	156
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	157	owner:something
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	158	"set owner"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	159
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	160	owner := something.
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	161
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	162	"Created: 28.6.1996 / 21:12:22 / cg"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	163	! !
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	164
757 b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	165	!JavaConstantPool methodsFor:'initialization'!
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	166
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	167	initialize
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	168	"Invoked when a new instance is created."
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	169
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	170	"/ please change as required (and remove this comment)
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	171	"/ owner := nil.
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	172
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	173	"/ super initialize. -- commented since inherited method does nothing
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	174	! !
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	175
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	176	!JavaConstantPool methodsFor:'printing & storing'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	177
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	178	displayString
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	179	owner isNil ifTrue:[
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	180	^ '*** unowned ConstantPool'
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	181	].
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	182	^ 'ConstantPool of ' , owner fullName
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	183
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	184	"Created: 28.6.1996 / 21:13:41 / cg"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	185	"Modified: 28.6.1996 / 21:20:26 / cg"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	186	! !
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	187
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	188	!JavaConstantPool methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	189
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	190	refersToMethod:aJavaMethod
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	191	self do:[:constItem \|
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	192	(constItem == aJavaMethod) ifTrue:[^ true].
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	193	(constItem isMemberOf:JavaMethodref) ifTrue:[
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	194	self halt.
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	195	].
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	196	(constItem isMemberOf:JavaUnresolvedMethodrefConstant) ifTrue:[
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	197	self halt.
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	198	]
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	199	].
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	200	^ false
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	201
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	202	"Modified: 29.7.1997 / 17:36:49 / cg"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	203	"Created: 29.7.1997 / 17:39:19 / cg"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	204	!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	205
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	206	refersToMethodNamed:aJavaMethodName
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	207	self do:[:constItem \|
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	208	(constItem isKindOf:JavaMethod) ifTrue:[
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	209	constItem name = aJavaMethodName ifTrue:[^ true].
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	210	] ifFalse:[
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	211	(constItem isMemberOf:JavaMethodref) ifTrue:[
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	212	constItem name = aJavaMethodName ifTrue:[^ true].
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	213	].
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	214	(constItem isMemberOf:JavaUnresolvedMethodrefConstant) ifTrue:[
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	215	self halt.
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	216	]
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	217	]
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	218	].
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	219	^ false
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	220
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	221	"Created: / 29.7.1997 / 17:39:24 / cg"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	222	"Modified: / 16.10.1998 / 01:22:02 / cg"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	223	! !
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	224
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	225	!JavaConstantPool methodsFor:'special'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	226
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	227	classReferencesDo:aBlock
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	228	self do:[:constItem \|
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	229	constItem isJavaClass ifTrue:[
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	230	aBlock value:constItem
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	231	]
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	232	]
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	233
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	234	"Modified: / 7.8.1997 / 19:17:38 / cg"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	235	"Created: / 4.1.1998 / 00:40:11 / cg"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	236	!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	237
757 b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	238	invalidateForClass: internalJavaClassName
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	239	"go over all entries and call invalidateForClass on all references"
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	240
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	241	self do: [:entry \| entry isJavaRef ifTrue:[entry invalidateForClass: internalJavaClassName]].
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	242
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	243	"Created: / 08-04-2011 / 16:11:36 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	244	!
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	245
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	246	updateClassRefsFrom:oldClass to:newClass
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	247	owner == oldClass ifTrue:[
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	248	self halt.
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	249	^ self
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	250	].
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	251
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	252	self keysAndValuesDo:[:index :constItem \|
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	253	\|nameIndex\|
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	254
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	255	constItem == oldClass ifTrue:[
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	256	self at:index put:newClass
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	257	] ifFalse:[
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	258	(constItem isNil
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	259	or:[constItem isNumber]) ifFalse:[
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	260	constItem isString ifTrue:[
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	261	"/ nothing done ...
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	262	] ifFalse:[
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	263	(constItem isMemberOf:(Java java_lang_String)) ifTrue:[
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	264	"/ nothing done ...
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	265	] ifFalse:[
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	266	constItem isBehavior ifFalse:[
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	267	constItem updateClassRefsFrom:oldClass to:newClass
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	268	] ifTrue:[
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	269	constItem isJavaClass ifTrue:[
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	270	constItem fullName = oldClass fullName ifTrue:[
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	271	'JAVA: class update by name [in pool].' infoPrintCR.
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	272	newClass isNil ifTrue:[
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	273	"/ mhm - must find a slot for the classes name
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	274	nameIndex := -1.
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	275	self
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	276	at:index
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	277	put:(JavaUnresolvedClassConstant
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	278	pool:self
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	279	poolIndex:index
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	280	nameIndex:nameIndex)
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	281	] ifFalse:[
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	282	self at:index put:newClass
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	283	]
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	284	]
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	285	]
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	286	]
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	287	]
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	288	]
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	289	]
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	290	]
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	291	]
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	292
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	293	"Modified: / 4.2.1998 / 22:12:03 / cg"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	294	! !
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	295
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	296	!JavaConstantPool class methodsFor:'documentation'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	297
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	298	version
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	299	^ '$Id$'
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	300	!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	301
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	302	version_SVN
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	303	^ '$Id$'
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	304	! !
757 b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	305
b98b1cd769c0 JavaConstantPool: bug fix: JavaConstanPool new: size did not return a constant pool vranyj1 parents: 752 diff changeset	306	JavaConstantPool initialize!

author	vranyj1
	Sat, 09 Apr 2011 07:28:53 +0000
branch	jk_new_structure
changeset 757	b98b1cd769c0
parent 752	ff7bc6428c9c
child 758	be8e84381ce0
permissions	-rw-r--r--