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

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

author	Claus Gittinger <cg@exept.de>
	Sun, 23 Feb 2020 14:03:15 +0100
branch	cvs_MAIN
changeset 3997	5bb44f7e1d20
parent 3971	8fbf867c86fc
child 3999	d7c199709abd
permissions	-rw-r--r--