hg/stx-libjava: JavaMethod.st@cedb88626902 (annotated)

454 38f590639d65 * empty log message * cg parents: 449 diff changeset	1	"
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2	COPYRIGHT (c) 1996-2011 by Claus Gittinger
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	3
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	4	New code and modifications done at SWING Research Group [1]:
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	5
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	6	COPYRIGHT (c) 2010-2011 by Jan Vrany, Jan Kurs and Marcel Hlopko
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	7	SWING Research Group, Czech Technical University in Prague
454 38f590639d65 * empty log message * cg parents: 449 diff changeset	8
38f590639d65 * empty log message * cg parents: 449 diff changeset	9	This software is furnished under a license and may be used
38f590639d65 * empty log message * cg parents: 449 diff changeset	10	only in accordance with the terms of that license and with the
38f590639d65 * empty log message * cg parents: 449 diff changeset	11	inclusion of the above copyright notice. This software may not
38f590639d65 * empty log message * cg parents: 449 diff changeset	12	be provided or otherwise made available to, or used by, any
38f590639d65 * empty log message * cg parents: 449 diff changeset	13	other person. No title to or ownership of the software is
38f590639d65 * empty log message * cg parents: 449 diff changeset	14	hereby transferred.
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	15
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	16	[1] Code written at SWING Research Group contains a signature
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	17	of one of the above copright owners. For exact set of such code,
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	18	see the differences between this version and version stx:libjava
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	19	as of 1.9.2010
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	20	"
678 0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	21	"{ Package: 'stx:libjava' }"
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	22
2551 6b1262d7f5a0 class: JavaMethod Claus Gittinger <cg@exept.de> parents: 2396 diff changeset	23	CompiledCode variableSubclass:#JavaMethod
2160 15a9de58bf7d changed: #rationale Claus Gittinger <cg@exept.de> parents: 2158 diff changeset	24	instanceVariableNames:'accessFlags selector javaClass descriptor signature lookupObject
15a9de58bf7d changed: #rationale Claus Gittinger <cg@exept.de> parents: 2158 diff changeset	25	lineNumberTable localVariableTable sourceLineNumber annotations'
15a9de58bf7d changed: #rationale Claus Gittinger <cg@exept.de> parents: 2158 diff changeset	26	classVariableNames:'AbstractMethodInvokationSignal SignatureTypeCodes
15a9de58bf7d changed: #rationale Claus Gittinger <cg@exept.de> parents: 2158 diff changeset	27	ForceByteCodeDisplay UnresolvedClassSignal A_PUBLIC A_PRIVATE
15a9de58bf7d changed: #rationale Claus Gittinger <cg@exept.de> parents: 2158 diff changeset	28	A_PROTECTED A_STATIC A_FINAL A_SYNCHRONIZED A_ABSTRACT A_NATIVE
15a9de58bf7d changed: #rationale Claus Gittinger <cg@exept.de> parents: 2158 diff changeset	29	A_BREAKPOINT R_VOID R_LONG R_DOUBLE A_HASHANDLER A_BRIDGE
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	30	A_VARARGS A_STRICT A_SYNTHETIC A_RESOLVED A_HASFINALLY'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	31	poolDictionaries:'JavaConstants'
2160 15a9de58bf7d changed: #rationale Claus Gittinger <cg@exept.de> parents: 2158 diff changeset	32	category:'Languages-Java-Classes'
2 91843ac44d2f intitial checkin cg parents: diff changeset	33	!
91843ac44d2f intitial checkin cg parents: diff changeset	34
454 38f590639d65 * empty log message * cg parents: 449 diff changeset	35	!JavaMethod class methodsFor:'documentation'!
38f590639d65 * empty log message * cg parents: 449 diff changeset	36
38f590639d65 * empty log message * cg parents: 449 diff changeset	37	copyright
38f590639d65 * empty log message * cg parents: 449 diff changeset	38	"
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	39	COPYRIGHT (c) 1996-2011 by Claus Gittinger
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	40
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	41	New code and modifications done at SWING Research Group [1]:
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	42
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	43	COPYRIGHT (c) 2010-2011 by Jan Vrany, Jan Kurs and Marcel Hlopko
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	44	SWING Research Group, Czech Technical University in Prague
454 38f590639d65 * empty log message * cg parents: 449 diff changeset	45
38f590639d65 * empty log message * cg parents: 449 diff changeset	46	This software is furnished under a license and may be used
38f590639d65 * empty log message * cg parents: 449 diff changeset	47	only in accordance with the terms of that license and with the
38f590639d65 * empty log message * cg parents: 449 diff changeset	48	inclusion of the above copyright notice. This software may not
38f590639d65 * empty log message * cg parents: 449 diff changeset	49	be provided or otherwise made available to, or used by, any
38f590639d65 * empty log message * cg parents: 449 diff changeset	50	other person. No title to or ownership of the software is
38f590639d65 * empty log message * cg parents: 449 diff changeset	51	hereby transferred.
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	52
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	53	[1] Code written at SWING Research Group contains a signature
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	54	of one of the above copright owners. For exact set of such code,
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	55	see the differences between this version and version stx:libjava
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	56	as of 1.9.2010
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	57
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	58	"
454 38f590639d65 * empty log message * cg parents: 449 diff changeset	59	! !
2 91843ac44d2f intitial checkin cg parents: diff changeset	60
129 f40775af59a5 checkin from browser cg parents: 127 diff changeset	61	!JavaMethod class methodsFor:'initialization'!
8 4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	62
4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	63	initialize
277 511c3bb153b7 jdk1.2 stuff. cg parents: 275 diff changeset	64	AbstractMethodInvokationSignal isNil ifTrue:[
2114 cbdc4c02a8e2 ExecutionErrorSignal -> ExecutionError Claus Gittinger <cg@exept.de> parents: 2110 diff changeset	65	AbstractMethodInvokationSignal := ExecutionError newSignalMayProceed:true.
594 0d5fea9542d3 checkin from browser cg parents: 525 diff changeset	66	AbstractMethodInvokationSignal nameClass:self message:#abstractMethodInvokationSignal.
0d5fea9542d3 checkin from browser cg parents: 525 diff changeset	67	AbstractMethodInvokationSignal notifierString:'attempt to execute abstract method'.
0d5fea9542d3 checkin from browser cg parents: 525 diff changeset	68
2114 cbdc4c02a8e2 ExecutionErrorSignal -> ExecutionError Claus Gittinger <cg@exept.de> parents: 2110 diff changeset	69	UnresolvedClassSignal := ExecutionError newSignalMayProceed:true.
594 0d5fea9542d3 checkin from browser cg parents: 525 diff changeset	70	UnresolvedClassSignal nameClass:self message:#unresolvedClassSignal.
0d5fea9542d3 checkin from browser cg parents: 525 diff changeset	71	UnresolvedClassSignal notifierString:'unresolved class'.
277 511c3bb153b7 jdk1.2 stuff. cg parents: 275 diff changeset	72	].
511c3bb153b7 jdk1.2 stuff. cg parents: 275 diff changeset	73
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	74	A_PUBLIC := 16r0001.
04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	75	A_PRIVATE := 16r0002.
04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	76	A_PROTECTED := 16r0004.
04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	77	A_STATIC := 16r0008.
04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	78	A_FINAL := 16r0010.
04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	79	A_SYNCHRONIZED := 16r0020.
2145 0df96de83547 * empty log message * Claus Gittinger <cg@exept.de> parents: 2114 diff changeset	80	A_BRIDGE := 16r0040.
0df96de83547 * empty log message * Claus Gittinger <cg@exept.de> parents: 2114 diff changeset	81	A_VARARGS := 16r0080.
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	82	A_NATIVE := 16r0100.
04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	83	A_ABSTRACT := 16r0400.
2145 0df96de83547 * empty log message * Claus Gittinger <cg@exept.de> parents: 2114 diff changeset	84	A_STRICT := 16r0800.
0df96de83547 * empty log message * Claus Gittinger <cg@exept.de> parents: 2114 diff changeset	85	A_SYNTHETIC := 16r1000.
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	86
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	87	R_VOID := 16r01000000.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	88	R_LONG := 16r02000000.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	89	R_DOUBLE := 16r04000000.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	90
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	91	A_BREAKPOINT := 16r10000000.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	92	A_HASHANDLER := 16r20000000.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	93	A_HASFINALLY := 16r00004000.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	94	A_RESOLVED := 16r00000200.
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	95
173 10513c48882f checkin from browser cg parents: 169 diff changeset	96	self flags:(self flags bitOr:Behavior flagJavaMethod).
10513c48882f checkin from browser cg parents: 169 diff changeset	97
8 4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	98	SignatureTypeCodes := IdentityDictionary new.
4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	99	SignatureTypeCodes at:$B put:#byte.
4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	100	SignatureTypeCodes at:$C put:#char.
4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	101	SignatureTypeCodes at:$D put:#double.
4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	102	SignatureTypeCodes at:$F put:#float.
4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	103	SignatureTypeCodes at:$I put:#int.
4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	104	SignatureTypeCodes at:$J put:#long.
4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	105	SignatureTypeCodes at:$S put:#'unsigned short'.
4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	106	SignatureTypeCodes at:$Z put:#boolean.
4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	107	SignatureTypeCodes at:$L put:#object.
4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	108	SignatureTypeCodes at:$[ put:#array.
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	109	SignatureTypeCodes at:$T put:#typevar.
8 4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	110
207 dfbd9b69a64e checkin from browser cg parents: 189 diff changeset	111	ForceByteCodeDisplay := false.
dfbd9b69a64e checkin from browser cg parents: 189 diff changeset	112
8 4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	113	"
378 a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	114	JavaMethod initialize.
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	115	JavaMethodWithHandler initialize.
209 9e4b45da1117 checkin from browser cg parents: 207 diff changeset	116	ForceByteCodeDisplay := true.
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	117	ForceByteCodeDisplay := false.
8 4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	118	"
173 10513c48882f checkin from browser cg parents: 169 diff changeset	119
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	120	"Modified: / 16-10-1998 / 01:29:48 / cg"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	121	"Modified: / 28-03-2012 / 20:34:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	122	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	123
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	124	reinitialize
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	125
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	126	self flags:(self flags bitOr:Behavior flagJavaMethod).
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	127
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	128	"Created: / 14-12-2010 / 20:58:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
378 a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	129	! !
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	130
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	131	!JavaMethod class methodsFor:'instance creation'!
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	132
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	133	fromMethod:aJavaMethod
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	134	"create a new javaMethod, copying values from another javaMethod"
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	135
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	136	^ self new fromMethod:aJavaMethod
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	137
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	138	"Created: / 16.10.1998 / 01:25:12 / cg"
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	139	!
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	140
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	141	new
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	142	"create a new javaMethod.
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	143	Redefined, since constants are NOT stored in a literalArray,
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	144	but my classes constantTable instead."
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	145
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	146	^ self basicNew:0.
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	147
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	148	"Created: / 16.10.1998 / 01:13:02 / cg"
277 511c3bb153b7 jdk1.2 stuff. cg parents: 275 diff changeset	149	! !
511c3bb153b7 jdk1.2 stuff. cg parents: 275 diff changeset	150
511c3bb153b7 jdk1.2 stuff. cg parents: 275 diff changeset	151	!JavaMethod class methodsFor:'Signal constants'!
511c3bb153b7 jdk1.2 stuff. cg parents: 275 diff changeset	152
511c3bb153b7 jdk1.2 stuff. cg parents: 275 diff changeset	153	abstractMethodInvokationSignal
511c3bb153b7 jdk1.2 stuff. cg parents: 275 diff changeset	154	"return the signal raised when an abstract method is invoked"
511c3bb153b7 jdk1.2 stuff. cg parents: 275 diff changeset	155
511c3bb153b7 jdk1.2 stuff. cg parents: 275 diff changeset	156	^ AbstractMethodInvokationSignal
511c3bb153b7 jdk1.2 stuff. cg parents: 275 diff changeset	157
511c3bb153b7 jdk1.2 stuff. cg parents: 275 diff changeset	158	"Created: / 27.1.1998 / 21:50:05 / cg"
594 0d5fea9542d3 checkin from browser cg parents: 525 diff changeset	159	!
0d5fea9542d3 checkin from browser cg parents: 525 diff changeset	160
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	161	r_double
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	162	^R_DOUBLE
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	163
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	164	"Created: / 15-10-2012 / 23:21:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	165	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	166
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	167	r_long
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	168	^R_LONG
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	169
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	170	"Created: / 15-10-2012 / 23:20:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	171	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	172
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	173	r_void
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	174	^R_VOID
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	175
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	176	"Created: / 15-10-2012 / 23:20:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	177	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	178
594 0d5fea9542d3 checkin from browser cg parents: 525 diff changeset	179	unresolvedClassSignal
0d5fea9542d3 checkin from browser cg parents: 525 diff changeset	180	"return the signal raised when an unresolved class is referenced"
0d5fea9542d3 checkin from browser cg parents: 525 diff changeset	181
0d5fea9542d3 checkin from browser cg parents: 525 diff changeset	182	^ UnresolvedClassSignal
0d5fea9542d3 checkin from browser cg parents: 525 diff changeset	183
0d5fea9542d3 checkin from browser cg parents: 525 diff changeset	184	"Created: / 27.1.1998 / 21:50:05 / cg"
8 4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	185	! !
4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	186
169 269f334e9f34 * empty log message * cg parents: 168 diff changeset	187	!JavaMethod class methodsFor:'misc'!
269f334e9f34 * empty log message * cg parents: 168 diff changeset	188
269f334e9f34 * empty log message * cg parents: 168 diff changeset	189	forceByteCodeDisplay
269f334e9f34 * empty log message * cg parents: 168 diff changeset	190	^ ForceByteCodeDisplay
269f334e9f34 * empty log message * cg parents: 168 diff changeset	191
269f334e9f34 * empty log message * cg parents: 168 diff changeset	192	"Created: 7.4.1997 / 20:11:39 / cg"
309 e1bfd26cadae * empty log message * cg parents: 277 diff changeset	193	!
e1bfd26cadae * empty log message * cg parents: 277 diff changeset	194
e1bfd26cadae * empty log message * cg parents: 277 diff changeset	195	forceByteCodeDisplay:aBoolean
e1bfd26cadae * empty log message * cg parents: 277 diff changeset	196	ForceByteCodeDisplay := aBoolean
e1bfd26cadae * empty log message * cg parents: 277 diff changeset	197
e1bfd26cadae * empty log message * cg parents: 277 diff changeset	198	"
e1bfd26cadae * empty log message * cg parents: 277 diff changeset	199	self forceByteCodeDisplay:true
e1bfd26cadae * empty log message * cg parents: 277 diff changeset	200	self forceByteCodeDisplay:false
e1bfd26cadae * empty log message * cg parents: 277 diff changeset	201	"
e1bfd26cadae * empty log message * cg parents: 277 diff changeset	202
e1bfd26cadae * empty log message * cg parents: 277 diff changeset	203	"Created: / 4.2.1998 / 00:22:54 / cg"
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	204	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	205
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	206	makeJavaMethod
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	207
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	208	self flags:((self flags
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	209	bitOr:Behavior flagJavaMethod)
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	210	bitClear:Behavior flagMetaMethod)
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	211
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	212	"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	213	JavaMethod makeJavaMethod
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	214	JavaMethod makeMetaMethod
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	215	"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	216
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	217	"Created: / 23-02-2011 / 12:56:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	218	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	219
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	220	makeMetaMethod
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	221
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	222	self flags:((self flags
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	223	bitOr:Behavior flagMetaMethod)
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	224	bitClear:Behavior flagJavaMethod)
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	225	"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	226	JavaMethod makeJavaMethod
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	227	JavaMethod makeMetaMethod
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	228	"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	229
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	230	"Created: / 23-02-2011 / 12:56:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
169 269f334e9f34 * empty log message * cg parents: 168 diff changeset	231	! !
269f334e9f34 * empty log message * cg parents: 168 diff changeset	232
2578 fc6186a4961f Performance optimization: rewrote 'JavaVM classNamed:' to 'JavaVM classNamed:...definedBy:...'. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2566 diff changeset	233	!JavaMethod class methodsFor:'others'!
fc6186a4961f Performance optimization: rewrote 'JavaVM classNamed:' to 'JavaVM classNamed:...definedBy:...'. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2566 diff changeset	234
fc6186a4961f Performance optimization: rewrote 'JavaVM classNamed:' to 'JavaVM classNamed:...definedBy:...'. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2566 diff changeset	235	version_HG
fc6186a4961f Performance optimization: rewrote 'JavaVM classNamed:' to 'JavaVM classNamed:...definedBy:...'. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2566 diff changeset	236
fc6186a4961f Performance optimization: rewrote 'JavaVM classNamed:' to 'JavaVM classNamed:...definedBy:...'. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2566 diff changeset	237	^ '$Changeset: <not expanded> $'
fc6186a4961f Performance optimization: rewrote 'JavaVM classNamed:' to 'JavaVM classNamed:...definedBy:...'. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2566 diff changeset	238	! !
fc6186a4961f Performance optimization: rewrote 'JavaVM classNamed:' to 'JavaVM classNamed:...definedBy:...'. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2566 diff changeset	239
129 f40775af59a5 checkin from browser cg parents: 127 diff changeset	240	!JavaMethod class methodsFor:'signature parsing'!
5 f026f5d20c15 checkin from browser cg parents: 2 diff changeset	241
29 eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	242	argSigArrayFromSignature:aSignature
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	243	"given a signature, return a specArray for the arguments"
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	244
238 18c543cfe8ef * empty log message * cg parents: 237 diff changeset	245	\|s\|
29 eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	246
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	247	s := aSignature readStream.
237 4c9ca89313d4 * empty log message * cg parents: 220 diff changeset	248	s next ~~ $( ifTrue:[self halt].
29 eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	249
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	250	^ self argSigArrayFromStream:s.
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	251
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	252	"
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	253	JavaMethod argSigArrayFromSignature:'(LObject;)V'
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	254	JavaMethod argSigArrayFromSignature:'(BB)S'
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	255	JavaMethod argSigArrayFromSignature:'(LObject;LObject;II)V'
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	256	"
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	257	!
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	258
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	259	argSigArrayFromStream:s
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	260	"parse an argSpec, return an array of specs - see java doc"
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	261
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	262	\|argSpec spec\|
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	263
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	264	spec := #().
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	265	[s atEnd or:[s peek == $)]] whileFalse:[
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	266	"/ s peek == Character space ifTrue:[
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	267	"/ s next
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	268	"/ ] ifFalse:[
2158 cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	269	argSpec := self fieldTypeFromStream:s in:nil.
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	270	spec := spec copyWith:argSpec.
29 eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	271	"/ ]
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	272	].
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	273	^ spec
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	274
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	275	"Modified: / 8.1.1998 / 19:10:20 / cg"
29 eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	276	!
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	277
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	278	argSignatureFromArgTypeArray:arr
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	279	\| sig \|
321 1fc4570fb914 preps for getMethod nativeCall cg parents: 309 diff changeset	280
1fc4570fb914 preps for getMethod nativeCall cg parents: 309 diff changeset	281	sig := ''.
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	282	arr do:
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	283	[:el \|
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	284	\| jCLass \|
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	285
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	286	jCLass := el.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	287	jCLass isJavaClass
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	288	ifFalse:[ jCLass := JavaVM reflection classForJavaClassObject:el ].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	289	jCLass isJavaClass
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	290	ifTrue:
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	291	[ sig := sig , jCLass typeName.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	292	]
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	293	ifFalse:[ self halt. ] ].
322 567088a5a1b0 partial support for getMethod0 & invokeMethod. cg parents: 321 diff changeset	294	^ sig
321 1fc4570fb914 preps for getMethod nativeCall cg parents: 309 diff changeset	295
1fc4570fb914 preps for getMethod nativeCall cg parents: 309 diff changeset	296	"
1fc4570fb914 preps for getMethod nativeCall cg parents: 309 diff changeset	297	self argSignatureFromArgTypeArray:
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	298	(Array
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	299	with:(JavaVM javaClassObjectForClass:(Java at:'com.sun.java.swing.JComponent')))"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	300
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	301	"Modified: / 13-02-1998 / 14:57:58 / cg"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	302	"Modified: / 02-03-2011 / 22:49:24 / Marcel Hlopko <hlopik@gmail.com>"
321 1fc4570fb914 preps for getMethod nativeCall cg parents: 309 diff changeset	303	!
1fc4570fb914 preps for getMethod nativeCall cg parents: 309 diff changeset	304
113 481bf55e161e * empty log message * cg parents: 111 diff changeset	305	argSpecFromSignature:aSignature withName:name
481bf55e161e * empty log message * cg parents: 111 diff changeset	306	"given a signature, return a spec"
481bf55e161e * empty log message * cg parents: 111 diff changeset	307
238 18c543cfe8ef * empty log message * cg parents: 237 diff changeset	308	\|s argSpec\|
113 481bf55e161e * empty log message * cg parents: 111 diff changeset	309
481bf55e161e * empty log message * cg parents: 111 diff changeset	310	s := aSignature readStream.
481bf55e161e * empty log message * cg parents: 111 diff changeset	311	s next ~~ $( ifTrue:[self halt. ^ name].
481bf55e161e * empty log message * cg parents: 111 diff changeset	312
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	313	argSpec := self argSpecFromStream:s in:nil.
113 481bf55e161e * empty log message * cg parents: 111 diff changeset	314
481bf55e161e * empty log message * cg parents: 111 diff changeset	315	s next ~~ $) ifTrue:[self halt. ^ name].
481bf55e161e * empty log message * cg parents: 111 diff changeset	316
481bf55e161e * empty log message * cg parents: 111 diff changeset	317	^ name , ' (' , argSpec , ')'
481bf55e161e * empty log message * cg parents: 111 diff changeset	318
481bf55e161e * empty log message * cg parents: 111 diff changeset	319	"
481bf55e161e * empty log message * cg parents: 111 diff changeset	320	JavaMethod argSpecFromSignature:'(LObject;)V' withName:'foo'
481bf55e161e * empty log message * cg parents: 111 diff changeset	321	JavaMethod argSpecFromSignature:'(BB)S' withName:'foo'
481bf55e161e * empty log message * cg parents: 111 diff changeset	322	"
481bf55e161e * empty log message * cg parents: 111 diff changeset	323
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	324	"Modified: / 8.1.1998 / 19:05:36 / cg"
5 f026f5d20c15 checkin from browser cg parents: 2 diff changeset	325	!
f026f5d20c15 checkin from browser cg parents: 2 diff changeset	326
142 1cc00567fb75 * empty log message * cg parents: 141 diff changeset	327	argSpecFromStream:s in:aPackage
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	328	"parse an argSpec - see java doc"
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	329
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	330	\|argSpec spec\|
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	331
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	332	spec := ''.
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	333	[s atEnd or:[s peek == $)]] whileFalse:[
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	334	"/ s peek == Character space ifTrue:[
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	335	"/ s next
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	336	"/ ] ifFalse:[
2158 cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	337	argSpec := self fieldTypeFromStream:s in:aPackage.
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	338	spec size ~~ 0 ifTrue:[
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	339	spec := spec , ' '
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	340	].
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	341	spec := spec , argSpec.
142 1cc00567fb75 * empty log message * cg parents: 141 diff changeset	342	"/ ]
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	343	].
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	344	^ spec
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	345
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	346	"Created: 18.3.1997 / 11:06:44 / cg"
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	347	!
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	348
154 d51e897b4b5f checkin from browser cg parents: 149 diff changeset	349	argSpecWithArgsFromStream:s in:aPackage
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	350	"parse an argSpec - see java doc"
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	351
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	352	^ self argSpecWithArgsFromStream:s in:aPackage argNames:nil
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	353
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	354	"Modified: / 8.1.1998 / 19:21:00 / cg"
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	355	!
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	356
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	357	argSpecWithArgsFromStream:s in:aPackage argNames:argNames
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	358	"parse an argSpec - see java doc"
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	359
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	360	\|argSpec spec argNr nm\|
154 d51e897b4b5f checkin from browser cg parents: 149 diff changeset	361
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	362	argNr := 1.
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	363	spec := ''.
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	364	[s atEnd or:[s peek == $)]] whileFalse:[
2158 cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	365	argSpec := self fieldTypeFromStream:s in:aPackage.
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	366
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	367	(argNames notNil
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	368	and:[argNames size >= argNr
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	369	and:[(nm := argNames at:argNr) notNil]]) ifFalse:[
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	370	nm := 'arg' , argNr printString.
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	371	].
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	372	argSpec := argSpec , ' ' , nm.
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	373
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	374	spec size ~~ 0 ifTrue:[
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	375	spec := spec , ', '
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	376	].
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	377	spec := spec , argSpec.
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	378
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	379	argNr := argNr + 1.
154 d51e897b4b5f checkin from browser cg parents: 149 diff changeset	380	].
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	381	^ spec
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	382
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	383	"Created: / 8.1.1998 / 19:20:36 / cg"
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	384	"Modified: / 8.1.1998 / 21:14:33 / cg"
8 4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	385	!
4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	386
142 1cc00567fb75 * empty log message * cg parents: 141 diff changeset	387	fieldTypeFromStream:s in:aPackage
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	388	"parse a fieldTypeSpec - see java doc"
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	389
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	390	\|typeChar typeSym elType size className nm out nangles \|
142 1cc00567fb75 * empty log message * cg parents: 141 diff changeset	391
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	392	typeChar := s next.
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	393
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	394	typeSym := SignatureTypeCodes at:typeChar ifAbsent:#unknown.
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	395
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	396	typeSym == #unknown ifTrue:[
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	397	^ typeSym
142 1cc00567fb75 * empty log message * cg parents: 141 diff changeset	398	].
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	399	(typeSym == #object or: [typeSym == #typevar]) ifTrue:[
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	400	"Take care about type variables"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	401	out := String new writeStream.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	402	[ s peek ~~ $; and:[ s peek ~~ $< ] ] whileTrue:[
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	403	out nextPut: s next.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	404	].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	405	className := out contents.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	406	"Eat possible type variables"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	407	(s peek == $<) ifTrue:[
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	408	nangles := 1. s next.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	409	[ nangles ~~ 0 ] whileTrue:[
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	410	s peek == $< ifTrue:[nangles := nangles + 1].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	411	s peek == $> ifTrue:[nangles := nangles - 1].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	412	s next.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	413	]
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	414	].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	415	s peek ~~ $; ifTrue:[self error: 'Signature corrupted?'].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	416	s next. "/eat ;
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	417
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	418
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	419	typeSym == #typevar ifTrue:[^className].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	420	"/ strip off default
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	421	nm := className.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	422	aPackage notNil ifTrue:[
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	423	(nm startsWith:aPackage) ifTrue:[
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	424	nm := nm copyFrom:(aPackage size + 2).
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	425	].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	426	].
142 1cc00567fb75 * empty log message * cg parents: 141 diff changeset	427
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	428	nm := nm copyReplaceAll:$/ with:$..
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	429	^ nm
142 1cc00567fb75 * empty log message * cg parents: 141 diff changeset	430	].
189 babfb18fc67b signature parsing cg parents: 184 diff changeset	431
142 1cc00567fb75 * empty log message * cg parents: 141 diff changeset	432	typeSym == #array ifTrue:[
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	433	s peek isDigit ifTrue:[
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	434	size := Integer readFrom:s.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	435	elType := self fieldTypeFromStream:s in:aPackage.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	436	^ elType , '[' , size printString , ']'
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	437	].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	438	elType := self fieldTypeFromStream:s in:aPackage.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	439	^ elType , '[]'
142 1cc00567fb75 * empty log message * cg parents: 141 diff changeset	440	].
189 babfb18fc67b signature parsing cg parents: 184 diff changeset	441
142 1cc00567fb75 * empty log message * cg parents: 141 diff changeset	442	^ typeSym
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	443
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	444	"Created: / 18-03-1997 / 11:07:56 / cg"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	445	"Modified: / 18-07-1998 / 22:57:06 / cg"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	446	"Modified: / 13-08-2011 / 01:05:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
142 1cc00567fb75 * empty log message * cg parents: 141 diff changeset	447	!
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	448
27 4560bb77bb36 checkin from browser cg parents: 19 diff changeset	449	numArgsFromSignature:aSignature
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	450	"given a signature, return the number of args"
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	451
238 18c543cfe8ef * empty log message * cg parents: 237 diff changeset	452	\|s\|
27 4560bb77bb36 checkin from browser cg parents: 19 diff changeset	453
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	454	s := aSignature readStream.
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	455	(aSignature includes: $() ifFalse:[self error:'Invalid signature'].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	456	[s next ~~ $(] whileTrue.
27 4560bb77bb36 checkin from browser cg parents: 19 diff changeset	457
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	458	^ self numArgsFromStream:s.
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	459
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	460	"
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	461	JavaMethod numArgsFromSignature:'(LObject;)V'
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	462	JavaMethod numArgsFromSignature:'(BB)S'
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	463	JavaMethod numArgsFromSignature:'()V'
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	464	JavaMethod numArgsFromSignature:'(Ljava/util/ArrayList<*>;)V'
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	465	JavaMethod numArgsFromSignature:'(L)V'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	466
27 4560bb77bb36 checkin from browser cg parents: 19 diff changeset	467	"
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	468
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	469	"Modified (comment): / 12-10-2012 / 11:49:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
27 4560bb77bb36 checkin from browser cg parents: 19 diff changeset	470	!
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	471
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	472	numArgsFromStream:s
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	473	"parse an argSpec - see java doc"
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	474
238 18c543cfe8ef * empty log message * cg parents: 237 diff changeset	475	\|n t\|
27 4560bb77bb36 checkin from browser cg parents: 19 diff changeset	476
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	477	n := 0.
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	478	[s atEnd or:[s peek == $)]] whileFalse:[
2158 cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	479	t := self fieldTypeFromStream:s in:nil.
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	480	"/
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	481	"/ some args count as 2
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	482	"/
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	483	t == #long ifTrue:[
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	484	n := n + 2.
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	485	] ifFalse:[
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	486	t == #double ifTrue:[
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	487	n := n + 2
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	488	] ifFalse:[
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	489	n := n + 1.
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	490	]
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	491	]
27 4560bb77bb36 checkin from browser cg parents: 19 diff changeset	492	].
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	493	^ n
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	494
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	495	"Modified: / 8.1.1998 / 19:10:25 / cg"
29 eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	496	!
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	497
142 1cc00567fb75 * empty log message * cg parents: 141 diff changeset	498	retValSpecFromSignature:aSignature in:aPackage
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	499	"given a signature, return a spec"
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	500
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	501	\|s argSpec retvalSpec\|
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	502
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	503	s := aSignature readStream.
237 4c9ca89313d4 * empty log message * cg parents: 220 diff changeset	504	s next ~~ $( ifTrue:[self halt].
142 1cc00567fb75 * empty log message * cg parents: 141 diff changeset	505
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	506	argSpec := self argSpecFromStream:s in:aPackage.
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	507
237 4c9ca89313d4 * empty log message * cg parents: 220 diff changeset	508	s next ~~ $) ifTrue:[self halt].
142 1cc00567fb75 * empty log message * cg parents: 141 diff changeset	509
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	510	retvalSpec := self retvalSpecFromStream:s in:aPackage.
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	511
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	512	^ retvalSpec
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	513
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	514	"
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	515	JavaMethod retValSpecFromSignature:'(LObject;)V'
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	516	JavaMethod retValSpecFromSignature:'(BB)S'
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	517	"
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	518
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	519	"Created: 18.3.1997 / 11:11:50 / cg"
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	520	!
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	521
189 babfb18fc67b signature parsing cg parents: 184 diff changeset	522	returnTypeFromSignature:aSignature in:aPackage
babfb18fc67b signature parsing cg parents: 184 diff changeset	523	"given a signature, return its type as a string"
babfb18fc67b signature parsing cg parents: 184 diff changeset	524
238 18c543cfe8ef * empty log message * cg parents: 237 diff changeset	525	\|s c\|
189 babfb18fc67b signature parsing cg parents: 184 diff changeset	526
babfb18fc67b signature parsing cg parents: 184 diff changeset	527	s := aSignature readStream.
babfb18fc67b signature parsing cg parents: 184 diff changeset	528	(c := s peek) ~~ $( ifTrue:[
2158 cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	529	c == $' ifTrue:[
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	530	[s peek ~= $'] whileTrue:[s next].
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	531	s next.
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	532	^ (self retvalSpecFromStream:s in:aPackage)
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	533	].
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	534	^ (self retvalSpecFromStream:s in:aPackage)
189 babfb18fc67b signature parsing cg parents: 184 diff changeset	535	].
babfb18fc67b signature parsing cg parents: 184 diff changeset	536
babfb18fc67b signature parsing cg parents: 184 diff changeset	537	s next.
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	538	self argSpecFromStream:s in:aPackage.
189 babfb18fc67b signature parsing cg parents: 184 diff changeset	539	s next ~~ $) ifTrue:[self halt. ^ nil].
babfb18fc67b signature parsing cg parents: 184 diff changeset	540
babfb18fc67b signature parsing cg parents: 184 diff changeset	541	^ (self retvalSpecFromStream:s in:aPackage)
babfb18fc67b signature parsing cg parents: 184 diff changeset	542
babfb18fc67b signature parsing cg parents: 184 diff changeset	543	"
babfb18fc67b signature parsing cg parents: 184 diff changeset	544	JavaMethod returnTypeFromSignature:'(LObject;)V'
babfb18fc67b signature parsing cg parents: 184 diff changeset	545	JavaMethod returnTypeFromSignature:'(BB)S'
babfb18fc67b signature parsing cg parents: 184 diff changeset	546	JavaMethod returnTypeFromSignature:'()J'
babfb18fc67b signature parsing cg parents: 184 diff changeset	547	JavaMethod returnTypeFromSignature:'''first''J'
babfb18fc67b signature parsing cg parents: 184 diff changeset	548	"
babfb18fc67b signature parsing cg parents: 184 diff changeset	549
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	550	"Created: / 1.8.1997 / 10:54:31 / cg"
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	551	"Modified: / 8.1.1998 / 19:09:06 / cg"
72 9427aa6a8528 * empty log message * cg parents: 64 diff changeset	552	!
9427aa6a8528 * empty log message * cg parents: 64 diff changeset	553
9427aa6a8528 * empty log message * cg parents: 64 diff changeset	554	returnsVoidFromSignature:aSignature
9427aa6a8528 * empty log message * cg parents: 64 diff changeset	555	"given a signature, return true if it returns void, false if not"
9427aa6a8528 * empty log message * cg parents: 64 diff changeset	556
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	557	^ (self typeFromSignature:aSignature in:nil) = 'void'
27 4560bb77bb36 checkin from browser cg parents: 19 diff changeset	558
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	559	"
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	560	JavaMethod returnsVoidFromSignature:'(LObject;)V'
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	561	JavaMethod returnsVoidFromSignature:'(BB)S'
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	562	"
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	563
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	564	"Modified: / 8.1.1998 / 19:13:53 / cg"
10 1f803ce6d3fc better signature code cg parents: 8 diff changeset	565	!
1f803ce6d3fc better signature code cg parents: 8 diff changeset	566
142 1cc00567fb75 * empty log message * cg parents: 141 diff changeset	567	retvalSpecFromStream:s in:aPackage
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	568	"parse a retvalSpec - see java doc"
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	569
332 2cb9ceae74d3 checkin from browser cg parents: 323 diff changeset	570	\|spec\|
2cb9ceae74d3 checkin from browser cg parents: 323 diff changeset	571
142 1cc00567fb75 * empty log message * cg parents: 141 diff changeset	572	s atEnd ifTrue:[self halt. ^ #void].
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	573	s peek == $V ifTrue:[^ #void].
332 2cb9ceae74d3 checkin from browser cg parents: 323 diff changeset	574	spec := self fieldTypeFromStream:s in:aPackage.
2cb9ceae74d3 checkin from browser cg parents: 323 diff changeset	575	spec knownAsSymbol ifTrue:[
2158 cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	576	^ spec asSymbol
332 2cb9ceae74d3 checkin from browser cg parents: 323 diff changeset	577	].
2cb9ceae74d3 checkin from browser cg parents: 323 diff changeset	578	^ spec
142 1cc00567fb75 * empty log message * cg parents: 141 diff changeset	579
332 2cb9ceae74d3 checkin from browser cg parents: 323 diff changeset	580	"Created: / 18.3.1997 / 11:12:19 / cg"
2cb9ceae74d3 checkin from browser cg parents: 323 diff changeset	581	"Modified: / 7.4.1998 / 22:28:27 / cg"
142 1cc00567fb75 * empty log message * cg parents: 141 diff changeset	582	!
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	583
189 babfb18fc67b signature parsing cg parents: 184 diff changeset	584	specComponentsWithArgsFromSignature:aSignature withName:name in:aPackage
babfb18fc67b signature parsing cg parents: 184 diff changeset	585	"given a signature, return a spec"
babfb18fc67b signature parsing cg parents: 184 diff changeset	586
babfb18fc67b signature parsing cg parents: 184 diff changeset	587	\|s argSpec retvalSpec\|
babfb18fc67b signature parsing cg parents: 184 diff changeset	588
babfb18fc67b signature parsing cg parents: 184 diff changeset	589	s := aSignature readStream.
babfb18fc67b signature parsing cg parents: 184 diff changeset	590	s next ~~ $( ifTrue:[self halt. ^ name].
babfb18fc67b signature parsing cg parents: 184 diff changeset	591
babfb18fc67b signature parsing cg parents: 184 diff changeset	592	argSpec := self argSpecWithArgsFromStream:s in:aPackage.
babfb18fc67b signature parsing cg parents: 184 diff changeset	593
babfb18fc67b signature parsing cg parents: 184 diff changeset	594	s next ~~ $) ifTrue:[self halt. ^ name].
babfb18fc67b signature parsing cg parents: 184 diff changeset	595
babfb18fc67b signature parsing cg parents: 184 diff changeset	596	retvalSpec := self retvalSpecFromStream:s in:aPackage.
babfb18fc67b signature parsing cg parents: 184 diff changeset	597
babfb18fc67b signature parsing cg parents: 184 diff changeset	598	^ Array with:retvalSpec with:name with:argSpec
babfb18fc67b signature parsing cg parents: 184 diff changeset	599
babfb18fc67b signature parsing cg parents: 184 diff changeset	600	"
babfb18fc67b signature parsing cg parents: 184 diff changeset	601	JavaMethod specWithArgsFromSignature:'(LObject;)V' withName:'foo' in:nil
babfb18fc67b signature parsing cg parents: 184 diff changeset	602	JavaMethod specComponentsWithArgsFromSignature:'(LObject;)V' withName:'foo' in:nil
babfb18fc67b signature parsing cg parents: 184 diff changeset	603	"
babfb18fc67b signature parsing cg parents: 184 diff changeset	604
babfb18fc67b signature parsing cg parents: 184 diff changeset	605	"Created: 18.3.1997 / 11:06:22 / cg"
babfb18fc67b signature parsing cg parents: 184 diff changeset	606	"Modified: 1.8.1997 / 11:03:50 / cg"
babfb18fc67b signature parsing cg parents: 184 diff changeset	607	!
babfb18fc67b signature parsing cg parents: 184 diff changeset	608
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	609	specFromSignature:aSignature withName:name argNames:argNames in:aPackage
10 1f803ce6d3fc better signature code cg parents: 8 diff changeset	610	"given a signature, return a spec"
1f803ce6d3fc better signature code cg parents: 8 diff changeset	611
1f803ce6d3fc better signature code cg parents: 8 diff changeset	612	\|s argSpec retvalSpec\|
1f803ce6d3fc better signature code cg parents: 8 diff changeset	613
1f803ce6d3fc better signature code cg parents: 8 diff changeset	614	s := aSignature readStream.
1f803ce6d3fc better signature code cg parents: 8 diff changeset	615	s next ~~ $( ifTrue:[self halt. ^ name].
1f803ce6d3fc better signature code cg parents: 8 diff changeset	616
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	617	argSpec := self argSpecWithArgsFromStream:s in:aPackage argNames:argNames.
10 1f803ce6d3fc better signature code cg parents: 8 diff changeset	618
1f803ce6d3fc better signature code cg parents: 8 diff changeset	619	s next ~~ $) ifTrue:[self halt. ^ name].
1f803ce6d3fc better signature code cg parents: 8 diff changeset	620
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	621	retvalSpec := self retvalSpecFromStream:s in:aPackage.
10 1f803ce6d3fc better signature code cg parents: 8 diff changeset	622
1f803ce6d3fc better signature code cg parents: 8 diff changeset	623	^ retvalSpec , ' ' , name , ' (' , argSpec , ')'
1f803ce6d3fc better signature code cg parents: 8 diff changeset	624
1f803ce6d3fc better signature code cg parents: 8 diff changeset	625	"
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	626	JavaMethod specFromSignature:'(LObject;)V' withName:'foo' argNames:#('a') in:nil
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	627	JavaMethod specFromSignature:'(BB)S' withName:'foo' argNames:#('a' 'b') in:nil
10 1f803ce6d3fc better signature code cg parents: 8 diff changeset	628	"
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	629
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	630	"Created: / 18.3.1997 / 11:06:22 / cg"
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	631	"Modified: / 8.1.1998 / 21:14:43 / cg"
83 2d61ef3579e4 * empty log message * cg parents: 80 diff changeset	632	!
2d61ef3579e4 * empty log message * cg parents: 80 diff changeset	633
142 1cc00567fb75 * empty log message * cg parents: 141 diff changeset	634	specFromSignature:aSignature withName:name in:aPackage
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	635	"given a signature, return a spec"
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	636
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	637	\|s argSpec retvalSpec\|
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	638
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	639	s := aSignature readStream.
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	640	s next ~~ $( ifTrue:[self halt. ^ name].
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	641
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	642	argSpec := self argSpecFromStream:s in:aPackage.
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	643
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	644	s next ~~ $) ifTrue:[self halt. ^ name].
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	645
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	646	retvalSpec := self retvalSpecFromStream:s in:aPackage.
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	647
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	648	^ retvalSpec , ' ' , name , ' (' , argSpec , ')'
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	649
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	650	"
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	651	JavaMethod specFromSignature:'(LObject;)V' withName:'foo' in:nil
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	652	JavaMethod specFromSignature:'(BB)S' withName:'foo' in:nil
142 1cc00567fb75 * empty log message * cg parents: 141 diff changeset	653	"
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	654
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	655	"Created: / 18.3.1997 / 11:06:22 / cg"
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	656	"Modified: / 8.1.1998 / 21:06:32 / cg"
142 1cc00567fb75 * empty log message * cg parents: 141 diff changeset	657	!
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	658
678 0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	659	specTextFromSignature:aSignature in:aPackage withName:name
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	660	"given a signature, return a spec as boldified text"
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	661
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	662	\|s argSpec retvalSpec\|
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	663
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	664	s := aSignature readStream.
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	665	s next ~~ $( ifTrue:[self halt. ^ name].
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	666
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	667	argSpec := self argSpecFromStream:s in:aPackage.
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	668
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	669	s next ~~ $) ifTrue:[self halt. ^ name].
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	670
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	671	retvalSpec := self retvalSpecFromStream:s in:aPackage.
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	672
2110 6188ec8713ea no need for asText when sending allBold Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	673	"/ ^ retvalSpec , ' ' , (name allBold) , ' (' , argSpec , ')'
6188ec8713ea no need for asText when sending allBold Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	674	^ (name allBold) , ' (' , argSpec , ')'
678 0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	675
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	676	"
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	677	JavaMethod specTextFromSignature:'(LObject;)V' withName:'foo'
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	678	JavaMethod specTextFromSignature:'(BB)S' withName:'foo'
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	679	"
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	680
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	681	"Modified: / 8.1.1998 / 19:11:20 / cg"
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	682	!
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	683
175 68da52e100ab * empty log message * cg parents: 174 diff changeset	684	specTextFromSignature:aSignature withName:name
68da52e100ab * empty log message * cg parents: 174 diff changeset	685	"given a signature, return a spec as boldified text"
68da52e100ab * empty log message * cg parents: 174 diff changeset	686
68da52e100ab * empty log message * cg parents: 174 diff changeset	687	\|s argSpec retvalSpec\|
68da52e100ab * empty log message * cg parents: 174 diff changeset	688
68da52e100ab * empty log message * cg parents: 174 diff changeset	689	s := aSignature readStream.
68da52e100ab * empty log message * cg parents: 174 diff changeset	690	s next ~~ $( ifTrue:[self halt. ^ name].
68da52e100ab * empty log message * cg parents: 174 diff changeset	691
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	692	argSpec := self argSpecFromStream:s in:nil.
175 68da52e100ab * empty log message * cg parents: 174 diff changeset	693
68da52e100ab * empty log message * cg parents: 174 diff changeset	694	s next ~~ $) ifTrue:[self halt. ^ name].
68da52e100ab * empty log message * cg parents: 174 diff changeset	695
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	696	retvalSpec := self retvalSpecFromStream:s in:nil.
175 68da52e100ab * empty log message * cg parents: 174 diff changeset	697
2110 6188ec8713ea no need for asText when sending allBold Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	698	^ retvalSpec , ' ' , (name allBold) , ' (' , argSpec , ')'
175 68da52e100ab * empty log message * cg parents: 174 diff changeset	699
68da52e100ab * empty log message * cg parents: 174 diff changeset	700	"
68da52e100ab * empty log message * cg parents: 174 diff changeset	701	JavaMethod specTextFromSignature:'(LObject;)V' withName:'foo'
68da52e100ab * empty log message * cg parents: 174 diff changeset	702	JavaMethod specTextFromSignature:'(BB)S' withName:'foo'
68da52e100ab * empty log message * cg parents: 174 diff changeset	703	"
68da52e100ab * empty log message * cg parents: 174 diff changeset	704
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	705	"Modified: / 8.1.1998 / 19:11:20 / cg"
175 68da52e100ab * empty log message * cg parents: 174 diff changeset	706	!
68da52e100ab * empty log message * cg parents: 174 diff changeset	707
189 babfb18fc67b signature parsing cg parents: 184 diff changeset	708	specTextWithArgsFromSignature:aSignature withName:name in:aPackage
babfb18fc67b signature parsing cg parents: 184 diff changeset	709	"given a signature, return a spec"
babfb18fc67b signature parsing cg parents: 184 diff changeset	710
babfb18fc67b signature parsing cg parents: 184 diff changeset	711	\|s argSpec retvalSpec\|
babfb18fc67b signature parsing cg parents: 184 diff changeset	712
babfb18fc67b signature parsing cg parents: 184 diff changeset	713	s := aSignature readStream.
babfb18fc67b signature parsing cg parents: 184 diff changeset	714	s next ~~ $( ifTrue:[self halt. ^ name].
babfb18fc67b signature parsing cg parents: 184 diff changeset	715
babfb18fc67b signature parsing cg parents: 184 diff changeset	716	argSpec := self argSpecWithArgsFromStream:s in:aPackage.
babfb18fc67b signature parsing cg parents: 184 diff changeset	717
babfb18fc67b signature parsing cg parents: 184 diff changeset	718	s next ~~ $) ifTrue:[self halt. ^ name].
babfb18fc67b signature parsing cg parents: 184 diff changeset	719
babfb18fc67b signature parsing cg parents: 184 diff changeset	720	retvalSpec := self retvalSpecFromStream:s in:aPackage.
babfb18fc67b signature parsing cg parents: 184 diff changeset	721
2110 6188ec8713ea no need for asText when sending allBold Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	722	^ retvalSpec , ' ' , (name allBold) , ' (' , argSpec , ')'
189 babfb18fc67b signature parsing cg parents: 184 diff changeset	723
babfb18fc67b signature parsing cg parents: 184 diff changeset	724	"
babfb18fc67b signature parsing cg parents: 184 diff changeset	725	JavaMethod specWithArgsFromSignature:'(LObject;)V' withName:'foo' in:nil
babfb18fc67b signature parsing cg parents: 184 diff changeset	726	JavaMethod specWithArgsFromSignature:'(BB)S' withName:'foo' in:nil
babfb18fc67b signature parsing cg parents: 184 diff changeset	727	"
babfb18fc67b signature parsing cg parents: 184 diff changeset	728
babfb18fc67b signature parsing cg parents: 184 diff changeset	729	"Modified: 20.3.1997 / 12:50:10 / cg"
babfb18fc67b signature parsing cg parents: 184 diff changeset	730	"Created: 1.8.1997 / 10:43:57 / cg"
babfb18fc67b signature parsing cg parents: 184 diff changeset	731	!
babfb18fc67b signature parsing cg parents: 184 diff changeset	732
154 d51e897b4b5f checkin from browser cg parents: 149 diff changeset	733	specWithArgsFromSignature:aSignature withName:name in:aPackage
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	734	"given a signature, return a spec"
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	735
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	736	\|s argSpec retvalSpec\|
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	737
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	738	s := aSignature readStream.
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	739	s next ~~ $( ifTrue:[self halt. ^ name].
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	740
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	741	argSpec := self argSpecWithArgsFromStream:s in:aPackage.
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	742
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	743	s next ~~ $) ifTrue:[self halt. ^ name].
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	744
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	745	retvalSpec := self retvalSpecFromStream:s in:aPackage.
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	746
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	747	^ retvalSpec , ' ' , name , ' (' , argSpec , ')'
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	748
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	749	"
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	750	JavaMethod specWithArgsFromSignature:'(LObject;)V' withName:'foo' in:nil
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	751	JavaMethod specWithArgsFromSignature:'(BB)S' withName:'foo' in:nil
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	752	"
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	753
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	754	"Created: 18.3.1997 / 11:06:22 / cg"
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	755	"Modified: 20.3.1997 / 12:50:10 / cg"
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	756	!
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	757
189 babfb18fc67b signature parsing cg parents: 184 diff changeset	758	typeFromSignature:aSignature in:package
babfb18fc67b signature parsing cg parents: 184 diff changeset	759	"given a signature, return its type as a string"
babfb18fc67b signature parsing cg parents: 184 diff changeset	760
238 18c543cfe8ef * empty log message * cg parents: 237 diff changeset	761	\|s c\|
189 babfb18fc67b signature parsing cg parents: 184 diff changeset	762
babfb18fc67b signature parsing cg parents: 184 diff changeset	763	s := aSignature readStream.
babfb18fc67b signature parsing cg parents: 184 diff changeset	764	(c := s peek) ~~ $( ifTrue:[
2158 cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	765	c == $' ifTrue:[
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	766	s next.
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	767	[s peek ~= $'] whileTrue:[s next].
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	768	s next.
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	769	^ (self retvalSpecFromStream:s in:package)
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	770	].
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	771	^ (self retvalSpecFromStream:s in:package)
189 babfb18fc67b signature parsing cg parents: 184 diff changeset	772	].
babfb18fc67b signature parsing cg parents: 184 diff changeset	773
babfb18fc67b signature parsing cg parents: 184 diff changeset	774	s next.
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	775	self argSpecFromStream:s in:nil.
189 babfb18fc67b signature parsing cg parents: 184 diff changeset	776	s next ~~ $) ifTrue:[self halt. ^ nil].
babfb18fc67b signature parsing cg parents: 184 diff changeset	777
babfb18fc67b signature parsing cg parents: 184 diff changeset	778	^ (self retvalSpecFromStream:s in:package)
babfb18fc67b signature parsing cg parents: 184 diff changeset	779
babfb18fc67b signature parsing cg parents: 184 diff changeset	780	"
babfb18fc67b signature parsing cg parents: 184 diff changeset	781	JavaMethod typeFromSignature:'(LObject;)Ljava/lang/Object'
babfb18fc67b signature parsing cg parents: 184 diff changeset	782	JavaMethod typeFromSignature:'(LObject;)Ljava/lang/Object' in:'java.lang'
babfb18fc67b signature parsing cg parents: 184 diff changeset	783	"
babfb18fc67b signature parsing cg parents: 184 diff changeset	784
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	785	"Created: / 1.8.1997 / 10:50:38 / cg"
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	786	"Modified: / 8.1.1998 / 19:09:31 / cg"
10 1f803ce6d3fc better signature code cg parents: 8 diff changeset	787	! !
1f803ce6d3fc better signature code cg parents: 8 diff changeset	788
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	789	!JavaMethod methodsFor:'* As yet uncategorized *'!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	790
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	791	annotationIndexOf:aSymbol
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	792
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	793	^nil
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	794
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	795	"Created: / 24-02-2012 / 16:06:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	796	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	797
2476 d24ce8174195 JavaClass can now keep it's classfile bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2429 diff changeset	798	messagesSentToSuper
d24ce8174195 JavaClass can now keep it's classfile bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2429 diff changeset	799	^#()
d24ce8174195 JavaClass can now keep it's classfile bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2429 diff changeset	800
d24ce8174195 JavaClass can now keep it's classfile bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2429 diff changeset	801	"Created: / 30-03-2013 / 09:59:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d24ce8174195 JavaClass can now keep it's classfile bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2429 diff changeset	802	!
d24ce8174195 JavaClass can now keep it's classfile bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2429 diff changeset	803
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	804	sends:symbol1 or:symbol2
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	805
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	806	^false
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	807	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	808
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	809	sendsAny: selectors
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	810
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	811	^false
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	812
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	813	"Created: / 02-12-2011 / 23:05:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	814	! !
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	815
10 1f803ce6d3fc better signature code cg parents: 8 diff changeset	816	!JavaMethod methodsFor:'accessing'!
1f803ce6d3fc better signature code cg parents: 8 diff changeset	817
334 638045537cf7 * empty log message * cg parents: 332 diff changeset	818	accessFlags
638045537cf7 * empty log message * cg parents: 332 diff changeset	819	"java calls this the modifiers"
638045537cf7 * empty log message * cg parents: 332 diff changeset	820
638045537cf7 * empty log message * cg parents: 332 diff changeset	821	^ accessFlags
638045537cf7 * empty log message * cg parents: 332 diff changeset	822
638045537cf7 * empty log message * cg parents: 332 diff changeset	823	"Created: / 9.4.1998 / 17:49:44 / cg"
638045537cf7 * empty log message * cg parents: 332 diff changeset	824	!
638045537cf7 * empty log message * cg parents: 332 diff changeset	825
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	826	annotations
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	827	^ annotations ifNil:[JavaMethodAnnotationContainer empty].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	828
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	829	"Modified: / 03-03-2011 / 23:51:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	830	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	831
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	832	annotations:something
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	833	annotations := something.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	834	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	835
29 eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	836	argSignature
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	837	^ self class argSigArrayFromSignature:descriptor
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	838	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	839
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	840	asByteCodeMethod
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	841
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	842	"JavaMethods are always bytecode methods"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	843
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	844	^self
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	845
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	846	"Created: / 18-07-2011 / 20:48:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
29 eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	847	!
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	848
678 0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	849	comment
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	850	"should access the source here, and parse any method comment"
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	851
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	852	^ nil
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	853	!
0e4f13d5f7e9 printString; added dummy #comment cg parents: 673 diff changeset	854
10 1f803ce6d3fc better signature code cg parents: 8 diff changeset	855	constantPool
1f803ce6d3fc better signature code cg parents: 8 diff changeset	856	^ javaClass constantPool
1f803ce6d3fc better signature code cg parents: 8 diff changeset	857
1f803ce6d3fc better signature code cg parents: 8 diff changeset	858	"Modified: 16.4.1996 / 12:36:27 / cg"
1f803ce6d3fc better signature code cg parents: 8 diff changeset	859	"Created: 16.4.1996 / 15:28:50 / cg"
1f803ce6d3fc better signature code cg parents: 8 diff changeset	860	!
1f803ce6d3fc better signature code cg parents: 8 diff changeset	861
129 f40775af59a5 checkin from browser cg parents: 127 diff changeset	862	containingClass
f40775af59a5 checkin from browser cg parents: 127 diff changeset	863	^ javaClass
f40775af59a5 checkin from browser cg parents: 127 diff changeset	864
f40775af59a5 checkin from browser cg parents: 127 diff changeset	865	!
f40775af59a5 checkin from browser cg parents: 127 diff changeset	866
169 269f334e9f34 * empty log message * cg parents: 168 diff changeset	867	decompiledBytecode
269f334e9f34 * empty log message * cg parents: 168 diff changeset	868	\|s\|
269f334e9f34 * empty log message * cg parents: 168 diff changeset	869
269f334e9f34 * empty log message * cg parents: 168 diff changeset	870	s := '' writeStream.
269f334e9f34 * empty log message * cg parents: 168 diff changeset	871	JavaDecompiler decompile:self to:s.
269f334e9f34 * empty log message * cg parents: 168 diff changeset	872	^ s contents
269f334e9f34 * empty log message * cg parents: 168 diff changeset	873
269f334e9f34 * empty log message * cg parents: 168 diff changeset	874	"Created: 7.4.1997 / 20:10:37 / cg"
269f334e9f34 * empty log message * cg parents: 168 diff changeset	875	!
269f334e9f34 * empty log message * cg parents: 168 diff changeset	876
75 9816a04c8b21 checkin from browser cg parents: 72 diff changeset	877	decompiledSource
9816a04c8b21 checkin from browser cg parents: 72 diff changeset	878	\|s\|
9816a04c8b21 checkin from browser cg parents: 72 diff changeset	879
9816a04c8b21 checkin from browser cg parents: 72 diff changeset	880	s := '' writeStream.
175 68da52e100ab * empty log message * cg parents: 174 diff changeset	881	self decompileSourceTo:s.
75 9816a04c8b21 checkin from browser cg parents: 72 diff changeset	882	^ s contents
175 68da52e100ab * empty log message * cg parents: 174 diff changeset	883
68da52e100ab * empty log message * cg parents: 174 diff changeset	884	"Modified: 30.7.1997 / 16:27:55 / cg"
75 9816a04c8b21 checkin from browser cg parents: 72 diff changeset	885	!
9816a04c8b21 checkin from browser cg parents: 72 diff changeset	886
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	887	descriptor
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	888
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	889	^ (JavaDescriptor fromString: descriptor) name: self name
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	890
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	891	"Created: / 16-04-1996 / 11:34:29 / cg"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	892	"Modified: / 06-12-2011 / 21:53:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	893	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	894
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	895	descriptorSymbol
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	896
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	897	^descriptor
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	898
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	899	"Created: / 16-04-1996 / 11:34:29 / cg"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	900	"Created: / 06-12-2011 / 23:00:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	901	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	902
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	903	ensureHasAnnotations
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	904	annotations
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	905	ifNil:[ annotations := JavaMethodAnnotationContainer for:self ].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	906	^ annotations
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	907
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	908	"Created: / 25-02-2011 / 16:02:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	909	"Modified: / 28-02-2011 / 16:33:00 / Marcel Hlopko <hlopik@gmail.com>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	910	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	911
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	912	exceptionClasses
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	913	"Return a collection of declared exception classes that this method
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	914	throws"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	915	^#()
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	916
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	917	"Created: / 01-08-2012 / 10:06:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	918	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	919
135 098936234135 * empty log message * cg parents: 129 diff changeset	920	exceptionHandlerTable
378 a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	921	^ nil
135 098936234135 * empty log message * cg parents: 129 diff changeset	922
378 a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	923	"Created: / 16.10.1998 / 01:50:51 / cg"
135 098936234135 * empty log message * cg parents: 129 diff changeset	924	!
098936234135 * empty log message * cg parents: 129 diff changeset	925
83 2d61ef3579e4 * empty log message * cg parents: 80 diff changeset	926	exceptionTable
378 a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	927	^ nil
83 2d61ef3579e4 * empty log message * cg parents: 80 diff changeset	928
378 a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	929	"Created: / 16.10.1998 / 01:51:04 / cg"
83 2d61ef3579e4 * empty log message * cg parents: 80 diff changeset	930	!
2d61ef3579e4 * empty log message * cg parents: 80 diff changeset	931
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	932	firstInstructionLineNumber
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	933	ForceByteCodeDisplay == true ifTrue:[ ^ 1].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	934	lineNumberTable notNil ifTrue:[ ^ lineNumberTable at:2].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	935	^ 0.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	936
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	937	"Created: / 17-12-2010 / 17:02:46 / Jan Kurs <kurs.jan@post.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	938	"Modified: / 08-01-2011 / 16:30:16 / Jan Kurs <kurs.jan@post.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	939	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	940
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	941	getExceptionTable
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	942
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	943	^ nil
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	944
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	945	"Created: / 04-02-2011 / 23:07:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	946	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	947
2514 5eff0cf4b818 Added JavaMethod>>getMClass - needed by recent libtool. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2498 diff changeset	948	getMclass
5eff0cf4b818 Added JavaMethod>>getMClass - needed by recent libtool. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2498 diff changeset	949	^javaClass
5eff0cf4b818 Added JavaMethod>>getMClass - needed by recent libtool. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2498 diff changeset	950
5eff0cf4b818 Added JavaMethod>>getMClass - needed by recent libtool. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2498 diff changeset	951	"Created: / 15-04-2013 / 17:57:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5eff0cf4b818 Added JavaMethod>>getMClass - needed by recent libtool. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2498 diff changeset	952	!
5eff0cf4b818 Added JavaMethod>>getMClass - needed by recent libtool. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2498 diff changeset	953
2090 756cbebc78f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2087 diff changeset	954	getSourcePosition
756cbebc78f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2087 diff changeset	955	^ 1
756cbebc78f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2087 diff changeset	956	!
756cbebc78f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2087 diff changeset	957
90 918e2740098c resolve rewritten cg parents: 85 diff changeset	958	hasLineNumberInformation
918e2740098c resolve rewritten cg parents: 85 diff changeset	959	^ lineNumberTable notNil
918e2740098c resolve rewritten cg parents: 85 diff changeset	960
918e2740098c resolve rewritten cg parents: 85 diff changeset	961	"Created: 16.4.1996 / 12:34:04 / cg"
918e2740098c resolve rewritten cg parents: 85 diff changeset	962	"Modified: 16.4.1996 / 12:49:06 / cg"
918e2740098c resolve rewritten cg parents: 85 diff changeset	963	!
918e2740098c resolve rewritten cg parents: 85 diff changeset	964
10 1f803ce6d3fc better signature code cg parents: 8 diff changeset	965	javaByteCode
184 f65eb9c4ba6e checkin from browser cg parents: 175 diff changeset	966	"/ ^ javaByteCode
f65eb9c4ba6e checkin from browser cg parents: 175 diff changeset	967	^ byteCode
10 1f803ce6d3fc better signature code cg parents: 8 diff changeset	968
1f803ce6d3fc better signature code cg parents: 8 diff changeset	969	"Created: 16.4.1996 / 14:55:44 / cg"
184 f65eb9c4ba6e checkin from browser cg parents: 175 diff changeset	970	"Modified: 1.8.1997 / 00:08:45 / cg"
8 4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	971	!
4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	972
27 4560bb77bb36 checkin from browser cg parents: 19 diff changeset	973	javaClass
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	974	^ javaClass
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	975
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	976	"Modified: 16.4.1996 / 12:36:27 / cg"
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	977	"Created: 16.4.1996 / 14:55:44 / cg"
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	978	!
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	979
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	980	javaExceptionTable
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	981	<resource: #obsolete>
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	982
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	983	self obsoleteMethodWarning: 'Use #exceptionClasses instead'.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	984	^ self exceptionClasses
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	985
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	986	"Created: / 04-06-2011 / 18:16:23 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	987	"Modified: / 01-08-2012 / 10:08:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	988	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	989
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	990	javaNumArgs
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	991	^ self argSignature size.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	992
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	993	"Created: / 14-03-2011 / 15:50:58 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	994	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	995
90 918e2740098c resolve rewritten cg parents: 85 diff changeset	996	lineNumber
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	997	lineNumberTable isNil ifTrue:[^ nil].
90 918e2740098c resolve rewritten cg parents: 85 diff changeset	998	^ lineNumberTable at:2
918e2740098c resolve rewritten cg parents: 85 diff changeset	999
918e2740098c resolve rewritten cg parents: 85 diff changeset	1000	"Created: 16.4.1996 / 12:34:04 / cg"
918e2740098c resolve rewritten cg parents: 85 diff changeset	1001	"Modified: 16.4.1996 / 12:49:06 / cg"
918e2740098c resolve rewritten cg parents: 85 diff changeset	1002	!
918e2740098c resolve rewritten cg parents: 85 diff changeset	1003
50 458467ce0e15 checkin from browser cg parents: 48 diff changeset	1004	lineNumberTable
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1005	"/ lineNumberTable ifNil:[ lineNumberTable := Dictionary new.].
50 458467ce0e15 checkin from browser cg parents: 48 diff changeset	1006	^ lineNumberTable
458467ce0e15 checkin from browser cg parents: 48 diff changeset	1007
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1008	"Created: / 16-04-1996 / 12:34:04 / cg"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1009	"Modified: / 13-12-2010 / 11:06:40 / Jan Kurs <kurs.jan@post.cz>"
50 458467ce0e15 checkin from browser cg parents: 48 diff changeset	1010	!
458467ce0e15 checkin from browser cg parents: 48 diff changeset	1011
618 1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1012	literalsDetect:aBlock ifNone:exceptionBlock
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1013	"execute a one arg block for each of our literals.
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1014	return the first literal for which aBlock returns true"
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1015
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1016	"/ sigh - must first extract all accessed literals ...
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1017	"/ must deparse the byteCode in order to do this.
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1018
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1019	\|walker\|
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1020
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1021	walker := JavaByteCodeEnumerator new.
651 c4f8130fb962 checkin from browser cg parents: 637 diff changeset	1022	walker literalAction:[:pc :slotIndex :const \|
c4f8130fb962 checkin from browser cg parents: 637 diff changeset	1023	const isJavaMethodRef ifTrue:[
654 da8d060a3150 checkin from browser cg parents: 651 diff changeset	1024	(aBlock value:(const name)) ifTrue:[^ const name].
651 c4f8130fb962 checkin from browser cg parents: 637 diff changeset	1025	] ifFalse:[
c4f8130fb962 checkin from browser cg parents: 637 diff changeset	1026	const isJavaClassRef ifTrue:[
654 da8d060a3150 checkin from browser cg parents: 651 diff changeset	1027	(aBlock value:(const name)) ifTrue:[^ const name].
651 c4f8130fb962 checkin from browser cg parents: 637 diff changeset	1028	]
c4f8130fb962 checkin from browser cg parents: 637 diff changeset	1029	]
c4f8130fb962 checkin from browser cg parents: 637 diff changeset	1030	].
618 1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1031	walker decompile:self to:nil.
654 da8d060a3150 checkin from browser cg parents: 651 diff changeset	1032	^ nil
618 1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1033
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1034	"Created: / 9.11.1999 / 15:21:40 / cg"
654 da8d060a3150 checkin from browser cg parents: 651 diff changeset	1035	"Modified: / 24.12.1999 / 02:55:55 / cg"
618 1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1036	!
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	1037
85 888c37bbe4bb checkin from browser cg parents: 83 diff changeset	1038	localVariableTable
888c37bbe4bb checkin from browser cg parents: 83 diff changeset	1039	^ localVariableTable
888c37bbe4bb checkin from browser cg parents: 83 diff changeset	1040
888c37bbe4bb checkin from browser cg parents: 83 diff changeset	1041	"
888c37bbe4bb checkin from browser cg parents: 83 diff changeset	1042	JavaMethod allInstancesDo:[:m\| m localVariableTable notNil ifTrue:[self halt]]
888c37bbe4bb checkin from browser cg parents: 83 diff changeset	1043	"
888c37bbe4bb checkin from browser cg parents: 83 diff changeset	1044	!
888c37bbe4bb checkin from browser cg parents: 83 diff changeset	1045
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1046	mclass
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1047	^ self javaClass
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1048	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1049
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1050	mclass: anObject
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1051
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1052	javaClass := anObject
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1053
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1054	"Created: / 18-10-2010 / 19:01:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1055	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1056
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1057	methodArgAndVarNames
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1058	^ "((1 to:self numArgs) collect:[:i \| 'arg' , i printString])"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1059	self methodArgNames
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	1060	,
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1061	"((1 to:self numVars) collect:[:i \| 'local' , i printString])"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1062	self methodVarNames
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1063
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1064	"Modified: / 23-11-2010 / 19:32:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
31 644123641e2c java exceptions (java handlers not yet implemented) cg parents: 29 diff changeset	1065	!
644123641e2c java exceptions (java handlers not yet implemented) cg parents: 29 diff changeset	1066
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1067	methodArgAndVarNamesInContext: context
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1068	\| pc \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1069
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1070	localVariableTable isNil ifTrue:[^self methodArgNames , self methodVarNames ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1071	pc := context pc.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1072
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1073	^(1 to: self numArgs + self numVars) collect:[:i\|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1074	(localVariableTable nameForSlot: i - 1 atPC: pc) ? '???'.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1075	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1076
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1077	"Created: / 18-12-2012 / 18:17:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1078	"Modified: / 09-01-2013 / 18:00:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1079	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1080
31 644123641e2c java exceptions (java handlers not yet implemented) cg parents: 29 diff changeset	1081	methodArgNames
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	1082	\|nA\|
04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	1083
04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	1084	nA := self numArgs.
102 de5ab089cf47 checkin from browser cg parents: 90 diff changeset	1085	localVariableTable notNil ifTrue:[
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1086	^ (1 to:nA) collect:
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1087	[:argIndex \|
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1088	\|slot name\|
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1089	"/ search for an entry with that index (slot),
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1090	"/ which has is valid at PC 0
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1091
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1092	self isStatic ifTrue:[
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1093	slot := argIndex - 1
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1094	] ifFalse:[
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1095	slot := argIndex "/+ 1
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1096	].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1097	name := localVariableTable nameForSlot:slot atPC:0.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1098	name isNil ifTrue:[
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1099	'arg' , argIndex printString
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1100	] ifFalse:[
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1101	name
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1102	].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1103	]
102 de5ab089cf47 checkin from browser cg parents: 90 diff changeset	1104	].
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	1105	^ (1 to:nA) collect:[:i \| 'arg' , i printString]
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1106
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1107	"Modified: / 23-11-2010 / 19:47:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1108	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1109
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1110	methodVarNames
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1111	\|nV\|
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1112
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1113	nV := self numVars.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1114	localVariableTable notNil ifTrue:[
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1115	^ (self numArgs + 1 to: self numArgs + nV) collect:
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1116	[:argIndex \|
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1117	\|slot name\|
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1118	"/ search for an entry with that index (slot),
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1119	"/ which has is valid at PC 0
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1120
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1121	self isStatic ifTrue:[
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1122	slot := argIndex - 1
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1123	] ifFalse:[
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1124	slot := argIndex"/ + 1
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1125	].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1126	name := localVariableTable nameForSlot:slot atPC:0.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1127	name isNil ifTrue:[
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1128	'local' , argIndex printString
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1129	] ifFalse:[
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1130	name
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1131	].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1132	]
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1133	].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1134	^ (1 to:nV) collect:[:i \| 'local' , i printString]
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1135
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1136	"Created: / 23-11-2010 / 19:28:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
31 644123641e2c java exceptions (java handlers not yet implemented) cg parents: 29 diff changeset	1137	!
644123641e2c java exceptions (java handlers not yet implemented) cg parents: 29 diff changeset	1138
29 eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	1139	name
2555 655f39b36a10 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 2551 diff changeset	1140	^ (selector copyButLast:descriptor size) asSymbol
29 eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	1141
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	1142	"Created: 16.4.1996 / 11:34:22 / cg"
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	1143	!
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	1144
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1145	nameSpaceName
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1146
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1147	^''
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1148
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1149	"Created: / 18-10-2010 / 19:10:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1150	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1151
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1152	numJArgs
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1153
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1154	^self numberOfJavaArgs
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1155
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1156	"Created: / 25-10-2011 / 10:50:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1157	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1158
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1159	numJavaArgs
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1160
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1161	^self numberOfJavaArgs
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1162
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1163	"Created: / 25-10-2011 / 10:50:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
118 c1f888534eed fixed numVar/numLocal & numStacl stuff cg parents: 116 diff changeset	1164	!
c1f888534eed fixed numVar/numLocal & numStacl stuff cg parents: 116 diff changeset	1165
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1166	numberOfJavaArgs
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1167
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1168	^(accessFlags bitAnd: 16r00FF0000) rightShift: 16.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1169
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1170	"Created: / 25-10-2011 / 10:45:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1171	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1172
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1173	numberOfJavaArgs: nArgs
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1174
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1175	( nArgs > 16rFF ) ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1176	ArgumentError raiseRequestWith:self errorString:'too many args method - ', nArgs printString.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1177	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1178
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1179	accessFlags := accessFlags bitOr:
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1180	((nArgs bitAnd: 16rFF) bitShift: 16)
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1181
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1182	"Created: / 25-10-2011 / 10:43:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
27 4560bb77bb36 checkin from browser cg parents: 19 diff changeset	1183	!
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	1184
2158 cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	1185	originalMethodIfWrapped
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	1186	"return the method the receiver is wrapping - none here"
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	1187
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	1188	^ self
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	1189
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	1190	"Created: / 22-10-2010 / 11:46:07 / cg"
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	1191	!
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	1192
175 68da52e100ab * empty log message * cg parents: 174 diff changeset	1193	previousVersion
68da52e100ab * empty log message * cg parents: 174 diff changeset	1194	^ nil
68da52e100ab * empty log message * cg parents: 174 diff changeset	1195
68da52e100ab * empty log message * cg parents: 174 diff changeset	1196	"Created: 30.7.1997 / 15:56:18 / cg"
68da52e100ab * empty log message * cg parents: 174 diff changeset	1197	!
68da52e100ab * empty log message * cg parents: 174 diff changeset	1198
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1199	previousVersionCode
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1200
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1201	^nil
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1202
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1203	"Created: / 18-10-2010 / 20:15:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1204	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1205
29 eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	1206	retValSignature
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1207	^ self class retValSpecFromSignature:descriptor in:nil
29 eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	1208
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1209	"Modified: / 8.1.1998 / 19:06:40 / cg"
29 eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	1210	!
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	1211
123 4a5d4ac95782 checkin from browser cg parents: 118 diff changeset	1212	returnType
378 a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1213	"/ ^ returnType
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1214	^ self class typeFromSignature:descriptor in:nil.
378 a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1215
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1216	"Modified: / 16.10.1998 / 00:17:43 / cg"
123 4a5d4ac95782 checkin from browser cg parents: 118 diff changeset	1217	!
4a5d4ac95782 checkin from browser cg parents: 118 diff changeset	1218
322 567088a5a1b0 partial support for getMethod0 & invokeMethod. cg parents: 321 diff changeset	1219	returnTypeClass
378 a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1220	\|cls returnType\|
322 567088a5a1b0 partial support for getMethod0 & invokeMethod. cg parents: 321 diff changeset	1221
378 a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1222	(returnType := self returnType) isNil ifTrue:[
2158 cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	1223	self halt.
322 567088a5a1b0 partial support for getMethod0 & invokeMethod. cg parents: 321 diff changeset	1224	].
567088a5a1b0 partial support for getMethod0 & invokeMethod. cg parents: 321 diff changeset	1225	cls := Java at:returnType.
567088a5a1b0 partial support for getMethod0 & invokeMethod. cg parents: 321 diff changeset	1226	cls notNil ifTrue:[^ cls].
567088a5a1b0 partial support for getMethod0 & invokeMethod. cg parents: 321 diff changeset	1227
567088a5a1b0 partial support for getMethod0 & invokeMethod. cg parents: 321 diff changeset	1228	returnType == #void ifTrue:[
2158 cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	1229	^ nil
322 567088a5a1b0 partial support for getMethod0 & invokeMethod. cg parents: 321 diff changeset	1230	].
567088a5a1b0 partial support for getMethod0 & invokeMethod. cg parents: 321 diff changeset	1231	returnType == #double ifTrue:[
2158 cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	1232	'warning: no returnTypeClass for double' printCR.
334 638045537cf7 * empty log message * cg parents: 332 diff changeset	1233	"/ self halt:'no returnTypeClass for double'.
2158 cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	1234	^ nil
322 567088a5a1b0 partial support for getMethod0 & invokeMethod. cg parents: 321 diff changeset	1235	].
567088a5a1b0 partial support for getMethod0 & invokeMethod. cg parents: 321 diff changeset	1236	returnType == #float ifTrue:[
2158 cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	1237	'warning: no returnTypeClass for float' printCR.
334 638045537cf7 * empty log message * cg parents: 332 diff changeset	1238	"/ self halt:'no returnTypeClass for float'.
2158 cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	1239	^ nil
322 567088a5a1b0 partial support for getMethod0 & invokeMethod. cg parents: 321 diff changeset	1240	].
567088a5a1b0 partial support for getMethod0 & invokeMethod. cg parents: 321 diff changeset	1241	returnType == #long ifTrue:[
2158 cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	1242	'warning: no returnTypeClass for long' printCR.
334 638045537cf7 * empty log message * cg parents: 332 diff changeset	1243	"/ self halt:'no returnTypeClass for long'.
2158 cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	1244	^ nil
334 638045537cf7 * empty log message * cg parents: 332 diff changeset	1245	].
638045537cf7 * empty log message * cg parents: 332 diff changeset	1246	returnType == #int ifTrue:[
2158 cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	1247	'warning: no returnTypeClass for int' printCR.
334 638045537cf7 * empty log message * cg parents: 332 diff changeset	1248	"/ self halt:'no returnTypeClass for int'.
2158 cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	1249	^ nil
334 638045537cf7 * empty log message * cg parents: 332 diff changeset	1250	].
638045537cf7 * empty log message * cg parents: 332 diff changeset	1251	returnType == #boolean ifTrue:[
2158 cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	1252	'warning: no returnTypeClass for boolean' printCR.
334 638045537cf7 * empty log message * cg parents: 332 diff changeset	1253	"/ self halt:'no returnTypeClass for boolean'.
2158 cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	1254	^ nil
322 567088a5a1b0 partial support for getMethod0 & invokeMethod. cg parents: 321 diff changeset	1255	].
567088a5a1b0 partial support for getMethod0 & invokeMethod. cg parents: 321 diff changeset	1256	self halt.
567088a5a1b0 partial support for getMethod0 & invokeMethod. cg parents: 321 diff changeset	1257	^ nil
567088a5a1b0 partial support for getMethod0 & invokeMethod. cg parents: 321 diff changeset	1258
567088a5a1b0 partial support for getMethod0 & invokeMethod. cg parents: 321 diff changeset	1259	"Created: / 13.2.1998 / 15:08:26 / cg"
378 a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1260	"Modified: / 16.10.1998 / 00:16:07 / cg"
322 567088a5a1b0 partial support for getMethod0 & invokeMethod. cg parents: 321 diff changeset	1261	!
567088a5a1b0 partial support for getMethod0 & invokeMethod. cg parents: 321 diff changeset	1262
116 7d612d4450c0 * empty log message * cg parents: 113 diff changeset	1263	returnsDouble
378 a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1264	^ self returnType == #double
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1265
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1266	"Modified: / 16.10.1998 / 00:18:24 / cg"
116 7d612d4450c0 * empty log message * cg parents: 113 diff changeset	1267	!
7d612d4450c0 * empty log message * cg parents: 113 diff changeset	1268
72 9427aa6a8528 * empty log message * cg parents: 64 diff changeset	1269	returnsLong
378 a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1270	^ self returnType == #long
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1271
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1272	"Modified: / 16.10.1998 / 00:18:41 / cg"
72 9427aa6a8528 * empty log message * cg parents: 64 diff changeset	1273	!
9427aa6a8528 * empty log message * cg parents: 64 diff changeset	1274
27 4560bb77bb36 checkin from browser cg parents: 19 diff changeset	1275	returnsVoid
378 a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1276	^ self returnType == #void
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1277
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1278	"Modified: / 16-10-1998 / 00:18:53 / cg"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1279	"Modified: / 22-03-2011 / 12:27:02 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
27 4560bb77bb36 checkin from browser cg parents: 19 diff changeset	1280	!
4560bb77bb36 checkin from browser cg parents: 19 diff changeset	1281
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1282	selector
378 a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1283	"/ could theoretically be extracted from my classes
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1284	"/ methodDictionary via:
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1285	"/ ^ javaClass methodDictionary keyAtValue:self ifAbsent:nil.
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1286
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1287	^ selector
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1288
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1289	"Created: / 7.1.1998 / 14:05:11 / cg"
378 a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1290	"Modified: / 16.10.1998 / 13:41:06 / cg"
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1291	!
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1292
27 4560bb77bb36 checkin from browser cg parents: 19 diff changeset	1293	signature
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1294	^ signature
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1295
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1296	"Modified: / 04-12-2011 / 19:39:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
31 644123641e2c java exceptions (java handlers not yet implemented) cg parents: 29 diff changeset	1297	!
644123641e2c java exceptions (java handlers not yet implemented) cg parents: 29 diff changeset	1298
644123641e2c java exceptions (java handlers not yet implemented) cg parents: 29 diff changeset	1299	source
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1300	\| classSource \|
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1301	"/ self isNative ifTrue:[
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1302	"/ ^ 'native method'
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1303	"/ ].
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1304	(self isSynthetic or:[ForceByteCodeDisplay == true]) ifTrue:[
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1305	^ self decompiledBytecode
169 269f334e9f34 * empty log message * cg parents: 168 diff changeset	1306	].
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1307	"/ lineNumberTable notNil ifTrue:[
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1308	classSource := javaClass source.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1309	classSource notNil ifTrue:[ ^ classSource].
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1310	"/ ].
75 9816a04c8b21 checkin from browser cg parents: 72 diff changeset	1311	^ self decompiledSource
169 269f334e9f34 * empty log message * cg parents: 168 diff changeset	1312
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1313	"Modified: / 04-01-1998 / 13:48:35 / cg"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1314	"Modified: / 13-12-2010 / 11:06:51 / Jan Kurs <kurs.jan@post.cz>"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1315	"Modified: / 13-04-2012 / 18:18:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
31 644123641e2c java exceptions (java handlers not yet implemented) cg parents: 29 diff changeset	1316	!
644123641e2c java exceptions (java handlers not yet implemented) cg parents: 29 diff changeset	1317
644123641e2c java exceptions (java handlers not yet implemented) cg parents: 29 diff changeset	1318	sourceFilename
644123641e2c java exceptions (java handlers not yet implemented) cg parents: 29 diff changeset	1319	^ javaClass sourceFile
175 68da52e100ab * empty log message * cg parents: 174 diff changeset	1320	!
68da52e100ab * empty log message * cg parents: 174 diff changeset	1321
68da52e100ab * empty log message * cg parents: 174 diff changeset	1322	sourceLineNumber
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1323
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1324	sourceLineNumber ifNil: [
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1325	"/ sourceLineNumber := (JavaSourceCodeCache new)
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1326	"/ findLineForMethod: self
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1327	"/ inClass:javaClass.
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1328	].
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1329
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1330	sourceLineNumber := 0.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1331
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1332	sourceLineNumber == 0 ifTrue:
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1333	[
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1334	"There is something wrong with parsing"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1335	"/ self halt.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1336	self breakPoint: #libjava.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1337	sourceLineNumber := self firstInstructionLineNumber -2.
175 68da52e100ab * empty log message * cg parents: 174 diff changeset	1338	].
68da52e100ab * empty log message * cg parents: 174 diff changeset	1339
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1340	^ sourceLineNumber.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1341
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1342	"Created: / 30-07-1997 / 15:40:45 / cg"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1343	"Modified: / 13-12-2010 / 23:46:30 / Marcel Hlopko <hlopik@gmail.com>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1344	"Modified: / 08-01-2011 / 16:20:40 / Jan Kurs <kurs.jan@post.cz>"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1345	"Modified: / 24-02-2012 / 19:24:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1346	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1347
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1348	wrapper
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1349
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1350	^nil
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1351
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1352	"Created: / 18-10-2010 / 19:11:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1353	! !
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1354
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1355	!JavaMethod methodsFor:'compiler interface'!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1356
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1357	flushCode
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1358	"Flushes jitted code, effectively cause a recompile"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1359	self code: nil.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1360	ObjectMemory flushCachesForSelector: selector.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1361
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1362	"Created: / 15-10-2012 / 21:03:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1363	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1364
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1365	mcompile
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1366	"__mcompile(OBJ aMethod, unsigned char bytecode, int nBytes, int nArgs, OBJ receiver, OBJ selector, OBJ srchClass, OBJ pArgsOrNull)"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1367
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1368	\| bytecode nBytes nArgs receiver mySelector srchClass pArgsOrNull retVal \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1369	bytecode := self byteCode.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1370	nBytes := self byteCode size.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1371	nArgs := self numArgs.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1372	receiver := nil.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1373	mySelector := self selector.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1374	srchClass := self mclass.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1375
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1376	%{
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1377	retVal = __mcompile(self, __ByteArrayInstPtr(bytecode), __intVal(nBytes), __intVal(nArgs), receiver, mySelector, srchClass, pArgsOrNull);
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1378
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1379
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1380	%}.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1381	self halt.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1382
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1383	"Created: / 24-02-2012 / 11:39:13 / m"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1384	"Modified: / 24-02-2012 / 14:00:04 / Marcel Hlopko <hlopik@gmail.com>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1385	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1386
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1387	programmingLanguage
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1388	"Returns a programming language of the method"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1389
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1390	"Do not return JavaLanguage unconditionally here.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1391	Consider another JVM-based languages (such as Groovy)"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1392	^javaClass programmingLanguage
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1393
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1394	"Created: / 26-10-2010 / 23:42:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2528 bc5ce044d5a1 Preserve method identity when updating class methods (when possible). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2527 diff changeset	1395	!
bc5ce044d5a1 Preserve method identity when updating class methods (when possible). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2527 diff changeset	1396
bc5ce044d5a1 Preserve method identity when updating class methods (when possible). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2527 diff changeset	1397	updateFrom: anotherMethod
bc5ce044d5a1 Preserve method identity when updating class methods (when possible). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2527 diff changeset	1398
bc5ce044d5a1 Preserve method identity when updating class methods (when possible). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2527 diff changeset	1399	self class allInstVarNames keysAndValuesDo:[:index :name\|
bc5ce044d5a1 Preserve method identity when updating class methods (when possible). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2527 diff changeset	1400	(#(#'code*' #'javaClass') includes: name) ifFalse:[
bc5ce044d5a1 Preserve method identity when updating class methods (when possible). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2527 diff changeset	1401	self instVarAt: index put: (anotherMethod instVarAt: index)
bc5ce044d5a1 Preserve method identity when updating class methods (when possible). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2527 diff changeset	1402	]
bc5ce044d5a1 Preserve method identity when updating class methods (when possible). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2527 diff changeset	1403	]
bc5ce044d5a1 Preserve method identity when updating class methods (when possible). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2527 diff changeset	1404
bc5ce044d5a1 Preserve method identity when updating class methods (when possible). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2527 diff changeset	1405	"Created: / 19-04-2013 / 00:08:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
8 4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	1406	! !
4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	1407
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1408	!JavaMethod methodsFor:'debugging'!
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1409
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1410	breakPoint
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1411	Debugger enter:thisContext sender withMessage:'breakpoint'
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1412
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1413	"Modified: / 9.1.1998 / 23:01:17 / cg"
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1414	!
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1415
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1416	clearBreakPoint
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1417	\| clsInEvent \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1418
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1419	accessFlags := (accessFlags bitClear:A_BREAKPOINT).
449 c9910d4dd515 * empty log message * cg parents: 431 diff changeset	1420	self hasCode ifTrue:[
2158 cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	1421	MessageTracer unwrapMethod:self
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1422	] ifFalse:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1423	clsInEvent := self isStatic
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1424	ifTrue:[ javaClass theMetaclass ]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1425	ifFalse:[ javaClass ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1426	Smalltalk changed:#methodTrap with:{ clsInEvent . selector }
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1427	]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1428
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1429	"Modified: / 13-11-1998 / 23:31:00 / cg"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1430	"Modified: / 30-05-2012 / 19:31:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1431	!
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1432
257 f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1433	isCounting
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1434	^ false.
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1435
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1436	"Created: / 12.1.1998 / 20:02:23 / cg"
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1437	!
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1438
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1439	isCountingMemoryUsage
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1440	^ false.
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1441
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1442	"Created: / 12.1.1998 / 20:03:22 / cg"
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1443	!
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1444
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1445	setBreakPoint
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1446	\| clsInEvent \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1447
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1448	accessFlags := (accessFlags bitOr:A_BREAKPOINT).
449 c9910d4dd515 * empty log message * cg parents: 431 diff changeset	1449	self hasCode ifTrue:[
2158 cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	1450	MessageTracer trapMethod:self
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1451	] ifFalse:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1452	clsInEvent := self isStatic
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1453	ifTrue:[ javaClass theMetaclass ]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1454	ifFalse:[ javaClass ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1455	Smalltalk changed:#methodTrap with:{ clsInEvent . selector }
449 c9910d4dd515 * empty log message * cg parents: 431 diff changeset	1456	].
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1457
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1458	"Modified: / 13-11-1998 / 23:30:45 / cg"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1459	"Modified: / 30-05-2012 / 19:30:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
257 f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1460	!
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1461
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1462	setTraceFullPoint
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1463	"not yet implemented"
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1464
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1465	"Modified: / 9.1.1998 / 23:01:17 / cg"
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1466	"Created: / 12.1.1998 / 20:04:45 / cg"
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1467	!
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1468
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1469	setTracePoint
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1470	"not yet implemented"
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1471
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1472	"Modified: / 9.1.1998 / 23:01:17 / cg"
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1473	"Created: / 12.1.1998 / 20:04:02 / cg"
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1474	!
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1475
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1476	setTraceSenderPoint
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1477	"not yet implemented"
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1478
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1479	"Modified: / 9.1.1998 / 23:01:17 / cg"
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1480	"Created: / 12.1.1998 / 20:04:35 / cg"
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1481	!
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1482
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1483	startCounting
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1484	"not yet implemented"
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1485
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1486	"Modified: / 9.1.1998 / 23:01:17 / cg"
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1487	"Created: / 12.1.1998 / 20:05:01 / cg"
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1488	!
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1489
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1490	startCountingMemoryUsage
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1491	"not yet implemented"
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1492
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1493	"Modified: / 9.1.1998 / 23:01:17 / cg"
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1494	"Created: / 12.1.1998 / 20:05:04 / cg"
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1495	!
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1496
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1497	startTiming
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1498	"not yet implemented"
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1499
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1500	"Modified: / 9.1.1998 / 23:01:17 / cg"
f0d546da7ac3 checkin from browser cg parents: 256 diff changeset	1501	"Created: / 12.1.1998 / 20:04:57 / cg"
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1502	! !
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1503
18 6c07dc4b1118 checkin from browser cg parents: 10 diff changeset	1504	!JavaMethod methodsFor:'decompiling'!
6c07dc4b1118 checkin from browser cg parents: 10 diff changeset	1505
175 68da52e100ab * empty log message * cg parents: 174 diff changeset	1506	decompileSourceTo:aStream
637 d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1507	\|argNames\|
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1508
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1509	byteCode isNil ifTrue:[
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1510	self isPublic ifTrue:[
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1511	aStream nextPutAll:'public '.
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1512	].
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1513	self isProtected ifTrue:[
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1514	aStream nextPutAll:'protected '.
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1515	].
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1516	self isPrivate ifTrue:[
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1517	aStream nextPutAll:'private '.
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1518	].
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1519	self isStatic ifTrue:[
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1520	aStream nextPutAll:'static '.
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1521	].
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1522
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1523	self isNative ifTrue:[
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1524	aStream nextPutAll:'native '.
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1525	].
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1526	self isAbstract ifTrue:[
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1527	aStream nextPutAll:'abstract '.
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1528	].
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1529	argNames := #('arg1' 'arg2' 'arg3' 'arg4' 'arg5' 'arg6' 'arg7' 'arg8' 'arg9').
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1530	aStream nextPutAll:(self signatureNameWithArgNames:argNames).
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1531	aStream nextPutAll:';'; cr.
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1532	^ self
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1533	].
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1534
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1535	"
637 d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1536	JavaDeparser isNil ifTrue:[
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1537	aStream nextPutAll:'// Sorry - no decompiler'.
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1538	^ self
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1539	].
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1540	"
637 d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1541
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1542
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	1543	"/ self isNative ifFalse:[
04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	1544	"/ self isAbstract ifFalse:[
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1545	aStream nextPutAll:'// source not available...'; cr.
637 d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1546	SignalSet anySignal handle:[:ex \|
2551 6b1262d7f5a0 class: JavaMethod Claus Gittinger <cg@exept.de> parents: 2396 diff changeset	1547	ex creator == Object haltSignal ifTrue:[ex reject].
6b1262d7f5a0 class: JavaMethod Claus Gittinger <cg@exept.de> parents: 2396 diff changeset	1548	ex creator == MessageTracer breakpointSignal ifTrue:[ex reject].
6b1262d7f5a0 class: JavaMethod Claus Gittinger <cg@exept.de> parents: 2396 diff changeset	1549	ex creator == Signal noHandlerSignal ifTrue:[ex reject].
506 81d3ef12bdc9 * empty log message * cg parents: 504 diff changeset	1550
637 d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1551	aStream nextPutAll:'error while decompiling:'.
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1552	aStream cr; cr; spaces:4.
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1553	aStream nextPutAll:ex errorString.
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1554	aStream cr.
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1555	aStream nextPutAll:ex suspendedContext printString.
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1556	aStream cr.
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1557	aStream nextPutAll:ex suspendedContext sender printString.
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1558	aStream cr.
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1559	aStream nextPutAll:ex suspendedContext sender sender printString.
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1560	aStream cr.
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1561	aStream nextPutAll:ex suspendedContext sender sender sender printString.
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1562	aStream cr.
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1563	aStream nextPutAll:ex suspendedContext sender sender sender sender printString.
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1564	aStream cr.
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1565	aStream nextPutAll:ex suspendedContext sender sender sender sender sender printString.
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1566	aStream cr.
2095 6773680aeb85 * empty log message * Claus Gittinger <cg@exept.de> parents: 2091 diff changeset	1567	aStream nextPutAll:ex suspendedContext sender sender sender sender sender sender printString.
6773680aeb85 * empty log message * Claus Gittinger <cg@exept.de> parents: 2091 diff changeset	1568	aStream cr.
6773680aeb85 * empty log message * Claus Gittinger <cg@exept.de> parents: 2091 diff changeset	1569	aStream nextPutAll:ex suspendedContext sender sender sender sender sender sender sender printString.
6773680aeb85 * empty log message * Claus Gittinger <cg@exept.de> parents: 2091 diff changeset	1570	aStream cr.
6773680aeb85 * empty log message * Claus Gittinger <cg@exept.de> parents: 2091 diff changeset	1571	aStream nextPutAll:ex suspendedContext sender sender sender sender sender sender sender sender printString.
6773680aeb85 * empty log message * Claus Gittinger <cg@exept.de> parents: 2091 diff changeset	1572	aStream cr.
506 81d3ef12bdc9 * empty log message * cg parents: 504 diff changeset	1573
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1574	"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1575	JavaByteCodeDisassembler isNil ifTrue:[
637 d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1576	aStream nextPutAll:'// Sorry - no decompiler'
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1577	] ifFalse:[
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1578	JavaByteCodeDisassembler diassemble:self to:aStream.
637 d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1579	].
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1580	"
637 d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1581	ex return
d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1582	] do:[
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1583	"aStream nextPutAll:(JavaDeparser decompile:self)."
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1584	JavaByteCodeDisassembler diassemble:self to:aStream.
637 d2e91e3e97c5 checkin from browser cg parents: 625 diff changeset	1585	].
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	1586	"/ ].
04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	1587	"/ ].
18 6c07dc4b1118 checkin from browser cg parents: 10 diff changeset	1588
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1589	"Created: / 30-07-1997 / 16:28:09 / cg"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1590	"Modified: / 21-12-1999 / 14:31:54 / cg"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1591	"Modified: / 22-03-2011 / 21:34:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
175 68da52e100ab * empty log message * cg parents: 174 diff changeset	1592	!
68da52e100ab * empty log message * cg parents: 174 diff changeset	1593
68da52e100ab * empty log message * cg parents: 174 diff changeset	1594	decompiler
68da52e100ab * empty log message * cg parents: 174 diff changeset	1595	^ JavaDecompiler
68da52e100ab * empty log message * cg parents: 174 diff changeset	1596
68da52e100ab * empty log message * cg parents: 174 diff changeset	1597	"Created: 30.7.1997 / 16:36:48 / cg"
261 d95d5a3cc475 lots of new stuff cg parents: 257 diff changeset	1598	!
d95d5a3cc475 lots of new stuff cg parents: 257 diff changeset	1599
449 c9910d4dd515 * empty log message * cg parents: 431 diff changeset	1600	isMethod
c9910d4dd515 * empty log message * cg parents: 431 diff changeset	1601	"return true, if the receiver is some kind of method;
c9910d4dd515 * empty log message * cg parents: 431 diff changeset	1602	true returned here - the method is redefined from Object."
c9910d4dd515 * empty log message * cg parents: 431 diff changeset	1603
c9910d4dd515 * empty log message * cg parents: 431 diff changeset	1604	^ true
c9910d4dd515 * empty log message * cg parents: 431 diff changeset	1605
c9910d4dd515 * empty log message * cg parents: 431 diff changeset	1606	"Created: / 13.11.1998 / 23:57:40 / cg"
c9910d4dd515 * empty log message * cg parents: 431 diff changeset	1607	!
c9910d4dd515 * empty log message * cg parents: 431 diff changeset	1608
261 d95d5a3cc475 lots of new stuff cg parents: 257 diff changeset	1609	originalMethod
d95d5a3cc475 lots of new stuff cg parents: 257 diff changeset	1610	^ self
d95d5a3cc475 lots of new stuff cg parents: 257 diff changeset	1611
d95d5a3cc475 lots of new stuff cg parents: 257 diff changeset	1612	"Created: / 13.1.1998 / 15:03:05 / cg"
18 6c07dc4b1118 checkin from browser cg parents: 10 diff changeset	1613	! !
6c07dc4b1118 checkin from browser cg parents: 10 diff changeset	1614
277 511c3bb153b7 jdk1.2 stuff. cg parents: 275 diff changeset	1615	!JavaMethod methodsFor:'error handling'!
511c3bb153b7 jdk1.2 stuff. cg parents: 275 diff changeset	1616
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1617	errorInvalidClassRefAt: index
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1618
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1619	"Sent by the VM when an invalid entry in contant pool
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1620	is encountered - for instance when the VM expects
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1621	a classref but the entry is not a classref"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1622
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1623	"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1624	javaClass constantPool at: index.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1625	"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1626
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1627	JavaInvalidRefError new
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1628	javaClass: javaClass;
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1629	index: index;
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1630	raiseRequest
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1631
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1632	"Created: / 18-07-2011 / 23:33:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1633	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1634
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1635	errorInvalidFieldRefAt: index
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1636
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1637	"Sent by the VM when an invalid entry in contant pool
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1638	is encountered - for instance when the VM expects
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1639	a classref but the entry is not a classref"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1640
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1641	"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1642	javaClass constantPool at: index.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1643	"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1644
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1645	JavaInvalidRefError new
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1646	javaClass: javaClass;
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1647	index: index;
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1648	raiseRequest
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1649
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1650	"Created: / 18-07-2011 / 23:33:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1651	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1652
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1653	errorInvalidMethodRefAt: index
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1654
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1655	"Sent by the VM when an invalid entry in contant pool
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1656	is encountered - for instance when the VM expects
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1657	a classref but the entry is not a classref"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1658
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1659	"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1660	javaClass constantPool at: index.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1661	"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1662
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1663	JavaInvalidRefError new
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1664	javaClass: javaClass;
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1665	index: index;
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1666	raiseRequest
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1667
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1668	"Created: / 18-07-2011 / 19:59:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1669	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1670
277 511c3bb153b7 jdk1.2 stuff. cg parents: 275 diff changeset	1671	invalidByteCode
511c3bb153b7 jdk1.2 stuff. cg parents: 275 diff changeset	1672	self isAbstract ifTrue:[
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1673	^ AbstractMethodInvokationSignal raise.
277 511c3bb153b7 jdk1.2 stuff. cg parents: 275 diff changeset	1674	].
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1675	((self class numArgsFromSignature:descriptor) > self class maxNumberOfArguments) ifTrue:[
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1676	^ self error:'method cannot be executed - too many args'
309 e1bfd26cadae * empty log message * cg parents: 277 diff changeset	1677	].
277 511c3bb153b7 jdk1.2 stuff. cg parents: 275 diff changeset	1678	^ super invalidByteCode
511c3bb153b7 jdk1.2 stuff. cg parents: 275 diff changeset	1679
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1680	"Created: / 27-01-1998 / 21:48:01 / cg"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1681	"Modified: / 14-08-2011 / 19:29:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
378 a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1682	!
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1683
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1684	invalidMethodRef
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1685	self halt.
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1686	^ nil.
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1687
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1688	"Modified: / 27.1.1998 / 21:50:19 / cg"
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1689	"Created: / 16.10.1998 / 11:27:21 / cg"
594 0d5fea9542d3 checkin from browser cg parents: 525 diff changeset	1690	!
0d5fea9542d3 checkin from browser cg parents: 525 diff changeset	1691
0d5fea9542d3 checkin from browser cg parents: 525 diff changeset	1692	nullClassPointer
0d5fea9542d3 checkin from browser cg parents: 525 diff changeset	1693	JavaVM throwClassNotFoundException
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1694	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1695
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1696	wrongNumberOfArguments:numArgsGiven
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1697	"{ Pragma: +optSpace }"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1698
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1699	"this error is triggered by the VM, if a method is called with a wrong number
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1700	of arguments.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1701	This only applies to #valueWithReceiverXXX and #perform:withArguments: - sends.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1702	With a normal send, this error cannot happen."
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1703
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1704	^ JavaVM
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1705	throwIllegalArgumentException:(' - %1 got %2 arg(s) where %3 expected'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1706	bindWith:self class name
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1707	with:numArgsGiven
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1708	with:self numArgs)
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1709
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1710	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1711	2 perform:#+
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1712	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1713
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1714	"Modified: / 01-08-1997 / 00:23:10 / cg"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1715	"Created: / 07-09-2011 / 14:17:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1716	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1717
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1718	!JavaMethod methodsFor:'executing'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1719
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1720	valueWithReceiver:anObject arguments:argArray selector:aSymbol search:aClass sender:virtualSender
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1721	self isStatic ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1722	anObject == javaClass ifFalse:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1723	self error: 'Invalid receiver - only owning class can be a receiver of static method invocation!!'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1724	]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1725	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1726	^super valueWithReceiver:anObject arguments:argArray selector:aSymbol search:aClass sender:virtualSender
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1727
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1728	"Created: / 31-10-2012 / 23:09:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
277 511c3bb153b7 jdk1.2 stuff. cg parents: 275 diff changeset	1729	! !
511c3bb153b7 jdk1.2 stuff. cg parents: 275 diff changeset	1730
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1731	!JavaMethod methodsFor:'initialization'!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1732
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1733	resolve
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1734	"Called by VM to resolve all references used by this method. When
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1735	successful (i.e., all references has been successfully resolved, a
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1736	A_RESOLVED flag is set (to prevent VM from subsequent calls
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1737	to this method)
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1738
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1739	Returns 1 if successfull, 0 if not (at least one reference
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1740	could not been resolved) or -1 when some (unspecified) erorr
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1741	occurs."
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1742	"Marcel, continue here!! And ALWAYS commit ALL the code!! Sigh"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1743
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1744	[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1745	JavaByteCodePreresolver preresolve: self.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1746	accessFlags := accessFlags \| A_RESOLVED.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1747	^1.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1748	] on: Error do:[:ex\|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1749	self breakPoint: #mh. "Marcel, please fix it"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1750	^0.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1751	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1752
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1753	"/RETURN 1...OK,
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1754	"/ 0...Something could not be resolved
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1755	"/ -1...Some error
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1756	self breakPoint:#mh.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1757	^ 1.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1758
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1759	"Created: / 09-02-2012 / 20:59:22 / mh <hlopik@gmail.com>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1760	"Modified: / 11-02-2012 / 13:46:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1761	"Modified (format): / 23-02-2012 / 17:49:09 / Marcel Hlopko <hlopik@gmail.com>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1762	"Modified: / 24-02-2012 / 14:46:10 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1763	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1764
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1765	setAccessFlags:flags
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1766	accessFlags := flags.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1767
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1768	"Created: 16.4.1996 / 11:34:14 / cg"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1769	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1770
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1771	setCode:codeBytes maxStack:max_stack maxLocals:max_locals u1:unknown1 u2:unknown2
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1772	"/ javaByteCode := codeBytes.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1773	byteCode := codeBytes.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1774	"/ numStack := max_stack.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1775	"/ numLocals := max_locals.
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1776	super numberOfVars:max_locals - self numArgs - (self isStatic ifTrue:[0] ifFalse:[1]).
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1777	super stackSize:max_stack.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1778
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1779
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1780
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1781	"/ self displayString printNL.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1782	"/ ' nStack: ' print. numStack print.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1783	"/ ' nLocal: ' print. numLocals print.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1784	"/ ' u1: ' print. unknown1 print.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1785	"/ ' u2: ' print. unknown2 printNL.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1786
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1787	"Modified: / 01-08-1997 / 00:08:32 / cg"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1788	"Modified: / 12-10-2012 / 11:46:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1789	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1790
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1791	setDescriptor:aString
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1792
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1793	descriptor := aString asSymbol.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1794
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1795	"Created: / 16-04-1996 / 11:34:29 / cg"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1796	"Modified: / 16-10-1998 / 00:17:12 / cg"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1797	"Modified: / 13-08-2011 / 01:21:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1798	"Created: / 14-08-2011 / 19:41:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1799	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1800
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1801	setJavaClass:aJavaClass
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1802	javaClass := aJavaClass
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1803
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1804	"Modified: 16.4.1996 / 12:36:27 / cg"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1805	"Created: 16.4.1996 / 15:28:15 / cg"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1806	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1807
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1808	setLineNumberTable:anArrayOfPCtoLineAssociations
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1809	"since this uses up lots of memory, compress it"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1810
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1811	\|allBytes allWords idx\|
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1812
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1813	allBytes := allWords := true.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1814
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1815	anArrayOfPCtoLineAssociations do:[:assoc \|
2158 cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	1816	assoc key > 255 ifTrue:[
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	1817	allBytes := false.
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	1818	assoc key > 16rFFFF ifTrue:[
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	1819	allWords := false.
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	1820	].
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	1821	].
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	1822	assoc value > 255 ifTrue:[
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	1823	allBytes := false.
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	1824	assoc value > 16rFFFF ifTrue:[
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	1825	allWords := false
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	1826	].
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	1827	].
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1828	].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1829	allBytes ifTrue:[
2158 cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	1830	lineNumberTable := ByteArray new:(anArrayOfPCtoLineAssociations size * 2).
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1831	] ifFalse:[
2158 cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	1832	allWords ifTrue:[
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	1833	lineNumberTable := WordArray new:(anArrayOfPCtoLineAssociations size * 2).
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	1834	] ifFalse:[
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	1835	lineNumberTable := Array new:(anArrayOfPCtoLineAssociations size * 2).
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	1836	]
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1837	].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1838
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1839	idx := 1.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1840	anArrayOfPCtoLineAssociations do:[:assoc \|
2158 cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	1841	lineNumberTable at:idx put:assoc key.
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	1842	lineNumberTable at:idx+1 put:assoc value.
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	1843	idx := idx + 2.
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1844	].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1845
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1846	"Created: 16.4.1996 / 12:34:04 / cg"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1847	"Modified: 16.4.1996 / 12:49:06 / cg"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1848	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1849
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1850	setLocalVariableTable:anArray
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1851	localVariableTable := anArray.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1852	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1853
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1854	setName:nameString descriptor:aString
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1855
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1856
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1857	\|numArgs numJArgs returnType\|
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1858
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1859	selector := (nameString , aString) asSymbol.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1860	self setDescriptor:aString.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1861
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1862	numJArgs := self class numArgsFromSignature:aString.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1863	(numJArgs > self class maxNumberOfArguments) ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1864	numArgs := 1.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1865	] ifFalse:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1866	numArgs := numJArgs.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1867	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1868	self numberOfArgs:numArgs.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1869	self numberOfJavaArgs:numJArgs.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	1870	returnType := self class typeFromSignature:aString in:nil.
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1871
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1872	"/ for the convenience of the VM, also mirror the return type in
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1873	"/ the flags ...
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1874
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1875	returnType == #void ifTrue:[
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1876	accessFlags := accessFlags bitOr:R_VOID
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1877	] ifFalse:[
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1878	returnType == #long ifTrue:[
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1879	accessFlags := accessFlags bitOr:R_LONG
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1880	] ifFalse:[
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1881	returnType == #double ifTrue:[
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1882	accessFlags := accessFlags bitOr:R_DOUBLE
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1883	]
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1884	]
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1885	].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1886
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1887	"Created: / 14-08-2011 / 19:41:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1888	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1889
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1890	setSignature:aString
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1891
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1892	signature := aString asSymbol.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1893
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1894	"Created: / 16-04-1996 / 11:34:29 / cg"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1895	"Modified: / 16-10-1998 / 00:17:12 / cg"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1896	"Modified (format): / 14-08-2011 / 19:41:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1897	! !
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1898
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1899	!JavaMethod methodsFor:'inspecting'!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1900
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1901	inspectorExtraAttributes
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1902	"extra (pseudo instvar) entries to be shown in an inspector."
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1903
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1904	^ Dictionary new
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1905	declareAllNewFrom:(super inspectorExtraAttributes ? #());
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1906	"/add:'-code' -> [ String streamContents:[:s \| JavaDecompiler decompile: self to: s] ];
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1907	add:'-code' -> [ String streamContents:[:s \| JavaByteCodeDisassembler diassemble: self to: s] ];
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1908	"/add:'-source' -> [ self source ];
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1909	yourself
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1910
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1911	"Modified: / 22-03-2011 / 21:13:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1912	! !
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1913
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1914	!JavaMethod methodsFor:'interpretation'!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1915
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1916	interpretWithReceiver: receiver
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1917
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1918	^self
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1919	interpretWithReceiver: receiver
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1920	arguments: #()
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1921
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1922	"Created: / 24-02-2011 / 22:05:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1923	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1924
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1925	interpretWithReceiver: receiver arg: a1
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1926
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1927	^self
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1928	interpretWithReceiver: receiver
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1929	arguments: (Array with: a1)
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1930
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1931	"Created: / 24-02-2011 / 22:05:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1932	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1933
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1934	interpretWithReceiver: receiver arg: a1 arg: a2
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1935
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1936	^self
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1937	interpretWithReceiver: receiver
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1938	arguments: (Array with: a1 with: a2)
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1939
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1940	"Created: / 24-02-2011 / 22:05:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1941	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1942
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1943	interpretWithReceiver: receiver arg: a1 arg: a2 arg: a3
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1944
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1945	^self
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1946	interpretWithReceiver: receiver
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1947	arguments: (Array with: a1 with: a2 with: a3)
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1948
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1949	"Created: / 24-02-2011 / 22:06:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1950	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1951
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1952	interpretWithReceiver: receiver arguments:args
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1953
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1954	^ JavaByteCodeInterpreter
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1955	interpret:self
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1956	receiver:receiver
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1957	arguments:args
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1958
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1959	"Modified: / 24-02-2011 / 23:00:42 / Marcel Hlopko <hlopik@gmail.com>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1960	"Created: / 24-02-2011 / 22:04:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1961	! !
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1962
118 c1f888534eed fixed numVar/numLocal & numStacl stuff cg parents: 116 diff changeset	1963	!JavaMethod methodsFor:'methodref interchangability'!
c1f888534eed fixed numVar/numLocal & numStacl stuff cg parents: 116 diff changeset	1964
673 5afd5a1e3b15 * empty log message * cg parents: 670 diff changeset	1965	homeMethod
5afd5a1e3b15 * empty log message * cg parents: 670 diff changeset	1966	^ self
5afd5a1e3b15 * empty log message * cg parents: 670 diff changeset	1967	!
5afd5a1e3b15 * empty log message * cg parents: 670 diff changeset	1968
118 c1f888534eed fixed numVar/numLocal & numStacl stuff cg parents: 116 diff changeset	1969	method
c1f888534eed fixed numVar/numLocal & numStacl stuff cg parents: 116 diff changeset	1970	^ self
692 2d757af88e5b comment cg parents: 685 diff changeset	1971	!
2d757af88e5b comment cg parents: 685 diff changeset	1972
2d757af88e5b comment cg parents: 685 diff changeset	1973	setPackage:newPackage
2d757af88e5b comment cg parents: 685 diff changeset	1974	newPackage ~= javaClass package ifTrue:[
2d757af88e5b comment cg parents: 685 diff changeset	1975	self halt:'java method cannot be in a package different from its class'.
2d757af88e5b comment cg parents: 685 diff changeset	1976	]
118 c1f888534eed fixed numVar/numLocal & numStacl stuff cg parents: 116 diff changeset	1977	! !
c1f888534eed fixed numVar/numLocal & numStacl stuff cg parents: 116 diff changeset	1978
148 db560ebab8b5 * empty log message * cg parents: 143 diff changeset	1979	!JavaMethod methodsFor:'misc'!
db560ebab8b5 * empty log message * cg parents: 143 diff changeset	1980
378 a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1981	fromMethod:aJavaMethod
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1982	"copy values from another javaMethod"
149 d6fe26e9af47 * empty log message * cg parents: 148 diff changeset	1983
378 a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1984	flags := aJavaMethod flags.
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1985	byteCode := aJavaMethod byteCode.
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1986	accessFlags := aJavaMethod accessFlags.
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1987	selector := aJavaMethod selector.
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1988	javaClass := aJavaMethod javaClass.
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1989	descriptor := aJavaMethod instVarNamed:#descriptor.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1990	signature := aJavaMethod instVarNamed:#signature.
378 a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1991	lineNumberTable := aJavaMethod lineNumberTable.
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	1992	localVariableTable := aJavaMethod localVariableTable.
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1993	annotations := aJavaMethod annotations.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1994
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1995	"Modified: / 16-10-1998 / 01:27:19 / cg"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	1996	"Modified: / 14-08-2011 / 19:30:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1997	!
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	1998
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	1999	updateClassRefsFrom:oldClass to:newClass
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	2000	javaClass == oldClass ifTrue:[
2158 cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	2001	"/ invalidate
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	2002	byteCode := nil.
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	2003	]
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	2004
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	2005	"Created: / 6.1.1998 / 18:19:48 / cg"
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	2006	! !
04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	2007
8 4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	2008	!JavaMethod methodsFor:'printing & storing'!
4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	2009
29 eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	2010	displayString
168 90e39cb3fa04 * empty log message * cg parents: 166 diff changeset	2011	javaClass isNil ifTrue:[
611 490fbaed2257 faster nativeMethod invocation cg parents: 609 diff changeset	2012	^ self class name , '(???)'
168 90e39cb3fa04 * empty log message * cg parents: 166 diff changeset	2013	].
611 490fbaed2257 faster nativeMethod invocation cg parents: 609 diff changeset	2014	^ self class name , '(' , javaClass displayString , '::' , self signatureName , ')'
423 08af061c56a8 javaClass now uses its fullName in name cg parents: 412 diff changeset	2015
611 490fbaed2257 faster nativeMethod invocation cg parents: 609 diff changeset	2016	"Modified: / 25.9.1999 / 23:04:01 / cg"
29 eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	2017	!
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	2018
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2019	printOn: aStream
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2020
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2021	super printOn: aStream.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2022	aStream nextPut: $(.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2023	javaClass name printOn: aStream.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2024	aStream nextPut: $..
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2025	selector printOn: aStream.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2026	aStream nextPut: $).
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2027
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2028	"Created: / 05-12-2011 / 01:30:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2029	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2030
670 92f120745381 printStringForBrowser cg parents: 654 diff changeset	2031	printStringForBrowserWithSelector:dummySelector inClass:dummyClass
43 2c4ca2eb8d07 checkin from browser cg parents: 31 diff changeset	2032	"/ self isStatic ifTrue:[
2c4ca2eb8d07 checkin from browser cg parents: 31 diff changeset	2033	"/ ^ 'static ' , self signatureName
2c4ca2eb8d07 checkin from browser cg parents: 31 diff changeset	2034	"/ ].
168 90e39cb3fa04 * empty log message * cg parents: 166 diff changeset	2035	"/ self isBreakpointed ifTrue:[
90e39cb3fa04 * empty log message * cg parents: 166 diff changeset	2036	"/ ^ (LabelAndIcon '!! ' , self signatureName
90e39cb3fa04 * empty log message * cg parents: 166 diff changeset	2037	"/ ].
175 68da52e100ab * empty log message * cg parents: 174 diff changeset	2038
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	2039	self name = #'<init>' ifTrue:[
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2040	^ self class specTextFromSignature:descriptor in:javaClass package withName:(javaClass lastName).
166 3bb2f7fbd489 checkin from browser cg parents: 164 diff changeset	2041	].
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2042	^ self class specTextFromSignature:descriptor in:javaClass package withName:(self name)
10 1f803ce6d3fc better signature code cg parents: 8 diff changeset	2043	!
1f803ce6d3fc better signature code cg parents: 8 diff changeset	2044
118 c1f888534eed fixed numVar/numLocal & numStacl stuff cg parents: 116 diff changeset	2045	shortDisplayString
c1f888534eed fixed numVar/numLocal & numStacl stuff cg parents: 116 diff changeset	2046	^ javaClass name , '::' , self signatureNameWithoutReturnType
c1f888534eed fixed numVar/numLocal & numStacl stuff cg parents: 116 diff changeset	2047	!
c1f888534eed fixed numVar/numLocal & numStacl stuff cg parents: 116 diff changeset	2048
10 1f803ce6d3fc better signature code cg parents: 8 diff changeset	2049	signatureName
1f803ce6d3fc better signature code cg parents: 8 diff changeset	2050	"return a string to be used when browsing"
1f803ce6d3fc better signature code cg parents: 8 diff changeset	2051
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2052	^ self class specFromSignature:descriptor withName:(self name) in:nil
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	2053
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	2054	"Modified: / 8.1.1998 / 19:15:33 / cg"
113 481bf55e161e * empty log message * cg parents: 111 diff changeset	2055	!
481bf55e161e * empty log message * cg parents: 111 diff changeset	2056
164 724c443e6f79 * empty log message * cg parents: 156 diff changeset	2057	signatureNameFor:name withArgsIn:aPackage
724c443e6f79 * empty log message * cg parents: 156 diff changeset	2058	"return a string to be used when decompiling"
724c443e6f79 * empty log message * cg parents: 156 diff changeset	2059
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2060	^ self class specWithArgsFromSignature:descriptor withName:name in:aPackage
164 724c443e6f79 * empty log message * cg parents: 156 diff changeset	2061
724c443e6f79 * empty log message * cg parents: 156 diff changeset	2062	"Created: 25.3.1997 / 18:49:45 / cg"
724c443e6f79 * empty log message * cg parents: 156 diff changeset	2063	!
724c443e6f79 * empty log message * cg parents: 156 diff changeset	2064
142 1cc00567fb75 * empty log message * cg parents: 141 diff changeset	2065	signatureNameIn:aPackage
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	2066	"return a string to be used when browsing"
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	2067
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2068	^ self class specFromSignature:descriptor withName:(self name) in:aPackage
142 1cc00567fb75 * empty log message * cg parents: 141 diff changeset	2069
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	2070	"Created: 18.3.1997 / 11:11:01 / cg"
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	2071	!
1cc00567fb75 * empty log message * cg parents: 141 diff changeset	2072
175 68da52e100ab * empty log message * cg parents: 174 diff changeset	2073	signatureNameText
68da52e100ab * empty log message * cg parents: 174 diff changeset	2074	"return a text to be used when browsing"
68da52e100ab * empty log message * cg parents: 174 diff changeset	2075
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2076	^ self class specTextFromSignature:descriptor withName:(self name)
175 68da52e100ab * empty log message * cg parents: 174 diff changeset	2077
68da52e100ab * empty log message * cg parents: 174 diff changeset	2078	"Created: 30.7.1997 / 14:40:29 / cg"
68da52e100ab * empty log message * cg parents: 174 diff changeset	2079	!
68da52e100ab * empty log message * cg parents: 174 diff changeset	2080
189 babfb18fc67b signature parsing cg parents: 184 diff changeset	2081	signatureNameTextFor:name withArgsIn:aPackage
babfb18fc67b signature parsing cg parents: 184 diff changeset	2082	"return a text to be used when decompiling"
babfb18fc67b signature parsing cg parents: 184 diff changeset	2083
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2084	^ self class specTextWithArgsFromSignature:descriptor withName:name in:aPackage
189 babfb18fc67b signature parsing cg parents: 184 diff changeset	2085
babfb18fc67b signature parsing cg parents: 184 diff changeset	2086	"Created: 25.3.1997 / 18:49:45 / cg"
babfb18fc67b signature parsing cg parents: 184 diff changeset	2087	"Modified: 1.8.1997 / 10:44:28 / cg"
babfb18fc67b signature parsing cg parents: 184 diff changeset	2088	!
babfb18fc67b signature parsing cg parents: 184 diff changeset	2089
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	2090	signatureNameWithArgNames:argNames
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	2091	"return a string to be used when browsing"
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	2092
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	2093	\|myName\|
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	2094
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	2095	myName := self name.
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	2096	myName = '<init>' ifTrue:[
2158 cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	2097	myName := javaClass name
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	2098	].
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2099	^ self class specFromSignature:descriptor withName:myName argNames:argNames in:nil
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	2100
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	2101	"Created: / 8.1.1998 / 21:04:03 / cg"
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	2102	"Modified: / 8.1.1998 / 21:22:38 / cg"
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	2103	!
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	2104
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	2105	signatureNameWithArgNames:argNames in:package
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	2106	"return a string to be used when browsing"
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	2107
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	2108	\|myName\|
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	2109
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	2110	myName := self name.
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	2111	myName = '<init>' ifTrue:[
2158 cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	2112	myName := javaClass name
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	2113	].
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2114	^ self class specFromSignature:descriptor withName:myName argNames:argNames in:package
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	2115
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	2116	"Modified: / 8.1.1998 / 21:05:52 / cg"
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	2117	"Created: / 8.1.1998 / 21:23:03 / cg"
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	2118	!
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	2119
154 d51e897b4b5f checkin from browser cg parents: 149 diff changeset	2120	signatureNameWithArgsIn:aPackage
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	2121	"return a string to be used when browsing"
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	2122
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2123	^ self class specWithArgsFromSignature:descriptor withName:(self name) in:aPackage
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2124
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2125	"Created: / 20-03-1997 / 12:44:17 / cg"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2126	"Modified: / 14-08-2011 / 19:29:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2127	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2128
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2129	signatureNameWithModifiers
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2130	"return a string to be used when deassembling"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2131
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2132	\| result \|
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2133
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2134	result := self signatureName.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2135	self isFinal ifTrue: [ result := 'final ' , result ].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2136	self isStatic ifTrue: [ result := 'static ' , result ].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2137	self isSynchronized ifTrue: [ result := 'synchronized ' , result ].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2138	self isPrivate
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2139	ifTrue: [ result := 'private ' , result ]
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2140	ifFalse:
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2141	[ self isProtected
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2142	ifTrue: [ result := 'protected ' , result ]
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2143	ifFalse: [ self isPublic ifTrue: [ result := 'public ' , result ] ] ].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2144	self isAbstract ifTrue: [ result := 'abstract ' , result ].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2145	^ result.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2146
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2147	"Modified: / 08-01-1998 / 19:15:33 / cg"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2148	"Created: / 22-03-2011 / 16:25:27 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
154 d51e897b4b5f checkin from browser cg parents: 149 diff changeset	2149	!
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	2150
113 481bf55e161e * empty log message * cg parents: 111 diff changeset	2151	signatureNameWithoutReturnType
481bf55e161e * empty log message * cg parents: 111 diff changeset	2152	"return a string to be used when browsing"
481bf55e161e * empty log message * cg parents: 111 diff changeset	2153
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2154	^ self class argSpecFromSignature:descriptor withName:(self name)
113 481bf55e161e * empty log message * cg parents: 111 diff changeset	2155
8 4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	2156	! !
4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	2157
4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	2158	!JavaMethod methodsFor:'queries'!
4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	2159
2527 c380a7c258fb Makes JavaUnresolvedCompilationError proceedable. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2514 diff changeset	2160	canBeUpdatedFrom: anotherMethod
c380a7c258fb Makes JavaUnresolvedCompilationError proceedable. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2514 diff changeset	2161	"Return if receiver can be updated from given method, i.e., if it is safe
c380a7c258fb Makes JavaUnresolvedCompilationError proceedable. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2514 diff changeset	2162	to just to take anotherMethod's bytecode. Used to implement fix & restart
c380a7c258fb Makes JavaUnresolvedCompilationError proceedable. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2514 diff changeset	2163	workflow"
c380a7c258fb Makes JavaUnresolvedCompilationError proceedable. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2514 diff changeset	2164
2528 bc5ce044d5a1 Preserve method identity when updating class methods (when possible). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2527 diff changeset	2165	"/ Allready jitted method cannot be updated - no way to restart existing context into
bc5ce044d5a1 Preserve method identity when updating class methods (when possible). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2527 diff changeset	2166	"/ new code
bc5ce044d5a1 Preserve method identity when updating class methods (when possible). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2527 diff changeset	2167	self code notNil ifTrue:[ ^ false ].
bc5ce044d5a1 Preserve method identity when updating class methods (when possible). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2527 diff changeset	2168
bc5ce044d5a1 Preserve method identity when updating class methods (when possible). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2527 diff changeset	2169	"/ Args and their types must match
bc5ce044d5a1 Preserve method identity when updating class methods (when possible). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2527 diff changeset	2170	selector ~~ anotherMethod selector ifTrue: [ ^ false ].
bc5ce044d5a1 Preserve method identity when updating class methods (when possible). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2527 diff changeset	2171
bc5ce044d5a1 Preserve method identity when updating class methods (when possible). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2527 diff changeset	2172	"/ max stack depth must be smaller or equal of the current
bc5ce044d5a1 Preserve method identity when updating class methods (when possible). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2527 diff changeset	2173	(self numVars + self stackSize) < (anotherMethod numVars + anotherMethod stackSize) ifTrue:[ ^ false ].
bc5ce044d5a1 Preserve method identity when updating class methods (when possible). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2527 diff changeset	2174
bc5ce044d5a1 Preserve method identity when updating class methods (when possible). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2527 diff changeset	2175	^true
2527 c380a7c258fb Makes JavaUnresolvedCompilationError proceedable. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2514 diff changeset	2176
c380a7c258fb Makes JavaUnresolvedCompilationError proceedable. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2514 diff changeset	2177	"Created: / 18-04-2013 / 23:43:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c380a7c258fb Makes JavaUnresolvedCompilationError proceedable. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2514 diff changeset	2178	!
c380a7c258fb Makes JavaUnresolvedCompilationError proceedable. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2514 diff changeset	2179
111 23243f9273fa * empty log message * cg parents: 102 diff changeset	2180	handlerFor:anException at:pc
611 490fbaed2257 faster nativeMethod invocation cg parents: 609 diff changeset	2181	"return an exceptionHandlers pc, for an exception of the given type,
490fbaed2257 faster nativeMethod invocation cg parents: 609 diff changeset	2182	occurring at pc. Returns nil, if there is none."
490fbaed2257 faster nativeMethod invocation cg parents: 609 diff changeset	2183
490fbaed2257 faster nativeMethod invocation cg parents: 609 diff changeset	2184	\|handlerTable\|
490fbaed2257 faster nativeMethod invocation cg parents: 609 diff changeset	2185
490fbaed2257 faster nativeMethod invocation cg parents: 609 diff changeset	2186	(handlerTable := self exceptionHandlerTable) isNil ifTrue:[^ nil].
2585 14ab287e17ca Exception table refactored to use more compact & VM friendly format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2578 diff changeset	2187	^handlerTable handlerPCFor:anException at:pc in:self.
14ab287e17ca Exception table refactored to use more compact & VM friendly format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2578 diff changeset	2188
14ab287e17ca Exception table refactored to use more compact & VM friendly format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2578 diff changeset	2189	"Created: / 16-10-1998 / 01:18:40 / cg"
14ab287e17ca Exception table refactored to use more compact & VM friendly format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2578 diff changeset	2190	"Modified: / 25-09-1999 / 23:07:01 / cg"
14ab287e17ca Exception table refactored to use more compact & VM friendly format. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2578 diff changeset	2191	"Modified: / 06-05-2013 / 21:49:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
31 644123641e2c java exceptions (java handlers not yet implemented) cg parents: 29 diff changeset	2192	!
644123641e2c java exceptions (java handlers not yet implemented) cg parents: 29 diff changeset	2193
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2194	hasFinally
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2195	^ (accessFlags bitAnd:A_HASFINALLY) ~~ 0
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2196
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2197	"Created: / 28-03-2012 / 20:35:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2198	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2199
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2200	hasFinallyBasedOnExceptionTable
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2201	"Returns true if the exeption table has at least one
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2202	entry for finally block"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2203	^false
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2204
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2205	"Created: / 28-03-2012 / 23:18:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2206	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2207
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2208	hasHandler
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2209	^ (accessFlags bitAnd:A_HASHANDLER) ~~ 0
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2210
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2211	"Created: / 28-03-2012 / 20:35:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2212	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2213
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2214	hasPrimitiveCode
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2215
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2216	^false
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2217
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2218	"Created: / 18-07-2011 / 20:45:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2219	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2220
127 96f1bf74011f * empty log message * cg parents: 123 diff changeset	2221	hasResource
96f1bf74011f * empty log message * cg parents: 123 diff changeset	2222	^ false
96f1bf74011f * empty log message * cg parents: 123 diff changeset	2223	!
96f1bf74011f * empty log message * cg parents: 123 diff changeset	2224
19 512a19e2d46f checkin from browser cg parents: 18 diff changeset	2225	isAbstract
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	2226	^ (accessFlags bitAnd:A_ABSTRACT) ~~ 0
19 512a19e2d46f checkin from browser cg parents: 18 diff changeset	2227	!
512a19e2d46f checkin from browser cg parents: 18 diff changeset	2228
80 f08d2cab0b55 * empty log message * cg parents: 75 diff changeset	2229	isBreakpointed
256 2cbf20ad74b2 checkin from browser cg parents: 255 diff changeset	2230	^ (accessFlags bitAnd:A_BREAKPOINT) ~~ 0
2cbf20ad74b2 checkin from browser cg parents: 255 diff changeset	2231
2cbf20ad74b2 checkin from browser cg parents: 255 diff changeset	2232	"Modified: / 11.1.1998 / 13:28:43 / cg"
80 f08d2cab0b55 * empty log message * cg parents: 75 diff changeset	2233	!
f08d2cab0b55 * empty log message * cg parents: 75 diff changeset	2234
19 512a19e2d46f checkin from browser cg parents: 18 diff changeset	2235	isFinal
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	2236	^ (accessFlags bitAnd:A_FINAL) ~~ 0
19 512a19e2d46f checkin from browser cg parents: 18 diff changeset	2237	!
512a19e2d46f checkin from browser cg parents: 18 diff changeset	2238
175 68da52e100ab * empty log message * cg parents: 174 diff changeset	2239	isIgnored
68da52e100ab * empty log message * cg parents: 174 diff changeset	2240	"not really a java attribute;
68da52e100ab * empty log message * cg parents: 174 diff changeset	2241	added to allow browsing"
68da52e100ab * empty log message * cg parents: 174 diff changeset	2242
68da52e100ab * empty log message * cg parents: 174 diff changeset	2243	^ false.
68da52e100ab * empty log message * cg parents: 174 diff changeset	2244
68da52e100ab * empty log message * cg parents: 174 diff changeset	2245	"Created: 30.7.1997 / 15:34:33 / cg"
68da52e100ab * empty log message * cg parents: 174 diff changeset	2246	!
68da52e100ab * empty log message * cg parents: 174 diff changeset	2247
625 b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2248	isJavaClassRef
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2249	^ false
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2250
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2251	"Created: / 9.11.1999 / 17:16:20 / cg"
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2252	!
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2253
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2254	isJavaConstructor
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2255	^((selector first) == $<) and:[selector startsWith:'<init>(']
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2256
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2257	"Created: / 01-08-2012 / 00:21:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2258	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2259
431 fe362bcc1aeb checkin from browser cg parents: 428 diff changeset	2260	isJavaMethod
fe362bcc1aeb checkin from browser cg parents: 428 diff changeset	2261	^ true
fe362bcc1aeb checkin from browser cg parents: 428 diff changeset	2262
fe362bcc1aeb checkin from browser cg parents: 428 diff changeset	2263	"Created: / 10.11.1998 / 18:24:51 / cg"
fe362bcc1aeb checkin from browser cg parents: 428 diff changeset	2264	!
fe362bcc1aeb checkin from browser cg parents: 428 diff changeset	2265
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2266	isJavaStaticInitializer
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2267	^((selector first) == $<) and:[selector startsWith:'<clinit>(']
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2268
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2269	"Created: / 19-09-2012 / 16:26:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2270	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2271
19 512a19e2d46f checkin from browser cg parents: 18 diff changeset	2272	isNative
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	2273	^ (accessFlags bitAnd:A_NATIVE) ~~ 0
19 512a19e2d46f checkin from browser cg parents: 18 diff changeset	2274	!
512a19e2d46f checkin from browser cg parents: 18 diff changeset	2275
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2276	isPackagePrivate
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2277	^ (accessFlags bitAnd:A_PRIVATE \| A_PUBLIC \| A_PROTECTED) = 0
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2278
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2279	"Created: / 05-07-2012 / 10:12:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2280	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2281
19 512a19e2d46f checkin from browser cg parents: 18 diff changeset	2282	isPrivate
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	2283	^ (accessFlags bitAnd:A_PRIVATE) ~~ 0
19 512a19e2d46f checkin from browser cg parents: 18 diff changeset	2284	!
512a19e2d46f checkin from browser cg parents: 18 diff changeset	2285
512a19e2d46f checkin from browser cg parents: 18 diff changeset	2286	isProtected
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	2287	^ (accessFlags bitAnd:A_PROTECTED) ~~ 0
19 512a19e2d46f checkin from browser cg parents: 18 diff changeset	2288	!
512a19e2d46f checkin from browser cg parents: 18 diff changeset	2289
512a19e2d46f checkin from browser cg parents: 18 diff changeset	2290	isPublic
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	2291	^ (accessFlags bitAnd:A_PUBLIC) ~~ 0
19 512a19e2d46f checkin from browser cg parents: 18 diff changeset	2292	!
512a19e2d46f checkin from browser cg parents: 18 diff changeset	2293
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2294	isResolved
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2295	"Return true, if the receiver is fully resolved, i.e.,
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2296	if all references used by the method are resolved"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2297
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2298	^ (accessFlags bitAnd:A_RESOLVED) ~~ 0
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2299
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2300	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2301
19 512a19e2d46f checkin from browser cg parents: 18 diff changeset	2302	isStatic
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	2303	^ (accessFlags bitAnd:A_STATIC) ~~ 0
19 512a19e2d46f checkin from browser cg parents: 18 diff changeset	2304	!
512a19e2d46f checkin from browser cg parents: 18 diff changeset	2305
512a19e2d46f checkin from browser cg parents: 18 diff changeset	2306	isSynchronized
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	2307	^ (accessFlags bitAnd:A_SYNCHRONIZED) ~~ 0
18 6c07dc4b1118 checkin from browser cg parents: 10 diff changeset	2308	!
6c07dc4b1118 checkin from browser cg parents: 10 diff changeset	2309
256 2cbf20ad74b2 checkin from browser cg parents: 255 diff changeset	2310	isTraced
2cbf20ad74b2 checkin from browser cg parents: 255 diff changeset	2311	^ false
2cbf20ad74b2 checkin from browser cg parents: 255 diff changeset	2312
2cbf20ad74b2 checkin from browser cg parents: 255 diff changeset	2313	"Modified: / 11.1.1998 / 13:28:43 / cg"
2cbf20ad74b2 checkin from browser cg parents: 255 diff changeset	2314	"Created: / 11.1.1998 / 13:38:11 / cg"
2cbf20ad74b2 checkin from browser cg parents: 255 diff changeset	2315	!
2cbf20ad74b2 checkin from browser cg parents: 255 diff changeset	2316
8 4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	2317	isUnloaded
4df3a66460a3 can now read (undoc) 3.45 format cg parents: 5 diff changeset	2318	^ false
18 6c07dc4b1118 checkin from browser cg parents: 10 diff changeset	2319	!
6c07dc4b1118 checkin from browser cg parents: 10 diff changeset	2320
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2321	isUnresolved
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2322	"return true, if the receiver is unresolved;"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2323
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2324	^ self isResolved not
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2325
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2326	"Created: / 06-03-2011 / 22:57:35 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2327	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2328
256 2cbf20ad74b2 checkin from browser cg parents: 255 diff changeset	2329	isWrapped
2cbf20ad74b2 checkin from browser cg parents: 255 diff changeset	2330	^ self isBreakpointed
2cbf20ad74b2 checkin from browser cg parents: 255 diff changeset	2331
2cbf20ad74b2 checkin from browser cg parents: 255 diff changeset	2332	"Modified: / 11.1.1998 / 13:28:43 / cg"
2cbf20ad74b2 checkin from browser cg parents: 255 diff changeset	2333	"Created: / 11.1.1998 / 13:38:04 / cg"
2cbf20ad74b2 checkin from browser cg parents: 255 diff changeset	2334	!
2cbf20ad74b2 checkin from browser cg parents: 255 diff changeset	2335
31 644123641e2c java exceptions (java handlers not yet implemented) cg parents: 29 diff changeset	2336	lineNumberForPC:pc
75 9816a04c8b21 checkin from browser cg parents: 72 diff changeset	2337	\|last num text classSource\|
31 644123641e2c java exceptions (java handlers not yet implemented) cg parents: 29 diff changeset	2338
644123641e2c java exceptions (java handlers not yet implemented) cg parents: 29 diff changeset	2339	num := nil.
644123641e2c java exceptions (java handlers not yet implemented) cg parents: 29 diff changeset	2340
207 dfbd9b69a64e checkin from browser cg parents: 189 diff changeset	2341	ForceByteCodeDisplay == true ifFalse:[
169 269f334e9f34 * empty log message * cg parents: 168 diff changeset	2342
2158 cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	2343	lineNumberTable notNil ifTrue:[
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	2344	classSource := javaClass source.
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	2345	classSource notNil ifTrue:[
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	2346	lineNumberTable pairWiseDo:[:lPc :lNr \|
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	2347	lPc >= pc ifTrue:[
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	2348	lPc == pc ifTrue:[^ lNr].
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	2349	last isNil ifTrue:[^ lNr].
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	2350	^ last.
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	2351	].
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	2352	last := lNr.
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	2353	].
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	2354	last notNil ifTrue:[
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	2355	^ last
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	2356	].
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	2357	^ lineNumberTable at:2
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	2358	].
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	2359	].
46 db9b84631d43 checkin from browser cg parents: 43 diff changeset	2360	].
31 644123641e2c java exceptions (java handlers not yet implemented) cg parents: 29 diff changeset	2361
46 db9b84631d43 checkin from browser cg parents: 43 diff changeset	2362	"/ decompile and look which line the pc falls into
209 9e4b45da1117 checkin from browser cg parents: 207 diff changeset	2363
9e4b45da1117 checkin from browser cg parents: 207 diff changeset	2364	ForceByteCodeDisplay == true ifTrue:[
2158 cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	2365	text := self decompiledBytecode asCollectionOfLines.
209 9e4b45da1117 checkin from browser cg parents: 207 diff changeset	2366	] ifFalse:[
2158 cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	2367	text := self decompiledSource asCollectionOfLines.
209 9e4b45da1117 checkin from browser cg parents: 207 diff changeset	2368	].
31 644123641e2c java exceptions (java handlers not yet implemented) cg parents: 29 diff changeset	2369
46 db9b84631d43 checkin from browser cg parents: 43 diff changeset	2370	text keysAndValuesDo:[:lineNr :line \|
2158 cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	2371	\|nr\|
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	2372
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	2373	(line startsWith:' ') ifFalse:[
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	2374	nr := Integer readFrom:line onError:0.
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	2375	nr >= pc ifTrue:[
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	2376	^ lineNr
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	2377	]
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	2378	]
31 644123641e2c java exceptions (java handlers not yet implemented) cg parents: 29 diff changeset	2379	].
644123641e2c java exceptions (java handlers not yet implemented) cg parents: 29 diff changeset	2380	^ num
141 0baa4706b898 checkin from browser cg parents: 135 diff changeset	2381
261 d95d5a3cc475 lots of new stuff cg parents: 257 diff changeset	2382	"Modified: / 14.1.1998 / 13:30:54 / cg"
31 644123641e2c java exceptions (java handlers not yet implemented) cg parents: 29 diff changeset	2383	!
644123641e2c java exceptions (java handlers not yet implemented) cg parents: 29 diff changeset	2384
2087 2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	2385	messagesSent
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	2386	"return a collection of messages sent by this method"
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	2387
2091 de89909ef851 * empty log message * Claus Gittinger <cg@exept.de> parents: 2090 diff changeset	2388	\|walker selectors\|
2087 2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	2389
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	2390	"/ sigh - must extract all accessed literals ...
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	2391	"/ must deparse the byteCode in order to do this.
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	2392
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	2393	selectors := IdentitySet new.
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	2394	walker := JavaByteCodeEnumerator new.
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	2395	walker
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	2396	literalAction:
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	2397	[:pc :slotIndex :const \|
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	2398	\|mSel\|
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	2399
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	2400	(const isNumber
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	2401	or:[const isString
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	2402	or:[const isNil]]) ifFalse:[
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	2403	const isJavaMethod ifTrue:[
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	2404	mSel := const selector.
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	2405	] ifFalse:[
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	2406	const isJavaMethodRef ifTrue:[
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	2407	mSel := const selector "/ signature.
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	2408	]
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	2409	].
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	2410	].
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	2411	mSel notNil ifTrue:[
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	2412	"/ Transcript showCR:mSel.
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	2413	selectors add:mSel
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	2414	].
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	2415	].
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	2416	walker decompile:self to:nil.
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	2417	^ selectors
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	2418	!
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	2419
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2420	overrides: anotherMethod
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2421	"Returns true, if the receiver overwrites anotherMethod.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2422	This method implements algorithm described in JVM spec, sec. 5.4.2.1"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2423
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2424	anotherMethod isJavaMethod ifFalse:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2425	"It is questionable what to return here. Best seems to be
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2426	do following: if anotherMethod belongs to one of my superclasses
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2427	(either JavaObject or Object in current impl), then return true,
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2428	false otherwise"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2429	^javaClass inheritsFrom: anotherMethod mclass.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2430	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2431
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2432	"An instance method m1 (self) declared in class C overrides another instance method m2
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2433	(anotherMethod) declared in class A iff all of the following are true:"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2434
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2435	" - m2 has the same name and descriptor as m1. "
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2436	selector == anotherMethod selector ifFalse:[ ^ false ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2437
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2438	" - C is a subclass of A."
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2439	(javaClass isSubclassOf: anotherMethod javaClass) ifFalse:[ ^ false ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2440
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2441	"- either:
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2442	- m2 is marked ACC_PUBLIC; or is marked ACC_PROTECTED; or is marked nei-
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2443	ther ACC_PUBLIC nor ACC_PROTECTED nor ACC_PRIVATE and belongs to the
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2444	same runtime package as C, or"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2445
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2446	(anotherMethod isPublic or:[anotherMethod isProtected]) ifTrue:[ ^ true ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2447	(anotherMethod isPackagePrivate
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2448	and:[javaClass package == anotherMethod javaClass package])
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2449	ifTrue:[ ^ true ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2450
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2451	^false.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2452
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2453	"Created: / 05-07-2012 / 11:04:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2454	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2455
156 fee47d32724d * empty log message * cg parents: 155 diff changeset	2456	package
685 1ea755ac6ac6 * empty log message * cg parents: 678 diff changeset	2457	"in java, class extensions are not possible;
1ea755ac6ac6 * empty log message * cg parents: 678 diff changeset	2458	all methods MUST be in their classes package"
156 fee47d32724d * empty log message * cg parents: 155 diff changeset	2459
685 1ea755ac6ac6 * empty log message * cg parents: 678 diff changeset	2460	^ javaClass package
156 fee47d32724d * empty log message * cg parents: 155 diff changeset	2461	!
fee47d32724d * empty log message * cg parents: 155 diff changeset	2462
428 4b400c64ccec checkin from browser cg parents: 427 diff changeset	2463	quickLineNumberForPC:pc
4b400c64ccec checkin from browser cg parents: 427 diff changeset	2464	\|last\|
4b400c64ccec checkin from browser cg parents: 427 diff changeset	2465
4b400c64ccec checkin from browser cg parents: 427 diff changeset	2466	lineNumberTable notNil ifTrue:[
2158 cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	2467	lineNumberTable pairWiseDo:[:lPc :lNr \|
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	2468	lPc >= pc ifTrue:[
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	2469	lPc == pc ifTrue:[^ lNr].
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	2470	last isNil ifTrue:[^ lNr].
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	2471	^ last.
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	2472	].
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	2473	last := lNr.
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	2474	].
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	2475	last notNil ifTrue:[
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	2476	^ last
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	2477	].
cf16fc148fb8 added: #originalMethodIfWrapped Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	2478	^ lineNumberTable at:2
428 4b400c64ccec checkin from browser cg parents: 427 diff changeset	2479	].
4b400c64ccec checkin from browser cg parents: 427 diff changeset	2480	^ nil
4b400c64ccec checkin from browser cg parents: 427 diff changeset	2481
4b400c64ccec checkin from browser cg parents: 427 diff changeset	2482	"Modified: / 14.1.1998 / 13:30:54 / cg"
4b400c64ccec checkin from browser cg parents: 427 diff changeset	2483	"Created: / 10.11.1998 / 14:18:22 / cg"
4b400c64ccec checkin from browser cg parents: 427 diff changeset	2484	!
4b400c64ccec checkin from browser cg parents: 427 diff changeset	2485
625 b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2486	referencesGlobal:aGlobalName
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2487	"return true, if this method refers to a global named aGlobalName"
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2488
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2489	\|walker any\|
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2490
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2491	"/ quick check, if constantPool includes a methodRef for this
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2492	"/ selector.
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2493
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2494	any := false.
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2495	self javaClass constantPool do:[:const \|
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2496	(const isNumber
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2497	or:[const isString
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2498	or:[const isNil]]) ifFalse:[
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2499	const isJavaClass ifTrue:[
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2500	any := any or:[const fullName = aGlobalName].
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2501	] ifFalse:[
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2502	const isJavaClassRef ifTrue:[
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2503	any := any or:[const fullName = aGlobalName].
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2504	]
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2505	].
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2506	].
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2507	].
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2508	any ifFalse:[^ false].
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2509
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2510	"/ sigh - must extract all accessed literals ...
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2511	"/ must deparse the byteCode in order to do this.
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2512
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2513	walker := JavaByteCodeEnumerator new.
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2514	walker
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2515	literalAction:
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2516	[:pc :slotIndex :const \|
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2517	\|mSel\|
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2518
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2519	(const isNumber
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2520	or:[const isString
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2521	or:[const isNil]]) ifFalse:[
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2522	const isJavaClass ifTrue:[
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2523	mSel := const fullName.
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2524	] ifFalse:[
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2525	const isJavaClassRef ifTrue:[
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2526	mSel := const fullName.
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2527	]
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2528	].
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2529	].
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2530	mSel notNil ifTrue:[
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2531	"/ Transcript showCR:mSel.
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2532	mSel = aGlobalName ifTrue:[
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2533	^ true
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2534	]
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2535	].
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2536	].
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2537	walker decompile:self to:nil.
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2538
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2539	"Created: / 9.11.1999 / 17:15:46 / cg"
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2540	"Modified: / 9.11.1999 / 17:18:02 / cg"
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2541	!
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2542
618 1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2543	sends:aSelectorSymbol
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2544	"return true, if this method contains a message-send
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2545	with aSelectorSymbol as selector."
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2546
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2547	\|walker any\|
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2548
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2549	"/ quick check, if constantPool includes a methodRef for this
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2550	"/ selector.
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2551
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2552	any := false.
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2553	self javaClass constantPool do:[:const \|
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2554	(const isNumber
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2555	or:[const isString
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2556	or:[const isNil]]) ifFalse:[
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2557	const isJavaMethod ifTrue:[
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2558	any := any or:[const selector = aSelectorSymbol].
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2559	] ifFalse:[
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2560	const isJavaMethodRef ifTrue:[
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2561	any := any or:[const signature = aSelectorSymbol].
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2562	]
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2563	].
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2564	].
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2565	].
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2566	any ifFalse:[^ false].
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2567
625 b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2568	"/ sigh - must extract all accessed literals ...
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2569	"/ must deparse the byteCode in order to do this.
b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2570
618 1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2571	walker := JavaByteCodeEnumerator new.
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2572	walker
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2573	literalAction:
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2574	[:pc :slotIndex :const \|
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2575	\|mSel\|
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2576
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2577	(const isNumber
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2578	or:[const isString
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2579	or:[const isNil]]) ifFalse:[
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2580	const isJavaMethod ifTrue:[
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2581	mSel := const selector.
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2582	] ifFalse:[
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2583	const isJavaMethodRef ifTrue:[
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2584	mSel := const signature.
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2585	]
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2586	].
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2587	].
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2588	mSel notNil ifTrue:[
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2589	"/ Transcript showCR:mSel.
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2590	mSel = aSelectorSymbol ifTrue:[
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2591	^ true
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2592	]
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2593	].
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2594	].
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2595	walker decompile:self to:nil.
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2596
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2597	"Created: / 9.11.1999 / 15:38:14 / cg"
625 b0d1764545b5 checkin from browser cg parents: 618 diff changeset	2598	"Modified: / 9.11.1999 / 17:06:03 / cg"
618 1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2599	!
1ef28aa96092 added #sends: query cg parents: 611 diff changeset	2600
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2601	shouldBeSkippedInDebuggersWalkBack
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2602
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2603	^false
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2604
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2605	"Created: / 30-11-2010 / 15:35:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2606	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2607
18 6c07dc4b1118 checkin from browser cg parents: 10 diff changeset	2608	who
6c07dc4b1118 checkin from browser cg parents: 10 diff changeset	2609	"return the class and selector of where I am defined in."
6c07dc4b1118 checkin from browser cg parents: 10 diff changeset	2610
64 2e4b425dc40c changes for new methodDict cg parents: 55 diff changeset	2611	\|sel\|
18 6c07dc4b1118 checkin from browser cg parents: 10 diff changeset	2612
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 238 diff changeset	2613	javaClass isNil ifTrue:[^ nil].
378 a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	2614	sel := selector.
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	2615	"/ sel := javaClass methodDictionary keyAtValue:self ifAbsent:nil.
64 2e4b425dc40c changes for new methodDict cg parents: 55 diff changeset	2616	sel isNil ifTrue:[^ nil].
129 f40775af59a5 checkin from browser cg parents: 127 diff changeset	2617	^ Method::MethodWhoInfo class:javaClass selector:sel.
378 a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	2618
a4701f1e93ba splitted - JavaMethodWithHandler used for those with an cg parents: 360 diff changeset	2619	"Modified: / 16.10.1998 / 13:42:10 / cg"
5 f026f5d20c15 checkin from browser cg parents: 2 diff changeset	2620	! !
f026f5d20c15 checkin from browser cg parents: 2 diff changeset	2621
154 d51e897b4b5f checkin from browser cg parents: 149 diff changeset	2622	!JavaMethod methodsFor:'signature parsing'!
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	2623
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	2624	XXXspecWithArgsFromSignature:aSignature withName:name in:aPackage
154 d51e897b4b5f checkin from browser cg parents: 149 diff changeset	2625	"given a signature, return a spec with args"
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	2626
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	2627	\|s argSpec retvalSpec\|
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	2628
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	2629	s := aSignature readStream.
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	2630	s next ~~ $( ifTrue:[self halt. ^ name].
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	2631
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	2632	argSpec := self argSpecWithArgsFromStream:s in:aPackage.
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	2633
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	2634	s next ~~ $) ifTrue:[self halt. ^ name].
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	2635
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	2636	retvalSpec := self retvalSpecFromStream:s in:aPackage.
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	2637
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	2638	^ retvalSpec , ' ' , name , ' (' , argSpec , ')'
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	2639
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	2640	"
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	2641	JavaMethod specFromSignature:'(LObject;)V' withName:'foo'
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	2642	JavaMethod specFromSignature:'(BB)S' withName:'foo'
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	2643	"
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	2644
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	2645	"Created: / 8.1.1998 / 19:17:58 / cg"
154 d51e897b4b5f checkin from browser cg parents: 149 diff changeset	2646	! !
d51e897b4b5f checkin from browser cg parents: 149 diff changeset	2647
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2648	!JavaMethod methodsFor:'testing'!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2649
2498 e6a3d5fa8bef Added JavaMethod>>isMethodWithBreakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2476 diff changeset	2650	isMethodWithBreakpoints
e6a3d5fa8bef Added JavaMethod>>isMethodWithBreakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2476 diff changeset	2651	^self isBreakpointed
e6a3d5fa8bef Added JavaMethod>>isMethodWithBreakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2476 diff changeset	2652	or:[(ConfigurableFeatures includesFeature: #VMBreakpointSupport)
e6a3d5fa8bef Added JavaMethod>>isMethodWithBreakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2476 diff changeset	2653	and:[self breakpointTable notEmptyOrNil]]
e6a3d5fa8bef Added JavaMethod>>isMethodWithBreakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2476 diff changeset	2654
e6a3d5fa8bef Added JavaMethod>>isMethodWithBreakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2476 diff changeset	2655	"Created: / 11-04-2013 / 14:50:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e6a3d5fa8bef Added JavaMethod>>isMethodWithBreakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2476 diff changeset	2656	!
e6a3d5fa8bef Added JavaMethod>>isMethodWithBreakpoints. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2476 diff changeset	2657
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2658	isSynthetic
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2659	^ (accessFlags bitAnd:A_SYNTHETIC) ~~ 0
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2660
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2661	"Created: / 18-10-2010 / 19:09:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2662	! !
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2663
129 f40775af59a5 checkin from browser cg parents: 127 diff changeset	2664	!JavaMethod class methodsFor:'documentation'!
2 91843ac44d2f intitial checkin cg parents: diff changeset	2665
91843ac44d2f intitial checkin cg parents: diff changeset	2666	version
2555 655f39b36a10 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 2551 diff changeset	2667	^ '$Header: /cvs/stx/stx/libjava/JavaMethod.st,v 1.114 2013-04-25 13:11:44 stefan Exp $'
2145 0df96de83547 * empty log message * Claus Gittinger <cg@exept.de> parents: 2114 diff changeset	2668	!
0df96de83547 * empty log message * Claus Gittinger <cg@exept.de> parents: 2114 diff changeset	2669
0df96de83547 * empty log message * Claus Gittinger <cg@exept.de> parents: 2114 diff changeset	2670	version_CVS
2555 655f39b36a10 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 2551 diff changeset	2671	^ '$Header: /cvs/stx/stx/libjava/JavaMethod.st,v 1.114 2013-04-25 13:11:44 stefan Exp $'
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2672	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2673
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2145 diff changeset	2674	version_SVN
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2675	^ '�Id�'
2 91843ac44d2f intitial checkin cg parents: diff changeset	2676	! !
2107 f4509f6767fa category change Claus Gittinger <cg@exept.de> parents: 2095 diff changeset	2677
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2204 diff changeset	2678
2086 66b8f6529783 comment Claus Gittinger <cg@exept.de> parents: 750 diff changeset	2679	JavaMethod initialize!

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Fri, 24 May 2013 17:55:42 +0100
branch	builtin-class-support
changeset 2629	cedb88626902
parent 2585	14ab287e17ca
child 2630	d2cc54aad7c6
permissions	-rw-r--r--