hg/stx-libcomp: VariableNode.st@6d6abf8f4439 (annotated)

14 f08ffd9958a5 Initial revision claus parents: diff changeset	1	"
f08ffd9958a5 Initial revision claus parents: diff changeset	2	COPYRIGHT (c) 1994 by Claus Gittinger
53 c5dd7abf8431 * empty log message * claus parents: 31 diff changeset	3	All Rights Reserved
14 f08ffd9958a5 Initial revision claus parents: diff changeset	4
f08ffd9958a5 Initial revision claus parents: diff changeset	5	This software is furnished under a license and may be used
f08ffd9958a5 Initial revision claus parents: diff changeset	6	only in accordance with the terms of that license and with the
f08ffd9958a5 Initial revision claus parents: diff changeset	7	inclusion of the above copyright notice. This software may not
f08ffd9958a5 Initial revision claus parents: diff changeset	8	be provided or otherwise made available to, or used by, any
f08ffd9958a5 Initial revision claus parents: diff changeset	9	other person. No title to or ownership of the software is
f08ffd9958a5 Initial revision claus parents: diff changeset	10	hereby transferred.
f08ffd9958a5 Initial revision claus parents: diff changeset	11	"
1076 b393dc61463e added #isClassVariable and #isInstanceVariable Claus Gittinger <cg@exept.de> parents: 1035 diff changeset	12	"{ Package: 'stx:libcomp' }"
b393dc61463e added #isClassVariable and #isInstanceVariable Claus Gittinger <cg@exept.de> parents: 1035 diff changeset	13
14 f08ffd9958a5 Initial revision claus parents: diff changeset	14	PrimaryNode subclass:#VariableNode
641 e18daf10662c added support for context-vars (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 612 diff changeset	15	instanceVariableNames:'name token index block'
218 748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	16	classVariableNames:''
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	17	poolDictionaries:''
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	18	category:'System-Compiler-Support'
14 f08ffd9958a5 Initial revision claus parents: diff changeset	19	!
f08ffd9958a5 Initial revision claus parents: diff changeset	20
360 9b26a5a4da70 checkin from browser Claus Gittinger <cg@exept.de> parents: 356 diff changeset	21	!VariableNode class methodsFor:'documentation'!
20 f8dd8ba75205 * empty log message * claus parents: 14 diff changeset	22
f8dd8ba75205 * empty log message * claus parents: 14 diff changeset	23	copyright
f8dd8ba75205 * empty log message * claus parents: 14 diff changeset	24	"
f8dd8ba75205 * empty log message * claus parents: 14 diff changeset	25	COPYRIGHT (c) 1994 by Claus Gittinger
53 c5dd7abf8431 * empty log message * claus parents: 31 diff changeset	26	All Rights Reserved
20 f8dd8ba75205 * empty log message * claus parents: 14 diff changeset	27
f8dd8ba75205 * empty log message * claus parents: 14 diff changeset	28	This software is furnished under a license and may be used
f8dd8ba75205 * empty log message * claus parents: 14 diff changeset	29	only in accordance with the terms of that license and with the
f8dd8ba75205 * empty log message * claus parents: 14 diff changeset	30	inclusion of the above copyright notice. This software may not
f8dd8ba75205 * empty log message * claus parents: 14 diff changeset	31	be provided or otherwise made available to, or used by, any
f8dd8ba75205 * empty log message * claus parents: 14 diff changeset	32	other person. No title to or ownership of the software is
f8dd8ba75205 * empty log message * claus parents: 14 diff changeset	33	hereby transferred.
f8dd8ba75205 * empty log message * claus parents: 14 diff changeset	34	"
f8dd8ba75205 * empty log message * claus parents: 14 diff changeset	35	!
f8dd8ba75205 * empty log message * claus parents: 14 diff changeset	36
f8dd8ba75205 * empty log message * claus parents: 14 diff changeset	37	documentation
f8dd8ba75205 * empty log message * claus parents: 14 diff changeset	38	"
f8dd8ba75205 * empty log message * claus parents: 14 diff changeset	39	node for parse-trees, representing variables
261 0372e948ca2d commentary Claus Gittinger <cg@exept.de> parents: 243 diff changeset	40	This is a helper class for the compiler.
263 3b21d0991eff documentation Claus Gittinger <cg@exept.de> parents: 261 diff changeset	41
3b21d0991eff documentation Claus Gittinger <cg@exept.de> parents: 261 diff changeset	42	[author:]
3b21d0991eff documentation Claus Gittinger <cg@exept.de> parents: 261 diff changeset	43	Claus Gittinger
20 f8dd8ba75205 * empty log message * claus parents: 14 diff changeset	44	"
f8dd8ba75205 * empty log message * claus parents: 14 diff changeset	45	! !
14 f08ffd9958a5 Initial revision claus parents: diff changeset	46
360 9b26a5a4da70 checkin from browser Claus Gittinger <cg@exept.de> parents: 356 diff changeset	47	!VariableNode class methodsFor:'instance creation'!
14 f08ffd9958a5 Initial revision claus parents: diff changeset	48
1932 5df424cd0a3c * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	49	blockArgumentNamed:n
5df424cd0a3c * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	50	^ (self basicNew) type:#BlockArg name:n asSymbol
5df424cd0a3c * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	51
5df424cd0a3c * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	52	"Created: / 22-10-2006 / 11:59:10 / cg"
5df424cd0a3c * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	53	!
5df424cd0a3c * empty log message * Claus Gittinger <cg@exept.de> parents: 1918 diff changeset	54
1310 feb30ab0c221 better variabletype queries. Claus Gittinger <cg@exept.de> parents: 1296 diff changeset	55	globalNamed:n
feb30ab0c221 better variabletype queries. Claus Gittinger <cg@exept.de> parents: 1296 diff changeset	56	^ (self basicNew) type:#GlobalVariable name:n asSymbol
feb30ab0c221 better variabletype queries. Claus Gittinger <cg@exept.de> parents: 1296 diff changeset	57	!
feb30ab0c221 better variabletype queries. Claus Gittinger <cg@exept.de> parents: 1296 diff changeset	58
1784 4380f89e1a91 allow for lazy index of locals and arguments. Claus Gittinger <cg@exept.de> parents: 1606 diff changeset	59	methodArgumentNamed:n
4380f89e1a91 allow for lazy index of locals and arguments. Claus Gittinger <cg@exept.de> parents: 1606 diff changeset	60	^ (self basicNew) type:#MethodArg name:n asSymbol
4380f89e1a91 allow for lazy index of locals and arguments. Claus Gittinger <cg@exept.de> parents: 1606 diff changeset	61
4380f89e1a91 allow for lazy index of locals and arguments. Claus Gittinger <cg@exept.de> parents: 1606 diff changeset	62	"Created: / 06-08-2006 / 01:12:55 / cg"
4380f89e1a91 allow for lazy index of locals and arguments. Claus Gittinger <cg@exept.de> parents: 1606 diff changeset	63	!
4380f89e1a91 allow for lazy index of locals and arguments. Claus Gittinger <cg@exept.de> parents: 1606 diff changeset	64
4380f89e1a91 allow for lazy index of locals and arguments. Claus Gittinger <cg@exept.de> parents: 1606 diff changeset	65	methodLocalNamed:n
4380f89e1a91 allow for lazy index of locals and arguments. Claus Gittinger <cg@exept.de> parents: 1606 diff changeset	66	^ (self basicNew) type:#MethodVariable name:n asSymbol
4380f89e1a91 allow for lazy index of locals and arguments. Claus Gittinger <cg@exept.de> parents: 1606 diff changeset	67
4380f89e1a91 allow for lazy index of locals and arguments. Claus Gittinger <cg@exept.de> parents: 1606 diff changeset	68	"Created: / 06-08-2006 / 13:43:41 / cg"
4380f89e1a91 allow for lazy index of locals and arguments. Claus Gittinger <cg@exept.de> parents: 1606 diff changeset	69	!
4380f89e1a91 allow for lazy index of locals and arguments. Claus Gittinger <cg@exept.de> parents: 1606 diff changeset	70
98 ccc7f9389a8e . claus parents: 53 diff changeset	71	type:t class:class name:n
ccc7f9389a8e . claus parents: 53 diff changeset	72	^ (self basicNew) type:t class:class name:n
ccc7f9389a8e . claus parents: 53 diff changeset	73	!
ccc7f9389a8e . claus parents: 53 diff changeset	74
642 de97c93c4f49 renamed con to aContext - stc has problems with it. Claus Gittinger <cg@exept.de> parents: 641 diff changeset	75	type:t context:aContext
de97c93c4f49 renamed con to aContext - stc has problems with it. Claus Gittinger <cg@exept.de> parents: 641 diff changeset	76	^ (self basicNew) type:t context:aContext
641 e18daf10662c added support for context-vars (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 612 diff changeset	77
e18daf10662c added support for context-vars (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 612 diff changeset	78	"Created: / 17.1.1998 / 04:00:35 / cg"
e18daf10662c added support for context-vars (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 612 diff changeset	79	!
e18daf10662c added support for context-vars (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 612 diff changeset	80
872 7cf38a8125e6 support for workspace variables. Claus Gittinger <cg@exept.de> parents: 869 diff changeset	81	type:t holder:holder name:n
7cf38a8125e6 support for workspace variables. Claus Gittinger <cg@exept.de> parents: 869 diff changeset	82	^ (self basicNew) type:t holder:holder name:n
7cf38a8125e6 support for workspace variables. Claus Gittinger <cg@exept.de> parents: 869 diff changeset	83	!
7cf38a8125e6 support for workspace variables. Claus Gittinger <cg@exept.de> parents: 869 diff changeset	84
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	85	type:t name:n
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	86	^ (self basicNew) type:t name:n
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	87	!
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	88
642 de97c93c4f49 renamed con to aContext - stc has problems with it. Claus Gittinger <cg@exept.de> parents: 641 diff changeset	89	type:t name:n context:aContext index:i
de97c93c4f49 renamed con to aContext - stc has problems with it. Claus Gittinger <cg@exept.de> parents: 641 diff changeset	90	^ (self basicNew) type:t name:n context:aContext index:i
641 e18daf10662c added support for context-vars (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 612 diff changeset	91
e18daf10662c added support for context-vars (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 612 diff changeset	92	"Created: / 17.1.1998 / 02:40:32 / cg"
e18daf10662c added support for context-vars (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 612 diff changeset	93	!
e18daf10662c added support for context-vars (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 612 diff changeset	94
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	95	type:t name:n index:i selfClass:s
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	96	^ (self basicNew) type:t name:n index:i selfClass:s
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	97	!
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	98
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	99	type:t name:n index:i selfValue:s
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	100	^ (self basicNew) type:t name:n index:i selfValue:s
14 f08ffd9958a5 Initial revision claus parents: diff changeset	101	!
f08ffd9958a5 Initial revision claus parents: diff changeset	102
f08ffd9958a5 Initial revision claus parents: diff changeset	103	type:t name:n token:tok index:i
f08ffd9958a5 Initial revision claus parents: diff changeset	104	^ (self basicNew) type:t name:n token:tok index:i
f08ffd9958a5 Initial revision claus parents: diff changeset	105	!
f08ffd9958a5 Initial revision claus parents: diff changeset	106
574 993d1182782b fixed inlining of blocks where subBlocks Claus Gittinger <cg@exept.de> parents: 566 diff changeset	107	type:t name:n token:tok index:i block:b from:codeBlock
993d1182782b fixed inlining of blocks where subBlocks Claus Gittinger <cg@exept.de> parents: 566 diff changeset	108	^ (self basicNew) type:t name:n token:tok index:i block:b from:codeBlock
14 f08ffd9958a5 Initial revision claus parents: diff changeset	109
574 993d1182782b fixed inlining of blocks where subBlocks Claus Gittinger <cg@exept.de> parents: 566 diff changeset	110	"Modified: 2.7.1997 / 10:55:48 / cg"
14 f08ffd9958a5 Initial revision claus parents: diff changeset	111	! !
f08ffd9958a5 Initial revision claus parents: diff changeset	112
f08ffd9958a5 Initial revision claus parents: diff changeset	113	!VariableNode methodsFor:'accessing'!
f08ffd9958a5 Initial revision claus parents: diff changeset	114
577 efda2402cd70 oops - more fixes Claus Gittinger <cg@exept.de> parents: 574 diff changeset	115	block
efda2402cd70 oops - more fixes Claus Gittinger <cg@exept.de> parents: 574 diff changeset	116	^ block
efda2402cd70 oops - more fixes Claus Gittinger <cg@exept.de> parents: 574 diff changeset	117
efda2402cd70 oops - more fixes Claus Gittinger <cg@exept.de> parents: 574 diff changeset	118	"Created: 2.7.1997 / 18:53:38 / cg"
efda2402cd70 oops - more fixes Claus Gittinger <cg@exept.de> parents: 574 diff changeset	119	!
efda2402cd70 oops - more fixes Claus Gittinger <cg@exept.de> parents: 574 diff changeset	120
2507 5877a8f74784 added: Claus Gittinger <cg@exept.de> parents: 2420 diff changeset	121	block:something
5877a8f74784 added: Claus Gittinger <cg@exept.de> parents: 2420 diff changeset	122	block := something.
5877a8f74784 added: Claus Gittinger <cg@exept.de> parents: 2420 diff changeset	123	!
5877a8f74784 added: Claus Gittinger <cg@exept.de> parents: 2420 diff changeset	124
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	125	index
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	126	^ index
14 f08ffd9958a5 Initial revision claus parents: diff changeset	127	!
f08ffd9958a5 Initial revision claus parents: diff changeset	128
2757 a86f78669293 comment/format in: #type:name:token:index:block:from: Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	129	index:anIntegerIndex
a86f78669293 comment/format in: #type:name:token:index:block:from: Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	130	"/ self assert:(anIntegerIndex isNil or:[anIntegerIndex ~~ 0]).
a86f78669293 comment/format in: #type:name:token:index:block:from: Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	131	index := anIntegerIndex.
a86f78669293 comment/format in: #type:name:token:index:block:from: Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	132
a86f78669293 comment/format in: #type:name:token:index:block:from: Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	133	"Modified: / 15-11-2011 / 19:10:08 / cg"
2507 5877a8f74784 added: Claus Gittinger <cg@exept.de> parents: 2420 diff changeset	134	!
5877a8f74784 added: Claus Gittinger <cg@exept.de> parents: 2420 diff changeset	135
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	136	name
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	137	^ name
14 f08ffd9958a5 Initial revision claus parents: diff changeset	138	!
f08ffd9958a5 Initial revision claus parents: diff changeset	139
2507 5877a8f74784 added: Claus Gittinger <cg@exept.de> parents: 2420 diff changeset	140	name:something
5877a8f74784 added: Claus Gittinger <cg@exept.de> parents: 2420 diff changeset	141	name := something.
5877a8f74784 added: Claus Gittinger <cg@exept.de> parents: 2420 diff changeset	142
5877a8f74784 added: Claus Gittinger <cg@exept.de> parents: 2420 diff changeset	143	"Modified: / 28-06-2011 / 22:14:40 / cg"
5877a8f74784 added: Claus Gittinger <cg@exept.de> parents: 2420 diff changeset	144	!
5877a8f74784 added: Claus Gittinger <cg@exept.de> parents: 2420 diff changeset	145
2677 113a73795590 Fixes in start/endPosition for Variable node Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2599 diff changeset	146	startPosition:start endPosition: end
113a73795590 Fixes in start/endPosition for Variable node Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2599 diff changeset	147
113a73795590 Fixes in start/endPosition for Variable node Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2599 diff changeset	148	"/self assert: (end - start + 1) = name size.
113a73795590 Fixes in start/endPosition for Variable node Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2599 diff changeset	149
113a73795590 Fixes in start/endPosition for Variable node Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2599 diff changeset	150	^super startPosition:start endPosition: end
113a73795590 Fixes in start/endPosition for Variable node Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2599 diff changeset	151
113a73795590 Fixes in start/endPosition for Variable node Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2599 diff changeset	152	"Created: / 25-08-2011 / 11:46:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
113a73795590 Fixes in start/endPosition for Variable node Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2599 diff changeset	153	!
113a73795590 Fixes in start/endPosition for Variable node Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2599 diff changeset	154
875 2561654973eb checkin from browser Claus Gittinger <cg@exept.de> parents: 872 diff changeset	155	token
2561654973eb checkin from browser Claus Gittinger <cg@exept.de> parents: 872 diff changeset	156	^ token
2561654973eb checkin from browser Claus Gittinger <cg@exept.de> parents: 872 diff changeset	157
2561654973eb checkin from browser Claus Gittinger <cg@exept.de> parents: 872 diff changeset	158	"Created: 2.7.1997 / 18:53:38 / cg"
2561654973eb checkin from browser Claus Gittinger <cg@exept.de> parents: 872 diff changeset	159	!
2561654973eb checkin from browser Claus Gittinger <cg@exept.de> parents: 872 diff changeset	160
2507 5877a8f74784 added: Claus Gittinger <cg@exept.de> parents: 2420 diff changeset	161	token:something
5877a8f74784 added: Claus Gittinger <cg@exept.de> parents: 2420 diff changeset	162	token := something.
5877a8f74784 added: Claus Gittinger <cg@exept.de> parents: 2420 diff changeset	163	!
5877a8f74784 added: Claus Gittinger <cg@exept.de> parents: 2420 diff changeset	164
869 c483b1e6a0c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 843 diff changeset	165	type
c483b1e6a0c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 843 diff changeset	166	^ type
c483b1e6a0c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 843 diff changeset	167	!
c483b1e6a0c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 843 diff changeset	168
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	169	type:t class:class name:n
2116 83852100750d leftOver halt. Claus Gittinger <cg@exept.de> parents: 2069 diff changeset	170	"/ type == #PoolVariable ifTrue:[self breakPoint:#cg].
14 f08ffd9958a5 Initial revision claus parents: diff changeset	171	type := t.
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	172	name := n.
641 e18daf10662c added support for context-vars (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 612 diff changeset	173	value := class
e18daf10662c added support for context-vars (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 612 diff changeset	174
e18daf10662c added support for context-vars (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 612 diff changeset	175	"Modified: / 17.1.1998 / 04:03:55 / cg"
e18daf10662c added support for context-vars (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 612 diff changeset	176	!
e18daf10662c added support for context-vars (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 612 diff changeset	177
642 de97c93c4f49 renamed con to aContext - stc has problems with it. Claus Gittinger <cg@exept.de> parents: 641 diff changeset	178	type:t context:aContext
641 e18daf10662c added support for context-vars (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 612 diff changeset	179	type := t.
642 de97c93c4f49 renamed con to aContext - stc has problems with it. Claus Gittinger <cg@exept.de> parents: 641 diff changeset	180	value := aContext.
641 e18daf10662c added support for context-vars (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 612 diff changeset	181
e18daf10662c added support for context-vars (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 612 diff changeset	182	"Modified: / 17.1.1998 / 04:01:55 / cg"
14 f08ffd9958a5 Initial revision claus parents: diff changeset	183	!
f08ffd9958a5 Initial revision claus parents: diff changeset	184
872 7cf38a8125e6 support for workspace variables. Claus Gittinger <cg@exept.de> parents: 869 diff changeset	185	type:t holder:holder name:n
7cf38a8125e6 support for workspace variables. Claus Gittinger <cg@exept.de> parents: 869 diff changeset	186	type := t.
875 2561654973eb checkin from browser Claus Gittinger <cg@exept.de> parents: 872 diff changeset	187	token := holder.
872 7cf38a8125e6 support for workspace variables. Claus Gittinger <cg@exept.de> parents: 869 diff changeset	188	name := n
7cf38a8125e6 support for workspace variables. Claus Gittinger <cg@exept.de> parents: 869 diff changeset	189	!
7cf38a8125e6 support for workspace variables. Claus Gittinger <cg@exept.de> parents: 869 diff changeset	190
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	191	type:t name:n
98 ccc7f9389a8e . claus parents: 53 diff changeset	192	type := t.
ccc7f9389a8e . claus parents: 53 diff changeset	193	value := nil.
14 f08ffd9958a5 Initial revision claus parents: diff changeset	194	name := n
f08ffd9958a5 Initial revision claus parents: diff changeset	195	!
f08ffd9958a5 Initial revision claus parents: diff changeset	196
2757 a86f78669293 comment/format in: #type:name:token:index:block:from: Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	197	type:t name:n context:aContext index:anIntegerIndex
641 e18daf10662c added support for context-vars (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 612 diff changeset	198	type := t.
2757 a86f78669293 comment/format in: #type:name:token:index:block:from: Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	199	"/ self assert:(anIntegerIndex isNil or:[anIntegerIndex ~~ 0]).
a86f78669293 comment/format in: #type:name:token:index:block:from: Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	200	index := anIntegerIndex.
642 de97c93c4f49 renamed con to aContext - stc has problems with it. Claus Gittinger <cg@exept.de> parents: 641 diff changeset	201	value := aContext.
641 e18daf10662c added support for context-vars (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 612 diff changeset	202	name := n
e18daf10662c added support for context-vars (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 612 diff changeset	203
2757 a86f78669293 comment/format in: #type:name:token:index:block:from: Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	204	"Created: / 17-01-1998 / 02:40:55 / cg"
a86f78669293 comment/format in: #type:name:token:index:block:from: Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	205	"Modified: / 15-11-2011 / 19:10:18 / cg"
641 e18daf10662c added support for context-vars (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 612 diff changeset	206	!
e18daf10662c added support for context-vars (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 612 diff changeset	207
2757 a86f78669293 comment/format in: #type:name:token:index:block:from: Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	208	type:t name:n index:anIntegerIndex selfClass:s
14 f08ffd9958a5 Initial revision claus parents: diff changeset	209	type := t.
2757 a86f78669293 comment/format in: #type:name:token:index:block:from: Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	210	"/ self assert:(anIntegerIndex isNil or:[anIntegerIndex ~~ 0]).
a86f78669293 comment/format in: #type:name:token:index:block:from: Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	211	index := anIntegerIndex.
641 e18daf10662c added support for context-vars (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 612 diff changeset	212	value := s.
14 f08ffd9958a5 Initial revision claus parents: diff changeset	213	name := n
641 e18daf10662c added support for context-vars (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 612 diff changeset	214
2757 a86f78669293 comment/format in: #type:name:token:index:block:from: Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	215	"Modified: / 15-11-2011 / 19:10:21 / cg"
14 f08ffd9958a5 Initial revision claus parents: diff changeset	216	!
f08ffd9958a5 Initial revision claus parents: diff changeset	217
2757 a86f78669293 comment/format in: #type:name:token:index:block:from: Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	218	type:t name:n index:anIntegerIndex selfValue:s
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	219	type := t.
2757 a86f78669293 comment/format in: #type:name:token:index:block:from: Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	220	"/ self assert:(anIntegerIndex isNil or:[anIntegerIndex ~~ 0]).
a86f78669293 comment/format in: #type:name:token:index:block:from: Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	221	index := anIntegerIndex.
641 e18daf10662c added support for context-vars (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 612 diff changeset	222	value := s.
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	223	name := n
641 e18daf10662c added support for context-vars (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 612 diff changeset	224
2757 a86f78669293 comment/format in: #type:name:token:index:block:from: Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	225	"Modified: / 15-11-2011 / 19:10:24 / cg"
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	226	!
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	227
2757 a86f78669293 comment/format in: #type:name:token:index:block:from: Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	228	type:t name:n token:tok index:anIntegerIndex
14 f08ffd9958a5 Initial revision claus parents: diff changeset	229	type := t.
2757 a86f78669293 comment/format in: #type:name:token:index:block:from: Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	230	"/ self assert:(anIntegerIndex isNil or:[anIntegerIndex ~~ 0]).
a86f78669293 comment/format in: #type:name:token:index:block:from: Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	231	index := anIntegerIndex.
14 f08ffd9958a5 Initial revision claus parents: diff changeset	232	token := tok.
f08ffd9958a5 Initial revision claus parents: diff changeset	233	name := n
2757 a86f78669293 comment/format in: #type:name:token:index:block:from: Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	234
a86f78669293 comment/format in: #type:name:token:index:block:from: Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	235	"Modified: / 15-11-2011 / 19:10:30 / cg"
14 f08ffd9958a5 Initial revision claus parents: diff changeset	236	!
f08ffd9958a5 Initial revision claus parents: diff changeset	237
2757 a86f78669293 comment/format in: #type:name:token:index:block:from: Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	238	type:t name:n token:tok index:anIntegerIndex block:variableBlock from:codeBlock
14 f08ffd9958a5 Initial revision claus parents: diff changeset	239	type := t.
2757 a86f78669293 comment/format in: #type:name:token:index:block:from: Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	240	"/ self assert:(anIntegerIndex isNil or:[anIntegerIndex ~~ 0]).
a86f78669293 comment/format in: #type:name:token:index:block:from: Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	241	index := anIntegerIndex.
574 993d1182782b fixed inlining of blocks where subBlocks Claus Gittinger <cg@exept.de> parents: 566 diff changeset	242	block := variableBlock.
14 f08ffd9958a5 Initial revision claus parents: diff changeset	243	token := tok.
535 713142116e40 remember access to blockArgs Claus Gittinger <cg@exept.de> parents: 531 diff changeset	244	name := n.
713142116e40 remember access to blockArgs Claus Gittinger <cg@exept.de> parents: 531 diff changeset	245	(type == #BlockArg) ifTrue:[
574 993d1182782b fixed inlining of blocks where subBlocks Claus Gittinger <cg@exept.de> parents: 566 diff changeset	246	variableBlock blockArgAccessed:true.
535 713142116e40 remember access to blockArgs Claus Gittinger <cg@exept.de> parents: 531 diff changeset	247	].
713142116e40 remember access to blockArgs Claus Gittinger <cg@exept.de> parents: 531 diff changeset	248
574 993d1182782b fixed inlining of blocks where subBlocks Claus Gittinger <cg@exept.de> parents: 566 diff changeset	249	codeBlock ~~ variableBlock ifTrue:[
993d1182782b fixed inlining of blocks where subBlocks Claus Gittinger <cg@exept.de> parents: 566 diff changeset	250	codeBlock rememberOuterBlockVarAccess:self
993d1182782b fixed inlining of blocks where subBlocks Claus Gittinger <cg@exept.de> parents: 566 diff changeset	251	]
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	252
2757 a86f78669293 comment/format in: #type:name:token:index:block:from: Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	253	"Created: / 02-07-1997 / 10:54:50 / cg"
a86f78669293 comment/format in: #type:name:token:index:block:from: Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	254	"Modified: / 15-11-2011 / 19:10:35 / cg"
14 f08ffd9958a5 Initial revision claus parents: diff changeset	255	!
f08ffd9958a5 Initial revision claus parents: diff changeset	256
2757 a86f78669293 comment/format in: #type:name:token:index:block:from: Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	257	type:t token:tok index:anIntegerIndex block:b
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	258	type := t.
2757 a86f78669293 comment/format in: #type:name:token:index:block:from: Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	259	"/ self assert:(anIntegerIndex isNil or:[anIntegerIndex ~~ 0]).
a86f78669293 comment/format in: #type:name:token:index:block:from: Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	260	index := anIntegerIndex.
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	261	block := b.
535 713142116e40 remember access to blockArgs Claus Gittinger <cg@exept.de> parents: 531 diff changeset	262	token := tok.
713142116e40 remember access to blockArgs Claus Gittinger <cg@exept.de> parents: 531 diff changeset	263
713142116e40 remember access to blockArgs Claus Gittinger <cg@exept.de> parents: 531 diff changeset	264	(type == #BlockArg) ifTrue:[
713142116e40 remember access to blockArgs Claus Gittinger <cg@exept.de> parents: 531 diff changeset	265	b blockArgAccessed:true.
713142116e40 remember access to blockArgs Claus Gittinger <cg@exept.de> parents: 531 diff changeset	266	].
713142116e40 remember access to blockArgs Claus Gittinger <cg@exept.de> parents: 531 diff changeset	267
2757 a86f78669293 comment/format in: #type:name:token:index:block:from: Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	268	"Modified: / 15-11-2011 / 19:10:04 / cg"
14 f08ffd9958a5 Initial revision claus parents: diff changeset	269	! !
f08ffd9958a5 Initial revision claus parents: diff changeset	270
f08ffd9958a5 Initial revision claus parents: diff changeset	271	!VariableNode methodsFor:'code generation'!
f08ffd9958a5 Initial revision claus parents: diff changeset	272
104 2016bfa4cd45 . claus parents: 103 diff changeset	273	codeForSideEffectOn:aStream inBlock:b for:aCompiler
14 f08ffd9958a5 Initial revision claus parents: diff changeset	274	"no code at all"
2066 9873763eb1f8 sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 1997 diff changeset	275
14 f08ffd9958a5 Initial revision claus parents: diff changeset	276	^ self
f08ffd9958a5 Initial revision claus parents: diff changeset	277	!
f08ffd9958a5 Initial revision claus parents: diff changeset	278
843 522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 789 diff changeset	279	codeForSimpleReturnOn:aStream inBlock:b lineNumber:lineNrOrNil for:aCompiler
1784 4380f89e1a91 allow for lazy index of locals and arguments. Claus Gittinger <cg@exept.de> parents: 1606 diff changeset	280	\|code idx\|
843 522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 789 diff changeset	281
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 789 diff changeset	282	lineNrOrNil notNil ifTrue:[
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 789 diff changeset	283	self codeLineNumber:lineNrOrNil on:aStream for:aCompiler
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 789 diff changeset	284	].
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 789 diff changeset	285
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 789 diff changeset	286	(type == #InstanceVariable) ifTrue:[
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 789 diff changeset	287	(index <= 8) ifTrue:[
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 789 diff changeset	288	code := #( retInstVar1
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 789 diff changeset	289	retInstVar2
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 789 diff changeset	290	retInstVar3
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 789 diff changeset	291	retInstVar4
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 789 diff changeset	292	retInstVar5
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 789 diff changeset	293	retInstVar6
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 789 diff changeset	294	retInstVar7
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 789 diff changeset	295	retInstVar8) at:index.
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 789 diff changeset	296
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 789 diff changeset	297	aStream nextPut:code.
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 789 diff changeset	298	^ self
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 789 diff changeset	299	].
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 789 diff changeset	300	].
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 789 diff changeset	301
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 789 diff changeset	302	(type == #MethodVariable) ifTrue:[
1784 4380f89e1a91 allow for lazy index of locals and arguments. Claus Gittinger <cg@exept.de> parents: 1606 diff changeset	303	idx := index.
4380f89e1a91 allow for lazy index of locals and arguments. Claus Gittinger <cg@exept.de> parents: 1606 diff changeset	304	idx isNil ifTrue:[ idx := self indexIn: aCompiler ].
4380f89e1a91 allow for lazy index of locals and arguments. Claus Gittinger <cg@exept.de> parents: 1606 diff changeset	305	(idx <= 6) ifTrue:[
843 522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 789 diff changeset	306	code := #( retMethodVar1
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 789 diff changeset	307	retMethodVar2
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 789 diff changeset	308	retMethodVar3
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 789 diff changeset	309	retMethodVar4
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 789 diff changeset	310	retMethodVar5
1784 4380f89e1a91 allow for lazy index of locals and arguments. Claus Gittinger <cg@exept.de> parents: 1606 diff changeset	311	retMethodVar6) at:idx.
843 522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 789 diff changeset	312
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 789 diff changeset	313	aStream nextPut:code.
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 789 diff changeset	314	^ self
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 789 diff changeset	315	].
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 789 diff changeset	316	].
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 789 diff changeset	317
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 789 diff changeset	318	(type == #MethodArg) ifTrue:[
1784 4380f89e1a91 allow for lazy index of locals and arguments. Claus Gittinger <cg@exept.de> parents: 1606 diff changeset	319	idx := index.
4380f89e1a91 allow for lazy index of locals and arguments. Claus Gittinger <cg@exept.de> parents: 1606 diff changeset	320	idx isNil ifTrue:[ idx := self indexIn: aCompiler ].
4380f89e1a91 allow for lazy index of locals and arguments. Claus Gittinger <cg@exept.de> parents: 1606 diff changeset	321	(idx <= 2) ifTrue:[
843 522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 789 diff changeset	322	code := #(retMethodArg1
1784 4380f89e1a91 allow for lazy index of locals and arguments. Claus Gittinger <cg@exept.de> parents: 1606 diff changeset	323	retMethodArg2) at:idx.
843 522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 789 diff changeset	324
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 789 diff changeset	325	aStream nextPut:code.
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 789 diff changeset	326	^ self
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 789 diff changeset	327	]
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 789 diff changeset	328	].
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 789 diff changeset	329
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 789 diff changeset	330	"/ anything else must be pushed, then top rturned
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 789 diff changeset	331
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 789 diff changeset	332	self codeOn:aStream inBlock:b for:aCompiler.
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 789 diff changeset	333	aStream nextPut:#retTop
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 789 diff changeset	334
1784 4380f89e1a91 allow for lazy index of locals and arguments. Claus Gittinger <cg@exept.de> parents: 1606 diff changeset	335	"Modified: / 06-08-2006 / 22:59:28 / cg"
843 522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 789 diff changeset	336	!
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 789 diff changeset	337
559 42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	338	codeLoadOn:aStream type:type index:index inBlock:codeBlock for:aCompiler
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	339	\|theCode b deltaLevel litIndex specialGlobalIndex
872 7cf38a8125e6 support for workspace variables. Claus Gittinger <cg@exept.de> parents: 869 diff changeset	340	bvIdx bvTyp blocksCode selLitIdx \|
14 f08ffd9958a5 Initial revision claus parents: diff changeset	341
f08ffd9958a5 Initial revision claus parents: diff changeset	342	(type == #MethodArg) ifTrue:[
218 748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	343	(index <= 4) ifTrue:[
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	344	aStream nextPut:(#(pushMethodArg1
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	345	pushMethodArg2
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	346	pushMethodArg3
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	347	pushMethodArg4) at:index).
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	348	^ self
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	349	].
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	350	aStream nextPut:#pushMethodArg; nextPut:index.
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	351	^ self
14 f08ffd9958a5 Initial revision claus parents: diff changeset	352	].
554 d5e548c4d49d * empty log message * Claus Gittinger <cg@exept.de> parents: 539 diff changeset	353
14 f08ffd9958a5 Initial revision claus parents: diff changeset	354	(type == #MethodVariable) ifTrue:[
218 748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	355	(index <= 6) ifTrue:[
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	356	aStream nextPut:(#(pushMethodVar1
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	357	pushMethodVar2
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	358	pushMethodVar3
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	359	pushMethodVar4
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	360	pushMethodVar5
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	361	pushMethodVar6) at:index).
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	362	^ self
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	363	].
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	364	aStream nextPut:#pushMethodVar; nextPut:index.
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	365	^ self
14 f08ffd9958a5 Initial revision claus parents: diff changeset	366	].
554 d5e548c4d49d * empty log message * Claus Gittinger <cg@exept.de> parents: 539 diff changeset	367
14 f08ffd9958a5 Initial revision claus parents: diff changeset	368	(type == #InstanceVariable) ifTrue:[
218 748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	369	(index <= 10) ifTrue:[
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	370	theCode := #(pushInstVar1 pushInstVar2 pushInstVar3
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	371	pushInstVar4 pushInstVar5 pushInstVar6
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	372	pushInstVar7 pushInstVar8 pushInstVar9
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	373	pushInstVar10) at:index.
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	374	aStream nextPut:theCode.
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	375	^ self
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	376	].
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	377	aStream nextPut:#pushInstVar; nextPut:index.
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	378	^ self
14 f08ffd9958a5 Initial revision claus parents: diff changeset	379	].
554 d5e548c4d49d * empty log message * Claus Gittinger <cg@exept.de> parents: 539 diff changeset	380
d5e548c4d49d * empty log message * Claus Gittinger <cg@exept.de> parents: 539 diff changeset	381	((type == #BlockArg)
d5e548c4d49d * empty log message * Claus Gittinger <cg@exept.de> parents: 539 diff changeset	382	or:[type == #BlockVariable]) ifTrue:[
559 42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	383	"/ compiling for codeBlock; accessing variable in block.
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	384
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	385	bvIdx := index.
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	386	bvTyp := type.
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	387
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	388	"/ find the context where that variable is contained physically
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	389	blocksCode := block.
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	390	[blocksCode notNil and:[blocksCode isInlineBlock]] whileTrue:[
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	391	blocksCode := blocksCode home
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	392	].
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	393
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	394	"/ find deltaLevel from code-context to the containing block
218 748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	395	b := codeBlock.
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	396	deltaLevel := 0.
559 42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	397	[b notNil and:[b ~~ blocksCode]] whileTrue:[
554 d5e548c4d49d * empty log message * Claus Gittinger <cg@exept.de> parents: 539 diff changeset	398	b isInlineBlock ifFalse:[
218 748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	399	deltaLevel := deltaLevel + 1
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	400	].
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	401	b := b home
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	402	].
535 713142116e40 remember access to blockArgs Claus Gittinger <cg@exept.de> parents: 531 diff changeset	403
559 42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	404	b isNil ifTrue:[
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	405	codeBlock isNil ifTrue:[
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	406	"/ a var of a block which is inlined in the method.
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	407	"/ Generate a pushMVAR
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	408
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	409	bvIdx := block indexOfFirstTemp + index - 1.
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	410	type == #BlockVariable ifTrue:[
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	411	bvIdx := bvIdx + block numArgs
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	412	].
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	413	^ self
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	414	codeLoadOn:aStream
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	415	type:#MethodVariable
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	416	index:bvIdx
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	417	inBlock:codeBlock
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	418	for:aCompiler
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	419	].
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	420
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	421	"/ a var of a block which is inlined in the outer block.
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	422	"/ Generate a pushBVAR
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	423
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	424	bvIdx := block indexOfFirstTemp + index - 1.
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	425	type == #BlockVariable ifTrue:[
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	426	bvIdx := bvIdx + block numArgs
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	427	].
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	428	bvTyp := #BlockVariable.
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	429	] ifFalse:[
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	430	block isInlineBlock ifTrue:[
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	431	"/ a var of a block which is inlined in another block.
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	432	"/ Generate a pushBVAR / pushOuterBVAR
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	433	bvIdx := block indexOfFirstTemp + index - 1.
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	434	type == #BlockVariable ifTrue:[
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	435	bvIdx := bvIdx + block numArgs
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	436	].
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	437	bvTyp := #BlockVariable.
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	438	]
554 d5e548c4d49d * empty log message * Claus Gittinger <cg@exept.de> parents: 539 diff changeset	439	].
d5e548c4d49d * empty log message * Claus Gittinger <cg@exept.de> parents: 539 diff changeset	440
559 42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	441	(bvTyp == #BlockVariable) ifTrue:[
554 d5e548c4d49d * empty log message * Claus Gittinger <cg@exept.de> parents: 539 diff changeset	442	(deltaLevel == 0) ifTrue:[
559 42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	443	bvIdx <= 3 ifTrue:[
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	444	aStream nextPut:(#(pushBlockVar1 pushBlockVar2 pushBlockVar3) at:bvIdx).
554 d5e548c4d49d * empty log message * Claus Gittinger <cg@exept.de> parents: 539 diff changeset	445	^ self
d5e548c4d49d * empty log message * Claus Gittinger <cg@exept.de> parents: 539 diff changeset	446	].
d5e548c4d49d * empty log message * Claus Gittinger <cg@exept.de> parents: 539 diff changeset	447	aStream nextPut:#pushBlockVar.
d5e548c4d49d * empty log message * Claus Gittinger <cg@exept.de> parents: 539 diff changeset	448	] ifFalse:[
d5e548c4d49d * empty log message * Claus Gittinger <cg@exept.de> parents: 539 diff changeset	449	aStream nextPut:#pushOuterBlockVar; nextPut:deltaLevel.
218 748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	450	].
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	451	] ifFalse:[
554 d5e548c4d49d * empty log message * Claus Gittinger <cg@exept.de> parents: 539 diff changeset	452	(deltaLevel == 0) ifTrue:[
559 42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	453	(bvIdx <= 4) ifTrue:[
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	454	aStream nextPut:(#(pushBlockArg1 pushBlockArg2 pushBlockArg3
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	455	pushBlockArg4) at:bvIdx).
554 d5e548c4d49d * empty log message * Claus Gittinger <cg@exept.de> parents: 539 diff changeset	456	^ self
d5e548c4d49d * empty log message * Claus Gittinger <cg@exept.de> parents: 539 diff changeset	457	].
d5e548c4d49d * empty log message * Claus Gittinger <cg@exept.de> parents: 539 diff changeset	458	aStream nextPut:#pushBlockArg.
218 748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	459	] ifFalse:[
554 d5e548c4d49d * empty log message * Claus Gittinger <cg@exept.de> parents: 539 diff changeset	460	(deltaLevel == 1) ifTrue:[
d5e548c4d49d * empty log message * Claus Gittinger <cg@exept.de> parents: 539 diff changeset	461	aStream nextPut:#pushOuter1BlockArg
218 748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	462	] ifFalse:[
554 d5e548c4d49d * empty log message * Claus Gittinger <cg@exept.de> parents: 539 diff changeset	463	(deltaLevel == 2) ifTrue:[
d5e548c4d49d * empty log message * Claus Gittinger <cg@exept.de> parents: 539 diff changeset	464	aStream nextPut:#pushOuter2BlockArg
d5e548c4d49d * empty log message * Claus Gittinger <cg@exept.de> parents: 539 diff changeset	465	] ifFalse:[
d5e548c4d49d * empty log message * Claus Gittinger <cg@exept.de> parents: 539 diff changeset	466	aStream nextPut:#pushOuterBlockArg; nextPut:deltaLevel
d5e548c4d49d * empty log message * Claus Gittinger <cg@exept.de> parents: 539 diff changeset	467	]
d5e548c4d49d * empty log message * Claus Gittinger <cg@exept.de> parents: 539 diff changeset	468	].
218 748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	469	].
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	470	].
559 42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	471	aStream nextPut:bvIdx.
218 748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	472	^ self
14 f08ffd9958a5 Initial revision claus parents: diff changeset	473	].
554 d5e548c4d49d * empty log message * Claus Gittinger <cg@exept.de> parents: 539 diff changeset	474
14 f08ffd9958a5 Initial revision claus parents: diff changeset	475	(type == #GlobalVariable) ifTrue:[
1808 29b197bc6939 some code savers for common code-emit; Claus Gittinger <cg@exept.de> parents: 1784 diff changeset	476	"for browsing, we put it into the literal-array; even if its a specal global"
218 748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	477	litIndex := aCompiler addLiteral:name asSymbol.
531 1d037c37e5a2 code cleanup Claus Gittinger <cg@exept.de> parents: 465 diff changeset	478	specialGlobalIndex := aCompiler specialGlobalCodeFor:name.
1d037c37e5a2 code cleanup Claus Gittinger <cg@exept.de> parents: 465 diff changeset	479	specialGlobalIndex notNil ifTrue:[
1d037c37e5a2 code cleanup Claus Gittinger <cg@exept.de> parents: 465 diff changeset	480	aStream nextPut:#pushSpecialGlobal; nextPut:specialGlobalIndex.
243 cdc1424ddaac use dup if possible when pushing args / faster access to common globals Claus Gittinger <cg@exept.de> parents: 218 diff changeset	481	^ self
cdc1424ddaac use dup if possible when pushing args / faster access to common globals Claus Gittinger <cg@exept.de> parents: 218 diff changeset	482	].
1808 29b197bc6939 some code savers for common code-emit; Claus Gittinger <cg@exept.de> parents: 1784 diff changeset	483	self emitPushGlobalWithLiteralIndex:litIndex on:aStream for:aCompiler.
218 748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	484	^ self
14 f08ffd9958a5 Initial revision claus parents: diff changeset	485	].
554 d5e548c4d49d * empty log message * Claus Gittinger <cg@exept.de> parents: 539 diff changeset	486
1553 1657d0843c64 sharedPools ca parents: 1462 diff changeset	487	((type == #ClassVariable) or:[ type == #PoolVariable ]) ifTrue:[
1314 782d4cc1d588 slight code beautification: use classVarAt: / classVarAt:put: Claus Gittinger <cg@exept.de> parents: 1310 diff changeset	488	litIndex := aCompiler addLiteral:(value globalKeyForClassVar:name).
1808 29b197bc6939 some code savers for common code-emit; Claus Gittinger <cg@exept.de> parents: 1784 diff changeset	489	litIndex <= 255 ifTrue:[
218 748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	490	aStream nextPut:#pushClassVarS; nextPut:litIndex
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	491	] ifFalse:[
1808 29b197bc6939 some code savers for common code-emit; Claus Gittinger <cg@exept.de> parents: 1784 diff changeset	492	litIndex <= 16rFFFF ifTrue:[
29b197bc6939 some code savers for common code-emit; Claus Gittinger <cg@exept.de> parents: 1784 diff changeset	493	aStream nextPut:#pushClassVarL; nextPut:litIndex; nextPut:0
29b197bc6939 some code savers for common code-emit; Claus Gittinger <cg@exept.de> parents: 1784 diff changeset	494	] ifFalse:[
29b197bc6939 some code savers for common code-emit; Claus Gittinger <cg@exept.de> parents: 1784 diff changeset	495	aStream nextPut:#pushClassVarVL; nextPut:0; nextPut:litIndex; nextPut:0; nextPut:0; nextPut:0
29b197bc6939 some code savers for common code-emit; Claus Gittinger <cg@exept.de> parents: 1784 diff changeset	496	].
218 748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	497	].
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	498	^ self
14 f08ffd9958a5 Initial revision claus parents: diff changeset	499	].
554 d5e548c4d49d * empty log message * Claus Gittinger <cg@exept.de> parents: 539 diff changeset	500
360 9b26a5a4da70 checkin from browser Claus Gittinger <cg@exept.de> parents: 356 diff changeset	501	(type == #PrivateClass) ifTrue:[
641 e18daf10662c added support for context-vars (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 612 diff changeset	502	litIndex := aCompiler addLiteral:(value name , '::' , name) asSymbol.
1808 29b197bc6939 some code savers for common code-emit; Claus Gittinger <cg@exept.de> parents: 1784 diff changeset	503	self emitPushGlobalWithLiteralIndex:litIndex on:aStream for:aCompiler.
360 9b26a5a4da70 checkin from browser Claus Gittinger <cg@exept.de> parents: 356 diff changeset	504	^ self
9b26a5a4da70 checkin from browser Claus Gittinger <cg@exept.de> parents: 356 diff changeset	505	].
14 f08ffd9958a5 Initial revision claus parents: diff changeset	506
f08ffd9958a5 Initial revision claus parents: diff changeset	507	(type == #ClassInstanceVariable) ifTrue:[
1808 29b197bc6939 some code savers for common code-emit; Claus Gittinger <cg@exept.de> parents: 1784 diff changeset	508	"theoretically, this allows for an instance method to access a classInstVar;
29b197bc6939 some code savers for common code-emit; Claus Gittinger <cg@exept.de> parents: 1784 diff changeset	509	However, the parser blocks this and we never arrive here."
29b197bc6939 some code savers for common code-emit; Claus Gittinger <cg@exept.de> parents: 1784 diff changeset	510
218 748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	511	aStream nextPut:#pushClassInstVar; nextPut:index.
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	512	^ self
14 f08ffd9958a5 Initial revision claus parents: diff changeset	513	].
554 d5e548c4d49d * empty log message * Claus Gittinger <cg@exept.de> parents: 539 diff changeset	514
14 f08ffd9958a5 Initial revision claus parents: diff changeset	515	(type == #ThisContext) ifTrue:[
872 7cf38a8125e6 support for workspace variables. Claus Gittinger <cg@exept.de> parents: 869 diff changeset	516	aStream nextPut:#pushThisContext.
7cf38a8125e6 support for workspace variables. Claus Gittinger <cg@exept.de> parents: 869 diff changeset	517	^ self
7cf38a8125e6 support for workspace variables. Claus Gittinger <cg@exept.de> parents: 869 diff changeset	518	].
7cf38a8125e6 support for workspace variables. Claus Gittinger <cg@exept.de> parents: 869 diff changeset	519
1296 7c535a2cd7ff WorkspaceVars Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	520	(type == #WorkspaceVariable
7c535a2cd7ff WorkspaceVars Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	521	or:[type == #DoItTemporary]) ifTrue:[
872 7cf38a8125e6 support for workspace variables. Claus Gittinger <cg@exept.de> parents: 869 diff changeset	522	"/ this is done by keeping the valueHolder in the literalArray,
7cf38a8125e6 support for workspace variables. Claus Gittinger <cg@exept.de> parents: 869 diff changeset	523	"/ and coding a #value message here.
7cf38a8125e6 support for workspace variables. Claus Gittinger <cg@exept.de> parents: 869 diff changeset	524
875 2561654973eb checkin from browser Claus Gittinger <cg@exept.de> parents: 872 diff changeset	525	litIndex := aCompiler addLiteral:token.
1808 29b197bc6939 some code savers for common code-emit; Claus Gittinger <cg@exept.de> parents: 1784 diff changeset	526	self emitPushLiteralIndex:litIndex on:aStream for:aCompiler.
872 7cf38a8125e6 support for workspace variables. Claus Gittinger <cg@exept.de> parents: 869 diff changeset	527
7cf38a8125e6 support for workspace variables. Claus Gittinger <cg@exept.de> parents: 869 diff changeset	528	selLitIdx := aCompiler addLiteral:#value.
3166 6d6abf8f4439 Do not generate #lineno16 byte codes if still on the same line Stefan Vogel <sv@exept.de> parents: 3148 diff changeset	529	self emitSendLiteralIndex:selLitIdx numArgs:0 line:("lineNr ?" 1) on:aStream for:aCompiler.
872 7cf38a8125e6 support for workspace variables. Claus Gittinger <cg@exept.de> parents: 869 diff changeset	530	^ self
14 f08ffd9958a5 Initial revision claus parents: diff changeset	531	].
f08ffd9958a5 Initial revision claus parents: diff changeset	532
f08ffd9958a5 Initial revision claus parents: diff changeset	533	"not reached"
1462 bf3d40b72bf3 Do not use #halt Stefan Vogel <sv@exept.de> parents: 1384 diff changeset	534	self error:'bad type'.
218 748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	535
641 e18daf10662c added support for context-vars (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 612 diff changeset	536	"Created: / 25.6.1997 / 16:14:17 / cg"
e18daf10662c added support for context-vars (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 612 diff changeset	537	"Modified: / 17.1.1998 / 04:04:17 / cg"
559 42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	538	!
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	539
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	540	codeOn:aStream inBlock:codeBlock for:aCompiler
1784 4380f89e1a91 allow for lazy index of locals and arguments. Claus Gittinger <cg@exept.de> parents: 1606 diff changeset	541	\|idx\|
4380f89e1a91 allow for lazy index of locals and arguments. Claus Gittinger <cg@exept.de> parents: 1606 diff changeset	542
4380f89e1a91 allow for lazy index of locals and arguments. Claus Gittinger <cg@exept.de> parents: 1606 diff changeset	543	idx := (index isNil)
4380f89e1a91 allow for lazy index of locals and arguments. Claus Gittinger <cg@exept.de> parents: 1606 diff changeset	544	ifTrue:[ self indexIn: aCompiler ]
4380f89e1a91 allow for lazy index of locals and arguments. Claus Gittinger <cg@exept.de> parents: 1606 diff changeset	545	ifFalse:[ index ].
4380f89e1a91 allow for lazy index of locals and arguments. Claus Gittinger <cg@exept.de> parents: 1606 diff changeset	546
559 42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	547	self
1784 4380f89e1a91 allow for lazy index of locals and arguments. Claus Gittinger <cg@exept.de> parents: 1606 diff changeset	548	codeLoadOn:aStream type:type index:idx inBlock:codeBlock for:aCompiler
559 42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	549
1784 4380f89e1a91 allow for lazy index of locals and arguments. Claus Gittinger <cg@exept.de> parents: 1606 diff changeset	550	"Modified: / 06-08-2006 / 16:04:54 / cg"
14 f08ffd9958a5 Initial revision claus parents: diff changeset	551	!
f08ffd9958a5 Initial revision claus parents: diff changeset	552
104 2016bfa4cd45 . claus parents: 103 diff changeset	553	codeStoreOn:aStream inBlock:codeBlock valueNeeded:valueNeeded for:aCompiler
1784 4380f89e1a91 allow for lazy index of locals and arguments. Claus Gittinger <cg@exept.de> parents: 1606 diff changeset	554	\|idx\|
4380f89e1a91 allow for lazy index of locals and arguments. Claus Gittinger <cg@exept.de> parents: 1606 diff changeset	555
4380f89e1a91 allow for lazy index of locals and arguments. Claus Gittinger <cg@exept.de> parents: 1606 diff changeset	556	idx := (index isNil)
4380f89e1a91 allow for lazy index of locals and arguments. Claus Gittinger <cg@exept.de> parents: 1606 diff changeset	557	ifTrue:[ self indexIn: aCompiler ]
4380f89e1a91 allow for lazy index of locals and arguments. Claus Gittinger <cg@exept.de> parents: 1606 diff changeset	558	ifFalse:[ index ].
1821 7cfd8464cace * empty log message * Claus Gittinger <cg@exept.de> parents: 1808 diff changeset	559	idx == 0 ifTrue:[
7cfd8464cace * empty log message * Claus Gittinger <cg@exept.de> parents: 1808 diff changeset	560	self error
7cfd8464cace * empty log message * Claus Gittinger <cg@exept.de> parents: 1808 diff changeset	561	].
559 42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	562	self
1784 4380f89e1a91 allow for lazy index of locals and arguments. Claus Gittinger <cg@exept.de> parents: 1606 diff changeset	563	codeStoreOn:aStream type:type index:idx
559 42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	564	inBlock:codeBlock valueNeeded:valueNeeded for:aCompiler
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	565
1821 7cfd8464cace * empty log message * Claus Gittinger <cg@exept.de> parents: 1808 diff changeset	566	"Modified: / 12-08-2006 / 15:54:52 / cg"
559 42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	567	!
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	568
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	569	codeStoreOn:aStream type:type index:index inBlock:codeBlock valueNeeded:valueNeeded for:aCompiler
1296 7c535a2cd7ff WorkspaceVars Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	570	\|theCode b deltaLevel litIndex bvIdx blocksCode selLitIdx\|
14 f08ffd9958a5 Initial revision claus parents: diff changeset	571
1296 7c535a2cd7ff WorkspaceVars Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	572	"/ value to be stored is on TOP of stack.
14 f08ffd9958a5 Initial revision claus parents: diff changeset	573	valueNeeded ifTrue:[
218 748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	574	aStream nextPut:#dup
14 f08ffd9958a5 Initial revision claus parents: diff changeset	575	].
554 d5e548c4d49d * empty log message * Claus Gittinger <cg@exept.de> parents: 539 diff changeset	576
14 f08ffd9958a5 Initial revision claus parents: diff changeset	577	(type == #MethodVariable) ifTrue:[
218 748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	578	(index <= 6) ifTrue:[
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	579	theCode := #(storeMethodVar1 storeMethodVar2
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	580	storeMethodVar3 storeMethodVar4
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	581	storeMethodVar5 storeMethodVar6) at:index.
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	582	aStream nextPut:theCode.
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	583	^ self
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	584	].
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	585	aStream nextPut:#storeMethodVar; nextPut:index.
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	586	^ self
14 f08ffd9958a5 Initial revision claus parents: diff changeset	587	].
554 d5e548c4d49d * empty log message * Claus Gittinger <cg@exept.de> parents: 539 diff changeset	588
14 f08ffd9958a5 Initial revision claus parents: diff changeset	589	(type == #InstanceVariable) ifTrue:[
218 748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	590	(index <= 10) ifTrue:[
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	591	theCode := #(storeInstVar1 storeInstVar2
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	592	storeInstVar3 storeInstVar4
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	593	storeInstVar5 storeInstVar6
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	594	storeInstVar7 storeInstVar8
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	595	storeInstVar9 storeInstVar10) at:index.
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	596	aStream nextPut:theCode.
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	597	^ self
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	598	].
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	599	aStream nextPut:#storeInstVar; nextPut:index.
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	600	^ self
14 f08ffd9958a5 Initial revision claus parents: diff changeset	601	].
554 d5e548c4d49d * empty log message * Claus Gittinger <cg@exept.de> parents: 539 diff changeset	602
2754 81d1bb6dd8d6 changed: #codeStoreOn:type:index:inBlock:valueNeeded:for: Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	603	((type == #BlockVariable)
81d1bb6dd8d6 changed: #codeStoreOn:type:index:inBlock:valueNeeded:for: Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	604	"/ the following cannot be encountered with Smalltalk code;
81d1bb6dd8d6 changed: #codeStoreOn:type:index:inBlock:valueNeeded:for: Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	605	"/ however, the VM supports it for other languages (JavaScript, in particular)
81d1bb6dd8d6 changed: #codeStoreOn:type:index:inBlock:valueNeeded:for: Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	606	or:[(type == #BlockArg)]) ifTrue:[
559 42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	607	bvIdx := index.
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	608
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	609	"/ find the context where that variable is contained physically
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	610	blocksCode := block.
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	611	[blocksCode notNil and:[blocksCode isInlineBlock]] whileTrue:[
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	612	blocksCode := blocksCode home
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	613	].
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	614
218 748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	615	"find deltaLevel to block, where variable was defined"
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	616	b := codeBlock.
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	617	deltaLevel := 0.
559 42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	618	[b notNil and:[b ~~ blocksCode]] whileTrue:[
554 d5e548c4d49d * empty log message * Claus Gittinger <cg@exept.de> parents: 539 diff changeset	619	b isInlineBlock ifFalse:[
218 748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	620	deltaLevel := deltaLevel + 1
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	621	].
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	622	b := b home
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	623	].
14 f08ffd9958a5 Initial revision claus parents: diff changeset	624
559 42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	625	b isNil ifTrue:[
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	626	codeBlock isNil ifTrue:[
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	627	"/ a block which is inlined in the method.
2754 81d1bb6dd8d6 changed: #codeStoreOn:type:index:inBlock:valueNeeded:for: Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	628	"/ Generate a storeMVAR
559 42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	629
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	630	bvIdx := block indexOfFirstTemp + index - 1.
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	631	bvIdx := bvIdx + block numArgs.
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	632	^ self
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	633	codeStoreOn:aStream
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	634	type:#MethodVariable index:bvIdx
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	635	inBlock:codeBlock
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	636	valueNeeded:false "/ already dupped if value is needed
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	637	for:aCompiler
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	638	].
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	639	"/ a var of a block which is inlined in the outer block.
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	640	"/ Generate a pushBVAR
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	641
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	642	bvIdx := block indexOfFirstTemp + index - 1.
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	643	bvIdx := bvIdx + block numArgs.
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	644	] ifFalse:[
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	645	block isInlineBlock ifTrue:[
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	646	"/ a var of a block which is inlined in another block.
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	647	"/ Generate a pushBVAR / pushOuterBVAR
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	648	bvIdx := block indexOfFirstTemp + index - 1.
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	649	bvIdx := bvIdx + block numArgs.
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	650	]
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	651	].
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	652
2754 81d1bb6dd8d6 changed: #codeStoreOn:type:index:inBlock:valueNeeded:for: Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	653	(type == #BlockArg) ifTrue:[
81d1bb6dd8d6 changed: #codeStoreOn:type:index:inBlock:valueNeeded:for: Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	654	(deltaLevel == 0) ifTrue:[
81d1bb6dd8d6 changed: #codeStoreOn:type:index:inBlock:valueNeeded:for: Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	655	aStream nextPut:#storeBlockLocal
81d1bb6dd8d6 changed: #codeStoreOn:type:index:inBlock:valueNeeded:for: Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	656	] ifFalse:[
81d1bb6dd8d6 changed: #codeStoreOn:type:index:inBlock:valueNeeded:for: Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	657	aStream nextPut:#storeOuterBlockLocal; nextPut:deltaLevel
81d1bb6dd8d6 changed: #codeStoreOn:type:index:inBlock:valueNeeded:for: Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	658	].
2755 a59c6adef58f changed: #codeStoreOn:type:index:inBlock:valueNeeded:for: Claus Gittinger <cg@exept.de> parents: 2754 diff changeset	659	aStream nextPut:bvIdx-1.
2754 81d1bb6dd8d6 changed: #codeStoreOn:type:index:inBlock:valueNeeded:for: Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	660	^ self
81d1bb6dd8d6 changed: #codeStoreOn:type:index:inBlock:valueNeeded:for: Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	661	].
81d1bb6dd8d6 changed: #codeStoreOn:type:index:inBlock:valueNeeded:for: Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	662
218 748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	663	(deltaLevel == 0) ifTrue:[
559 42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	664	bvIdx <= 3 ifTrue:[
42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	665	aStream nextPut:(#(storeBlockVar1 storeBlockVar2 storeBlockVar3) at:bvIdx).
218 748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	666	^ self
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	667	].
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	668	aStream nextPut:#storeBlockVar
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	669	] ifFalse:[
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	670	aStream nextPut:#storeOuterBlockVar; nextPut:deltaLevel
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	671	].
559 42cf4afd99b3 inline blocks withs args Claus Gittinger <cg@exept.de> parents: 554 diff changeset	672	aStream nextPut:bvIdx.
218 748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	673	^ self
14 f08ffd9958a5 Initial revision claus parents: diff changeset	674	].
554 d5e548c4d49d * empty log message * Claus Gittinger <cg@exept.de> parents: 539 diff changeset	675
117 3736a828cb50 . claus parents: 106 diff changeset	676	(type == #GlobalVariable) ifTrue:[
218 748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	677	litIndex := aCompiler addLiteral:name asSymbol.
1808 29b197bc6939 some code savers for common code-emit; Claus Gittinger <cg@exept.de> parents: 1784 diff changeset	678	self emitStoreGlobalWithLiteralIndex:litIndex on:aStream for:aCompiler.
218 748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	679	^ self
117 3736a828cb50 . claus parents: 106 diff changeset	680	].
554 d5e548c4d49d * empty log message * Claus Gittinger <cg@exept.de> parents: 539 diff changeset	681
1553 1657d0843c64 sharedPools ca parents: 1462 diff changeset	682	((type == #ClassVariable) or:[type == #PoolVariable]) ifTrue:[
1314 782d4cc1d588 slight code beautification: use classVarAt: / classVarAt:put: Claus Gittinger <cg@exept.de> parents: 1310 diff changeset	683	litIndex := aCompiler addLiteral:(value globalKeyForClassVar:name).
218 748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	684	litIndex < 256 ifTrue:[
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	685	aStream nextPut:#storeClassVarS; nextPut:litIndex
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	686	] ifFalse:[
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	687	aStream nextPut:#storeClassVarL; nextPut:litIndex; nextPut:0
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	688	].
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	689	^ self
14 f08ffd9958a5 Initial revision claus parents: diff changeset	690	].
554 d5e548c4d49d * empty log message * Claus Gittinger <cg@exept.de> parents: 539 diff changeset	691
14 f08ffd9958a5 Initial revision claus parents: diff changeset	692	(type == #ClassInstanceVariable) ifTrue:[
218 748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	693	aStream nextPut:#storeClassInstVar; nextPut:index.
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	694	^ self
14 f08ffd9958a5 Initial revision claus parents: diff changeset	695	].
554 d5e548c4d49d * empty log message * Claus Gittinger <cg@exept.de> parents: 539 diff changeset	696
1296 7c535a2cd7ff WorkspaceVars Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	697	(type == #WorkspaceVariable
7c535a2cd7ff WorkspaceVars Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	698	or:[type == #DoItTemporary]) ifTrue:[
7c535a2cd7ff WorkspaceVars Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	699	"/ this is done by keeping the valueHolder in the literalArray,
7c535a2cd7ff WorkspaceVars Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	700	"/ and coding a #value: message here.
7c535a2cd7ff WorkspaceVars Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	701
7c535a2cd7ff WorkspaceVars Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	702	litIndex := aCompiler addLiteral:token.
1808 29b197bc6939 some code savers for common code-emit; Claus Gittinger <cg@exept.de> parents: 1784 diff changeset	703	self emitPushLiteralIndex:litIndex on:aStream for:aCompiler.
1296 7c535a2cd7ff WorkspaceVars Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	704
7c535a2cd7ff WorkspaceVars Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	705	"/ need to exchange top 2 items (sigh - there is no exch instruction)
7c535a2cd7ff WorkspaceVars Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	706	"/ now, we have:
7c535a2cd7ff WorkspaceVars Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	707	"/ TOS: holder
7c535a2cd7ff WorkspaceVars Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	708	"/ NOS: value
7c535a2cd7ff WorkspaceVars Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	709	"/
7c535a2cd7ff WorkspaceVars Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	710	"/ for the send, I need them as:
7c535a2cd7ff WorkspaceVars Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	711	"/ TOS: value
7c535a2cd7ff WorkspaceVars Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	712	"/ NOS: holder
7c535a2cd7ff WorkspaceVars Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	713	aStream nextPut:#over.
7c535a2cd7ff WorkspaceVars Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	714	"/ now, we have:
7c535a2cd7ff WorkspaceVars Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	715	"/ TOS: value
7c535a2cd7ff WorkspaceVars Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	716	"/ NOS: holder
7c535a2cd7ff WorkspaceVars Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	717	"/ value
7c535a2cd7ff WorkspaceVars Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	718	selLitIdx := aCompiler addLiteral:#'value:'.
3166 6d6abf8f4439 Do not generate #lineno16 byte codes if still on the same line Stefan Vogel <sv@exept.de> parents: 3148 diff changeset	719	self emitSendLiteralIndex:selLitIdx numArgs:1 line:("lineNr ?" 1) on:aStream for:aCompiler.
1296 7c535a2cd7ff WorkspaceVars Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	720	"/ now, we have:
7c535a2cd7ff WorkspaceVars Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	721	"/ TOS: retVal from value:
7c535a2cd7ff WorkspaceVars Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	722	"/ NOS: value
7c535a2cd7ff WorkspaceVars Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	723	aStream nextPut:#drop.
7c535a2cd7ff WorkspaceVars Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	724	aStream nextPut:#drop.
7c535a2cd7ff WorkspaceVars Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	725	^ self
7c535a2cd7ff WorkspaceVars Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	726	].
7c535a2cd7ff WorkspaceVars Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	727
2754 81d1bb6dd8d6 changed: #codeStoreOn:type:index:inBlock:valueNeeded:for: Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	728	"/ the following cannot be encountered with Smalltalk code;
81d1bb6dd8d6 changed: #codeStoreOn:type:index:inBlock:valueNeeded:for: Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	729	"/ however, the VM supports it for other languages (JavaScript, in particular)
1821 7cfd8464cace * empty log message * Claus Gittinger <cg@exept.de> parents: 1808 diff changeset	730	(type == #MethodArg) ifTrue:[
2754 81d1bb6dd8d6 changed: #codeStoreOn:type:index:inBlock:valueNeeded:for: Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	731	aStream nextPut:#storeMethodLocal; nextPut:index-1.
1821 7cfd8464cace * empty log message * Claus Gittinger <cg@exept.de> parents: 1808 diff changeset	732	^ self
7cfd8464cace * empty log message * Claus Gittinger <cg@exept.de> parents: 1808 diff changeset	733	].
7cfd8464cace * empty log message * Claus Gittinger <cg@exept.de> parents: 1808 diff changeset	734
106 2653f74569d1 . claus parents: 104 diff changeset	735	"not reached"
941 0ae34d664798 error: vs. error:mayProceed: Claus Gittinger <cg@exept.de> parents: 875 diff changeset	736	self error:'bad assignment'
218 748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	737
1784 4380f89e1a91 allow for lazy index of locals and arguments. Claus Gittinger <cg@exept.de> parents: 1606 diff changeset	738	"Created: / 25-06-1997 / 16:14:40 / cg"
2755 a59c6adef58f changed: #codeStoreOn:type:index:inBlock:valueNeeded:for: Claus Gittinger <cg@exept.de> parents: 2754 diff changeset	739	"Modified: / 25-10-2011 / 23:41:59 / cg"
14 f08ffd9958a5 Initial revision claus parents: diff changeset	740	! !
f08ffd9958a5 Initial revision claus parents: diff changeset	741
1035 8848672cb893 category rename Claus Gittinger <cg@exept.de> parents: 980 diff changeset	742	!VariableNode methodsFor:'enumerating'!
539 69a1cd05c7d6 added node-walk facility (ST80 compatibility) Claus Gittinger <cg@exept.de> parents: 535 diff changeset	743
69a1cd05c7d6 added node-walk facility (ST80 compatibility) Claus Gittinger <cg@exept.de> parents: 535 diff changeset	744	nodeDo:anEnumerator
69a1cd05c7d6 added node-walk facility (ST80 compatibility) Claus Gittinger <cg@exept.de> parents: 535 diff changeset	745	"helper for parse tree walking"
69a1cd05c7d6 added node-walk facility (ST80 compatibility) Claus Gittinger <cg@exept.de> parents: 535 diff changeset	746
69a1cd05c7d6 added node-walk facility (ST80 compatibility) Claus Gittinger <cg@exept.de> parents: 535 diff changeset	747	^ anEnumerator doVariable:self name:name
69a1cd05c7d6 added node-walk facility (ST80 compatibility) Claus Gittinger <cg@exept.de> parents: 535 diff changeset	748
69a1cd05c7d6 added node-walk facility (ST80 compatibility) Claus Gittinger <cg@exept.de> parents: 535 diff changeset	749	"Created: 19.6.1997 / 16:41:35 / cg"
69a1cd05c7d6 added node-walk facility (ST80 compatibility) Claus Gittinger <cg@exept.de> parents: 535 diff changeset	750	! !
69a1cd05c7d6 added node-walk facility (ST80 compatibility) Claus Gittinger <cg@exept.de> parents: 535 diff changeset	751
1035 8848672cb893 category rename Claus Gittinger <cg@exept.de> parents: 980 diff changeset	752	!VariableNode methodsFor:'evaluation'!
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	753
1384 0db9682870d9 evaluate -> evaluateIn: Claus Gittinger <cg@exept.de> parents: 1320 diff changeset	754	evaluateIn:anEnvironment
980 1818e8c13e2a checkin from browser Claus Gittinger <cg@exept.de> parents: 965 diff changeset	755	\|nameSym\|
1818e8c13e2a checkin from browser Claus Gittinger <cg@exept.de> parents: 965 diff changeset	756
641 e18daf10662c added support for context-vars (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 612 diff changeset	757	(type == #ContextVariable) ifTrue:[
1137 43db3cacab5f * empty log message * Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	758	"/ value method isWrapped ifTrue:[^ nil].
1178 f8065fd945a8 care for wrapped methods context Claus Gittinger <cg@exept.de> parents: 1137 diff changeset	759	index > value size ifTrue:[
f8065fd945a8 care for wrapped methods context Claus Gittinger <cg@exept.de> parents: 1137 diff changeset	760	"/ this can happen ,if a wrapped method is not yet entered
f8065fd945a8 care for wrapped methods context Claus Gittinger <cg@exept.de> parents: 1137 diff changeset	761	^ nil
f8065fd945a8 care for wrapped methods context Claus Gittinger <cg@exept.de> parents: 1137 diff changeset	762	].
641 e18daf10662c added support for context-vars (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 612 diff changeset	763	^ value at:index
e18daf10662c added support for context-vars (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 612 diff changeset	764	].
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	765	(type == #MethodVariable
1384 0db9682870d9 evaluate -> evaluateIn: Claus Gittinger <cg@exept.de> parents: 1320 diff changeset	766	or:[type == #MethodArg
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	767	or:[type == #BlockArg
1384 0db9682870d9 evaluate -> evaluateIn: Claus Gittinger <cg@exept.de> parents: 1320 diff changeset	768	or:[type == #BlockVariable]]]) ifTrue:[
420 ad567fb4e732 checkin from browser Claus Gittinger <cg@exept.de> parents: 360 diff changeset	769	^ token variableValue
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	770	].
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	771	(type == #InstanceVariable) ifTrue:[
641 e18daf10662c added support for context-vars (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 612 diff changeset	772	^ value instVarAt:index
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	773	].
1088 029b67b39d1b * empty log message * Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	774	(type == #JavaVariable) ifTrue:[
029b67b39d1b * empty log message * Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	775	nameSym := name asSymbolIfInterned.
029b67b39d1b * empty log message * Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	776	nameSym notNil ifTrue:[
029b67b39d1b * empty log message * Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	777	^ JAVA at:name
029b67b39d1b * empty log message * Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	778	].
2420 914eb1c66bda Raise UndefinedVariableError - not raising is caused class method patches for non-existing Stefan Vogel <sv@exept.de> parents: 2126 diff changeset	779	"/ ^ nil.
914eb1c66bda Raise UndefinedVariableError - not raising is caused class method patches for non-existing Stefan Vogel <sv@exept.de> parents: 2126 diff changeset	780	^ Parser undefinedVariableError raiseRequestWith:name errorString:('undefined: ',name).
1088 029b67b39d1b * empty log message * Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	781	].
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	782	(type == #GlobalVariable) ifTrue:[
980 1818e8c13e2a checkin from browser Claus Gittinger <cg@exept.de> parents: 965 diff changeset	783	nameSym := name asSymbolIfInterned.
1818e8c13e2a checkin from browser Claus Gittinger <cg@exept.de> parents: 965 diff changeset	784	nameSym notNil ifTrue:[
1818e8c13e2a checkin from browser Claus Gittinger <cg@exept.de> parents: 965 diff changeset	785	(Smalltalk includesKey:nameSym) ifTrue:[
1818e8c13e2a checkin from browser Claus Gittinger <cg@exept.de> parents: 965 diff changeset	786	^ Smalltalk at:name
1818e8c13e2a checkin from browser Claus Gittinger <cg@exept.de> parents: 965 diff changeset	787	]
420 ad567fb4e732 checkin from browser Claus Gittinger <cg@exept.de> parents: 360 diff changeset	788	].
2420 914eb1c66bda Raise UndefinedVariableError - not raising is caused class method patches for non-existing Stefan Vogel <sv@exept.de> parents: 2126 diff changeset	789	"/ ^ nil.
914eb1c66bda Raise UndefinedVariableError - not raising is caused class method patches for non-existing Stefan Vogel <sv@exept.de> parents: 2126 diff changeset	790	^ Parser undefinedVariableError raiseRequestWith:name errorString:('undefined: ',name).
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	791	].
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	792	(type == #ClassVariable) ifTrue:[
1314 782d4cc1d588 slight code beautification: use classVarAt: / classVarAt:put: Claus Gittinger <cg@exept.de> parents: 1310 diff changeset	793	^ value classVarAt:name asSymbol
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	794	].
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	795	(type == #ClassInstanceVariable) ifTrue:[
641 e18daf10662c added support for context-vars (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 612 diff changeset	796	^ value instVarAt:index
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	797	].
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	798	(type == #ThisContext) ifTrue:[
641 e18daf10662c added support for context-vars (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 612 diff changeset	799	value notNil ifTrue:[
e18daf10662c added support for context-vars (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 612 diff changeset	800	^ value
e18daf10662c added support for context-vars (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 612 diff changeset	801	].
420 ad567fb4e732 checkin from browser Claus Gittinger <cg@exept.de> parents: 360 diff changeset	802	^ thisContext
ad567fb4e732 checkin from browser Claus Gittinger <cg@exept.de> parents: 360 diff changeset	803	].
ad567fb4e732 checkin from browser Claus Gittinger <cg@exept.de> parents: 360 diff changeset	804	(type == #PrivateClass) ifTrue:[
641 e18daf10662c added support for context-vars (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 612 diff changeset	805	^ value privateClassesAt:name asSymbol
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	806	].
1918 e02187d205c0 poolvars in a doIT fm parents: 1821 diff changeset	807	(type == #PoolVariable) ifTrue:[
e02187d205c0 poolvars in a doIT fm parents: 1821 diff changeset	808	^ value classVarAt:name asSymbol
e02187d205c0 poolvars in a doIT fm parents: 1821 diff changeset	809	].
719 9ccbae6ba13e checkin from browser Claus Gittinger <cg@exept.de> parents: 642 diff changeset	810
9ccbae6ba13e checkin from browser Claus Gittinger <cg@exept.de> parents: 642 diff changeset	811	"/ synthetic; for evaluation only
1179 b411ceb395f8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1178 diff changeset	812	(type == #EvaluationContextLocal
b411ceb395f8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1178 diff changeset	813	or:[type == #EvaluationContextVar
b411ceb395f8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1178 diff changeset	814	or:[type == #EvaluationContextArg]]) ifTrue:[
719 9ccbae6ba13e checkin from browser Claus Gittinger <cg@exept.de> parents: 642 diff changeset	815	^ token variableValue
9ccbae6ba13e checkin from browser Claus Gittinger <cg@exept.de> parents: 642 diff changeset	816	].
1179 b411ceb395f8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1178 diff changeset	817
1092 77de350f525c * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	818	"/ synthetic; for evaluation only
1606 eaf685612275 * empty log message * Claus Gittinger <cg@exept.de> parents: 1553 diff changeset	819	((type == #WorkspaceVariable) or:[type == #DoItTemporary]) ifTrue:[
1092 77de350f525c * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	820	^ token value
77de350f525c * empty log message * Claus Gittinger <cg@exept.de> parents: 1088 diff changeset	821	].
719 9ccbae6ba13e checkin from browser Claus Gittinger <cg@exept.de> parents: 642 diff changeset	822
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	823	"not reached"
1320 5d004fcfd006 Use #error: insead of #halt. Stefan Vogel <sv@exept.de> parents: 1314 diff changeset	824	self error:'internal error - bad variable type:' , type mayProceed:true.
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	825	^ value
420 ad567fb4e732 checkin from browser Claus Gittinger <cg@exept.de> parents: 360 diff changeset	826
1918 e02187d205c0 poolvars in a doIT fm parents: 1821 diff changeset	827	"Modified: / 26-09-1999 / 13:04:42 / cg"
e02187d205c0 poolvars in a doIT fm parents: 1821 diff changeset	828	"Modified: / 11-09-2006 / 14:22:38 / User"
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	829	!
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	830
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	831	store:aValue
641 e18daf10662c added support for context-vars (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 612 diff changeset	832	(type == #ContextVariable) ifTrue:[
1137 43db3cacab5f * empty log message * Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	833	"/ value method isWrapped ifTrue:[
43db3cacab5f * empty log message * Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	834	"/ self warn:'The method has not yet been entered (in breakpoint stub)\Please perform a singleStep first' withCRs.
43db3cacab5f * empty log message * Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	835	"/ ^ aValue
43db3cacab5f * empty log message * Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	836	"/ ].
641 e18daf10662c added support for context-vars (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 612 diff changeset	837	value at:index put:aValue. ^ aValue
e18daf10662c added support for context-vars (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 612 diff changeset	838	].
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	839	(type == #MethodVariable
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	840	or:[type == #BlockVariable]) ifTrue:[
641 e18daf10662c added support for context-vars (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 612 diff changeset	841	token value:aValue. ^ aValue
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	842	].
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	843	(type == #InstanceVariable) ifTrue:[
641 e18daf10662c added support for context-vars (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 612 diff changeset	844	^ value instVarAt:index put:aValue
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	845	].
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	846	(type == #GlobalVariable) ifTrue:[
641 e18daf10662c added support for context-vars (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 612 diff changeset	847	^ Smalltalk at:name put:aValue
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	848	].
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	849	(type == #ClassVariable) ifTrue:[
1314 782d4cc1d588 slight code beautification: use classVarAt: / classVarAt:put: Claus Gittinger <cg@exept.de> parents: 1310 diff changeset	850	^ value classVarAt:name asSymbol put:aValue
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	851	].
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	852	(type == #ClassInstanceVariable) ifTrue:[
641 e18daf10662c added support for context-vars (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 612 diff changeset	853	^ value instVarAt:index put:aValue
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	854	].
719 9ccbae6ba13e checkin from browser Claus Gittinger <cg@exept.de> parents: 642 diff changeset	855
9ccbae6ba13e checkin from browser Claus Gittinger <cg@exept.de> parents: 642 diff changeset	856	"/ synthetic; for evaluation only
9ccbae6ba13e checkin from browser Claus Gittinger <cg@exept.de> parents: 642 diff changeset	857	(type == #EvaluationContextLocal) ifTrue:[
875 2561654973eb checkin from browser Claus Gittinger <cg@exept.de> parents: 872 diff changeset	858	token value:aValue. ^ aValue
2561654973eb checkin from browser Claus Gittinger <cg@exept.de> parents: 872 diff changeset	859	].
2764 9acca5d69f54 changed: #store: Claus Gittinger <cg@exept.de> parents: 2757 diff changeset	860	((type == #WorkspaceVariable) or:[type == #DoItTemporary]) ifTrue:[
875 2561654973eb checkin from browser Claus Gittinger <cg@exept.de> parents: 872 diff changeset	861	token value:aValue. ^ aValue
719 9ccbae6ba13e checkin from browser Claus Gittinger <cg@exept.de> parents: 642 diff changeset	862	].
9ccbae6ba13e checkin from browser Claus Gittinger <cg@exept.de> parents: 642 diff changeset	863
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	864	"not reached"
1320 5d004fcfd006 Use #error: insead of #halt. Stefan Vogel <sv@exept.de> parents: 1314 diff changeset	865	self error:'bad variable node type' mayProceed:true.
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	866	^ aValue
641 e18daf10662c added support for context-vars (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 612 diff changeset	867
2764 9acca5d69f54 changed: #store: Claus Gittinger <cg@exept.de> parents: 2757 diff changeset	868	"Modified: / 05-12-2011 / 18:43:56 / cg"
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	869	! !
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	870
1080 bd3f19f6009a category change Claus Gittinger <cg@exept.de> parents: 1076 diff changeset	871	!VariableNode methodsFor:'printing & storing'!
14 f08ffd9958a5 Initial revision claus parents: diff changeset	872
2898 bb61af1f77a1 Implement #displayOn: instead of #displayString Stefan Vogel <sv@exept.de> parents: 2864 diff changeset	873	displayOn:aGCOrStream
bb61af1f77a1 Implement #displayOn: instead of #displayString Stefan Vogel <sv@exept.de> parents: 2864 diff changeset	874	"Compatibility
bb61af1f77a1 Implement #displayOn: instead of #displayString Stefan Vogel <sv@exept.de> parents: 2864 diff changeset	875	append a printed desription on some stream (Dolphin, Squeak)
bb61af1f77a1 Implement #displayOn: instead of #displayString Stefan Vogel <sv@exept.de> parents: 2864 diff changeset	876	OR:
bb61af1f77a1 Implement #displayOn: instead of #displayString Stefan Vogel <sv@exept.de> parents: 2864 diff changeset	877	display the receiver in a graphicsContext at 0@0 (ST80).
bb61af1f77a1 Implement #displayOn: instead of #displayString Stefan Vogel <sv@exept.de> parents: 2864 diff changeset	878	This method allows for any object to be displayed in some view
bb61af1f77a1 Implement #displayOn: instead of #displayString Stefan Vogel <sv@exept.de> parents: 2864 diff changeset	879	(although the fallBack is to display its printString ...)"
612 2748896a66c8 comments Claus Gittinger <cg@exept.de> parents: 577 diff changeset	880
2898 bb61af1f77a1 Implement #displayOn: instead of #displayString Stefan Vogel <sv@exept.de> parents: 2864 diff changeset	881	"/ what a kludge - Dolphin and Squeak mean: printOn: a stream;
bb61af1f77a1 Implement #displayOn: instead of #displayString Stefan Vogel <sv@exept.de> parents: 2864 diff changeset	882	"/ ST/X (and some old ST80's) mean: draw-yourself on a GC.
bb61af1f77a1 Implement #displayOn: instead of #displayString Stefan Vogel <sv@exept.de> parents: 2864 diff changeset	883	aGCOrStream isStream ifFalse:[
bb61af1f77a1 Implement #displayOn: instead of #displayString Stefan Vogel <sv@exept.de> parents: 2864 diff changeset	884	^ super displayOn:aGCOrStream.
bb61af1f77a1 Implement #displayOn: instead of #displayString Stefan Vogel <sv@exept.de> parents: 2864 diff changeset	885	].
612 2748896a66c8 comments Claus Gittinger <cg@exept.de> parents: 577 diff changeset	886
2898 bb61af1f77a1 Implement #displayOn: instead of #displayString Stefan Vogel <sv@exept.de> parents: 2864 diff changeset	887	aGCOrStream
bb61af1f77a1 Implement #displayOn: instead of #displayString Stefan Vogel <sv@exept.de> parents: 2864 diff changeset	888	nextPutAll:self class name;
bb61af1f77a1 Implement #displayOn: instead of #displayString Stefan Vogel <sv@exept.de> parents: 2864 diff changeset	889	nextPut:$(.
bb61af1f77a1 Implement #displayOn: instead of #displayString Stefan Vogel <sv@exept.de> parents: 2864 diff changeset	890	self printOn:aGCOrStream.
bb61af1f77a1 Implement #displayOn: instead of #displayString Stefan Vogel <sv@exept.de> parents: 2864 diff changeset	891	aGCOrStream nextPut:$)
14 f08ffd9958a5 Initial revision claus parents: diff changeset	892	!
f08ffd9958a5 Initial revision claus parents: diff changeset	893
f08ffd9958a5 Initial revision claus parents: diff changeset	894	printOn:aStream indent:i
98 ccc7f9389a8e . claus parents: 53 diff changeset	895
641 e18daf10662c added support for context-vars (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 612 diff changeset	896	"/ actually only a debug-check
e18daf10662c added support for context-vars (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 612 diff changeset	897	(
e18daf10662c added support for context-vars (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 612 diff changeset	898	type == #ContextVariable
e18daf10662c added support for context-vars (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 612 diff changeset	899	or:[type == #MethodArg
98 ccc7f9389a8e . claus parents: 53 diff changeset	900	or:[type == #MethodVariable
ccc7f9389a8e . claus parents: 53 diff changeset	901	or:[type == #InstanceVariable
ccc7f9389a8e . claus parents: 53 diff changeset	902	or:[type == #BlockArg
ccc7f9389a8e . claus parents: 53 diff changeset	903	or:[type == #GlobalVariable
1088 029b67b39d1b * empty log message * Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	904	or:[type == #JavaVariable
98 ccc7f9389a8e . claus parents: 53 diff changeset	905	or:[type == #ClassVariable
2066 9873763eb1f8 sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 1997 diff changeset	906	or:[type == #PoolVariable
98 ccc7f9389a8e . claus parents: 53 diff changeset	907	or:[type == #BlockVariable
465 67e5205a81cc checkin from browser Claus Gittinger <cg@exept.de> parents: 420 diff changeset	908	or:[type == #PrivateClass
872 7cf38a8125e6 support for workspace variables. Claus Gittinger <cg@exept.de> parents: 869 diff changeset	909	or:[type == #WorkspaceVariable
1101 84db57980ac5 checkin from browser Claus Gittinger <cg@exept.de> parents: 1092 diff changeset	910	or:[type == #EvaluationContextArg
720 6b3d43ba7273 checkin from browser Claus Gittinger <cg@exept.de> parents: 719 diff changeset	911	or:[type == #EvaluationContextLocal
2066 9873763eb1f8 sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 1997 diff changeset	912	or:[type == #ClassInstanceVariable]]]]]]]]]]]]]]) ifTrue:[
465 67e5205a81cc checkin from browser Claus Gittinger <cg@exept.de> parents: 420 diff changeset	913	aStream nextPutAll:name. ^ self
14 f08ffd9958a5 Initial revision claus parents: diff changeset	914	].
f08ffd9958a5 Initial revision claus parents: diff changeset	915	(type == #ThisContext) ifTrue:[
465 67e5205a81cc checkin from browser Claus Gittinger <cg@exept.de> parents: 420 diff changeset	916	aStream nextPutAll:'thisContext'. ^ self
14 f08ffd9958a5 Initial revision claus parents: diff changeset	917	].
f08ffd9958a5 Initial revision claus parents: diff changeset	918	"not reached"
1320 5d004fcfd006 Use #error: insead of #halt. Stefan Vogel <sv@exept.de> parents: 1314 diff changeset	919	self error:'bad variable node type' mayProceed:true.
465 67e5205a81cc checkin from browser Claus Gittinger <cg@exept.de> parents: 420 diff changeset	920
720 6b3d43ba7273 checkin from browser Claus Gittinger <cg@exept.de> parents: 719 diff changeset	921	"Modified: / 17.5.1998 / 00:17:12 / cg"
14 f08ffd9958a5 Initial revision claus parents: diff changeset	922	! !
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	923
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	924	!VariableNode methodsFor:'queries'!
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	925
243 cdc1424ddaac use dup if possible when pushing args / faster access to common globals Claus Gittinger <cg@exept.de> parents: 218 diff changeset	926	canReuseAsArg:anotherNode
cdc1424ddaac use dup if possible when pushing args / faster access to common globals Claus Gittinger <cg@exept.de> parents: 218 diff changeset	927	anotherNode isVariable ifTrue:[
cdc1424ddaac use dup if possible when pushing args / faster access to common globals Claus Gittinger <cg@exept.de> parents: 218 diff changeset	928	anotherNode type ~~ type ifTrue:[^ false].
cdc1424ddaac use dup if possible when pushing args / faster access to common globals Claus Gittinger <cg@exept.de> parents: 218 diff changeset	929
cdc1424ddaac use dup if possible when pushing args / faster access to common globals Claus Gittinger <cg@exept.de> parents: 218 diff changeset	930	(type == #ThisContext) ifTrue:[^ true].
cdc1424ddaac use dup if possible when pushing args / faster access to common globals Claus Gittinger <cg@exept.de> parents: 218 diff changeset	931
cdc1424ddaac use dup if possible when pushing args / faster access to common globals Claus Gittinger <cg@exept.de> parents: 218 diff changeset	932	index notNil ifTrue:[
cdc1424ddaac use dup if possible when pushing args / faster access to common globals Claus Gittinger <cg@exept.de> parents: 218 diff changeset	933	anotherNode index ~~ index ifTrue:[^ false].
cdc1424ddaac use dup if possible when pushing args / faster access to common globals Claus Gittinger <cg@exept.de> parents: 218 diff changeset	934	].
cdc1424ddaac use dup if possible when pushing args / faster access to common globals Claus Gittinger <cg@exept.de> parents: 218 diff changeset	935	(type == #MethodArg) ifTrue:[^ true].
cdc1424ddaac use dup if possible when pushing args / faster access to common globals Claus Gittinger <cg@exept.de> parents: 218 diff changeset	936	(type == #MethodVariable) ifTrue:[^ true].
cdc1424ddaac use dup if possible when pushing args / faster access to common globals Claus Gittinger <cg@exept.de> parents: 218 diff changeset	937	(type == #InstanceVariable) ifTrue:[^ true].
cdc1424ddaac use dup if possible when pushing args / faster access to common globals Claus Gittinger <cg@exept.de> parents: 218 diff changeset	938
cdc1424ddaac use dup if possible when pushing args / faster access to common globals Claus Gittinger <cg@exept.de> parents: 218 diff changeset	939	name notNil ifTrue:[
cdc1424ddaac use dup if possible when pushing args / faster access to common globals Claus Gittinger <cg@exept.de> parents: 218 diff changeset	940	anotherNode name ~~ name ifTrue:[^ false].
cdc1424ddaac use dup if possible when pushing args / faster access to common globals Claus Gittinger <cg@exept.de> parents: 218 diff changeset	941	].
cdc1424ddaac use dup if possible when pushing args / faster access to common globals Claus Gittinger <cg@exept.de> parents: 218 diff changeset	942	(type == #GlobalVariable) ifTrue:[^ true].
cdc1424ddaac use dup if possible when pushing args / faster access to common globals Claus Gittinger <cg@exept.de> parents: 218 diff changeset	943	(type == #ClassVariable) ifTrue:[^ true].
cdc1424ddaac use dup if possible when pushing args / faster access to common globals Claus Gittinger <cg@exept.de> parents: 218 diff changeset	944	].
cdc1424ddaac use dup if possible when pushing args / faster access to common globals Claus Gittinger <cg@exept.de> parents: 218 diff changeset	945	^ false
cdc1424ddaac use dup if possible when pushing args / faster access to common globals Claus Gittinger <cg@exept.de> parents: 218 diff changeset	946
cdc1424ddaac use dup if possible when pushing args / faster access to common globals Claus Gittinger <cg@exept.de> parents: 218 diff changeset	947	"Created: 14.4.1996 / 00:46:18 / cg"
cdc1424ddaac use dup if possible when pushing args / faster access to common globals Claus Gittinger <cg@exept.de> parents: 218 diff changeset	948	"Modified: 14.4.1996 / 00:55:25 / cg"
cdc1424ddaac use dup if possible when pushing args / faster access to common globals Claus Gittinger <cg@exept.de> parents: 218 diff changeset	949	!
cdc1424ddaac use dup if possible when pushing args / faster access to common globals Claus Gittinger <cg@exept.de> parents: 218 diff changeset	950
1784 4380f89e1a91 allow for lazy index of locals and arguments. Claus Gittinger <cg@exept.de> parents: 1606 diff changeset	951	indexIn: aCompiler
4380f89e1a91 allow for lazy index of locals and arguments. Claus Gittinger <cg@exept.de> parents: 1606 diff changeset	952	(type == #MethodVariable) ifTrue:[
4380f89e1a91 allow for lazy index of locals and arguments. Claus Gittinger <cg@exept.de> parents: 1606 diff changeset	953	^ aCompiler methodVars indexOf:name.
4380f89e1a91 allow for lazy index of locals and arguments. Claus Gittinger <cg@exept.de> parents: 1606 diff changeset	954	].
4380f89e1a91 allow for lazy index of locals and arguments. Claus Gittinger <cg@exept.de> parents: 1606 diff changeset	955	(type == #MethodArg) ifTrue:[
4380f89e1a91 allow for lazy index of locals and arguments. Claus Gittinger <cg@exept.de> parents: 1606 diff changeset	956	^ aCompiler methodArgs indexOf:name.
4380f89e1a91 allow for lazy index of locals and arguments. Claus Gittinger <cg@exept.de> parents: 1606 diff changeset	957	].
4380f89e1a91 allow for lazy index of locals and arguments. Claus Gittinger <cg@exept.de> parents: 1606 diff changeset	958	^ index
4380f89e1a91 allow for lazy index of locals and arguments. Claus Gittinger <cg@exept.de> parents: 1606 diff changeset	959
4380f89e1a91 allow for lazy index of locals and arguments. Claus Gittinger <cg@exept.de> parents: 1606 diff changeset	960	"Created: / 06-08-2006 / 16:03:56 / cg"
4380f89e1a91 allow for lazy index of locals and arguments. Claus Gittinger <cg@exept.de> parents: 1606 diff changeset	961	!
4380f89e1a91 allow for lazy index of locals and arguments. Claus Gittinger <cg@exept.de> parents: 1606 diff changeset	962
566 90969df02c85 added #isArgument query Claus Gittinger <cg@exept.de> parents: 559 diff changeset	963	isArgument
90969df02c85 added #isArgument query Claus Gittinger <cg@exept.de> parents: 559 diff changeset	964	"return true, if this is a node for an argument (block or method)"
90969df02c85 added #isArgument query Claus Gittinger <cg@exept.de> parents: 559 diff changeset	965
90969df02c85 added #isArgument query Claus Gittinger <cg@exept.de> parents: 559 diff changeset	966	^ (type == #MethodArg) or:[type == #BlockArg]
90969df02c85 added #isArgument query Claus Gittinger <cg@exept.de> parents: 559 diff changeset	967
90969df02c85 added #isArgument query Claus Gittinger <cg@exept.de> parents: 559 diff changeset	968	"Created: 27.6.1997 / 13:07:05 / cg"
90969df02c85 added #isArgument query Claus Gittinger <cg@exept.de> parents: 559 diff changeset	969	"Modified: 27.6.1997 / 13:07:19 / cg"
90969df02c85 added #isArgument query Claus Gittinger <cg@exept.de> parents: 559 diff changeset	970	!
90969df02c85 added #isArgument query Claus Gittinger <cg@exept.de> parents: 559 diff changeset	971
1076 b393dc61463e added #isClassVariable and #isInstanceVariable Claus Gittinger <cg@exept.de> parents: 1035 diff changeset	972	isClassVariable
b393dc61463e added #isClassVariable and #isInstanceVariable Claus Gittinger <cg@exept.de> parents: 1035 diff changeset	973	^ type == #ClassVariable
b393dc61463e added #isClassVariable and #isInstanceVariable Claus Gittinger <cg@exept.de> parents: 1035 diff changeset	974	!
b393dc61463e added #isClassVariable and #isInstanceVariable Claus Gittinger <cg@exept.de> parents: 1035 diff changeset	975
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	976	isGlobal
2957 b23f798ffa70 added: #isPoolVariable Claus Gittinger <cg@exept.de> parents: 2898 diff changeset	977	"return true, if this is a node for an existing!! global variable"
789 d9bbb0970239 checkin from browser Claus Gittinger <cg@exept.de> parents: 720 diff changeset	978
d9bbb0970239 checkin from browser Claus Gittinger <cg@exept.de> parents: 720 diff changeset	979	^ (type == #GlobalVariable)
d9bbb0970239 checkin from browser Claus Gittinger <cg@exept.de> parents: 720 diff changeset	980	and:[name isSymbol
d9bbb0970239 checkin from browser Claus Gittinger <cg@exept.de> parents: 720 diff changeset	981	and:[Smalltalk includesKey:name]]
d9bbb0970239 checkin from browser Claus Gittinger <cg@exept.de> parents: 720 diff changeset	982
d9bbb0970239 checkin from browser Claus Gittinger <cg@exept.de> parents: 720 diff changeset	983	"Modified: / 19.10.1998 / 19:43:04 / cg"
218 748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	984	!
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	985
1997 4ec97f7ce416 * empty log message * Claus Gittinger <cg@exept.de> parents: 1996 diff changeset	986	isGlobalNamed:nameWanted
1996 6d70e53e9f14 * empty log message * Claus Gittinger <cg@exept.de> parents: 1932 diff changeset	987	"return true, if this is a node for a particular global variable"
6d70e53e9f14 * empty log message * Claus Gittinger <cg@exept.de> parents: 1932 diff changeset	988
6d70e53e9f14 * empty log message * Claus Gittinger <cg@exept.de> parents: 1932 diff changeset	989	^ (type == #GlobalVariable)
6d70e53e9f14 * empty log message * Claus Gittinger <cg@exept.de> parents: 1932 diff changeset	990	and:[name = nameWanted
6d70e53e9f14 * empty log message * Claus Gittinger <cg@exept.de> parents: 1932 diff changeset	991	and:[name isSymbol
6d70e53e9f14 * empty log message * Claus Gittinger <cg@exept.de> parents: 1932 diff changeset	992	and:[Smalltalk includesKey:name]]]
6d70e53e9f14 * empty log message * Claus Gittinger <cg@exept.de> parents: 1932 diff changeset	993
1997 4ec97f7ce416 * empty log message * Claus Gittinger <cg@exept.de> parents: 1996 diff changeset	994	"Created: / 05-03-2007 / 13:35:07 / cg"
1996 6d70e53e9f14 * empty log message * Claus Gittinger <cg@exept.de> parents: 1932 diff changeset	995	!
6d70e53e9f14 * empty log message * Claus Gittinger <cg@exept.de> parents: 1932 diff changeset	996
1310 feb30ab0c221 better variabletype queries. Claus Gittinger <cg@exept.de> parents: 1296 diff changeset	997	isGlobalVariable
2957 b23f798ffa70 added: #isPoolVariable Claus Gittinger <cg@exept.de> parents: 2898 diff changeset	998	"return true, if this is a node for global variable"
b23f798ffa70 added: #isPoolVariable Claus Gittinger <cg@exept.de> parents: 2898 diff changeset	999
1310 feb30ab0c221 better variabletype queries. Claus Gittinger <cg@exept.de> parents: 1296 diff changeset	1000	^ type == #GlobalVariable
feb30ab0c221 better variabletype queries. Claus Gittinger <cg@exept.de> parents: 1296 diff changeset	1001	!
feb30ab0c221 better variabletype queries. Claus Gittinger <cg@exept.de> parents: 1296 diff changeset	1002
1076 b393dc61463e added #isClassVariable and #isInstanceVariable Claus Gittinger <cg@exept.de> parents: 1035 diff changeset	1003	isInstanceVariable
b393dc61463e added #isClassVariable and #isInstanceVariable Claus Gittinger <cg@exept.de> parents: 1035 diff changeset	1004	^ type == #InstanceVariable
b393dc61463e added #isClassVariable and #isInstanceVariable Claus Gittinger <cg@exept.de> parents: 1035 diff changeset	1005	!
b393dc61463e added #isClassVariable and #isInstanceVariable Claus Gittinger <cg@exept.de> parents: 1035 diff changeset	1006
2864 14dcc972c08c added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2764 diff changeset	1007	isJAVA
14dcc972c08c added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2764 diff changeset	1008	"Return true, if receiver is global variable node JAVA.
14dcc972c08c added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2764 diff changeset	1009	Used to highlight Java class references."
14dcc972c08c added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2764 diff changeset	1010
14dcc972c08c added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2764 diff changeset	1011	^ (type == #GlobalVariable) and:[name = 'JAVA']
14dcc972c08c added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2764 diff changeset	1012
14dcc972c08c added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2764 diff changeset	1013	"Created: / 19-04-2012 / 09:38:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
14dcc972c08c added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2764 diff changeset	1014	!
14dcc972c08c added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2764 diff changeset	1015
218 748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	1016	isLocal
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	1017	"return true, if this is a node for a local (block or method) variable"
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	1018
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	1019	^ (type == #MethodVariable) or:[type == #BlockVariable]
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	1020
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	1021	"Created: 1.3.1996 / 00:03:53 / cg"
748b4c509a51 use new BlockVar instructions Claus Gittinger <cg@exept.de> parents: 199 diff changeset	1022	"Modified: 1.3.1996 / 00:04:46 / cg"
243 cdc1424ddaac use dup if possible when pushing args / faster access to common globals Claus Gittinger <cg@exept.de> parents: 218 diff changeset	1023	!
cdc1424ddaac use dup if possible when pushing args / faster access to common globals Claus Gittinger <cg@exept.de> parents: 218 diff changeset	1024
1310 feb30ab0c221 better variabletype queries. Claus Gittinger <cg@exept.de> parents: 1296 diff changeset	1025	isMethodArg
feb30ab0c221 better variabletype queries. Claus Gittinger <cg@exept.de> parents: 1296 diff changeset	1026	^ type == #MethodArg
feb30ab0c221 better variabletype queries. Claus Gittinger <cg@exept.de> parents: 1296 diff changeset	1027	!
feb30ab0c221 better variabletype queries. Claus Gittinger <cg@exept.de> parents: 1296 diff changeset	1028
feb30ab0c221 better variabletype queries. Claus Gittinger <cg@exept.de> parents: 1296 diff changeset	1029	isMethodVariable
feb30ab0c221 better variabletype queries. Claus Gittinger <cg@exept.de> parents: 1296 diff changeset	1030	^ type == #MethodVariable
feb30ab0c221 better variabletype queries. Claus Gittinger <cg@exept.de> parents: 1296 diff changeset	1031	!
feb30ab0c221 better variabletype queries. Claus Gittinger <cg@exept.de> parents: 1296 diff changeset	1032
2957 b23f798ffa70 added: #isPoolVariable Claus Gittinger <cg@exept.de> parents: 2898 diff changeset	1033	isPoolVariable
b23f798ffa70 added: #isPoolVariable Claus Gittinger <cg@exept.de> parents: 2898 diff changeset	1034	^ type == #PoolVariable
b23f798ffa70 added: #isPoolVariable Claus Gittinger <cg@exept.de> parents: 2898 diff changeset	1035	!
b23f798ffa70 added: #isPoolVariable Claus Gittinger <cg@exept.de> parents: 2898 diff changeset	1036
965 5f893e013e73 * empty log message * Claus Gittinger <cg@exept.de> parents: 941 diff changeset	1037	isUndeclared
5f893e013e73 * empty log message * Claus Gittinger <cg@exept.de> parents: 941 diff changeset	1038	type == #PrivateClass ifTrue:[
5f893e013e73 * empty log message * Claus Gittinger <cg@exept.de> parents: 941 diff changeset	1039	^ (Smalltalk includesKey:(value name , '::' , name) asSymbol) not
5f893e013e73 * empty log message * Claus Gittinger <cg@exept.de> parents: 941 diff changeset	1040	].
5f893e013e73 * empty log message * Claus Gittinger <cg@exept.de> parents: 941 diff changeset	1041	type == #GlobalVariable ifTrue:[
5f893e013e73 * empty log message * Claus Gittinger <cg@exept.de> parents: 941 diff changeset	1042	^ (Smalltalk includesKey:name) not
5f893e013e73 * empty log message * Claus Gittinger <cg@exept.de> parents: 941 diff changeset	1043	].
5f893e013e73 * empty log message * Claus Gittinger <cg@exept.de> parents: 941 diff changeset	1044	^ false
5f893e013e73 * empty log message * Claus Gittinger <cg@exept.de> parents: 941 diff changeset	1045	!
5f893e013e73 * empty log message * Claus Gittinger <cg@exept.de> parents: 941 diff changeset	1046
243 cdc1424ddaac use dup if possible when pushing args / faster access to common globals Claus Gittinger <cg@exept.de> parents: 218 diff changeset	1047	isVariable
cdc1424ddaac use dup if possible when pushing args / faster access to common globals Claus Gittinger <cg@exept.de> parents: 218 diff changeset	1048	"return true, if this is a node for a variable"
cdc1424ddaac use dup if possible when pushing args / faster access to common globals Claus Gittinger <cg@exept.de> parents: 218 diff changeset	1049
cdc1424ddaac use dup if possible when pushing args / faster access to common globals Claus Gittinger <cg@exept.de> parents: 218 diff changeset	1050	^ true
cdc1424ddaac use dup if possible when pushing args / faster access to common globals Claus Gittinger <cg@exept.de> parents: 218 diff changeset	1051
cdc1424ddaac use dup if possible when pushing args / faster access to common globals Claus Gittinger <cg@exept.de> parents: 218 diff changeset	1052	"Created: 14.4.1996 / 00:46:32 / cg"
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	1053	! !
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	1054
2864 14dcc972c08c added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2764 diff changeset	1055	!VariableNode methodsFor:'testing'!
14dcc972c08c added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2764 diff changeset	1056
3148 05da92cb7ca7 class: VariableNode Claus Gittinger <cg@exept.de> parents: 2957 diff changeset	1057	isInstance
05da92cb7ca7 class: VariableNode Claus Gittinger <cg@exept.de> parents: 2957 diff changeset	1058	^ (type == #InstanceVariable)
05da92cb7ca7 class: VariableNode Claus Gittinger <cg@exept.de> parents: 2957 diff changeset	1059	!
05da92cb7ca7 class: VariableNode Claus Gittinger <cg@exept.de> parents: 2957 diff changeset	1060
2864 14dcc972c08c added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2764 diff changeset	1061	isJavaPackageReference
14dcc972c08c added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2764 diff changeset	1062	"Return true, given node is JAVA package reference in form:
14dcc972c08c added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2764 diff changeset	1063	JAVA package1 package2
14dcc972c08c added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2764 diff changeset	1064	"
14dcc972c08c added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2764 diff changeset	1065
14dcc972c08c added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2764 diff changeset	1066	^self isJAVA
14dcc972c08c added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2764 diff changeset	1067
14dcc972c08c added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2764 diff changeset	1068	"Created: / 19-04-2012 / 09:53:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
14dcc972c08c added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2764 diff changeset	1069	! !
14dcc972c08c added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2764 diff changeset	1070
2599 c09d340dae29 - added acceptVisior: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2507 diff changeset	1071	!VariableNode methodsFor:'visiting'!
c09d340dae29 - added acceptVisior: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2507 diff changeset	1072
c09d340dae29 - added acceptVisior: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2507 diff changeset	1073	acceptVisitor:aVisitor
c09d340dae29 - added acceptVisior: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2507 diff changeset	1074	"Double dispatch back to the visitor, passing my type encoded in
c09d340dae29 - added acceptVisior: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2507 diff changeset	1075	the selector (visitor pattern)"
c09d340dae29 - added acceptVisior: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2507 diff changeset	1076
c09d340dae29 - added acceptVisior: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2507 diff changeset	1077	"stub code automatically generated - please change if required"
c09d340dae29 - added acceptVisior: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2507 diff changeset	1078
c09d340dae29 - added acceptVisior: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2507 diff changeset	1079	^ aVisitor visitVariableNode:self
c09d340dae29 - added acceptVisior: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2507 diff changeset	1080	! !
c09d340dae29 - added acceptVisior: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2507 diff changeset	1081
360 9b26a5a4da70 checkin from browser Claus Gittinger <cg@exept.de> parents: 356 diff changeset	1082	!VariableNode class methodsFor:'documentation'!
148 ef0e604209ec version method at the end Claus Gittinger <cg@exept.de> parents: 140 diff changeset	1083
ef0e604209ec version method at the end Claus Gittinger <cg@exept.de> parents: 140 diff changeset	1084	version
3166 6d6abf8f4439 Do not generate #lineno16 byte codes if still on the same line Stefan Vogel <sv@exept.de> parents: 3148 diff changeset	1085	^ '$Header: /cvs/stx/stx/libcomp/VariableNode.st,v 1.88 2013-05-10 13:40:50 stefan Exp $'
2507 5877a8f74784 added: Claus Gittinger <cg@exept.de> parents: 2420 diff changeset	1086	!
5877a8f74784 added: Claus Gittinger <cg@exept.de> parents: 2420 diff changeset	1087
5877a8f74784 added: Claus Gittinger <cg@exept.de> parents: 2420 diff changeset	1088	version_CVS
3166 6d6abf8f4439 Do not generate #lineno16 byte codes if still on the same line Stefan Vogel <sv@exept.de> parents: 3148 diff changeset	1089	^ '$Header: /cvs/stx/stx/libcomp/VariableNode.st,v 1.88 2013-05-10 13:40:50 stefan Exp $'
148 ef0e604209ec version method at the end Claus Gittinger <cg@exept.de> parents: 140 diff changeset	1090	! !
3148 05da92cb7ca7 class: VariableNode Claus Gittinger <cg@exept.de> parents: 2957 diff changeset	1091

author	Stefan Vogel <sv@exept.de>
	Fri, 10 May 2013 15:40:50 +0200
changeset 3166	6d6abf8f4439
parent 3148	05da92cb7ca7
child 3301	dbb08322934c
permissions	-rw-r--r--