hg/stx-libjava: JavaDecompiler.st@4f3cc813be4b (annotated)

454 38f590639d65 * empty log message * cg parents: 450 diff changeset	1	"
3324 a58245c0e83a Updated copyright notices. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	2	COPYRIGHT (c) 1996-2015 by Claus Gittinger
454 38f590639d65 * empty log message * cg parents: 450 diff changeset	3
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2256 diff changeset	4	New code and modifications done at SWING Research Group [1]:
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2256 diff changeset	5
3324 a58245c0e83a Updated copyright notices. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	6	COPYRIGHT (c) 2010-2015 by Jan Vrany, Jan Kurs and Marcel Hlopko
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2256 diff changeset	7	SWING Research Group, Czech Technical University in Prague
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2256 diff changeset	8
454 38f590639d65 * empty log message * cg parents: 450 diff changeset	9	This software is furnished under a license and may be used
38f590639d65 * empty log message * cg parents: 450 diff changeset	10	only in accordance with the terms of that license and with the
38f590639d65 * empty log message * cg parents: 450 diff changeset	11	inclusion of the above copyright notice. This software may not
38f590639d65 * empty log message * cg parents: 450 diff changeset	12	be provided or otherwise made available to, or used by, any
38f590639d65 * empty log message * cg parents: 450 diff changeset	13	other person. No title to or ownership of the software is
38f590639d65 * empty log message * cg parents: 450 diff changeset	14	hereby transferred.
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2256 diff changeset	15
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2256 diff changeset	16	[1] Code written at SWING Research Group contains a signature
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2256 diff changeset	17	of one of the above copright owners. For exact set of such code,
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2256 diff changeset	18	see the differences between this version and version stx:libjava
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2256 diff changeset	19	as of 1.9.2010
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	20	"
701 4d62047c1358 * empty log message * cg parents: 620 diff changeset	21	"{ Package: 'stx:libjava' }"
4d62047c1358 * empty log message * cg parents: 620 diff changeset	22
6 b23a6474754f intitial checkin cg parents: diff changeset	23	Object subclass:#JavaDecompiler
454 38f590639d65 * empty log message * cg parents: 450 diff changeset	24	instanceVariableNames:'code pc javaMethod outStream classToCompileFor isStaticMethod
38f590639d65 * empty log message * cg parents: 450 diff changeset	25	lastConstIndex lastConstant accessedInstvars modifiedInstvars
38f590639d65 * empty log message * cg parents: 450 diff changeset	26	accessedStaticVars modifiedStaticVars sentMessages'
6 b23a6474754f intitial checkin cg parents: diff changeset	27	classVariableNames:'DecoderTable'
b23a6474754f intitial checkin cg parents: diff changeset	28	poolDictionaries:''
2108 ca8c4e7db2e8 category change Claus Gittinger <cg@exept.de> parents: 2095 diff changeset	29	category:'Languages-Java-Support-Decompiling'
6 b23a6474754f intitial checkin cg parents: diff changeset	30	!
b23a6474754f intitial checkin cg parents: diff changeset	31
454 38f590639d65 * empty log message * cg parents: 450 diff changeset	32	!JavaDecompiler class methodsFor:'documentation'!
38f590639d65 * empty log message * cg parents: 450 diff changeset	33
38f590639d65 * empty log message * cg parents: 450 diff changeset	34	copyright
38f590639d65 * empty log message * cg parents: 450 diff changeset	35	"
3324 a58245c0e83a Updated copyright notices. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	36	COPYRIGHT (c) 1996-2015 by Claus Gittinger
454 38f590639d65 * empty log message * cg parents: 450 diff changeset	37
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2256 diff changeset	38	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: 2256 diff changeset	39
3324 a58245c0e83a Updated copyright notices. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	40	COPYRIGHT (c) 2010-2015 by Jan Vrany, Jan Kurs and Marcel Hlopko
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2256 diff changeset	41	SWING Research Group, Czech Technical University in Prague
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2256 diff changeset	42
454 38f590639d65 * empty log message * cg parents: 450 diff changeset	43	This software is furnished under a license and may be used
38f590639d65 * empty log message * cg parents: 450 diff changeset	44	only in accordance with the terms of that license and with the
38f590639d65 * empty log message * cg parents: 450 diff changeset	45	inclusion of the above copyright notice. This software may not
38f590639d65 * empty log message * cg parents: 450 diff changeset	46	be provided or otherwise made available to, or used by, any
38f590639d65 * empty log message * cg parents: 450 diff changeset	47	other person. No title to or ownership of the software is
38f590639d65 * empty log message * cg parents: 450 diff changeset	48	hereby transferred.
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2256 diff changeset	49
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2256 diff changeset	50	[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: 2256 diff changeset	51	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: 2256 diff changeset	52	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: 2256 diff changeset	53	as of 1.9.2010
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2256 diff changeset	54
2095 6773680aeb85 * empty log message * Claus Gittinger <cg@exept.de> parents: 749 diff changeset	55	"
454 38f590639d65 * empty log message * cg parents: 450 diff changeset	56	!
38f590639d65 * empty log message * cg parents: 450 diff changeset	57
38f590639d65 * empty log message * cg parents: 450 diff changeset	58	examples
38f590639d65 * empty log message * cg parents: 450 diff changeset	59	"
38f590639d65 * empty log message * cg parents: 450 diff changeset	60
38f590639d65 * empty log message * cg parents: 450 diff changeset	61	[exBegin]
38f590639d65 * empty log message * cg parents: 450 diff changeset	62	\|m\|
38f590639d65 * empty log message * cg parents: 450 diff changeset	63
38f590639d65 * empty log message * cg parents: 450 diff changeset	64	m := JAVA::java::lang::Object compiledMethodAt:#'toString()Ljava/lang/String;'.
38f590639d65 * empty log message * cg parents: 450 diff changeset	65	JavaDecompiler decompile:m to:Transcript.
38f590639d65 * empty log message * cg parents: 450 diff changeset	66	[exEnd]
38f590639d65 * empty log message * cg parents: 450 diff changeset	67
38f590639d65 * empty log message * cg parents: 450 diff changeset	68
38f590639d65 * empty log message * cg parents: 450 diff changeset	69
38f590639d65 * empty log message * cg parents: 450 diff changeset	70	[exBegin]
38f590639d65 * empty log message * cg parents: 450 diff changeset	71	\|m\|
38f590639d65 * empty log message * cg parents: 450 diff changeset	72
38f590639d65 * empty log message * cg parents: 450 diff changeset	73	m := JAVA::java::lang::Object compiledMethodAt:#'toString()Ljava/lang/String;'.
38f590639d65 * empty log message * cg parents: 450 diff changeset	74	JavaDecompiler decompile:m to:nil.
38f590639d65 * empty log message * cg parents: 450 diff changeset	75	[exEnd]
38f590639d65 * empty log message * cg parents: 450 diff changeset	76
38f590639d65 * empty log message * cg parents: 450 diff changeset	77	"
38f590639d65 * empty log message * cg parents: 450 diff changeset	78
38f590639d65 * empty log message * cg parents: 450 diff changeset	79	! !
6 b23a6474754f intitial checkin cg parents: diff changeset	80
129 f40775af59a5 checkin from browser cg parents: 126 diff changeset	81	!JavaDecompiler class methodsFor:'initialization'!
6 b23a6474754f intitial checkin cg parents: diff changeset	82
b23a6474754f intitial checkin cg parents: diff changeset	83	initialize
b23a6474754f intitial checkin cg parents: diff changeset	84	DecoderTable := #(
b23a6474754f intitial checkin cg parents: diff changeset	85	(nop) "/ 0
b23a6474754f intitial checkin cg parents: diff changeset	86	(aconst_null) "/ 1
b23a6474754f intitial checkin cg parents: diff changeset	87	(iconst_m1) "/ 2
b23a6474754f intitial checkin cg parents: diff changeset	88	(iconst_0) "/ 3
b23a6474754f intitial checkin cg parents: diff changeset	89	(iconst_1) "/ 4
b23a6474754f intitial checkin cg parents: diff changeset	90	(iconst_2) "/ 5
b23a6474754f intitial checkin cg parents: diff changeset	91	(iconst_3) "/ 6
b23a6474754f intitial checkin cg parents: diff changeset	92	(iconst_4) "/ 7
b23a6474754f intitial checkin cg parents: diff changeset	93	(iconst_5) "/ 8
b23a6474754f intitial checkin cg parents: diff changeset	94	(lconst_0) "/ 9
b23a6474754f intitial checkin cg parents: diff changeset	95
b23a6474754f intitial checkin cg parents: diff changeset	96	(lconst_1) "/ 10
b23a6474754f intitial checkin cg parents: diff changeset	97	(fconst_0) "/ 11
b23a6474754f intitial checkin cg parents: diff changeset	98	(fconst_1) "/ 12
b23a6474754f intitial checkin cg parents: diff changeset	99	(fconst_2) "/ 13
b23a6474754f intitial checkin cg parents: diff changeset	100	(dconst_0) "/ 14
b23a6474754f intitial checkin cg parents: diff changeset	101	(dconst_1) "/ 15
b23a6474754f intitial checkin cg parents: diff changeset	102	(bipush signedByte) "/ 16
b23a6474754f intitial checkin cg parents: diff changeset	103	(sipush signedShort) "/ 17
454 38f590639d65 * empty log message * cg parents: 450 diff changeset	104	(ldc1 constIndexByte remember_ldc1) "/ 18
38f590639d65 * empty log message * cg parents: 450 diff changeset	105	(ldc2 constIndexShort remember_ldc2) "/ 19
6 b23a6474754f intitial checkin cg parents: diff changeset	106
454 38f590639d65 * empty log message * cg parents: 450 diff changeset	107	(ldc2w constIndexShort remember_ldc2w) "/ 20
6 b23a6474754f intitial checkin cg parents: diff changeset	108	(iload localIndexByte) "/ 21
b23a6474754f intitial checkin cg parents: diff changeset	109	(lload localIndexByte) "/ 22
b23a6474754f intitial checkin cg parents: diff changeset	110	(fload localIndexByte) "/ 23
b23a6474754f intitial checkin cg parents: diff changeset	111	(dload localIndexByte) "/ 24
b23a6474754f intitial checkin cg parents: diff changeset	112	(aload localIndexByte) "/ 25
24 4a9822b95fc0 checkin from browser cg parents: 23 diff changeset	113	(iload_0) "/ 26
6 b23a6474754f intitial checkin cg parents: diff changeset	114	(iload_1) "/ 27
b23a6474754f intitial checkin cg parents: diff changeset	115	(iload_2) "/ 28
b23a6474754f intitial checkin cg parents: diff changeset	116	(iload_3) "/ 29
b23a6474754f intitial checkin cg parents: diff changeset	117
b23a6474754f intitial checkin cg parents: diff changeset	118	(lload_0) "/ 30
b23a6474754f intitial checkin cg parents: diff changeset	119	(lload_1) "/ 31
b23a6474754f intitial checkin cg parents: diff changeset	120	(lload_2) "/ 32
b23a6474754f intitial checkin cg parents: diff changeset	121	(lload_3) "/ 33
b23a6474754f intitial checkin cg parents: diff changeset	122	(fload_0) "/ 34
b23a6474754f intitial checkin cg parents: diff changeset	123	(fload_1) "/ 35
b23a6474754f intitial checkin cg parents: diff changeset	124	(fload_2) "/ 36
b23a6474754f intitial checkin cg parents: diff changeset	125	(fload_3) "/ 37
b23a6474754f intitial checkin cg parents: diff changeset	126	(dload_0) "/ 38
b23a6474754f intitial checkin cg parents: diff changeset	127	(dload_1) "/ 39
b23a6474754f intitial checkin cg parents: diff changeset	128
b23a6474754f intitial checkin cg parents: diff changeset	129	(dload_2) "/ 40
b23a6474754f intitial checkin cg parents: diff changeset	130	(dload_3) "/ 41
b23a6474754f intitial checkin cg parents: diff changeset	131	(aload_0) "/ 42
b23a6474754f intitial checkin cg parents: diff changeset	132	(aload_1) "/ 43
b23a6474754f intitial checkin cg parents: diff changeset	133	(aload_2) "/ 44
b23a6474754f intitial checkin cg parents: diff changeset	134	(aload_3) "/ 45
b23a6474754f intitial checkin cg parents: diff changeset	135	(iaload) "/ 46
b23a6474754f intitial checkin cg parents: diff changeset	136	(laload) "/ 47
b23a6474754f intitial checkin cg parents: diff changeset	137	(faload) "/ 48
b23a6474754f intitial checkin cg parents: diff changeset	138	(daload) "/ 49
b23a6474754f intitial checkin cg parents: diff changeset	139
b23a6474754f intitial checkin cg parents: diff changeset	140	(aaload) "/ 50
b23a6474754f intitial checkin cg parents: diff changeset	141	(baload) "/ 51
b23a6474754f intitial checkin cg parents: diff changeset	142	(caload) "/ 52
b23a6474754f intitial checkin cg parents: diff changeset	143	(saload) "/ 53
b23a6474754f intitial checkin cg parents: diff changeset	144	(istore localIndexByte) "/ 54
b23a6474754f intitial checkin cg parents: diff changeset	145	(lstore localIndexByte) "/ 55
b23a6474754f intitial checkin cg parents: diff changeset	146	(fstore localIndexByte) "/ 56
b23a6474754f intitial checkin cg parents: diff changeset	147	(dstore localIndexByte) "/ 57
b23a6474754f intitial checkin cg parents: diff changeset	148	(astore localIndexByte) "/ 58
b23a6474754f intitial checkin cg parents: diff changeset	149	(istore_0) "/ 59
b23a6474754f intitial checkin cg parents: diff changeset	150
b23a6474754f intitial checkin cg parents: diff changeset	151	(istore_1) "/ 60
b23a6474754f intitial checkin cg parents: diff changeset	152	(istore_2) "/ 61
b23a6474754f intitial checkin cg parents: diff changeset	153	(istore_3) "/ 62
b23a6474754f intitial checkin cg parents: diff changeset	154	(lstore_0) "/ 63
b23a6474754f intitial checkin cg parents: diff changeset	155	(lstore_1) "/ 64
b23a6474754f intitial checkin cg parents: diff changeset	156	(lstore_2) "/ 65
b23a6474754f intitial checkin cg parents: diff changeset	157	(lstore_3) "/ 66
b23a6474754f intitial checkin cg parents: diff changeset	158	(fstore_0) "/ 67
b23a6474754f intitial checkin cg parents: diff changeset	159	(fstore_1) "/ 68
b23a6474754f intitial checkin cg parents: diff changeset	160	(fstore_2) "/ 69
b23a6474754f intitial checkin cg parents: diff changeset	161
b23a6474754f intitial checkin cg parents: diff changeset	162	(fstore_3) "/ 70
b23a6474754f intitial checkin cg parents: diff changeset	163	(dstore_0) "/ 71
b23a6474754f intitial checkin cg parents: diff changeset	164	(dstore_1) "/ 72
b23a6474754f intitial checkin cg parents: diff changeset	165	(dstore_2) "/ 73
b23a6474754f intitial checkin cg parents: diff changeset	166	(dstore_3) "/ 74
b23a6474754f intitial checkin cg parents: diff changeset	167	(astore_0) "/ 75
b23a6474754f intitial checkin cg parents: diff changeset	168	(astore_1) "/ 76
b23a6474754f intitial checkin cg parents: diff changeset	169	(astore_2) "/ 77
b23a6474754f intitial checkin cg parents: diff changeset	170	(astore_3) "/ 78
b23a6474754f intitial checkin cg parents: diff changeset	171	(iastore) "/ 79
b23a6474754f intitial checkin cg parents: diff changeset	172
b23a6474754f intitial checkin cg parents: diff changeset	173	(lastore) "/ 80
b23a6474754f intitial checkin cg parents: diff changeset	174	(fastore) "/ 81
b23a6474754f intitial checkin cg parents: diff changeset	175	(dastore) "/ 82
b23a6474754f intitial checkin cg parents: diff changeset	176	(aastore) "/ 83
b23a6474754f intitial checkin cg parents: diff changeset	177	(bastore) "/ 84
b23a6474754f intitial checkin cg parents: diff changeset	178	(castore) "/ 85
b23a6474754f intitial checkin cg parents: diff changeset	179	(sastore) "/ 86
b23a6474754f intitial checkin cg parents: diff changeset	180	(pop) "/ 87
b23a6474754f intitial checkin cg parents: diff changeset	181	(pop2) "/ 88
b23a6474754f intitial checkin cg parents: diff changeset	182	(dup) "/ 89
b23a6474754f intitial checkin cg parents: diff changeset	183
b23a6474754f intitial checkin cg parents: diff changeset	184	(dup_x1) "/ 90
b23a6474754f intitial checkin cg parents: diff changeset	185	(dup_x2) "/ 91
b23a6474754f intitial checkin cg parents: diff changeset	186	(dup2) "/ 92
b23a6474754f intitial checkin cg parents: diff changeset	187	(dup2_x1) "/ 93
b23a6474754f intitial checkin cg parents: diff changeset	188	(dup2_x2) "/ 94
b23a6474754f intitial checkin cg parents: diff changeset	189	(swap) "/ 95
b23a6474754f intitial checkin cg parents: diff changeset	190	(iadd) "/ 96
b23a6474754f intitial checkin cg parents: diff changeset	191	(ladd) "/ 97
b23a6474754f intitial checkin cg parents: diff changeset	192	(fadd) "/ 98
b23a6474754f intitial checkin cg parents: diff changeset	193	(dadd) "/ 99
b23a6474754f intitial checkin cg parents: diff changeset	194
b23a6474754f intitial checkin cg parents: diff changeset	195	(isub) "/ 100
b23a6474754f intitial checkin cg parents: diff changeset	196	(lsub) "/ 101
b23a6474754f intitial checkin cg parents: diff changeset	197	(fsub) "/ 102
b23a6474754f intitial checkin cg parents: diff changeset	198	(dsub) "/ 103
b23a6474754f intitial checkin cg parents: diff changeset	199	(imul) "/ 104
b23a6474754f intitial checkin cg parents: diff changeset	200	(lmul) "/ 105
b23a6474754f intitial checkin cg parents: diff changeset	201	(fmul) "/ 106
b23a6474754f intitial checkin cg parents: diff changeset	202	(dmul) "/ 107
b23a6474754f intitial checkin cg parents: diff changeset	203	(idiv) "/ 108
b23a6474754f intitial checkin cg parents: diff changeset	204	(ldiv) "/ 109
b23a6474754f intitial checkin cg parents: diff changeset	205
b23a6474754f intitial checkin cg parents: diff changeset	206	(fdiv) "/ 110
b23a6474754f intitial checkin cg parents: diff changeset	207	(ddiv) "/ 111
91 9b325648aa77 resolve rewritten; interpreter fixes cg parents: 68 diff changeset	208	"/ (imod) "/ 112 "/ obsolete
9b325648aa77 resolve rewritten; interpreter fixes cg parents: 68 diff changeset	209	(irem) "/ 112
9b325648aa77 resolve rewritten; interpreter fixes cg parents: 68 diff changeset	210	"/ (lmod) "/ 113 "/ obsolete
9b325648aa77 resolve rewritten; interpreter fixes cg parents: 68 diff changeset	211	(lrem) "/ 113
9b325648aa77 resolve rewritten; interpreter fixes cg parents: 68 diff changeset	212	"/ (fmod) "/ 114 "/ obsolete
9b325648aa77 resolve rewritten; interpreter fixes cg parents: 68 diff changeset	213	(frem) "/ 114
9b325648aa77 resolve rewritten; interpreter fixes cg parents: 68 diff changeset	214	"/ (dmod) "/ 115 "/ obsolete
9b325648aa77 resolve rewritten; interpreter fixes cg parents: 68 diff changeset	215	(drem) "/ 115
6 b23a6474754f intitial checkin cg parents: diff changeset	216	(ineg) "/ 116
b23a6474754f intitial checkin cg parents: diff changeset	217	(lneg) "/ 117
b23a6474754f intitial checkin cg parents: diff changeset	218	(fneg) "/ 118
b23a6474754f intitial checkin cg parents: diff changeset	219	(dneg) "/ 119
b23a6474754f intitial checkin cg parents: diff changeset	220
b23a6474754f intitial checkin cg parents: diff changeset	221	(ishl) "/ 120
b23a6474754f intitial checkin cg parents: diff changeset	222	(lshl) "/ 121
b23a6474754f intitial checkin cg parents: diff changeset	223	(ishr) "/ 122
b23a6474754f intitial checkin cg parents: diff changeset	224	(lshr) "/ 123
b23a6474754f intitial checkin cg parents: diff changeset	225	(iushr) "/ 124
b23a6474754f intitial checkin cg parents: diff changeset	226	(lushr) "/ 125
b23a6474754f intitial checkin cg parents: diff changeset	227	(iand) "/ 126
b23a6474754f intitial checkin cg parents: diff changeset	228	(land) "/ 127
b23a6474754f intitial checkin cg parents: diff changeset	229	(ior) "/ 128
b23a6474754f intitial checkin cg parents: diff changeset	230	(lor) "/ 129
b23a6474754f intitial checkin cg parents: diff changeset	231
b23a6474754f intitial checkin cg parents: diff changeset	232	(ixor) "/ 130
b23a6474754f intitial checkin cg parents: diff changeset	233	(lxor) "/ 131
39 20fa5af3b873 checkin from browser cg parents: 36 diff changeset	234	(iinc localIndexByte signedByte) "/ 132
68 ae0e5262ad38 Beta changes (some insns changed opcodes) cg parents: 61 diff changeset	235	(i2l) "/ 133
44 331e16746ad6 checkin from browser cg parents: 41 diff changeset	236	(i2f) "/ 134
52 1dc41619b6f8 checkin from browser cg parents: 44 diff changeset	237	(i2d) "/ 135
44 331e16746ad6 checkin from browser cg parents: 41 diff changeset	238	(l2i) "/ 136
6 b23a6474754f intitial checkin cg parents: diff changeset	239	(l2f) "/ 137
b23a6474754f intitial checkin cg parents: diff changeset	240	(l2d) "/ 138
44 331e16746ad6 checkin from browser cg parents: 41 diff changeset	241	(f2i) "/ 139
6 b23a6474754f intitial checkin cg parents: diff changeset	242
b23a6474754f intitial checkin cg parents: diff changeset	243	(f2l) "/ 140
b23a6474754f intitial checkin cg parents: diff changeset	244	(f2d) "/ 141
b23a6474754f intitial checkin cg parents: diff changeset	245	(d2i) "/ 142
b23a6474754f intitial checkin cg parents: diff changeset	246	(d2l) "/ 143
b23a6474754f intitial checkin cg parents: diff changeset	247	(d2f) "/ 144
b23a6474754f intitial checkin cg parents: diff changeset	248	(int2byte) "/ 145
b23a6474754f intitial checkin cg parents: diff changeset	249	(int2char) "/ 146
b23a6474754f intitial checkin cg parents: diff changeset	250	(int2short) "/ 147
b23a6474754f intitial checkin cg parents: diff changeset	251	(lcmp) "/ 148
b23a6474754f intitial checkin cg parents: diff changeset	252	(fcmpl) "/ 149
b23a6474754f intitial checkin cg parents: diff changeset	253
b23a6474754f intitial checkin cg parents: diff changeset	254	(fcmpg) "/ 150
b23a6474754f intitial checkin cg parents: diff changeset	255	(dcmpl) "/ 151
b23a6474754f intitial checkin cg parents: diff changeset	256	(dcmpg) "/ 152
b23a6474754f intitial checkin cg parents: diff changeset	257	(ifeq signedBranchShort) "/ 153
b23a6474754f intitial checkin cg parents: diff changeset	258	(ifne signedBranchShort) "/ 154
b23a6474754f intitial checkin cg parents: diff changeset	259	(iflt signedBranchShort) "/ 155
b23a6474754f intitial checkin cg parents: diff changeset	260	(ifge signedBranchShort) "/ 156
b23a6474754f intitial checkin cg parents: diff changeset	261	(ifgt signedBranchShort) "/ 157
b23a6474754f intitial checkin cg parents: diff changeset	262	(ifle signedBranchShort) "/ 158
b23a6474754f intitial checkin cg parents: diff changeset	263	(if_icmpeq signedBranchShort) "/ 159
b23a6474754f intitial checkin cg parents: diff changeset	264
b23a6474754f intitial checkin cg parents: diff changeset	265	(if_icmpne signedBranchShort) "/ 160
b23a6474754f intitial checkin cg parents: diff changeset	266	(if_icmplt signedBranchShort) "/ 161
b23a6474754f intitial checkin cg parents: diff changeset	267	(if_icmpge signedBranchShort) "/ 162
b23a6474754f intitial checkin cg parents: diff changeset	268	(if_icmpgt signedBranchShort) "/ 163
b23a6474754f intitial checkin cg parents: diff changeset	269	(if_icmple signedBranchShort) "/ 164
b23a6474754f intitial checkin cg parents: diff changeset	270	(if_acmpeq signedBranchShort) "/ 165
b23a6474754f intitial checkin cg parents: diff changeset	271	(if_acmpne signedBranchShort) "/ 166
b23a6474754f intitial checkin cg parents: diff changeset	272	(goto signedBranchShort) "/ 167
b23a6474754f intitial checkin cg parents: diff changeset	273	(jsr signedBranchShort) "/ 168
b23a6474754f intitial checkin cg parents: diff changeset	274	(ret localIndexByte) "/ 169
b23a6474754f intitial checkin cg parents: diff changeset	275
b23a6474754f intitial checkin cg parents: diff changeset	276	(tableswitch tableSwitchBytes) "/ 170
b23a6474754f intitial checkin cg parents: diff changeset	277	(lookupswitch lookupSwitchBytes) "/ 171
b23a6474754f intitial checkin cg parents: diff changeset	278	(ireturn) "/ 172
b23a6474754f intitial checkin cg parents: diff changeset	279	(lreturn) "/ 173
b23a6474754f intitial checkin cg parents: diff changeset	280	(freturn) "/ 174
b23a6474754f intitial checkin cg parents: diff changeset	281	(dreturn) "/ 175
b23a6474754f intitial checkin cg parents: diff changeset	282	(areturn) "/ 176
b23a6474754f intitial checkin cg parents: diff changeset	283	(return) "/ 177
454 38f590639d65 * empty log message * cg parents: 450 diff changeset	284	(getstatic constIndexShort remember_getstatic) "/ 178
38f590639d65 * empty log message * cg parents: 450 diff changeset	285	(putstatic constIndexShort remember_putstatic) "/ 179
6 b23a6474754f intitial checkin cg parents: diff changeset	286
454 38f590639d65 * empty log message * cg parents: 450 diff changeset	287	(getfield constIndexShort remember_getfield) "/ 180
38f590639d65 * empty log message * cg parents: 450 diff changeset	288	(putfield constIndexShort remember_putfield) "/ 181
38f590639d65 * empty log message * cg parents: 450 diff changeset	289	(invokevirtual constIndexShort remember_invokevirtual) "/ 182
38f590639d65 * empty log message * cg parents: 450 diff changeset	290	(invokenonvirtual constIndexShort remember_invokenonvirtual) "/ 183
38f590639d65 * empty log message * cg parents: 450 diff changeset	291	(invokestatic constIndexShort remember_invokestatic) "/ 184
38f590639d65 * empty log message * cg parents: 450 diff changeset	292	(invokeinterface constIndexShort nargsByte reservedByte remember_invokeinterface) "/ 185
6 b23a6474754f intitial checkin cg parents: diff changeset	293	(newfromname) "/ 186
454 38f590639d65 * empty log message * cg parents: 450 diff changeset	294	(new constIndexShort remember_new) "/ 187
6 b23a6474754f intitial checkin cg parents: diff changeset	295	(newarray arrayTypeByte) "/ 188
b23a6474754f intitial checkin cg parents: diff changeset	296	(anewarray constIndexShort) "/ 189
b23a6474754f intitial checkin cg parents: diff changeset	297
b23a6474754f intitial checkin cg parents: diff changeset	298	(arraylength) "/ 190
454 38f590639d65 * empty log message * cg parents: 450 diff changeset	299	(athrow remember_athrow) "/ 191
27 4560bb77bb36 checkin from browser cg parents: 25 diff changeset	300	(checkcast constIndexShort) "/ 192
6 b23a6474754f intitial checkin cg parents: diff changeset	301	(instanceof constIndexShort) "/ 193
b23a6474754f intitial checkin cg parents: diff changeset	302	(monitorenter) "/ 194
b23a6474754f intitial checkin cg parents: diff changeset	303	(monitorexit) "/ 195
68 ae0e5262ad38 Beta changes (some insns changed opcodes) cg parents: 61 diff changeset	304	"/ (verifystack) "/ 196 obsolete (Alpha release)
198 5543d1079a4a * empty log message * cg parents: 190 diff changeset	305	(wide) "/ 196
68 ae0e5262ad38 Beta changes (some insns changed opcodes) cg parents: 61 diff changeset	306	(multianewarray constIndexShort dimensionsByte) "/ 197
41 eb7974d88088 checkin from browser cg parents: 40 diff changeset	307
68 ae0e5262ad38 Beta changes (some insns changed opcodes) cg parents: 61 diff changeset	308	(ifnull signedBranchShort) "/ 198
ae0e5262ad38 Beta changes (some insns changed opcodes) cg parents: 61 diff changeset	309	(ifnonnull signedBranchShort) "/ 199
6 b23a6474754f intitial checkin cg parents: diff changeset	310
68 ae0e5262ad38 Beta changes (some insns changed opcodes) cg parents: 61 diff changeset	311	(#'goto_w' signedBranchLong) "/ 200
ae0e5262ad38 Beta changes (some insns changed opcodes) cg parents: 61 diff changeset	312	(#'jsr_w' signedBranchShort) "/ 201
ae0e5262ad38 Beta changes (some insns changed opcodes) cg parents: 61 diff changeset	313
ae0e5262ad38 Beta changes (some insns changed opcodes) cg parents: 61 diff changeset	314	(breakpoint) "/ 202
ae0e5262ad38 Beta changes (some insns changed opcodes) cg parents: 61 diff changeset	315
6 b23a6474754f intitial checkin cg parents: diff changeset	316	nil "/ 203
b23a6474754f intitial checkin cg parents: diff changeset	317	nil "/ 204
b23a6474754f intitial checkin cg parents: diff changeset	318	nil "/ 205
68 ae0e5262ad38 Beta changes (some insns changed opcodes) cg parents: 61 diff changeset	319	nil "/ 206
6 b23a6474754f intitial checkin cg parents: diff changeset	320	nil "/ 207
b23a6474754f intitial checkin cg parents: diff changeset	321	nil "/ 208
68 ae0e5262ad38 Beta changes (some insns changed opcodes) cg parents: 61 diff changeset	322	(#'ret_w' signedBranchShort) "/ 209
6 b23a6474754f intitial checkin cg parents: diff changeset	323
b23a6474754f intitial checkin cg parents: diff changeset	324	nil "/ 210
b23a6474754f intitial checkin cg parents: diff changeset	325	nil "/ 211
b23a6474754f intitial checkin cg parents: diff changeset	326	nil "/ 212
b23a6474754f intitial checkin cg parents: diff changeset	327	nil "/ 213
b23a6474754f intitial checkin cg parents: diff changeset	328	nil "/ 214
b23a6474754f intitial checkin cg parents: diff changeset	329	nil "/ 215
b23a6474754f intitial checkin cg parents: diff changeset	330	nil "/ 216
b23a6474754f intitial checkin cg parents: diff changeset	331	nil "/ 217
b23a6474754f intitial checkin cg parents: diff changeset	332	nil "/ 218
b23a6474754f intitial checkin cg parents: diff changeset	333	nil "/ 219
b23a6474754f intitial checkin cg parents: diff changeset	334
b23a6474754f intitial checkin cg parents: diff changeset	335	nil "/ 220
b23a6474754f intitial checkin cg parents: diff changeset	336	nil "/ 221
b23a6474754f intitial checkin cg parents: diff changeset	337	nil "/ 222
b23a6474754f intitial checkin cg parents: diff changeset	338	nil "/ 223
b23a6474754f intitial checkin cg parents: diff changeset	339	nil "/ 224
b23a6474754f intitial checkin cg parents: diff changeset	340	nil "/ 225
b23a6474754f intitial checkin cg parents: diff changeset	341	nil "/ 226
b23a6474754f intitial checkin cg parents: diff changeset	342	nil "/ 227
b23a6474754f intitial checkin cg parents: diff changeset	343	nil "/ 228
b23a6474754f intitial checkin cg parents: diff changeset	344	nil "/ 229
b23a6474754f intitial checkin cg parents: diff changeset	345
b23a6474754f intitial checkin cg parents: diff changeset	346	nil "/ 230
b23a6474754f intitial checkin cg parents: diff changeset	347	nil "/ 231
b23a6474754f intitial checkin cg parents: diff changeset	348	nil "/ 232
b23a6474754f intitial checkin cg parents: diff changeset	349	nil "/ 233
b23a6474754f intitial checkin cg parents: diff changeset	350	nil "/ 234
b23a6474754f intitial checkin cg parents: diff changeset	351	nil "/ 235
b23a6474754f intitial checkin cg parents: diff changeset	352	nil "/ 236
b23a6474754f intitial checkin cg parents: diff changeset	353	nil "/ 237
b23a6474754f intitial checkin cg parents: diff changeset	354	nil "/ 238
b23a6474754f intitial checkin cg parents: diff changeset	355	nil "/ 239
b23a6474754f intitial checkin cg parents: diff changeset	356
b23a6474754f intitial checkin cg parents: diff changeset	357	nil "/ 240
b23a6474754f intitial checkin cg parents: diff changeset	358	nil "/ 241
b23a6474754f intitial checkin cg parents: diff changeset	359	nil "/ 242
b23a6474754f intitial checkin cg parents: diff changeset	360	nil "/ 243
b23a6474754f intitial checkin cg parents: diff changeset	361	nil "/ 244
b23a6474754f intitial checkin cg parents: diff changeset	362	nil "/ 245
b23a6474754f intitial checkin cg parents: diff changeset	363	nil "/ 246
b23a6474754f intitial checkin cg parents: diff changeset	364	nil "/ 247
b23a6474754f intitial checkin cg parents: diff changeset	365	nil "/ 248
b23a6474754f intitial checkin cg parents: diff changeset	366	nil "/ 249
b23a6474754f intitial checkin cg parents: diff changeset	367
b23a6474754f intitial checkin cg parents: diff changeset	368	nil "/ 250
b23a6474754f intitial checkin cg parents: diff changeset	369	nil "/ 251
b23a6474754f intitial checkin cg parents: diff changeset	370	nil "/ 252
b23a6474754f intitial checkin cg parents: diff changeset	371	nil "/ 253
b23a6474754f intitial checkin cg parents: diff changeset	372	nil "/ 254
124 e30646ab8a71 * empty log message * cg parents: 119 diff changeset	373	(invokenonvirtual_d constIndexShort) "/ 255 special - dummy invokenonvirtual
6 b23a6474754f intitial checkin cg parents: diff changeset	374	)
b23a6474754f intitial checkin cg parents: diff changeset	375
b23a6474754f intitial checkin cg parents: diff changeset	376	"
b23a6474754f intitial checkin cg parents: diff changeset	377	JavaDecompiler initialize
b23a6474754f intitial checkin cg parents: diff changeset	378	"
b23a6474754f intitial checkin cg parents: diff changeset	379
454 38f590639d65 * empty log message * cg parents: 450 diff changeset	380	"Modified: / 16.11.1998 / 15:55:49 / cg"
6 b23a6474754f intitial checkin cg parents: diff changeset	381	! !
b23a6474754f intitial checkin cg parents: diff changeset	382
129 f40775af59a5 checkin from browser cg parents: 126 diff changeset	383	!JavaDecompiler class methodsFor:'accessing'!
27 4560bb77bb36 checkin from browser cg parents: 25 diff changeset	384
4560bb77bb36 checkin from browser cg parents: 25 diff changeset	385	instructionTable
4560bb77bb36 checkin from browser cg parents: 25 diff changeset	386	^ DecoderTable
4560bb77bb36 checkin from browser cg parents: 25 diff changeset	387	! !
4560bb77bb36 checkin from browser cg parents: 25 diff changeset	388
161 fe93b8ee561e classDef generator cg parents: 156 diff changeset	389	!JavaDecompiler class methodsFor:'class definition generation'!
fe93b8ee561e classDef generator cg parents: 156 diff changeset	390
fe93b8ee561e classDef generator cg parents: 156 diff changeset	391	definitionOf:aJavaClass on:s
fe93b8ee561e classDef generator cg parents: 156 diff changeset	392	\|pckgName needCR fields staticFields superClass
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2256 diff changeset	393	interfaces staticMethods nonStaticMethods
187 89fec395f511 color printing cg parents: 175 diff changeset	394	accessAttributeStyle codeStyle classNameStyle methodNameStyle\|
89fec395f511 color printing cg parents: 175 diff changeset	395
89fec395f511 color printing cg parents: 175 diff changeset	396	accessAttributeStyle := Java prettyPrintStyle at:#accessAttribute.
89fec395f511 color printing cg parents: 175 diff changeset	397	codeStyle := Java prettyPrintStyle at:#code.
89fec395f511 color printing cg parents: 175 diff changeset	398	classNameStyle := Java prettyPrintStyle at:#className.
89fec395f511 color printing cg parents: 175 diff changeset	399	methodNameStyle := Java prettyPrintStyle at:#className.
161 fe93b8ee561e classDef generator cg parents: 156 diff changeset	400
fe93b8ee561e classDef generator cg parents: 156 diff changeset	401	pckgName := aJavaClass package.
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2256 diff changeset	402	pckgName ~= 'java' ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2256 diff changeset	403	s nextPutAll:'package ' , ((pckgName copyFrom: 6) copyReplaceAll:$/ with:$.).
175 68da52e100ab * empty log message * cg parents: 165 diff changeset	404	s nextPutAll:';'; cr; cr.
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2256 diff changeset	405
175 68da52e100ab * empty log message * cg parents: 165 diff changeset	406	].
161 fe93b8ee561e classDef generator cg parents: 156 diff changeset	407
fe93b8ee561e classDef generator cg parents: 156 diff changeset	408	needCR := false.
187 89fec395f511 color printing cg parents: 175 diff changeset	409	s emphasis:accessAttributeStyle.
89fec395f511 color printing cg parents: 175 diff changeset	410
161 fe93b8ee561e classDef generator cg parents: 156 diff changeset	411	aJavaClass isPublic ifTrue:[
fe93b8ee561e classDef generator cg parents: 156 diff changeset	412	s nextPutAll:'public '.
fe93b8ee561e classDef generator cg parents: 156 diff changeset	413	needCR := true.
fe93b8ee561e classDef generator cg parents: 156 diff changeset	414	].
fe93b8ee561e classDef generator cg parents: 156 diff changeset	415	aJavaClass isAbstract ifTrue:[
fe93b8ee561e classDef generator cg parents: 156 diff changeset	416	s nextPutAll:'abstract '.
fe93b8ee561e classDef generator cg parents: 156 diff changeset	417	needCR := true.
fe93b8ee561e classDef generator cg parents: 156 diff changeset	418	].
fe93b8ee561e classDef generator cg parents: 156 diff changeset	419	aJavaClass isFinal ifTrue:[
fe93b8ee561e classDef generator cg parents: 156 diff changeset	420	s nextPutAll:'final '.
fe93b8ee561e classDef generator cg parents: 156 diff changeset	421	needCR := true.
fe93b8ee561e classDef generator cg parents: 156 diff changeset	422	].
187 89fec395f511 color printing cg parents: 175 diff changeset	423	s emphasis:codeStyle.
161 fe93b8ee561e classDef generator cg parents: 156 diff changeset	424
fe93b8ee561e classDef generator cg parents: 156 diff changeset	425	needCR ifTrue:[
fe93b8ee561e classDef generator cg parents: 156 diff changeset	426	s cr
fe93b8ee561e classDef generator cg parents: 156 diff changeset	427	].
fe93b8ee561e classDef generator cg parents: 156 diff changeset	428	aJavaClass isInterface ifTrue:[
fe93b8ee561e classDef generator cg parents: 156 diff changeset	429	s nextPutAll:'interface '.
fe93b8ee561e classDef generator cg parents: 156 diff changeset	430	] ifFalse:[
fe93b8ee561e classDef generator cg parents: 156 diff changeset	431	s nextPutAll:'class '.
fe93b8ee561e classDef generator cg parents: 156 diff changeset	432	].
187 89fec395f511 color printing cg parents: 175 diff changeset	433	s emphasis:classNameStyle;
423 08af061c56a8 javaClass now uses its fullName in name cg parents: 360 diff changeset	434	nextPutAll:aJavaClass lastName;
187 89fec395f511 color printing cg parents: 175 diff changeset	435	emphasis:codeStyle;
89fec395f511 color printing cg parents: 175 diff changeset	436	space.
161 fe93b8ee561e classDef generator cg parents: 156 diff changeset	437	superClass := aJavaClass superclass.
fe93b8ee561e classDef generator cg parents: 156 diff changeset	438
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2256 diff changeset	439	(superClass ~~ (JavaVM classNamed:'java/lang/Object')
591 0a52b3e7c77f checkin from browser cg parents: 488 diff changeset	440	and:[superClass isJavaClass]) ifTrue:[
161 fe93b8ee561e classDef generator cg parents: 156 diff changeset	441	s nextPutAll:'extends '.
187 89fec395f511 color printing cg parents: 175 diff changeset	442	s emphasis:classNameStyle.
161 fe93b8ee561e classDef generator cg parents: 156 diff changeset	443	(superClass package ~= 'java/lang'
fe93b8ee561e classDef generator cg parents: 156 diff changeset	444	and:[superClass package ~= pckgName]) ifTrue:[
187 89fec395f511 color printing cg parents: 175 diff changeset	445	s nextPutAll:(superClass displayString).
161 fe93b8ee561e classDef generator cg parents: 156 diff changeset	446	] ifFalse:[
423 08af061c56a8 javaClass now uses its fullName in name cg parents: 360 diff changeset	447	s nextPutAll:(superClass lastName).
187 89fec395f511 color printing cg parents: 175 diff changeset	448	].
89fec395f511 color printing cg parents: 175 diff changeset	449	s emphasis:codeStyle.
89fec395f511 color printing cg parents: 175 diff changeset	450	s space.
161 fe93b8ee561e classDef generator cg parents: 156 diff changeset	451	].
fe93b8ee561e classDef generator cg parents: 156 diff changeset	452
fe93b8ee561e classDef generator cg parents: 156 diff changeset	453	(interfaces := aJavaClass interfaces) size > 0 ifTrue:[
165 d524d23e045c checkin from browser cg parents: 161 diff changeset	454	(aJavaClass isInterface
d524d23e045c checkin from browser cg parents: 161 diff changeset	455	and:[interfaces size == 1]) ifTrue:[
d524d23e045c checkin from browser cg parents: 161 diff changeset	456	s nextPutAll:'extends '.
d524d23e045c checkin from browser cg parents: 161 diff changeset	457	] ifFalse:[
d524d23e045c checkin from browser cg parents: 161 diff changeset	458	s nextPutAll:'implements '.
d524d23e045c checkin from browser cg parents: 161 diff changeset	459	].
161 fe93b8ee561e classDef generator cg parents: 156 diff changeset	460	interfaces keysAndValuesDo:[:nr :if \|
443 f5c1f55d8bdb * empty log message * cg parents: 429 diff changeset	461	\|nameString\|
f5c1f55d8bdb * empty log message * cg parents: 429 diff changeset	462
161 fe93b8ee561e classDef generator cg parents: 156 diff changeset	463	nr ~~ 1 ifTrue:[
fe93b8ee561e classDef generator cg parents: 156 diff changeset	464	s nextPutAll:', '.
fe93b8ee561e classDef generator cg parents: 156 diff changeset	465	].
187 89fec395f511 color printing cg parents: 175 diff changeset	466	s emphasis:classNameStyle.
161 fe93b8ee561e classDef generator cg parents: 156 diff changeset	467	(if package ~= 'java/lang'
fe93b8ee561e classDef generator cg parents: 156 diff changeset	468	and:[if package ~= pckgName]) ifTrue:[
443 f5c1f55d8bdb * empty log message * cg parents: 429 diff changeset	469	if isJavaClass ifFalse:[
f5c1f55d8bdb * empty log message * cg parents: 429 diff changeset	470	"/ ought to be an unresolved class ...
f5c1f55d8bdb * empty log message * cg parents: 429 diff changeset	471	nameString := if fullName copyReplaceAll:$/ with:$.
f5c1f55d8bdb * empty log message * cg parents: 429 diff changeset	472	] ifTrue:[
f5c1f55d8bdb * empty log message * cg parents: 429 diff changeset	473	nameString := if displayString
f5c1f55d8bdb * empty log message * cg parents: 429 diff changeset	474	].
161 fe93b8ee561e classDef generator cg parents: 156 diff changeset	475	] ifFalse:[
443 f5c1f55d8bdb * empty log message * cg parents: 429 diff changeset	476	nameString := if lastName
187 89fec395f511 color printing cg parents: 175 diff changeset	477	].
443 f5c1f55d8bdb * empty log message * cg parents: 429 diff changeset	478	s nextPutAll:nameString.
187 89fec395f511 color printing cg parents: 175 diff changeset	479	s emphasis:codeStyle.
161 fe93b8ee561e classDef generator cg parents: 156 diff changeset	480	].
fe93b8ee561e classDef generator cg parents: 156 diff changeset	481	s space.
fe93b8ee561e classDef generator cg parents: 156 diff changeset	482	].
fe93b8ee561e classDef generator cg parents: 156 diff changeset	483
fe93b8ee561e classDef generator cg parents: 156 diff changeset	484	s nextPutAll:'{'; cr.
fe93b8ee561e classDef generator cg parents: 156 diff changeset	485
fe93b8ee561e classDef generator cg parents: 156 diff changeset	486	needCR := false.
fe93b8ee561e classDef generator cg parents: 156 diff changeset	487	staticFields := aJavaClass staticFields.
fe93b8ee561e classDef generator cg parents: 156 diff changeset	488	staticFields size > 0 ifTrue:[
fe93b8ee561e classDef generator cg parents: 156 diff changeset	489	needCR := true.
fe93b8ee561e classDef generator cg parents: 156 diff changeset	490
fe93b8ee561e classDef generator cg parents: 156 diff changeset	491	staticFields do:[:aField \|
fe93b8ee561e classDef generator cg parents: 156 diff changeset	492	\|type v\|
fe93b8ee561e classDef generator cg parents: 156 diff changeset	493
fe93b8ee561e classDef generator cg parents: 156 diff changeset	494	s nextPutAll:' '.
187 89fec395f511 color printing cg parents: 175 diff changeset	495	s emphasis:accessAttributeStyle.
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2256 diff changeset	496	aField isSynthetic ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2256 diff changeset	497	s nextPutAll: '/SYNTHETIC/ '.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2256 diff changeset	498	].
161 fe93b8ee561e classDef generator cg parents: 156 diff changeset	499	aField isPublic ifTrue:[
fe93b8ee561e classDef generator cg parents: 156 diff changeset	500	s nextPutAll:'public '.
fe93b8ee561e classDef generator cg parents: 156 diff changeset	501	] ifFalse:[
487 572b51e5f02c checkin from browser cg parents: 456 diff changeset	502	aField isPrivate ifTrue:[
572b51e5f02c checkin from browser cg parents: 456 diff changeset	503	s nextPutAll:'private '.
572b51e5f02c checkin from browser cg parents: 456 diff changeset	504	] ifFalse:[
572b51e5f02c checkin from browser cg parents: 456 diff changeset	505	aField isProtected ifTrue:[
572b51e5f02c checkin from browser cg parents: 456 diff changeset	506	s nextPutAll:'protected '.
572b51e5f02c checkin from browser cg parents: 456 diff changeset	507	]
572b51e5f02c checkin from browser cg parents: 456 diff changeset	508	]
161 fe93b8ee561e classDef generator cg parents: 156 diff changeset	509	].
fe93b8ee561e classDef generator cg parents: 156 diff changeset	510	s nextPutAll:'static '.
fe93b8ee561e classDef generator cg parents: 156 diff changeset	511	aField isFinal ifTrue:[
fe93b8ee561e classDef generator cg parents: 156 diff changeset	512	s nextPutAll:'final '.
fe93b8ee561e classDef generator cg parents: 156 diff changeset	513	].
488 a010f99aa6f6 * empty log message * cg parents: 487 diff changeset	514	aField isVolatile ifTrue:[
a010f99aa6f6 * empty log message * cg parents: 487 diff changeset	515	s nextPutAll:'volatile '.
a010f99aa6f6 * empty log message * cg parents: 487 diff changeset	516	].
187 89fec395f511 color printing cg parents: 175 diff changeset	517	s emphasis:codeStyle.
161 fe93b8ee561e classDef generator cg parents: 156 diff changeset	518
594 0d5fea9542d3 checkin from browser cg parents: 593 diff changeset	519	(((type := aField type) startsWith:pckgName)
0d5fea9542d3 checkin from browser cg parents: 593 diff changeset	520	or:[type startsWith:(pckgName copyReplaceAll:$/ with:$.)]) ifTrue:[
161 fe93b8ee561e classDef generator cg parents: 156 diff changeset	521	type := type copyFrom:(pckgName size + 1 + 1).
fe93b8ee561e classDef generator cg parents: 156 diff changeset	522	] ifFalse:[
fe93b8ee561e classDef generator cg parents: 156 diff changeset	523	(type startsWith:'java.lang.') ifTrue:[
fe93b8ee561e classDef generator cg parents: 156 diff changeset	524	type := type copyFrom:(11).
fe93b8ee561e classDef generator cg parents: 156 diff changeset	525	]
fe93b8ee561e classDef generator cg parents: 156 diff changeset	526	].
fe93b8ee561e classDef generator cg parents: 156 diff changeset	527	type := type copy replaceAll:$/ with:$..
fe93b8ee561e classDef generator cg parents: 156 diff changeset	528	s nextPutAll:type; space;
fe93b8ee561e classDef generator cg parents: 156 diff changeset	529	nextPutAll:aField name.
fe93b8ee561e classDef generator cg parents: 156 diff changeset	530
fe93b8ee561e classDef generator cg parents: 156 diff changeset	531	(v := aField constantValue) notNil ifTrue:[
fe93b8ee561e classDef generator cg parents: 156 diff changeset	532	s nextPutAll:' = '; nextPutAll:v displayString.
fe93b8ee561e classDef generator cg parents: 156 diff changeset	533	].
fe93b8ee561e classDef generator cg parents: 156 diff changeset	534
fe93b8ee561e classDef generator cg parents: 156 diff changeset	535	s nextPutAll:';'; cr.
fe93b8ee561e classDef generator cg parents: 156 diff changeset	536	needCR := true.
fe93b8ee561e classDef generator cg parents: 156 diff changeset	537	].
fe93b8ee561e classDef generator cg parents: 156 diff changeset	538	].
fe93b8ee561e classDef generator cg parents: 156 diff changeset	539
fe93b8ee561e classDef generator cg parents: 156 diff changeset	540
fe93b8ee561e classDef generator cg parents: 156 diff changeset	541	fields := aJavaClass fields.
fe93b8ee561e classDef generator cg parents: 156 diff changeset	542	fields size > 0 ifTrue:[
fe93b8ee561e classDef generator cg parents: 156 diff changeset	543	needCR ifTrue:[
fe93b8ee561e classDef generator cg parents: 156 diff changeset	544	s cr
fe93b8ee561e classDef generator cg parents: 156 diff changeset	545	].
fe93b8ee561e classDef generator cg parents: 156 diff changeset	546	needCR := true.
fe93b8ee561e classDef generator cg parents: 156 diff changeset	547
fe93b8ee561e classDef generator cg parents: 156 diff changeset	548	fields do:[:aField \|
593 8e713803c6e6 checkin from browser cg parents: 591 diff changeset	549	\|type v\|
161 fe93b8ee561e classDef generator cg parents: 156 diff changeset	550
fe93b8ee561e classDef generator cg parents: 156 diff changeset	551	s nextPutAll:' '.
187 89fec395f511 color printing cg parents: 175 diff changeset	552	s emphasis:accessAttributeStyle.
161 fe93b8ee561e classDef generator cg parents: 156 diff changeset	553	aField isPublic ifTrue:[
fe93b8ee561e classDef generator cg parents: 156 diff changeset	554	s nextPutAll:'public '.
fe93b8ee561e classDef generator cg parents: 156 diff changeset	555	] ifFalse:[
487 572b51e5f02c checkin from browser cg parents: 456 diff changeset	556	aField isPrivate ifTrue:[
572b51e5f02c checkin from browser cg parents: 456 diff changeset	557	s nextPutAll:'private '.
572b51e5f02c checkin from browser cg parents: 456 diff changeset	558	] ifFalse:[
572b51e5f02c checkin from browser cg parents: 456 diff changeset	559	aField isProtected ifTrue:[
572b51e5f02c checkin from browser cg parents: 456 diff changeset	560	s nextPutAll:'protected '.
572b51e5f02c checkin from browser cg parents: 456 diff changeset	561	]
572b51e5f02c checkin from browser cg parents: 456 diff changeset	562	]
161 fe93b8ee561e classDef generator cg parents: 156 diff changeset	563	].
fe93b8ee561e classDef generator cg parents: 156 diff changeset	564	aField isFinal ifTrue:[
fe93b8ee561e classDef generator cg parents: 156 diff changeset	565	s nextPutAll:'final '.
fe93b8ee561e classDef generator cg parents: 156 diff changeset	566	].
488 a010f99aa6f6 * empty log message * cg parents: 487 diff changeset	567	aField isTransient ifTrue:[
a010f99aa6f6 * empty log message * cg parents: 487 diff changeset	568	s nextPutAll:'transient '.
a010f99aa6f6 * empty log message * cg parents: 487 diff changeset	569	].
a010f99aa6f6 * empty log message * cg parents: 487 diff changeset	570	aField isVolatile ifTrue:[
a010f99aa6f6 * empty log message * cg parents: 487 diff changeset	571	s nextPutAll:'volatile '.
a010f99aa6f6 * empty log message * cg parents: 487 diff changeset	572	].
187 89fec395f511 color printing cg parents: 175 diff changeset	573	s emphasis:codeStyle.
161 fe93b8ee561e classDef generator cg parents: 156 diff changeset	574
594 0d5fea9542d3 checkin from browser cg parents: 593 diff changeset	575	(((type := aField type) startsWith:pckgName)
0d5fea9542d3 checkin from browser cg parents: 593 diff changeset	576	or:[type startsWith:(pckgName copyReplaceAll:$/ with:$.)]) ifTrue:[
161 fe93b8ee561e classDef generator cg parents: 156 diff changeset	577	type := type copyFrom:(pckgName size + 1 + 1).
fe93b8ee561e classDef generator cg parents: 156 diff changeset	578	].
fe93b8ee561e classDef generator cg parents: 156 diff changeset	579	type := type copy replaceAll:$/ with:$..
fe93b8ee561e classDef generator cg parents: 156 diff changeset	580	s nextPutAll:type; space;
593 8e713803c6e6 checkin from browser cg parents: 591 diff changeset	581	nextPutAll:aField name.
8e713803c6e6 checkin from browser cg parents: 591 diff changeset	582
8e713803c6e6 checkin from browser cg parents: 591 diff changeset	583	(v := aField constantValue) notNil ifTrue:[
8e713803c6e6 checkin from browser cg parents: 591 diff changeset	584	s nextPutAll:' = '; nextPutAll:v displayString.
8e713803c6e6 checkin from browser cg parents: 591 diff changeset	585	].
8e713803c6e6 checkin from browser cg parents: 591 diff changeset	586	s nextPutAll:';'; cr.
161 fe93b8ee561e classDef generator cg parents: 156 diff changeset	587	].
fe93b8ee561e classDef generator cg parents: 156 diff changeset	588	].
fe93b8ee561e classDef generator cg parents: 156 diff changeset	589
fe93b8ee561e classDef generator cg parents: 156 diff changeset	590	aJavaClass methodDictionary size > 0 ifTrue:[
fe93b8ee561e classDef generator cg parents: 156 diff changeset	591	needCR ifTrue:[
190 9558f26c7a97 checkin from browser cg parents: 187 diff changeset	592	s cr.
9558f26c7a97 checkin from browser cg parents: 187 diff changeset	593	needCR := false.
161 fe93b8ee561e classDef generator cg parents: 156 diff changeset	594	].
fe93b8ee561e classDef generator cg parents: 156 diff changeset	595
450 4f6899814521 checkin from browser cg parents: 445 diff changeset	596	staticMethods := OrderedCollection new.
4f6899814521 checkin from browser cg parents: 445 diff changeset	597	nonStaticMethods := OrderedCollection new.
190 9558f26c7a97 checkin from browser cg parents: 187 diff changeset	598	"/
9558f26c7a97 checkin from browser cg parents: 187 diff changeset	599	"/ static methods first ...
9558f26c7a97 checkin from browser cg parents: 187 diff changeset	600	"/
9558f26c7a97 checkin from browser cg parents: 187 diff changeset	601	aJavaClass methodDictionary do:[:aMethod \|
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2256 diff changeset	602	aMethod isJavaMethod ifTrue:[
450 4f6899814521 checkin from browser cg parents: 445 diff changeset	603	\|m\|
4f6899814521 checkin from browser cg parents: 445 diff changeset	604
4f6899814521 checkin from browser cg parents: 445 diff changeset	605	m := aMethod.
4f6899814521 checkin from browser cg parents: 445 diff changeset	606	m isWrapped ifTrue:[
4f6899814521 checkin from browser cg parents: 445 diff changeset	607	m := m originalMethod
161 fe93b8ee561e classDef generator cg parents: 156 diff changeset	608	].
450 4f6899814521 checkin from browser cg parents: 445 diff changeset	609	m isStatic ifTrue:[
4f6899814521 checkin from browser cg parents: 445 diff changeset	610	staticMethods add:m.
4f6899814521 checkin from browser cg parents: 445 diff changeset	611	] ifFalse:[
4f6899814521 checkin from browser cg parents: 445 diff changeset	612	nonStaticMethods add:m.
4f6899814521 checkin from browser cg parents: 445 diff changeset	613	]
190 9558f26c7a97 checkin from browser cg parents: 187 diff changeset	614	].
161 fe93b8ee561e classDef generator cg parents: 156 diff changeset	615
450 4f6899814521 checkin from browser cg parents: 445 diff changeset	616	staticMethods notEmpty ifTrue:[
4f6899814521 checkin from browser cg parents: 445 diff changeset	617	staticMethods sort:[:a :b \| a name < b name].
4f6899814521 checkin from browser cg parents: 445 diff changeset	618	staticMethods do:[:aMethod \|
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2256 diff changeset	619	"JV@2011-12-14: method dictionary may contain non-Java methods
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2256 diff changeset	620	(proxies, for instance)"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2256 diff changeset	621	aMethod isJavaMethod ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2256 diff changeset	622	self methodDefinitionOf:aMethod inPackage:pckgName on:s.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2256 diff changeset	623	]
161 fe93b8ee561e classDef generator cg parents: 156 diff changeset	624	].
190 9558f26c7a97 checkin from browser cg parents: 187 diff changeset	625	s cr.
9558f26c7a97 checkin from browser cg parents: 187 diff changeset	626	].
161 fe93b8ee561e classDef generator cg parents: 156 diff changeset	627
190 9558f26c7a97 checkin from browser cg parents: 187 diff changeset	628	"/
9558f26c7a97 checkin from browser cg parents: 187 diff changeset	629	"/ instance methods ...
9558f26c7a97 checkin from browser cg parents: 187 diff changeset	630	"/
450 4f6899814521 checkin from browser cg parents: 445 diff changeset	631	nonStaticMethods notEmpty ifTrue:[
4f6899814521 checkin from browser cg parents: 445 diff changeset	632	nonStaticMethods sort:[:a :b \| a name < b name].
4f6899814521 checkin from browser cg parents: 445 diff changeset	633	nonStaticMethods do:[:aMethod \|
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2256 diff changeset	634	"JV@2011-12-14: method dictionary may contain non-Java methods
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2256 diff changeset	635	(proxies, for instance)"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2256 diff changeset	636	aMethod isJavaMethod ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2256 diff changeset	637	self methodDefinitionOf:aMethod inPackage:pckgName on:s.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2256 diff changeset	638	]
161 fe93b8ee561e classDef generator cg parents: 156 diff changeset	639	].
fe93b8ee561e classDef generator cg parents: 156 diff changeset	640	].
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2256 diff changeset	641	]
161 fe93b8ee561e classDef generator cg parents: 156 diff changeset	642	].
fe93b8ee561e classDef generator cg parents: 156 diff changeset	643
fe93b8ee561e classDef generator cg parents: 156 diff changeset	644	s nextPutAll:'}'; cr.
fe93b8ee561e classDef generator cg parents: 156 diff changeset	645
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2256 diff changeset	646	"Created: / 22-03-1997 / 14:29:37 / cg"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2256 diff changeset	647	"Modified: / 05-12-1998 / 15:58:37 / cg"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2256 diff changeset	648	"Modified: / 21-10-2011 / 13:40:44 / 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: 2256 diff changeset	649	"Modified: / 31-03-2012 / 00:36:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
190 9558f26c7a97 checkin from browser cg parents: 187 diff changeset	650	!
9558f26c7a97 checkin from browser cg parents: 187 diff changeset	651
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	652	methodDefinitionOf: m inPackage: pckgName on: s
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	653	\| aMethod nm specComponents accessAttributeStyle codeStyle methodNameStyle \|
450 4f6899814521 checkin from browser cg parents: 445 diff changeset	654
4f6899814521 checkin from browser cg parents: 445 diff changeset	655	aMethod := m.
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	656	m isWrapped ifTrue: [
450 4f6899814521 checkin from browser cg parents: 445 diff changeset	657	aMethod := m originalMethod
4f6899814521 checkin from browser cg parents: 445 diff changeset	658	].
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	659	accessAttributeStyle := Java prettyPrintStyle at: #accessAttribute.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	660	codeStyle := Java prettyPrintStyle at: #code.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	661	methodNameStyle := Java prettyPrintStyle at: #methodName.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	662	s nextPutAll: ' '.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	663	s emphasis: accessAttributeStyle.
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2256 diff changeset	664	aMethod isSynthetic ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2256 diff changeset	665	s nextPutAll: '/SYNTHETIC/ '.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2256 diff changeset	666	].
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	667	aMethod isPublic ifTrue: [
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	668	s nextPutAll: 'public '.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	669	] ifFalse: [
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	670	aMethod isProtected ifTrue: [
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	671	s nextPutAll: 'protected '.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	672	] ifFalse: [ s nextPutAll: 'private '. ]
190 9558f26c7a97 checkin from browser cg parents: 187 diff changeset	673	].
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	674	aMethod isFinal ifTrue: [
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	675	s nextPutAll: 'final '.
190 9558f26c7a97 checkin from browser cg parents: 187 diff changeset	676	].
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	677	aMethod isStatic ifTrue: [
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	678	s nextPutAll: 'static '.
190 9558f26c7a97 checkin from browser cg parents: 187 diff changeset	679	].
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	680	aMethod isNative ifTrue: [
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	681	s nextPutAll: 'native '.
190 9558f26c7a97 checkin from browser cg parents: 187 diff changeset	682	].
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	683	aMethod isSynchronized ifTrue: [
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	684	s nextPutAll: 'synchronized '.
190 9558f26c7a97 checkin from browser cg parents: 187 diff changeset	685	].
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	686	s emphasis: codeStyle.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	687	(nm := aMethod name) = '<init>' ifTrue: [
423 08af061c56a8 javaClass now uses its fullName in name cg parents: 360 diff changeset	688	nm := aMethod javaClass lastName.
190 9558f26c7a97 checkin from browser cg parents: 187 diff changeset	689	].
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	690	specComponents := JavaMethod
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	691	specComponentsWithArgsFromSignature: (aMethod instVarNamed:#descriptor)
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	692	withName: nm
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	693	in: (aMethod javaClass package).
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	694	s nextPutAll: (specComponents at: 1).
190 9558f26c7a97 checkin from browser cg parents: 187 diff changeset	695	s space.
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	696	s emphasis: methodNameStyle.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	697	s nextPutAll: (specComponents at: 2).
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	698	s emphasis: codeStyle.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	699	s nextPutAll: ' ('.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	700	s nextPutAll: (specComponents at: 3).
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	701	s nextPutAll: ')'.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	702	aMethod exceptionTable size > 0 ifTrue: [
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	703	s nextPutAll: ' throws '.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	704	aMethod exceptionTable
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	705	keysAndValuesDo: [
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	706	:index :aClassRef \|
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	707	\| nm \|
190 9558f26c7a97 checkin from browser cg parents: 187 diff changeset	708
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	709	nm := aClassRef name.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	710	(nm startsWith: pckgName) ifTrue: [
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	711	nm := nm copyFrom: pckgName size + 2
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	712	] ifFalse: [
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	713	(nm startsWith: 'java/lang') ifTrue: [
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	714	nm := nm copyFrom: 'java/lang' size + 2.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	715	].
190 9558f26c7a97 checkin from browser cg parents: 187 diff changeset	716	].
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	717	index ~~ 1 ifTrue: [ s nextPutAll: ', ' ].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	718	s nextPutAll: (nm copyReplaceAll: $/ with: $.)
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	719	]
190 9558f26c7a97 checkin from browser cg parents: 187 diff changeset	720	].
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	721	s
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	722	nextPutAll: ';';
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	723	cr.
190 9558f26c7a97 checkin from browser cg parents: 187 diff changeset	724
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	725	"Created: / 01-08-1997 / 12:24:11 / cg"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	726	"Modified: / 14-11-1998 / 00:03:09 / cg"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	727	"Modified: / 04-06-2011 / 17:18:56 / 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: 2256 diff changeset	728	"Modified (format): / 30-03-2012 / 19:52:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
161 fe93b8ee561e classDef generator cg parents: 156 diff changeset	729	! !
fe93b8ee561e classDef generator cg parents: 156 diff changeset	730
129 f40775af59a5 checkin from browser cg parents: 126 diff changeset	731	!JavaDecompiler class methodsFor:'decompiling'!
6 b23a6474754f intitial checkin cg parents: diff changeset	732
b23a6474754f intitial checkin cg parents: diff changeset	733	decompile:aJavaMethod
18 6c07dc4b1118 checkin from browser cg parents: 6 diff changeset	734	self decompile:aJavaMethod to:Transcript
6c07dc4b1118 checkin from browser cg parents: 6 diff changeset	735	!
6c07dc4b1118 checkin from browser cg parents: 6 diff changeset	736
6c07dc4b1118 checkin from browser cg parents: 6 diff changeset	737	decompile:aJavaMethod to:aStream
6c07dc4b1118 checkin from browser cg parents: 6 diff changeset	738	self new decompile:aJavaMethod to:aStream
6 b23a6474754f intitial checkin cg parents: diff changeset	739	! !
b23a6474754f intitial checkin cg parents: diff changeset	740
b23a6474754f intitial checkin cg parents: diff changeset	741	!JavaDecompiler methodsFor:'decompiling'!
b23a6474754f intitial checkin cg parents: diff changeset	742
18 6c07dc4b1118 checkin from browser cg parents: 6 diff changeset	743	decompile:aJavaMethod to:aStream
620 c19348d8e671 refactored for subclassability cg parents: 594 diff changeset	744	\|who endPC\|
18 6c07dc4b1118 checkin from browser cg parents: 6 diff changeset	745
6c07dc4b1118 checkin from browser cg parents: 6 diff changeset	746	outStream := aStream.
6c07dc4b1118 checkin from browser cg parents: 6 diff changeset	747
454 38f590639d65 * empty log message * cg parents: 450 diff changeset	748	isStaticMethod := aJavaMethod isStatic.
38f590639d65 * empty log message * cg parents: 450 diff changeset	749
18 6c07dc4b1118 checkin from browser cg parents: 6 diff changeset	750	who := aJavaMethod who.
6c07dc4b1118 checkin from browser cg parents: 6 diff changeset	751	who notNil ifTrue:[
129 f40775af59a5 checkin from browser cg parents: 126 diff changeset	752	classToCompileFor := who methodClass.
454 38f590639d65 * empty log message * cg parents: 450 diff changeset	753	outStream notNil ifTrue:[
38f590639d65 * empty log message * cg parents: 450 diff changeset	754	outStream cr.
38f590639d65 * empty log message * cg parents: 450 diff changeset	755	"/ outStream showCR:'decompiling ' , classToCompileFor name , '>>' , (who methodSelector) , ':'.
38f590639d65 * empty log message * cg parents: 450 diff changeset	756	outStream showCR:'decompiling ' , aJavaMethod displayString , ':'.
38f590639d65 * empty log message * cg parents: 450 diff changeset	757	isStaticMethod ifTrue:[
38f590639d65 * empty log message * cg parents: 450 diff changeset	758	outStream show:'static method'.
38f590639d65 * empty log message * cg parents: 450 diff changeset	759	].
38f590639d65 * empty log message * cg parents: 450 diff changeset	760	outStream cr.
38f590639d65 * empty log message * cg parents: 450 diff changeset	761	outStream cr.
38f590639d65 * empty log message * cg parents: 450 diff changeset	762	]
18 6c07dc4b1118 checkin from browser cg parents: 6 diff changeset	763	].
6 b23a6474754f intitial checkin cg parents: diff changeset	764
b23a6474754f intitial checkin cg parents: diff changeset	765	javaMethod := aJavaMethod.
b23a6474754f intitial checkin cg parents: diff changeset	766	code := aJavaMethod javaByteCode.
b23a6474754f intitial checkin cg parents: diff changeset	767	endPC := code size.
18 6c07dc4b1118 checkin from browser cg parents: 6 diff changeset	768	endPC == 0 ifTrue:[
454 38f590639d65 * empty log message * cg parents: 450 diff changeset	769	outStream notNil ifTrue:[
38f590639d65 * empty log message * cg parents: 450 diff changeset	770	javaMethod isNative ifTrue:[
38f590639d65 * empty log message * cg parents: 450 diff changeset	771	outStream nextPutAll:'// native method'; cr
38f590639d65 * empty log message * cg parents: 450 diff changeset	772	] ifFalse:[
38f590639d65 * empty log message * cg parents: 450 diff changeset	773	outStream nextPutAll:'{} // no bytecode'; cr
38f590639d65 * empty log message * cg parents: 450 diff changeset	774	].
18 6c07dc4b1118 checkin from browser cg parents: 6 diff changeset	775	].
6c07dc4b1118 checkin from browser cg parents: 6 diff changeset	776	^ self
6c07dc4b1118 checkin from browser cg parents: 6 diff changeset	777	].
6c07dc4b1118 checkin from browser cg parents: 6 diff changeset	778
620 c19348d8e671 refactored for subclassability cg parents: 594 diff changeset	779	self enumerateInstructions.
c19348d8e671 refactored for subclassability cg parents: 594 diff changeset	780
c19348d8e671 refactored for subclassability cg parents: 594 diff changeset	781	"Modified: / 9.11.1999 / 15:33:20 / cg"
c19348d8e671 refactored for subclassability cg parents: 594 diff changeset	782	!
c19348d8e671 refactored for subclassability cg parents: 594 diff changeset	783
c19348d8e671 refactored for subclassability cg parents: 594 diff changeset	784	enumerateInstructions
c19348d8e671 refactored for subclassability cg parents: 594 diff changeset	785	\|who endPC insn spec op wide\|
c19348d8e671 refactored for subclassability cg parents: 594 diff changeset	786
198 5543d1079a4a * empty log message * cg parents: 190 diff changeset	787	wide := false.
6 b23a6474754f intitial checkin cg parents: diff changeset	788	pc := 1.
620 c19348d8e671 refactored for subclassability cg parents: 594 diff changeset	789	endPC := code size.
6 b23a6474754f intitial checkin cg parents: diff changeset	790	[pc <= endPC] whileTrue:[
b23a6474754f intitial checkin cg parents: diff changeset	791	insn := code at:pc.
b23a6474754f intitial checkin cg parents: diff changeset	792	pc := pc + 1.
620 c19348d8e671 refactored for subclassability cg parents: 594 diff changeset	793
6 b23a6474754f intitial checkin cg parents: diff changeset	794	spec := DecoderTable at:(insn + 1).
27 4560bb77bb36 checkin from browser cg parents: 25 diff changeset	795	spec isNil ifTrue:[
620 c19348d8e671 refactored for subclassability cg parents: 594 diff changeset	796	op := ' invalid opcode: ', insn printString, ' '
27 4560bb77bb36 checkin from browser cg parents: 25 diff changeset	797	] ifFalse:[
4560bb77bb36 checkin from browser cg parents: 25 diff changeset	798	op := spec at:1
4560bb77bb36 checkin from browser cg parents: 25 diff changeset	799	].
454 38f590639d65 * empty log message * cg parents: 450 diff changeset	800
38f590639d65 * empty log message * cg parents: 450 diff changeset	801	outStream notNil ifTrue:[
38f590639d65 * empty log message * cg parents: 450 diff changeset	802	outStream
38f590639d65 * empty log message * cg parents: 450 diff changeset	803	show:((pc - 1 - 1) printStringPaddedTo:4);
38f590639d65 * empty log message * cg parents: 450 diff changeset	804	show:' '.
38f590639d65 * empty log message * cg parents: 450 diff changeset	805	outStream
38f590639d65 * empty log message * cg parents: 450 diff changeset	806	show:(wide ifTrue:[op , '(w)'] ifFalse:[op]).
38f590639d65 * empty log message * cg parents: 450 diff changeset	807	outStream
38f590639d65 * empty log message * cg parents: 450 diff changeset	808	show:' '.
38f590639d65 * empty log message * cg parents: 450 diff changeset	809	].
23 3e20532cd5bc checkin from browser cg parents: 19 diff changeset	810
198 5543d1079a4a * empty log message * cg parents: 190 diff changeset	811	op == #wide ifTrue:[
5543d1079a4a * empty log message * cg parents: 190 diff changeset	812	wide := true.
5543d1079a4a * empty log message * cg parents: 190 diff changeset	813	] ifFalse:[
620 c19348d8e671 refactored for subclassability cg parents: 594 diff changeset	814	self instructionHookPC:(pc-1) op:op spec:spec.
c19348d8e671 refactored for subclassability cg parents: 594 diff changeset	815
198 5543d1079a4a * empty log message * cg parents: 190 diff changeset	816	spec notNil ifTrue:[
5543d1079a4a * empty log message * cg parents: 190 diff changeset	817	spec from:2 to:spec size do:[:what \|
5543d1079a4a * empty log message * cg parents: 190 diff changeset	818	wide ifTrue:[
5543d1079a4a * empty log message * cg parents: 190 diff changeset	819	self perform:(what , '_wide') asSymbol.
5543d1079a4a * empty log message * cg parents: 190 diff changeset	820	] ifFalse:[
5543d1079a4a * empty log message * cg parents: 190 diff changeset	821	self perform:what
5543d1079a4a * empty log message * cg parents: 190 diff changeset	822	]
5543d1079a4a * empty log message * cg parents: 190 diff changeset	823	].
27 4560bb77bb36 checkin from browser cg parents: 25 diff changeset	824	].
198 5543d1079a4a * empty log message * cg parents: 190 diff changeset	825	wide := false.
6 b23a6474754f intitial checkin cg parents: diff changeset	826	].
620 c19348d8e671 refactored for subclassability cg parents: 594 diff changeset	827
454 38f590639d65 * empty log message * cg parents: 450 diff changeset	828	outStream notNil ifTrue:[
38f590639d65 * empty log message * cg parents: 450 diff changeset	829	outStream cr.
38f590639d65 * empty log message * cg parents: 450 diff changeset	830	]
6 b23a6474754f intitial checkin cg parents: diff changeset	831	]
b23a6474754f intitial checkin cg parents: diff changeset	832
620 c19348d8e671 refactored for subclassability cg parents: 594 diff changeset	833	"Created: / 9.11.1999 / 15:32:49 / cg"
c19348d8e671 refactored for subclassability cg parents: 594 diff changeset	834	"Modified: / 9.11.1999 / 15:36:22 / cg"
c19348d8e671 refactored for subclassability cg parents: 594 diff changeset	835	!
c19348d8e671 refactored for subclassability cg parents: 594 diff changeset	836
c19348d8e671 refactored for subclassability cg parents: 594 diff changeset	837	instructionHookPC:pc op:op spec:spec
c19348d8e671 refactored for subclassability cg parents: 594 diff changeset	838
c19348d8e671 refactored for subclassability cg parents: 594 diff changeset	839	"Created: / 9.11.1999 / 15:35:19 / cg"
6 b23a6474754f intitial checkin cg parents: diff changeset	840	! !
b23a6474754f intitial checkin cg parents: diff changeset	841
b23a6474754f intitial checkin cg parents: diff changeset	842	!JavaDecompiler methodsFor:'operand decoding'!
b23a6474754f intitial checkin cg parents: diff changeset	843
23 3e20532cd5bc checkin from browser cg parents: 19 diff changeset	844	arrayTypeByte
3e20532cd5bc checkin from browser cg parents: 19 diff changeset	845	\|hi low index type\|
3e20532cd5bc checkin from browser cg parents: 19 diff changeset	846
3e20532cd5bc checkin from browser cg parents: 19 diff changeset	847	index := code at:pc.
3e20532cd5bc checkin from browser cg parents: 19 diff changeset	848	pc := pc + 1.
3e20532cd5bc checkin from browser cg parents: 19 diff changeset	849
445 215b2b128be5 checkin from browser cg parents: 443 diff changeset	850	type := #('T_ARRAY' 'invalid2' 'invalid3' 'T_BOOLEAN'
215b2b128be5 checkin from browser cg parents: 443 diff changeset	851	'T_CHAR' 'T_FLOAT' 'T_DOUBLE' 'T_BYTE'
215b2b128be5 checkin from browser cg parents: 443 diff changeset	852	'T_SHORT' 'T_INT' 'T_LONG' ) at:index ifAbsent:['invalid' , index printString].
23 3e20532cd5bc checkin from browser cg parents: 19 diff changeset	853
454 38f590639d65 * empty log message * cg parents: 450 diff changeset	854	outStream notNil ifTrue:[
38f590639d65 * empty log message * cg parents: 450 diff changeset	855	outStream
38f590639d65 * empty log message * cg parents: 450 diff changeset	856	show:index;
38f590639d65 * empty log message * cg parents: 450 diff changeset	857	show:' [';
38f590639d65 * empty log message * cg parents: 450 diff changeset	858	show:type;
38f590639d65 * empty log message * cg parents: 450 diff changeset	859	show:']'
38f590639d65 * empty log message * cg parents: 450 diff changeset	860	]
23 3e20532cd5bc checkin from browser cg parents: 19 diff changeset	861
454 38f590639d65 * empty log message * cg parents: 450 diff changeset	862	"Created: / 16.11.1998 / 15:41:47 / cg"
38f590639d65 * empty log message * cg parents: 450 diff changeset	863	"Modified: / 16.11.1998 / 15:43:27 / cg"
23 3e20532cd5bc checkin from browser cg parents: 19 diff changeset	864	!
3e20532cd5bc checkin from browser cg parents: 19 diff changeset	865
3e20532cd5bc checkin from browser cg parents: 19 diff changeset	866	constIndexByte
454 38f590639d65 * empty log message * cg parents: 450 diff changeset	867	lastConstIndex := code at:pc.
23 3e20532cd5bc checkin from browser cg parents: 19 diff changeset	868	pc := pc + 1.
3e20532cd5bc checkin from browser cg parents: 19 diff changeset	869
454 38f590639d65 * empty log message * cg parents: 450 diff changeset	870	lastConstant := javaMethod constantPool at:lastConstIndex ifAbsent:nil.
23 3e20532cd5bc checkin from browser cg parents: 19 diff changeset	871
454 38f590639d65 * empty log message * cg parents: 450 diff changeset	872	outStream notNil ifTrue:[
38f590639d65 * empty log message * cg parents: 450 diff changeset	873	outStream
38f590639d65 * empty log message * cg parents: 450 diff changeset	874	show:lastConstIndex;
38f590639d65 * empty log message * cg parents: 450 diff changeset	875	show:' [';
38f590639d65 * empty log message * cg parents: 450 diff changeset	876	show:(lastConstant ? '??') displayString;
38f590639d65 * empty log message * cg parents: 450 diff changeset	877	show:'] '
38f590639d65 * empty log message * cg parents: 450 diff changeset	878	]
38f590639d65 * empty log message * cg parents: 450 diff changeset	879
38f590639d65 * empty log message * cg parents: 450 diff changeset	880	"Created: / 16.11.1998 / 15:42:56 / cg"
38f590639d65 * empty log message * cg parents: 450 diff changeset	881	"Modified: / 16.11.1998 / 15:58:52 / cg"
23 3e20532cd5bc checkin from browser cg parents: 19 diff changeset	882	!
3e20532cd5bc checkin from browser cg parents: 19 diff changeset	883
6 b23a6474754f intitial checkin cg parents: diff changeset	884	constIndexShort
701 4d62047c1358 * empty log message * cg parents: 620 diff changeset	885	\|s\|
4d62047c1358 * empty log message * cg parents: 620 diff changeset	886
454 38f590639d65 * empty log message * cg parents: 450 diff changeset	887	lastConstIndex := code wordAt:pc MSB:true.
24 4a9822b95fc0 checkin from browser cg parents: 23 diff changeset	888	pc := pc + 2.
6 b23a6474754f intitial checkin cg parents: diff changeset	889
454 38f590639d65 * empty log message * cg parents: 450 diff changeset	890	lastConstant := javaMethod constantPool at:lastConstIndex ifAbsent:nil.
38f590639d65 * empty log message * cg parents: 450 diff changeset	891	outStream notNil ifTrue:[
701 4d62047c1358 * empty log message * cg parents: 620 diff changeset	892	s := (lastConstant ? '??') displayString.
4d62047c1358 * empty log message * cg parents: 620 diff changeset	893	s isString ifTrue:[
4d62047c1358 * empty log message * cg parents: 620 diff changeset	894	s bitsPerCharacter > 8 ifTrue:[
4d62047c1358 * empty log message * cg parents: 620 diff changeset	895	s := '...a 2-byte string...'
4d62047c1358 * empty log message * cg parents: 620 diff changeset	896	]
4d62047c1358 * empty log message * cg parents: 620 diff changeset	897	].
454 38f590639d65 * empty log message * cg parents: 450 diff changeset	898	outStream
38f590639d65 * empty log message * cg parents: 450 diff changeset	899	show:lastConstIndex;
38f590639d65 * empty log message * cg parents: 450 diff changeset	900	show:' [';
701 4d62047c1358 * empty log message * cg parents: 620 diff changeset	901	show:s;
454 38f590639d65 * empty log message * cg parents: 450 diff changeset	902	show:'] '
38f590639d65 * empty log message * cg parents: 450 diff changeset	903	]
38f590639d65 * empty log message * cg parents: 450 diff changeset	904
38f590639d65 * empty log message * cg parents: 450 diff changeset	905	"Created: / 16.4.1996 / 15:00:04 / cg"
38f590639d65 * empty log message * cg parents: 450 diff changeset	906	"Modified: / 16.11.1998 / 15:59:23 / cg"
23 3e20532cd5bc checkin from browser cg parents: 19 diff changeset	907	!
3e20532cd5bc checkin from browser cg parents: 19 diff changeset	908
27 4560bb77bb36 checkin from browser cg parents: 25 diff changeset	909	dimensionsByte
620 c19348d8e671 refactored for subclassability cg parents: 594 diff changeset	910	outStream notNil ifTrue:[
c19348d8e671 refactored for subclassability cg parents: 594 diff changeset	911	outStream show:' dims= '.
c19348d8e671 refactored for subclassability cg parents: 594 diff changeset	912	].
27 4560bb77bb36 checkin from browser cg parents: 25 diff changeset	913	self unsignedByte
620 c19348d8e671 refactored for subclassability cg parents: 594 diff changeset	914
c19348d8e671 refactored for subclassability cg parents: 594 diff changeset	915	"Modified: / 9.11.1999 / 15:46:06 / cg"
27 4560bb77bb36 checkin from browser cg parents: 25 diff changeset	916	!
4560bb77bb36 checkin from browser cg parents: 25 diff changeset	917
23 3e20532cd5bc checkin from browser cg parents: 19 diff changeset	918	localIndexByte
198 5543d1079a4a * empty log message * cg parents: 190 diff changeset	919	\|index\|
23 3e20532cd5bc checkin from browser cg parents: 19 diff changeset	920
3e20532cd5bc checkin from browser cg parents: 19 diff changeset	921	index := code at:pc.
3e20532cd5bc checkin from browser cg parents: 19 diff changeset	922	pc := pc + 1.
3e20532cd5bc checkin from browser cg parents: 19 diff changeset	923
454 38f590639d65 * empty log message * cg parents: 450 diff changeset	924	outStream notNil ifTrue:[
38f590639d65 * empty log message * cg parents: 450 diff changeset	925	outStream
38f590639d65 * empty log message * cg parents: 450 diff changeset	926	show:index;
38f590639d65 * empty log message * cg parents: 450 diff changeset	927	show:' '
38f590639d65 * empty log message * cg parents: 450 diff changeset	928	]
23 3e20532cd5bc checkin from browser cg parents: 19 diff changeset	929
454 38f590639d65 * empty log message * cg parents: 450 diff changeset	930	"Created: / 16.4.1996 / 15:00:04 / cg"
38f590639d65 * empty log message * cg parents: 450 diff changeset	931	"Modified: / 16.11.1998 / 15:43:55 / cg"
198 5543d1079a4a * empty log message * cg parents: 190 diff changeset	932	!
5543d1079a4a * empty log message * cg parents: 190 diff changeset	933
5543d1079a4a * empty log message * cg parents: 190 diff changeset	934	localIndexByte_wide
5543d1079a4a * empty log message * cg parents: 190 diff changeset	935	\|index\|
5543d1079a4a * empty log message * cg parents: 190 diff changeset	936
5543d1079a4a * empty log message * cg parents: 190 diff changeset	937	index := code wordAt:pc MSB:true.
5543d1079a4a * empty log message * cg parents: 190 diff changeset	938	pc := pc + 2.
5543d1079a4a * empty log message * cg parents: 190 diff changeset	939
454 38f590639d65 * empty log message * cg parents: 450 diff changeset	940	outStream notNil ifTrue:[
38f590639d65 * empty log message * cg parents: 450 diff changeset	941	outStream
38f590639d65 * empty log message * cg parents: 450 diff changeset	942	show:index;
38f590639d65 * empty log message * cg parents: 450 diff changeset	943	show:' '
38f590639d65 * empty log message * cg parents: 450 diff changeset	944	]
198 5543d1079a4a * empty log message * cg parents: 190 diff changeset	945
454 38f590639d65 * empty log message * cg parents: 450 diff changeset	946	"Created: / 4.8.1997 / 19:02:09 / cg"
38f590639d65 * empty log message * cg parents: 450 diff changeset	947	"Modified: / 16.11.1998 / 15:44:02 / cg"
23 3e20532cd5bc checkin from browser cg parents: 19 diff changeset	948	!
3e20532cd5bc checkin from browser cg parents: 19 diff changeset	949
27 4560bb77bb36 checkin from browser cg parents: 25 diff changeset	950	lookupSwitchBytes
4560bb77bb36 checkin from browser cg parents: 25 diff changeset	951	\|defaultOffset delta nPairs match pc0\|
4560bb77bb36 checkin from browser cg parents: 25 diff changeset	952
4560bb77bb36 checkin from browser cg parents: 25 diff changeset	953	pc0 := pc-1. "/ i.e. the pc of the tableSwitch op
4560bb77bb36 checkin from browser cg parents: 25 diff changeset	954
4560bb77bb36 checkin from browser cg parents: 25 diff changeset	955	[(pc-1) \\ 4 ~~ 0] whileTrue:[
4560bb77bb36 checkin from browser cg parents: 25 diff changeset	956	pc := pc + 1
4560bb77bb36 checkin from browser cg parents: 25 diff changeset	957	].
4560bb77bb36 checkin from browser cg parents: 25 diff changeset	958
4560bb77bb36 checkin from browser cg parents: 25 diff changeset	959	defaultOffset := code signedDoubleWordAt:pc MSB:true.
4560bb77bb36 checkin from browser cg parents: 25 diff changeset	960	pc := pc + 4.
4560bb77bb36 checkin from browser cg parents: 25 diff changeset	961	nPairs := code signedDoubleWordAt:pc MSB:true.
4560bb77bb36 checkin from browser cg parents: 25 diff changeset	962	pc := pc + 4.
4560bb77bb36 checkin from browser cg parents: 25 diff changeset	963
620 c19348d8e671 refactored for subclassability cg parents: 594 diff changeset	964	outStream notNil ifTrue:[
c19348d8e671 refactored for subclassability cg parents: 594 diff changeset	965	outStream show:'n='; show:nPairs; cr.
c19348d8e671 refactored for subclassability cg parents: 594 diff changeset	966	].
27 4560bb77bb36 checkin from browser cg parents: 25 diff changeset	967
4560bb77bb36 checkin from browser cg parents: 25 diff changeset	968	nPairs timesRepeat:[
4560bb77bb36 checkin from browser cg parents: 25 diff changeset	969	match := code signedDoubleWordAt:pc MSB:true.
4560bb77bb36 checkin from browser cg parents: 25 diff changeset	970	pc := pc + 4.
4560bb77bb36 checkin from browser cg parents: 25 diff changeset	971	delta := code signedDoubleWordAt:pc MSB:true.
4560bb77bb36 checkin from browser cg parents: 25 diff changeset	972	pc := pc + 4.
454 38f590639d65 * empty log message * cg parents: 450 diff changeset	973	outStream notNil ifTrue:[
38f590639d65 * empty log message * cg parents: 450 diff changeset	974	outStream show:' ';
38f590639d65 * empty log message * cg parents: 450 diff changeset	975	show:match;
38f590639d65 * empty log message * cg parents: 450 diff changeset	976	show:' -> ';
38f590639d65 * empty log message * cg parents: 450 diff changeset	977	show:delta;
38f590639d65 * empty log message * cg parents: 450 diff changeset	978	show:' [';
38f590639d65 * empty log message * cg parents: 450 diff changeset	979	show:(pc0 - 1 + delta);
38f590639d65 * empty log message * cg parents: 450 diff changeset	980	show:']';
38f590639d65 * empty log message * cg parents: 450 diff changeset	981	cr.
38f590639d65 * empty log message * cg parents: 450 diff changeset	982	]
27 4560bb77bb36 checkin from browser cg parents: 25 diff changeset	983	].
4560bb77bb36 checkin from browser cg parents: 25 diff changeset	984
454 38f590639d65 * empty log message * cg parents: 450 diff changeset	985	outStream notNil ifTrue:[
38f590639d65 * empty log message * cg parents: 450 diff changeset	986	outStream show:' ';
38f590639d65 * empty log message * cg parents: 450 diff changeset	987	show:'default';
38f590639d65 * empty log message * cg parents: 450 diff changeset	988	show:' -> ';
38f590639d65 * empty log message * cg parents: 450 diff changeset	989	show:defaultOffset;
38f590639d65 * empty log message * cg parents: 450 diff changeset	990	show:' [';
38f590639d65 * empty log message * cg parents: 450 diff changeset	991	show:(pc0 - 1 + defaultOffset);
38f590639d65 * empty log message * cg parents: 450 diff changeset	992	show:']'.
38f590639d65 * empty log message * cg parents: 450 diff changeset	993	]
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 229 diff changeset	994
620 c19348d8e671 refactored for subclassability cg parents: 594 diff changeset	995	"Modified: / 9.11.1999 / 15:45:50 / cg"
27 4560bb77bb36 checkin from browser cg parents: 25 diff changeset	996	!
4560bb77bb36 checkin from browser cg parents: 25 diff changeset	997
4560bb77bb36 checkin from browser cg parents: 25 diff changeset	998	nargsByte
4560bb77bb36 checkin from browser cg parents: 25 diff changeset	999	\|byte constants\|
4560bb77bb36 checkin from browser cg parents: 25 diff changeset	1000
4560bb77bb36 checkin from browser cg parents: 25 diff changeset	1001	byte := code byteAt:pc.
4560bb77bb36 checkin from browser cg parents: 25 diff changeset	1002	pc := pc + 1.
4560bb77bb36 checkin from browser cg parents: 25 diff changeset	1003
454 38f590639d65 * empty log message * cg parents: 450 diff changeset	1004	outStream notNil ifTrue:[
38f590639d65 * empty log message * cg parents: 450 diff changeset	1005	outStream
38f590639d65 * empty log message * cg parents: 450 diff changeset	1006	show:byte
38f590639d65 * empty log message * cg parents: 450 diff changeset	1007	]
27 4560bb77bb36 checkin from browser cg parents: 25 diff changeset	1008
454 38f590639d65 * empty log message * cg parents: 450 diff changeset	1009	"Created: / 16.4.1996 / 15:00:04 / cg"
38f590639d65 * empty log message * cg parents: 450 diff changeset	1010	"Modified: / 16.11.1998 / 15:44:34 / cg"
27 4560bb77bb36 checkin from browser cg parents: 25 diff changeset	1011	!
4560bb77bb36 checkin from browser cg parents: 25 diff changeset	1012
4560bb77bb36 checkin from browser cg parents: 25 diff changeset	1013	reservedByte
4560bb77bb36 checkin from browser cg parents: 25 diff changeset	1014	\|byte constants\|
4560bb77bb36 checkin from browser cg parents: 25 diff changeset	1015
4560bb77bb36 checkin from browser cg parents: 25 diff changeset	1016	byte := code byteAt:pc.
4560bb77bb36 checkin from browser cg parents: 25 diff changeset	1017	pc := pc + 1.
4560bb77bb36 checkin from browser cg parents: 25 diff changeset	1018
454 38f590639d65 * empty log message * cg parents: 450 diff changeset	1019	outStream notNil ifTrue:[
38f590639d65 * empty log message * cg parents: 450 diff changeset	1020	outStream
38f590639d65 * empty log message * cg parents: 450 diff changeset	1021	show:byte
38f590639d65 * empty log message * cg parents: 450 diff changeset	1022	]
27 4560bb77bb36 checkin from browser cg parents: 25 diff changeset	1023
454 38f590639d65 * empty log message * cg parents: 450 diff changeset	1024	"Created: / 16.4.1996 / 15:00:04 / cg"
38f590639d65 * empty log message * cg parents: 450 diff changeset	1025	"Modified: / 16.11.1998 / 15:44:42 / cg"
27 4560bb77bb36 checkin from browser cg parents: 25 diff changeset	1026	!
4560bb77bb36 checkin from browser cg parents: 25 diff changeset	1027
23 3e20532cd5bc checkin from browser cg parents: 19 diff changeset	1028	signedBranchShort
24 4a9822b95fc0 checkin from browser cg parents: 23 diff changeset	1029	\|index constants\|
23 3e20532cd5bc checkin from browser cg parents: 19 diff changeset	1030
24 4a9822b95fc0 checkin from browser cg parents: 23 diff changeset	1031	index := code signedWordAt:pc MSB:true.
23 3e20532cd5bc checkin from browser cg parents: 19 diff changeset	1032
454 38f590639d65 * empty log message * cg parents: 450 diff changeset	1033	outStream notNil ifTrue:[
38f590639d65 * empty log message * cg parents: 450 diff changeset	1034	outStream
38f590639d65 * empty log message * cg parents: 450 diff changeset	1035	show:index;
38f590639d65 * empty log message * cg parents: 450 diff changeset	1036	show:' [';
38f590639d65 * empty log message * cg parents: 450 diff changeset	1037	show:(pc - 1 + index - 1);
38f590639d65 * empty log message * cg parents: 450 diff changeset	1038	show:']'.
38f590639d65 * empty log message * cg parents: 450 diff changeset	1039	].
25 735dde512f03 Fix signedBranchShort stefan parents: 24 diff changeset	1040
735dde512f03 Fix signedBranchShort stefan parents: 24 diff changeset	1041	pc := pc + 2.
23 3e20532cd5bc checkin from browser cg parents: 19 diff changeset	1042
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 229 diff changeset	1043	"Created: / 16.4.1996 / 15:00:04 / cg"
454 38f590639d65 * empty log message * cg parents: 450 diff changeset	1044	"Modified: / 16.11.1998 / 15:44:51 / cg"
24 4a9822b95fc0 checkin from browser cg parents: 23 diff changeset	1045	!
4a9822b95fc0 checkin from browser cg parents: 23 diff changeset	1046
4a9822b95fc0 checkin from browser cg parents: 23 diff changeset	1047	signedByte
4a9822b95fc0 checkin from browser cg parents: 23 diff changeset	1048	\|byte constants\|
4a9822b95fc0 checkin from browser cg parents: 23 diff changeset	1049
4a9822b95fc0 checkin from browser cg parents: 23 diff changeset	1050	byte := code signedByteAt:pc.
4a9822b95fc0 checkin from browser cg parents: 23 diff changeset	1051	pc := pc + 1.
4a9822b95fc0 checkin from browser cg parents: 23 diff changeset	1052
454 38f590639d65 * empty log message * cg parents: 450 diff changeset	1053	outStream notNil ifTrue:[
38f590639d65 * empty log message * cg parents: 450 diff changeset	1054	outStream
38f590639d65 * empty log message * cg parents: 450 diff changeset	1055	show:byte
38f590639d65 * empty log message * cg parents: 450 diff changeset	1056	]
24 4a9822b95fc0 checkin from browser cg parents: 23 diff changeset	1057
454 38f590639d65 * empty log message * cg parents: 450 diff changeset	1058	"Created: / 16.4.1996 / 15:00:04 / cg"
38f590639d65 * empty log message * cg parents: 450 diff changeset	1059	"Modified: / 16.11.1998 / 15:44:58 / cg"
24 4a9822b95fc0 checkin from browser cg parents: 23 diff changeset	1060	!
4a9822b95fc0 checkin from browser cg parents: 23 diff changeset	1061
261 d95d5a3cc475 lots of new stuff cg parents: 252 diff changeset	1062	signedByte_wide
d95d5a3cc475 lots of new stuff cg parents: 252 diff changeset	1063	self signedShort
d95d5a3cc475 lots of new stuff cg parents: 252 diff changeset	1064
d95d5a3cc475 lots of new stuff cg parents: 252 diff changeset	1065	"Created: / 13.1.1998 / 23:56:36 / cg"
d95d5a3cc475 lots of new stuff cg parents: 252 diff changeset	1066	!
d95d5a3cc475 lots of new stuff cg parents: 252 diff changeset	1067
24 4a9822b95fc0 checkin from browser cg parents: 23 diff changeset	1068	signedShort
4a9822b95fc0 checkin from browser cg parents: 23 diff changeset	1069	\|word constants\|
4a9822b95fc0 checkin from browser cg parents: 23 diff changeset	1070
4a9822b95fc0 checkin from browser cg parents: 23 diff changeset	1071	word := code signedWordAt:pc MSB:true.
4a9822b95fc0 checkin from browser cg parents: 23 diff changeset	1072	pc := pc + 2.
4a9822b95fc0 checkin from browser cg parents: 23 diff changeset	1073
454 38f590639d65 * empty log message * cg parents: 450 diff changeset	1074	outStream notNil ifTrue:[
38f590639d65 * empty log message * cg parents: 450 diff changeset	1075	outStream
38f590639d65 * empty log message * cg parents: 450 diff changeset	1076	show:word
38f590639d65 * empty log message * cg parents: 450 diff changeset	1077	]
24 4a9822b95fc0 checkin from browser cg parents: 23 diff changeset	1078
454 38f590639d65 * empty log message * cg parents: 450 diff changeset	1079	"Created: / 16.4.1996 / 15:00:04 / cg"
38f590639d65 * empty log message * cg parents: 450 diff changeset	1080	"Modified: / 16.11.1998 / 15:45:06 / cg"
24 4a9822b95fc0 checkin from browser cg parents: 23 diff changeset	1081	!
4a9822b95fc0 checkin from browser cg parents: 23 diff changeset	1082
4a9822b95fc0 checkin from browser cg parents: 23 diff changeset	1083	tableSwitchBytes
4a9822b95fc0 checkin from browser cg parents: 23 diff changeset	1084	\|defaultOffset delta low high pc0\|
4a9822b95fc0 checkin from browser cg parents: 23 diff changeset	1085
4a9822b95fc0 checkin from browser cg parents: 23 diff changeset	1086	pc0 := pc-1. "/ i.e. the pc of the tableSwitch op
4a9822b95fc0 checkin from browser cg parents: 23 diff changeset	1087
4a9822b95fc0 checkin from browser cg parents: 23 diff changeset	1088	[(pc-1) \\ 4 ~~ 0] whileTrue:[
4a9822b95fc0 checkin from browser cg parents: 23 diff changeset	1089	pc := pc + 1
4a9822b95fc0 checkin from browser cg parents: 23 diff changeset	1090	].
4a9822b95fc0 checkin from browser cg parents: 23 diff changeset	1091
4a9822b95fc0 checkin from browser cg parents: 23 diff changeset	1092	defaultOffset := code signedDoubleWordAt:pc MSB:true.
4a9822b95fc0 checkin from browser cg parents: 23 diff changeset	1093	pc := pc + 4.
4a9822b95fc0 checkin from browser cg parents: 23 diff changeset	1094	low := code signedDoubleWordAt:pc MSB:true.
4a9822b95fc0 checkin from browser cg parents: 23 diff changeset	1095	pc := pc + 4.
4a9822b95fc0 checkin from browser cg parents: 23 diff changeset	1096	high := code signedDoubleWordAt:pc MSB:true.
4a9822b95fc0 checkin from browser cg parents: 23 diff changeset	1097	pc := pc + 4.
4a9822b95fc0 checkin from browser cg parents: 23 diff changeset	1098
620 c19348d8e671 refactored for subclassability cg parents: 594 diff changeset	1099	outStream notNil ifTrue:[
c19348d8e671 refactored for subclassability cg parents: 594 diff changeset	1100	outStream cr.
c19348d8e671 refactored for subclassability cg parents: 594 diff changeset	1101	].
24 4a9822b95fc0 checkin from browser cg parents: 23 diff changeset	1102
4a9822b95fc0 checkin from browser cg parents: 23 diff changeset	1103	low to:high do:[:switchValue \|
4a9822b95fc0 checkin from browser cg parents: 23 diff changeset	1104	delta := code signedDoubleWordAt:pc MSB:true.
4a9822b95fc0 checkin from browser cg parents: 23 diff changeset	1105	pc := pc + 4.
454 38f590639d65 * empty log message * cg parents: 450 diff changeset	1106	outStream notNil ifTrue:[
38f590639d65 * empty log message * cg parents: 450 diff changeset	1107	outStream show:' ';
38f590639d65 * empty log message * cg parents: 450 diff changeset	1108	show:switchValue;
38f590639d65 * empty log message * cg parents: 450 diff changeset	1109	show:' -> ';
38f590639d65 * empty log message * cg parents: 450 diff changeset	1110	show:delta;
38f590639d65 * empty log message * cg parents: 450 diff changeset	1111	show:' [';
38f590639d65 * empty log message * cg parents: 450 diff changeset	1112	show:(pc0 - 1 + delta);
38f590639d65 * empty log message * cg parents: 450 diff changeset	1113	show:']';
38f590639d65 * empty log message * cg parents: 450 diff changeset	1114	cr.
38f590639d65 * empty log message * cg parents: 450 diff changeset	1115	].
24 4a9822b95fc0 checkin from browser cg parents: 23 diff changeset	1116	].
4a9822b95fc0 checkin from browser cg parents: 23 diff changeset	1117
454 38f590639d65 * empty log message * cg parents: 450 diff changeset	1118	outStream notNil ifTrue:[
38f590639d65 * empty log message * cg parents: 450 diff changeset	1119	outStream show:' ';
38f590639d65 * empty log message * cg parents: 450 diff changeset	1120	show:'default';
38f590639d65 * empty log message * cg parents: 450 diff changeset	1121	show:' -> ';
38f590639d65 * empty log message * cg parents: 450 diff changeset	1122	show:defaultOffset;
38f590639d65 * empty log message * cg parents: 450 diff changeset	1123	show:' [';
38f590639d65 * empty log message * cg parents: 450 diff changeset	1124	show:(pc0 - 1 + defaultOffset);
38f590639d65 * empty log message * cg parents: 450 diff changeset	1125	show:']'.
38f590639d65 * empty log message * cg parents: 450 diff changeset	1126	]
24 4a9822b95fc0 checkin from browser cg parents: 23 diff changeset	1127
620 c19348d8e671 refactored for subclassability cg parents: 594 diff changeset	1128	"Modified: / 9.11.1999 / 15:44:36 / cg"
27 4560bb77bb36 checkin from browser cg parents: 25 diff changeset	1129	!
4560bb77bb36 checkin from browser cg parents: 25 diff changeset	1130
4560bb77bb36 checkin from browser cg parents: 25 diff changeset	1131	unsignedByte
4560bb77bb36 checkin from browser cg parents: 25 diff changeset	1132	\|byte constants\|
4560bb77bb36 checkin from browser cg parents: 25 diff changeset	1133
4560bb77bb36 checkin from browser cg parents: 25 diff changeset	1134	byte := code byteAt:pc.
4560bb77bb36 checkin from browser cg parents: 25 diff changeset	1135	pc := pc + 1.
4560bb77bb36 checkin from browser cg parents: 25 diff changeset	1136
454 38f590639d65 * empty log message * cg parents: 450 diff changeset	1137	outStream notNil ifTrue:[
38f590639d65 * empty log message * cg parents: 450 diff changeset	1138	outStream
38f590639d65 * empty log message * cg parents: 450 diff changeset	1139	show:byte
38f590639d65 * empty log message * cg parents: 450 diff changeset	1140	]
27 4560bb77bb36 checkin from browser cg parents: 25 diff changeset	1141
454 38f590639d65 * empty log message * cg parents: 450 diff changeset	1142	"Created: / 16.4.1996 / 15:00:04 / cg"
38f590639d65 * empty log message * cg parents: 450 diff changeset	1143	"Modified: / 16.11.1998 / 15:45:33 / cg"
6 b23a6474754f intitial checkin cg parents: diff changeset	1144	! !
b23a6474754f intitial checkin cg parents: diff changeset	1145
229 b91c9462ac83 * empty log message * cg parents: 198 diff changeset	1146	!JavaDecompiler methodsFor:'private'!
b91c9462ac83 * empty log message * cg parents: 198 diff changeset	1147
b91c9462ac83 * empty log message * cg parents: 198 diff changeset	1148	popType:type
b91c9462ac83 * empty log message * cg parents: 198 diff changeset	1149	(type == #long) ifTrue:[
b91c9462ac83 * empty log message * cg parents: 198 diff changeset	1150	^ self popLong
b91c9462ac83 * empty log message * cg parents: 198 diff changeset	1151	].
b91c9462ac83 * empty log message * cg parents: 198 diff changeset	1152	type == #double ifTrue:[
b91c9462ac83 * empty log message * cg parents: 198 diff changeset	1153	^ self popDouble
b91c9462ac83 * empty log message * cg parents: 198 diff changeset	1154	].
b91c9462ac83 * empty log message * cg parents: 198 diff changeset	1155	^ self popStack
b91c9462ac83 * empty log message * cg parents: 198 diff changeset	1156
b91c9462ac83 * empty log message * cg parents: 198 diff changeset	1157	"Created: 16.8.1997 / 03:14:11 / cg"
b91c9462ac83 * empty log message * cg parents: 198 diff changeset	1158	! !
b91c9462ac83 * empty log message * cg parents: 198 diff changeset	1159
454 38f590639d65 * empty log message * cg parents: 450 diff changeset	1160	!JavaDecompiler methodsFor:'statistics'!
38f590639d65 * empty log message * cg parents: 450 diff changeset	1161
456 bbed0c5ce05f checkin from browser cg parents: 454 diff changeset	1162	remember_athrow
bbed0c5ce05f checkin from browser cg parents: 454 diff changeset	1163
bbed0c5ce05f checkin from browser cg parents: 454 diff changeset	1164	"Created: / 16.11.1998 / 19:37:32 / cg"
bbed0c5ce05f checkin from browser cg parents: 454 diff changeset	1165	!
bbed0c5ce05f checkin from browser cg parents: 454 diff changeset	1166
454 38f590639d65 * empty log message * cg parents: 450 diff changeset	1167	remember_getfield
38f590639d65 * empty log message * cg parents: 450 diff changeset	1168	\|fieldRef\|
38f590639d65 * empty log message * cg parents: 450 diff changeset	1169
38f590639d65 * empty log message * cg parents: 450 diff changeset	1170	fieldRef := lastConstant.
38f590639d65 * empty log message * cg parents: 450 diff changeset	1171	"/ ....
38f590639d65 * empty log message * cg parents: 450 diff changeset	1172
38f590639d65 * empty log message * cg parents: 450 diff changeset	1173	"Created: / 16.11.1998 / 16:07:58 / cg"
38f590639d65 * empty log message * cg parents: 450 diff changeset	1174	!
38f590639d65 * empty log message * cg parents: 450 diff changeset	1175
38f590639d65 * empty log message * cg parents: 450 diff changeset	1176	remember_getstatic
38f590639d65 * empty log message * cg parents: 450 diff changeset	1177	\|fieldRef\|
38f590639d65 * empty log message * cg parents: 450 diff changeset	1178
38f590639d65 * empty log message * cg parents: 450 diff changeset	1179	fieldRef := lastConstant.
38f590639d65 * empty log message * cg parents: 450 diff changeset	1180	"/ ....
38f590639d65 * empty log message * cg parents: 450 diff changeset	1181
38f590639d65 * empty log message * cg parents: 450 diff changeset	1182	"Created: / 16.11.1998 / 16:08:06 / cg"
38f590639d65 * empty log message * cg parents: 450 diff changeset	1183	!
38f590639d65 * empty log message * cg parents: 450 diff changeset	1184
38f590639d65 * empty log message * cg parents: 450 diff changeset	1185	remember_invokeinterface
38f590639d65 * empty log message * cg parents: 450 diff changeset	1186	\|mthdRef\|
38f590639d65 * empty log message * cg parents: 450 diff changeset	1187
38f590639d65 * empty log message * cg parents: 450 diff changeset	1188	mthdRef := lastConstant.
38f590639d65 * empty log message * cg parents: 450 diff changeset	1189	"/ ....
38f590639d65 * empty log message * cg parents: 450 diff changeset	1190
38f590639d65 * empty log message * cg parents: 450 diff changeset	1191	"Created: / 16.11.1998 / 16:07:29 / cg"
38f590639d65 * empty log message * cg parents: 450 diff changeset	1192	!
38f590639d65 * empty log message * cg parents: 450 diff changeset	1193
38f590639d65 * empty log message * cg parents: 450 diff changeset	1194	remember_invokenonvirtual
38f590639d65 * empty log message * cg parents: 450 diff changeset	1195	\|mthdRef\|
38f590639d65 * empty log message * cg parents: 450 diff changeset	1196
38f590639d65 * empty log message * cg parents: 450 diff changeset	1197	mthdRef := lastConstant.
38f590639d65 * empty log message * cg parents: 450 diff changeset	1198	"/ ....
38f590639d65 * empty log message * cg parents: 450 diff changeset	1199
38f590639d65 * empty log message * cg parents: 450 diff changeset	1200	"Created: / 16.11.1998 / 16:06:49 / cg"
38f590639d65 * empty log message * cg parents: 450 diff changeset	1201	!
38f590639d65 * empty log message * cg parents: 450 diff changeset	1202
38f590639d65 * empty log message * cg parents: 450 diff changeset	1203	remember_invokestatic
38f590639d65 * empty log message * cg parents: 450 diff changeset	1204	\|mthdRef\|
38f590639d65 * empty log message * cg parents: 450 diff changeset	1205
38f590639d65 * empty log message * cg parents: 450 diff changeset	1206	mthdRef := lastConstant.
38f590639d65 * empty log message * cg parents: 450 diff changeset	1207	"/ ....
38f590639d65 * empty log message * cg parents: 450 diff changeset	1208
38f590639d65 * empty log message * cg parents: 450 diff changeset	1209	"Created: / 16.11.1998 / 16:06:40 / cg"
38f590639d65 * empty log message * cg parents: 450 diff changeset	1210	!
38f590639d65 * empty log message * cg parents: 450 diff changeset	1211
38f590639d65 * empty log message * cg parents: 450 diff changeset	1212	remember_invokevirtual
38f590639d65 * empty log message * cg parents: 450 diff changeset	1213	\|mthdRef\|
38f590639d65 * empty log message * cg parents: 450 diff changeset	1214
38f590639d65 * empty log message * cg parents: 450 diff changeset	1215	mthdRef := lastConstant.
38f590639d65 * empty log message * cg parents: 450 diff changeset	1216	"/ ....
38f590639d65 * empty log message * cg parents: 450 diff changeset	1217
38f590639d65 * empty log message * cg parents: 450 diff changeset	1218	"Created: / 16.11.1998 / 16:06:32 / cg"
38f590639d65 * empty log message * cg parents: 450 diff changeset	1219	!
38f590639d65 * empty log message * cg parents: 450 diff changeset	1220
38f590639d65 * empty log message * cg parents: 450 diff changeset	1221	remember_ldc1
38f590639d65 * empty log message * cg parents: 450 diff changeset	1222	\|what\|
38f590639d65 * empty log message * cg parents: 450 diff changeset	1223
38f590639d65 * empty log message * cg parents: 450 diff changeset	1224	what := lastConstant.
38f590639d65 * empty log message * cg parents: 450 diff changeset	1225	"/ ....
38f590639d65 * empty log message * cg parents: 450 diff changeset	1226
38f590639d65 * empty log message * cg parents: 450 diff changeset	1227	"Created: / 16.11.1998 / 16:07:12 / cg"
38f590639d65 * empty log message * cg parents: 450 diff changeset	1228	!
38f590639d65 * empty log message * cg parents: 450 diff changeset	1229
38f590639d65 * empty log message * cg parents: 450 diff changeset	1230	remember_ldc2
38f590639d65 * empty log message * cg parents: 450 diff changeset	1231	\|what\|
38f590639d65 * empty log message * cg parents: 450 diff changeset	1232
38f590639d65 * empty log message * cg parents: 450 diff changeset	1233	what := lastConstant.
38f590639d65 * empty log message * cg parents: 450 diff changeset	1234	"/ ....
38f590639d65 * empty log message * cg parents: 450 diff changeset	1235
38f590639d65 * empty log message * cg parents: 450 diff changeset	1236	"Created: / 16.11.1998 / 16:07:19 / cg"
38f590639d65 * empty log message * cg parents: 450 diff changeset	1237	!
38f590639d65 * empty log message * cg parents: 450 diff changeset	1238
38f590639d65 * empty log message * cg parents: 450 diff changeset	1239	remember_ldc2w
38f590639d65 * empty log message * cg parents: 450 diff changeset	1240	\|what\|
38f590639d65 * empty log message * cg parents: 450 diff changeset	1241
38f590639d65 * empty log message * cg parents: 450 diff changeset	1242	what := lastConstant.
38f590639d65 * empty log message * cg parents: 450 diff changeset	1243	"/ ....
38f590639d65 * empty log message * cg parents: 450 diff changeset	1244
38f590639d65 * empty log message * cg parents: 450 diff changeset	1245	"Created: / 16.11.1998 / 16:07:20 / cg"
38f590639d65 * empty log message * cg parents: 450 diff changeset	1246	!
38f590639d65 * empty log message * cg parents: 450 diff changeset	1247
38f590639d65 * empty log message * cg parents: 450 diff changeset	1248	remember_new
38f590639d65 * empty log message * cg parents: 450 diff changeset	1249	\|class\|
38f590639d65 * empty log message * cg parents: 450 diff changeset	1250
38f590639d65 * empty log message * cg parents: 450 diff changeset	1251	class := lastConstant.
38f590639d65 * empty log message * cg parents: 450 diff changeset	1252
38f590639d65 * empty log message * cg parents: 450 diff changeset	1253	"Created: / 16.11.1998 / 15:59:43 / cg"
38f590639d65 * empty log message * cg parents: 450 diff changeset	1254	"Modified: / 16.11.1998 / 16:12:27 / cg"
38f590639d65 * empty log message * cg parents: 450 diff changeset	1255	!
38f590639d65 * empty log message * cg parents: 450 diff changeset	1256
38f590639d65 * empty log message * cg parents: 450 diff changeset	1257	remember_putfield
38f590639d65 * empty log message * cg parents: 450 diff changeset	1258	\|fieldRef\|
38f590639d65 * empty log message * cg parents: 450 diff changeset	1259
38f590639d65 * empty log message * cg parents: 450 diff changeset	1260	fieldRef := lastConstant.
38f590639d65 * empty log message * cg parents: 450 diff changeset	1261	"/ ....
38f590639d65 * empty log message * cg parents: 450 diff changeset	1262
38f590639d65 * empty log message * cg parents: 450 diff changeset	1263	"Created: / 16.11.1998 / 16:08:00 / cg"
38f590639d65 * empty log message * cg parents: 450 diff changeset	1264	!
38f590639d65 * empty log message * cg parents: 450 diff changeset	1265
38f590639d65 * empty log message * cg parents: 450 diff changeset	1266	remember_putstatic
38f590639d65 * empty log message * cg parents: 450 diff changeset	1267	\|fieldRef\|
38f590639d65 * empty log message * cg parents: 450 diff changeset	1268
38f590639d65 * empty log message * cg parents: 450 diff changeset	1269	fieldRef := lastConstant.
38f590639d65 * empty log message * cg parents: 450 diff changeset	1270	"/ ....
38f590639d65 * empty log message * cg parents: 450 diff changeset	1271
38f590639d65 * empty log message * cg parents: 450 diff changeset	1272	"Created: / 16.11.1998 / 16:08:04 / cg"
38f590639d65 * empty log message * cg parents: 450 diff changeset	1273	! !
38f590639d65 * empty log message * cg parents: 450 diff changeset	1274
129 f40775af59a5 checkin from browser cg parents: 126 diff changeset	1275	!JavaDecompiler class methodsFor:'documentation'!
6 b23a6474754f intitial checkin cg parents: diff changeset	1276
b23a6474754f intitial checkin cg parents: diff changeset	1277	version
2678 c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2396 diff changeset	1278	^ '$Header: /cvs/stx/stx/libjava/JavaDecompiler.st,v 1.56 2013-09-06 00:41:22 vrany Exp $'
2256 ee48f7dd70a9 fixed: #version_SVN ($ to §) Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1279	!
ee48f7dd70a9 fixed: #version_SVN ($ to §) Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1280
ee48f7dd70a9 fixed: #version_SVN ($ to §) Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1281	version_CVS
2678 c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2396 diff changeset	1282	^ '$Header: /cvs/stx/stx/libjava/JavaDecompiler.st,v 1.56 2013-09-06 00:41:22 vrany Exp $'
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2256 diff changeset	1283	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2256 diff changeset	1284
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2256 diff changeset	1285	version_HG
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2256 diff changeset	1286
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2256 diff changeset	1287	^ '$Changeset: <not expanded> $'
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	1288	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	1289
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2108 diff changeset	1290	version_SVN
2731 13f5be2bf83b Merged d87e89dd5276 and fe83a843a7bf (branch default - CVS HEAD) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2711 2678 diff changeset	1291	^ 'Id'
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2256 diff changeset	1292
6 b23a6474754f intitial checkin cg parents: diff changeset	1293	! !
2108 ca8c4e7db2e8 category change Claus Gittinger <cg@exept.de> parents: 2095 diff changeset	1294
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2256 diff changeset	1295
2095 6773680aeb85 * empty log message * Claus Gittinger <cg@exept.de> parents: 749 diff changeset	1296	JavaDecompiler initialize!

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Thu, 19 Mar 2015 17:27:21 +0000
branch	cvs_MAIN_tracking
changeset 3408	4f3cc813be4b
parent 3324	a58245c0e83a
child 3360	1a8899091305
permissions	-rw-r--r--