hg/stx-libcomp: ParseNode.st@a97fbe62a73c (annotated)

0 7ad01559b262 Initial revision claus parents: diff changeset	1	"
4 f6fd83437415 * empty log message * claus parents: 3 diff changeset	2	COPYRIGHT (c) 1989 by Claus Gittinger
53 c5dd7abf8431 * empty log message * claus parents: 33 diff changeset	3	All Rights Reserved
0 7ad01559b262 Initial revision claus parents: diff changeset	4
7ad01559b262 Initial revision claus parents: diff changeset	5	This software is furnished under a license and may be used
7ad01559b262 Initial revision claus parents: diff changeset	6	only in accordance with the terms of that license and with the
7ad01559b262 Initial revision claus parents: diff changeset	7	inclusion of the above copyright notice. This software may not
7ad01559b262 Initial revision claus parents: diff changeset	8	be provided or otherwise made available to, or used by, any
7ad01559b262 Initial revision claus parents: diff changeset	9	other person. No title to or ownership of the software is
7ad01559b262 Initial revision claus parents: diff changeset	10	hereby transferred.
7ad01559b262 Initial revision claus parents: diff changeset	11	"
1044 03b2cc4a5d5f migration support Claus Gittinger <cg@exept.de> parents: 914 diff changeset	12	"{ Package: 'stx:libcomp' }"
03b2cc4a5d5f migration support Claus Gittinger <cg@exept.de> parents: 914 diff changeset	13
0 7ad01559b262 Initial revision claus parents: diff changeset	14	Object subclass:#ParseNode
2550 6413571dd955 Added parent instvar Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2548 diff changeset	15	instanceVariableNames:'parent type comments parenthized startPosition endPosition
6413571dd955 Added parent instvar Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2548 diff changeset	16	attributes'
1046 8e5818442eb9 newCode (for rel5) Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	17	classVariableNames:''
244 2ce60e837d52 use dup if possible when pushing args Claus Gittinger <cg@exept.de> parents: 148 diff changeset	18	poolDictionaries:''
2ce60e837d52 use dup if possible when pushing args Claus Gittinger <cg@exept.de> parents: 148 diff changeset	19	category:'System-Compiler-Support'
0 7ad01559b262 Initial revision claus parents: diff changeset	20	!
7ad01559b262 Initial revision claus parents: diff changeset	21
20 f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	22	!ParseNode class methodsFor:'documentation'!
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	23
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	24	copyright
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	25	"
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	26	COPYRIGHT (c) 1989 by Claus Gittinger
53 c5dd7abf8431 * empty log message * claus parents: 33 diff changeset	27	All Rights Reserved
20 f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	28
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	29	This software is furnished under a license and may be used
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	30	only in accordance with the terms of that license and with the
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	31	inclusion of the above copyright notice. This software may not
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	32	be provided or otherwise made available to, or used by, any
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	33	other person. No title to or ownership of the software is
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	34	hereby transferred.
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	35	"
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	36	!
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	37
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	38	documentation
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	39	"
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	40	node for parse-trees; abstract class
261 0372e948ca2d commentary Claus Gittinger <cg@exept.de> parents: 244 diff changeset	41	This is a helper class for the compiler.
263 3b21d0991eff documentation Claus Gittinger <cg@exept.de> parents: 261 diff changeset	42
3b21d0991eff documentation Claus Gittinger <cg@exept.de> parents: 261 diff changeset	43	[author:]
3b21d0991eff documentation Claus Gittinger <cg@exept.de> parents: 261 diff changeset	44	Claus Gittinger
20 f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	45	"
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	46	! !
0 7ad01559b262 Initial revision claus parents: diff changeset	47
7ad01559b262 Initial revision claus parents: diff changeset	48	!ParseNode class methodsFor:'instance creation'!
7ad01559b262 Initial revision claus parents: diff changeset	49
7ad01559b262 Initial revision claus parents: diff changeset	50	type:t
7ad01559b262 Initial revision claus parents: diff changeset	51	^ (self basicNew) type:t
7ad01559b262 Initial revision claus parents: diff changeset	52	! !
7ad01559b262 Initial revision claus parents: diff changeset	53
2819 e23a27cdbbf2 added: #enclosingBlock Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2694 diff changeset	54	!ParseNode methodsFor:'accessing'!
2694 254e7adda5ca added: #isVariableNode Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	55
2819 e23a27cdbbf2 added: #enclosingBlock Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2694 diff changeset	56	enclosingBlock
e23a27cdbbf2 added: #enclosingBlock Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2694 diff changeset	57	"Return closest enclosing block node or nil"
e23a27cdbbf2 added: #enclosingBlock Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2694 diff changeset	58
e23a27cdbbf2 added: #enclosingBlock Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2694 diff changeset	59	\| block \|
e23a27cdbbf2 added: #enclosingBlock Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2694 diff changeset	60	block := parent.
e23a27cdbbf2 added: #enclosingBlock Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2694 diff changeset	61	[ block notNil and:[block isBlockNode not] ] whileTrue:[
e23a27cdbbf2 added: #enclosingBlock Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2694 diff changeset	62	block := block parent.
e23a27cdbbf2 added: #enclosingBlock Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2694 diff changeset	63	].
e23a27cdbbf2 added: #enclosingBlock Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2694 diff changeset	64	^block.
e23a27cdbbf2 added: #enclosingBlock Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2694 diff changeset	65
e23a27cdbbf2 added: #enclosingBlock Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2694 diff changeset	66	"Created: / 16-02-2012 / 22:46:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e23a27cdbbf2 added: #enclosingBlock Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2694 diff changeset	67	!
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	68
2505 d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	69	endPosition
d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	70	^ endPosition
d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	71	!
d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	72
2265 b9d82cb3ecce added: Claus Gittinger <cg@exept.de> parents: 2095 diff changeset	73	endPosition:aCharacterPosition
2505 d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	74
d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	75	endPosition := aCharacterPosition
d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	76
2618 256319b44ac8 More fixes for start/end position Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2564 diff changeset	77	"Modified: / 28-07-2011 / 10:03:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2265 b9d82cb3ecce added: Claus Gittinger <cg@exept.de> parents: 2095 diff changeset	78	!
b9d82cb3ecce added: Claus Gittinger <cg@exept.de> parents: 2095 diff changeset	79
2548 37209a1def9a line & lineNumber Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2546 diff changeset	80	line
37209a1def9a line & lineNumber Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2546 diff changeset	81
37209a1def9a line & lineNumber Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2546 diff changeset	82	"Compatibility"
37209a1def9a line & lineNumber Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2546 diff changeset	83
37209a1def9a line & lineNumber Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2546 diff changeset	84	^self lineNumber
37209a1def9a line & lineNumber Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2546 diff changeset	85
37209a1def9a line & lineNumber Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2546 diff changeset	86	"Created: / 09-07-2011 / 22:30:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
37209a1def9a line & lineNumber Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2546 diff changeset	87	!
37209a1def9a line & lineNumber Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2546 diff changeset	88
37209a1def9a line & lineNumber Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2546 diff changeset	89	lineNumber
37209a1def9a line & lineNumber Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2546 diff changeset	90
37209a1def9a line & lineNumber Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2546 diff changeset	91	^nil
37209a1def9a line & lineNumber Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2546 diff changeset	92
37209a1def9a line & lineNumber Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2546 diff changeset	93	"Created: / 09-07-2011 / 22:30:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
37209a1def9a line & lineNumber Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2546 diff changeset	94	!
37209a1def9a line & lineNumber Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2546 diff changeset	95
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	96	lineNumber:dummy
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	97	"set linenumber - ignored here"
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	^ self
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	100	!
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	101
2550 6413571dd955 Added parent instvar Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2548 diff changeset	102	parent
6413571dd955 Added parent instvar Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2548 diff changeset	103
6413571dd955 Added parent instvar Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2548 diff changeset	104	^parent
6413571dd955 Added parent instvar Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2548 diff changeset	105
6413571dd955 Added parent instvar Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2548 diff changeset	106	"Created: / 11-07-2011 / 17:36:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6413571dd955 Added parent instvar Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2548 diff changeset	107	!
6413571dd955 Added parent instvar Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2548 diff changeset	108
6413571dd955 Added parent instvar Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2548 diff changeset	109	parent: aParseNode
6413571dd955 Added parent instvar Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2548 diff changeset	110
6413571dd955 Added parent instvar Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2548 diff changeset	111	parent := aParseNode
6413571dd955 Added parent instvar Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2548 diff changeset	112
6413571dd955 Added parent instvar Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2548 diff changeset	113	"Created: / 11-07-2011 / 17:36:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6413571dd955 Added parent instvar Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2548 diff changeset	114	!
6413571dd955 Added parent instvar Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2548 diff changeset	115
1990 ede012b2bd5b oops - parenthesized was written with typo Claus Gittinger <cg@exept.de> parents: 1804 diff changeset	116	parenthesized
ede012b2bd5b oops - parenthesized was written with typo Claus Gittinger <cg@exept.de> parents: 1804 diff changeset	117	^ parenthized ? false
ede012b2bd5b oops - parenthesized was written with typo Claus Gittinger <cg@exept.de> parents: 1804 diff changeset	118	!
ede012b2bd5b oops - parenthesized was written with typo Claus Gittinger <cg@exept.de> parents: 1804 diff changeset	119
ede012b2bd5b oops - parenthesized was written with typo Claus Gittinger <cg@exept.de> parents: 1804 diff changeset	120	parenthesized:aBoolean
ede012b2bd5b oops - parenthesized was written with typo Claus Gittinger <cg@exept.de> parents: 1804 diff changeset	121	parenthized := aBoolean
ede012b2bd5b oops - parenthesized was written with typo Claus Gittinger <cg@exept.de> parents: 1804 diff changeset	122	!
ede012b2bd5b oops - parenthesized was written with typo Claus Gittinger <cg@exept.de> parents: 1804 diff changeset	123
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	124	parenthized
1990 ede012b2bd5b oops - parenthesized was written with typo Claus Gittinger <cg@exept.de> parents: 1804 diff changeset	125	"obsolete - typo in message name - use parenthesized"
ede012b2bd5b oops - parenthesized was written with typo Claus Gittinger <cg@exept.de> parents: 1804 diff changeset	126
1338 34bc621a29bc checkin from browser Claus Gittinger <cg@exept.de> parents: 1310 diff changeset	127	^ parenthized ? false
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	128	!
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	129
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	130	parenthized:aBoolean
1990 ede012b2bd5b oops - parenthesized was written with typo Claus Gittinger <cg@exept.de> parents: 1804 diff changeset	131	"obsolete - typo in message name - use parenthesized:"
ede012b2bd5b oops - parenthesized was written with typo Claus Gittinger <cg@exept.de> parents: 1804 diff changeset	132
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	133	parenthized := aBoolean
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	134	!
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	135
598 f3e50cf083a0 checkin from browser Claus Gittinger <cg@exept.de> parents: 395 diff changeset	136	selectorPosition:aCharacterPosition
f3e50cf083a0 checkin from browser Claus Gittinger <cg@exept.de> parents: 395 diff changeset	137	"ignored here"
f3e50cf083a0 checkin from browser Claus Gittinger <cg@exept.de> parents: 395 diff changeset	138
f3e50cf083a0 checkin from browser Claus Gittinger <cg@exept.de> parents: 395 diff changeset	139	"Created: 5.8.1997 / 16:32:17 / cg"
f3e50cf083a0 checkin from browser Claus Gittinger <cg@exept.de> parents: 395 diff changeset	140	!
f3e50cf083a0 checkin from browser Claus Gittinger <cg@exept.de> parents: 395 diff changeset	141
2505 d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	142	startPosition
d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	143	^ startPosition
d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	144	!
d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	145
2550 6413571dd955 Added parent instvar Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2548 diff changeset	146	startPosition:start
2505 d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	147
2550 6413571dd955 Added parent instvar Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2548 diff changeset	148	startPosition := start
2505 d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	149
d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	150	"Modified: / 08-04-2011 / 22:03:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2265 b9d82cb3ecce added: Claus Gittinger <cg@exept.de> parents: 2095 diff changeset	151	!
b9d82cb3ecce added: Claus Gittinger <cg@exept.de> parents: 2095 diff changeset	152
2550 6413571dd955 Added parent instvar Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2548 diff changeset	153	startPosition:start endPosition: end
6413571dd955 Added parent instvar Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2548 diff changeset	154
6413571dd955 Added parent instvar Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2548 diff changeset	155	startPosition := start.
2564 43f35a40884d - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2550 diff changeset	156	endPosition := end.
43f35a40884d - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2550 diff changeset	157	^self
2550 6413571dd955 Added parent instvar Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2548 diff changeset	158
6413571dd955 Added parent instvar Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2548 diff changeset	159	"Created: / 11-07-2011 / 17:44:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6413571dd955 Added parent instvar Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2548 diff changeset	160	!
6413571dd955 Added parent instvar Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2548 diff changeset	161
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	162	type
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	163	"return the nodes type"
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	164
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	165	^ type
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	166	! !
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	167
2546 5ae96e911e36 ParseNode: added attributes instvar for other tools to store Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2533 diff changeset	168	!ParseNode methodsFor:'attributes access'!
5ae96e911e36 ParseNode: added attributes instvar for other tools to store Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2533 diff changeset	169
5ae96e911e36 ParseNode: added attributes instvar for other tools to store Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2533 diff changeset	170	objectAttributes
5ae96e911e36 ParseNode: added attributes instvar for other tools to store Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2533 diff changeset	171
5ae96e911e36 ParseNode: added attributes instvar for other tools to store Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2533 diff changeset	172	^attributes
5ae96e911e36 ParseNode: added attributes instvar for other tools to store Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2533 diff changeset	173
5ae96e911e36 ParseNode: added attributes instvar for other tools to store Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2533 diff changeset	174	"Created: / 09-07-2011 / 12:17:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5ae96e911e36 ParseNode: added attributes instvar for other tools to store Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2533 diff changeset	175	!
5ae96e911e36 ParseNode: added attributes instvar for other tools to store Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2533 diff changeset	176
5ae96e911e36 ParseNode: added attributes instvar for other tools to store Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2533 diff changeset	177	objectAttributes: anObject
5ae96e911e36 ParseNode: added attributes instvar for other tools to store Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2533 diff changeset	178
5ae96e911e36 ParseNode: added attributes instvar for other tools to store Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2533 diff changeset	179	attributes := anObject
5ae96e911e36 ParseNode: added attributes instvar for other tools to store Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2533 diff changeset	180
5ae96e911e36 ParseNode: added attributes instvar for other tools to store Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2533 diff changeset	181	"Created: / 09-07-2011 / 12:18:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5ae96e911e36 ParseNode: added attributes instvar for other tools to store Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2533 diff changeset	182	! !
5ae96e911e36 ParseNode: added attributes instvar for other tools to store Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2533 diff changeset	183
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	184	!ParseNode methodsFor:'checks'!
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	185
2095 3f04249873f7 alreadyWarned selectors Claus Gittinger <cg@exept.de> parents: 2089 diff changeset	186	plausibilityCheckIn:aParser
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	187	^ nil
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	188	! !
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	189
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	190	!ParseNode methodsFor:'code generation'!
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	191
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	192	codeForSideEffectOn:aStream inBlock:b for:aCompiler
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	193	"generate code for this statement - value not needed"
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	194
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	195	self codeOn:aStream inBlock:b for:aCompiler.
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	196	aStream nextPut:#drop
373 b7c6cf510024 added #codeLinrNr. Claus Gittinger <cg@exept.de> parents: 263 diff changeset	197	!
b7c6cf510024 added #codeLinrNr. Claus Gittinger <cg@exept.de> parents: 263 diff changeset	198
843 522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 816 diff changeset	199	codeForSimpleReturnOn:aStream inBlock:b lineNumber:lineNrOrNil for:aCompiler
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 816 diff changeset	200	"generate code to return myself as a simple method return"
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 816 diff changeset	201
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 816 diff changeset	202	self codeOn:aStream inBlock:b for:aCompiler.
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 816 diff changeset	203	lineNrOrNil notNil ifTrue:[
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 816 diff changeset	204	self codeLineNumber:lineNrOrNil on:aStream for:aCompiler
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 816 diff changeset	205	].
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 816 diff changeset	206	aStream nextPut:#retTop.
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 816 diff changeset	207
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 816 diff changeset	208
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 816 diff changeset	209	!
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 816 diff changeset	210
1056 b1a8d2b2a0ab * empty log message * Claus Gittinger <cg@exept.de> parents: 1046 diff changeset	211	codeInlineOn:aStream inBlock:b valueNeeded:valueNeeded for:aCompiler
b1a8d2b2a0ab * empty log message * Claus Gittinger <cg@exept.de> parents: 1046 diff changeset	212	"generate code for this statement - value is needed"
b1a8d2b2a0ab * empty log message * Claus Gittinger <cg@exept.de> parents: 1046 diff changeset	213
b1a8d2b2a0ab * empty log message * Claus Gittinger <cg@exept.de> parents: 1046 diff changeset	214	self codeOn:aStream inBlock:b for:aCompiler.
b1a8d2b2a0ab * empty log message * Claus Gittinger <cg@exept.de> parents: 1046 diff changeset	215	!
b1a8d2b2a0ab * empty log message * Claus Gittinger <cg@exept.de> parents: 1046 diff changeset	216
3165 7894a735faac Emit #lineno16 byte codes only, if line number really changes Stefan Vogel <sv@exept.de> parents: 3110 diff changeset	217	codeLineNumber:nr on:codeStream for:aCompiler
373 b7c6cf510024 added #codeLinrNr. Claus Gittinger <cg@exept.de> parents: 263 diff changeset	218	"generate lineNumber information"
b7c6cf510024 added #codeLinrNr. Claus Gittinger <cg@exept.de> parents: 263 diff changeset	219
3165 7894a735faac Emit #lineno16 byte codes only, if line number really changes Stefan Vogel <sv@exept.de> parents: 3110 diff changeset	220	aCompiler codeLineNumber:nr on:codeStream
2029 ce692c34a270 Move method to superclass Stefan Vogel <sv@exept.de> parents: 2000 diff changeset	221	!
ce692c34a270 Move method to superclass Stefan Vogel <sv@exept.de> parents: 2000 diff changeset	222
ce692c34a270 Move method to superclass Stefan Vogel <sv@exept.de> parents: 2000 diff changeset	223	codeOn:aStream inBlock:codeBlock for:aCompiler
ce692c34a270 Move method to superclass Stefan Vogel <sv@exept.de> parents: 2000 diff changeset	224	^ self subclassResponsibility
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	225	! !
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	226
1804 7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	227	!ParseNode methodsFor:'code generation helpers'!
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	228
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	229	emitPushGlobalWithLiteralIndex:litIndex on:aTokenCodeStream for:aCompiler
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	230	litIndex <= 255 ifTrue:[
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	231	aTokenCodeStream nextPut:#pushGlobalS; nextPut:litIndex
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	232	] ifFalse:[
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	233	litIndex <= 16rFFFF ifTrue:[
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	234	aTokenCodeStream nextPut:#pushGlobalL; nextPut:litIndex; nextPut:0
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	235	] ifFalse:[
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	236	aTokenCodeStream nextPut:#pushGlobalVL; nextPut:0; nextPut:litIndex; nextPut:0; nextPut:0; nextPut:0
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	237	].
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	238	].
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	239	!
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	240
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	241	emitPushLiteral:value on:aTokenCodeStream for:aCompiler
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	242	\|index\|
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	243
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	244	index := aCompiler addLiteral:value.
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	245	self emitPushLiteralIndex:index on:aTokenCodeStream for:aCompiler
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	246	!
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	247
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	248	emitPushLiteralIndex:index on:aTokenCodeStream for:aCompiler
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	249	index <= 8 ifTrue:[
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	250	aTokenCodeStream
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	251	nextPut:(#(pushLit1 pushLit2 pushLit3 pushLit4
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	252	pushLit5 pushLit6 pushLit7 pushLit8) at:index).
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	253	] ifFalse:[
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	254	index <= 255 ifTrue:[
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	255	aTokenCodeStream nextPut:#pushLitS; nextPut:index
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	256	] ifFalse:[
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	257	index <= 16rFFFF ifTrue:[
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	258	aTokenCodeStream nextPut:#pushLitL; nextPut:index; nextPut:0
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	259	] ifFalse:[
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	260	aTokenCodeStream nextPut:#pushLitVL; nextPut:0; nextPut:index; nextPut:0; nextPut:0; nextPut:0
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	261	]
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	262	].
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	263	].
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	264	!
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	265
3165 7894a735faac Emit #lineno16 byte codes only, if line number really changes Stefan Vogel <sv@exept.de> parents: 3110 diff changeset	266	emitSendLiteralIndex:litIndex numArgs:nargs line:lineNr on:aStream for:aCompiler
3110 f517641d3673 Emit LINE16 bytecode insn just before a SEND bytecode is emmited when Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2862 diff changeset	267	lineNr >= 255 ifTrue:[
3165 7894a735faac Emit #lineno16 byte codes only, if line number really changes Stefan Vogel <sv@exept.de> parents: 3110 diff changeset	268	self codeLineNumber: lineNr on: aStream for:aCompiler.
3110 f517641d3673 Emit LINE16 bytecode insn just before a SEND bytecode is emmited when Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2862 diff changeset	269	].
1804 7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	270	(litIndex <= 255) ifTrue:[
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	271	nargs <= 3 ifTrue:[
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	272	aStream
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	273	nextPut:(#(send0 send1 send2 send3) at:(nargs+1)); nextPut:lineNr;
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	274	nextPut:litIndex.
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	275	^ self.
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	276	].
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	277	aStream
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	278	nextPut:#send; nextPut:lineNr;
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	279	nextPut:litIndex;
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	280	nextPut:nargs.
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	281	^ self.
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	282	].
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	283
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	284	(litIndex <= 16rFFFF) ifTrue:[
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	285	aStream
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	286	nextPut:#sendL; nextPut:lineNr;
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	287	nextPut:litIndex; nextPut:0;
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	288	nextPut:nargs.
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	289	^ self.
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	290	].
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	291
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	292	aStream
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	293	nextPut:#sendVL; nextPut:0; nextPut:lineNr;
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	294	nextPut:litIndex; nextPut:0; nextPut:0; nextPut:0;
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	295	nextPut:nargs.
3110 f517641d3673 Emit LINE16 bytecode insn just before a SEND bytecode is emmited when Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2862 diff changeset	296
f517641d3673 Emit LINE16 bytecode insn just before a SEND bytecode is emmited when Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2862 diff changeset	297	"Modified: / 13-04-2013 / 11:02:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1804 7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	298	!
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	299
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	300	emitStoreGlobalWithLiteralIndex:litIndex on:aTokenCodeStream for:aCompiler
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	301	litIndex <= 255 ifTrue:[
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	302	aTokenCodeStream nextPut:#storeGlobalS; nextPut:litIndex
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	303	] ifFalse:[
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	304	litIndex <= 16rFFFF ifTrue:[
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	305	aTokenCodeStream nextPut:#storeGlobalL; nextPut:litIndex; nextPut:0
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	306	] ifFalse:[
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	307	aTokenCodeStream nextPut:#storeGlobalVL; nextPut:0; nextPut:litIndex; nextPut:0; nextPut:0; nextPut:0; nextPut:0
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	308	].
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	309	].
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	310	!
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	311
3165 7894a735faac Emit #lineno16 byte codes only, if line number really changes Stefan Vogel <sv@exept.de> parents: 3110 diff changeset	312	emitSuperSendLiteralIndex:litIndex classLiteralIndex:clsLitIndex numArgs:nargs line:lineNr on:aStream for:aCompiler
3110 f517641d3673 Emit LINE16 bytecode insn just before a SEND bytecode is emmited when Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2862 diff changeset	313	lineNr >= 255 ifTrue:[
3165 7894a735faac Emit #lineno16 byte codes only, if line number really changes Stefan Vogel <sv@exept.de> parents: 3110 diff changeset	314	self codeLineNumber: lineNr on: aStream for:aCompiler.
3110 f517641d3673 Emit LINE16 bytecode insn just before a SEND bytecode is emmited when Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2862 diff changeset	315	].
1804 7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	316	(litIndex <= 255 and:[clsLitIndex <= 255]) ifTrue:[
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	317	aStream
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	318	nextPut:#superSend; nextPut:lineNr;
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	319	nextPut:litIndex;
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	320	nextPut:nargs;
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	321	nextPut:clsLitIndex.
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	322	] ifFalse:[
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	323	(litIndex <= 16rFFFF and:[clsLitIndex <= 16rFFFF]) ifTrue:[
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	324	aStream
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	325	nextPut:#superSendL; nextPut:lineNr;
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	326	nextPut:litIndex; nextPut:0;
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	327	nextPut:nargs;
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	328	nextPut:clsLitIndex; nextPut:0.
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	329	] ifFalse:[
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	330	aStream
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	331	nextPut:#superSendVL; nextPut:0; nextPut:lineNr;
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	332	nextPut:litIndex; nextPut:0; nextPut:0; nextPut:0;
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	333	nextPut:nargs;
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	334	nextPut:clsLitIndex; nextPut:0; nextPut:0; nextPut:0.
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	335	].
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	336	].
3110 f517641d3673 Emit LINE16 bytecode insn just before a SEND bytecode is emmited when Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2862 diff changeset	337
f517641d3673 Emit LINE16 bytecode insn just before a SEND bytecode is emmited when Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2862 diff changeset	338	"Modified: / 13-04-2013 / 11:01:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1804 7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	339	! !
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	340
1503 5feba91aa28a +messagesDo: enumerator Claus Gittinger <cg@exept.de> parents: 1383 diff changeset	341	!ParseNode methodsFor:'enumeration'!
5feba91aa28a +messagesDo: enumerator Claus Gittinger <cg@exept.de> parents: 1383 diff changeset	342
3275 921a8afad859 renamed messagesDo: to messageNodes: do Claus Gittinger <cg@exept.de> parents: 3184 diff changeset	343	messageNodesDo:aBlock
921a8afad859 renamed messagesDo: to messageNodes: do Claus Gittinger <cg@exept.de> parents: 3184 diff changeset	344	"evaluate aBlock for each message-node here and in subnodes"
921a8afad859 renamed messagesDo: to messageNodes: do Claus Gittinger <cg@exept.de> parents: 3184 diff changeset	345
921a8afad859 renamed messagesDo: to messageNodes: do Claus Gittinger <cg@exept.de> parents: 3184 diff changeset	346	^ self
921a8afad859 renamed messagesDo: to messageNodes: do Claus Gittinger <cg@exept.de> parents: 3184 diff changeset	347	!
921a8afad859 renamed messagesDo: to messageNodes: do Claus Gittinger <cg@exept.de> parents: 3184 diff changeset	348
3276 a97fbe62a73c class: ParseNode Claus Gittinger <cg@exept.de> parents: 3275 diff changeset	349	messageSelectors
a97fbe62a73c class: ParseNode Claus Gittinger <cg@exept.de> parents: 3275 diff changeset	350	"return a collection of message seelctors"
a97fbe62a73c class: ParseNode Claus Gittinger <cg@exept.de> parents: 3275 diff changeset	351
a97fbe62a73c class: ParseNode Claus Gittinger <cg@exept.de> parents: 3275 diff changeset	352	\|setOfSymbols\|
a97fbe62a73c class: ParseNode Claus Gittinger <cg@exept.de> parents: 3275 diff changeset	353
a97fbe62a73c class: ParseNode Claus Gittinger <cg@exept.de> parents: 3275 diff changeset	354	setOfSymbols := Set new.
a97fbe62a73c class: ParseNode Claus Gittinger <cg@exept.de> parents: 3275 diff changeset	355	self messagesDo:[:each \| setOfSymbols add:each ].
a97fbe62a73c class: ParseNode Claus Gittinger <cg@exept.de> parents: 3275 diff changeset	356	^ setOfSymbols
a97fbe62a73c class: ParseNode Claus Gittinger <cg@exept.de> parents: 3275 diff changeset	357	!
a97fbe62a73c class: ParseNode Claus Gittinger <cg@exept.de> parents: 3275 diff changeset	358
3275 921a8afad859 renamed messagesDo: to messageNodes: do Claus Gittinger <cg@exept.de> parents: 3184 diff changeset	359	messages
3276 a97fbe62a73c class: ParseNode Claus Gittinger <cg@exept.de> parents: 3275 diff changeset	360	"return a collection of messageNodes"
a97fbe62a73c class: ParseNode Claus Gittinger <cg@exept.de> parents: 3275 diff changeset	361
3275 921a8afad859 renamed messagesDo: to messageNodes: do Claus Gittinger <cg@exept.de> parents: 3184 diff changeset	362	\|setOfMessages\|
921a8afad859 renamed messagesDo: to messageNodes: do Claus Gittinger <cg@exept.de> parents: 3184 diff changeset	363
921a8afad859 renamed messagesDo: to messageNodes: do Claus Gittinger <cg@exept.de> parents: 3184 diff changeset	364	setOfMessages := Set new.
3276 a97fbe62a73c class: ParseNode Claus Gittinger <cg@exept.de> parents: 3275 diff changeset	365	self messageNodesDo:[:each \| setOfMessages add:each ].
3275 921a8afad859 renamed messagesDo: to messageNodes: do Claus Gittinger <cg@exept.de> parents: 3184 diff changeset	366	^ setOfMessages
921a8afad859 renamed messagesDo: to messageNodes: do Claus Gittinger <cg@exept.de> parents: 3184 diff changeset	367	!
921a8afad859 renamed messagesDo: to messageNodes: do Claus Gittinger <cg@exept.de> parents: 3184 diff changeset	368
1503 5feba91aa28a +messagesDo: enumerator Claus Gittinger <cg@exept.de> parents: 1383 diff changeset	369	messagesDo:aBlock
3275 921a8afad859 renamed messagesDo: to messageNodes: do Claus Gittinger <cg@exept.de> parents: 3184 diff changeset	370	"evaluate aBlock for each message-node here and in subnodes"
921a8afad859 renamed messagesDo: to messageNodes: do Claus Gittinger <cg@exept.de> parents: 3184 diff changeset	371
1503 5feba91aa28a +messagesDo: enumerator Claus Gittinger <cg@exept.de> parents: 1383 diff changeset	372	^ self
5feba91aa28a +messagesDo: enumerator Claus Gittinger <cg@exept.de> parents: 1383 diff changeset	373	! !
5feba91aa28a +messagesDo: enumerator Claus Gittinger <cg@exept.de> parents: 1383 diff changeset	374
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	375	!ParseNode methodsFor:'evaluation'!
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	376
1383 3d485eefbb36 evaluate -> evaluateIn: Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	377	evaluate
3d485eefbb36 evaluate -> evaluateIn: Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	378	^ self evaluateIn:nil
3d485eefbb36 evaluate -> evaluateIn: Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	379	!
3d485eefbb36 evaluate -> evaluateIn: Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	380
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	381	evaluateForCascade
1383 3d485eefbb36 evaluate -> evaluateIn: Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	382	^ self evaluateForCascadeIn:nil
3d485eefbb36 evaluate -> evaluateIn: Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	383	!
3d485eefbb36 evaluate -> evaluateIn: Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	384
3d485eefbb36 evaluate -> evaluateIn: Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	385	evaluateForCascadeIn:anEnvironment
3d485eefbb36 evaluate -> evaluateIn: Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	386	^ self evaluateIn:anEnvironment
3d485eefbb36 evaluate -> evaluateIn: Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	387	!
3d485eefbb36 evaluate -> evaluateIn: Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	388
3d485eefbb36 evaluate -> evaluateIn: Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	389	evaluateIn:anEnvironment
3d485eefbb36 evaluate -> evaluateIn: Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	390	self subclassResponsibility
2505 d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	391	!
d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	392
d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	393	isStatement
d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	394	^false.
d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	395
d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	396	"Created: / 22-02-2011 / 16:29:50 / Jakub <zelenja7@fel.cvut.cz>"
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	397	! !
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	398
1080 bd3f19f6009a category change Claus Gittinger <cg@exept.de> parents: 1056 diff changeset	399	!ParseNode methodsFor:'printing & storing'!
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	400
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	401	printOn:aStream
914 e67e983a8897 comment Claus Gittinger <cg@exept.de> parents: 862 diff changeset	402	"append a user printed representation of the receiver to aStream.
e67e983a8897 comment Claus Gittinger <cg@exept.de> parents: 862 diff changeset	403	The format is suitable for a human - not meant to be read back."
e67e983a8897 comment Claus Gittinger <cg@exept.de> parents: 862 diff changeset	404
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	405	self printOn:aStream indent:0
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	406	!
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	407
1588 4c3183dfaa5f printing Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	408	printOn:aStream indent:indent
4c3183dfaa5f printing Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	409	"append a user printed representation of the receiver to aStream.
4c3183dfaa5f printing Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	410	The format is suitable for a human - not meant to be read back."
4c3183dfaa5f printing Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	411
4c3183dfaa5f printing Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	412	self subclassResponsibility
4c3183dfaa5f printing Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	413
4c3183dfaa5f printing Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	414	"Created: / 20-04-2005 / 14:21:46 / cg"
4c3183dfaa5f printing Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	415	!
4c3183dfaa5f printing Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	416
4c3183dfaa5f printing Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	417	printOn:aStream indent:indent parenthized:parenthized
4c3183dfaa5f printing Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	418	parenthized ifTrue:[
4c3183dfaa5f printing Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	419	aStream nextPutAll:'('
4c3183dfaa5f printing Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	420	].
4c3183dfaa5f printing Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	421	self printOn:aStream indent:indent.
4c3183dfaa5f printing Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	422	parenthized ifTrue:[
4c3183dfaa5f printing Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	423	aStream nextPutAll:')'
4c3183dfaa5f printing Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	424	].
4c3183dfaa5f printing Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	425
4c3183dfaa5f printing Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	426	"Created: / 20-04-2005 / 14:21:28 / cg"
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	427	! !
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	428
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	429	!ParseNode methodsFor:'private'!
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	430
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	431	type:t
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	432	"set the nodes type"
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	433
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	434	type := t
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	435	! !
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	436
0 7ad01559b262 Initial revision claus parents: diff changeset	437	!ParseNode methodsFor:'queries'!
7ad01559b262 Initial revision claus parents: diff changeset	438
244 2ce60e837d52 use dup if possible when pushing args Claus Gittinger <cg@exept.de> parents: 148 diff changeset	439	canReuseAsArg:anotherNode
2ce60e837d52 use dup if possible when pushing args Claus Gittinger <cg@exept.de> parents: 148 diff changeset	440	^ false
2ce60e837d52 use dup if possible when pushing args Claus Gittinger <cg@exept.de> parents: 148 diff changeset	441
2ce60e837d52 use dup if possible when pushing args Claus Gittinger <cg@exept.de> parents: 148 diff changeset	442	"Created: 14.4.1996 / 00:43:08 / cg"
2ce60e837d52 use dup if possible when pushing args Claus Gittinger <cg@exept.de> parents: 148 diff changeset	443	!
2ce60e837d52 use dup if possible when pushing args Claus Gittinger <cg@exept.de> parents: 148 diff changeset	444
395 16156d8711c2 added block collector Claus Gittinger <cg@exept.de> parents: 383 diff changeset	445	collectBlocksInto:aCollection
16156d8711c2 added block collector Claus Gittinger <cg@exept.de> parents: 383 diff changeset	446	^ self
16156d8711c2 added block collector Claus Gittinger <cg@exept.de> parents: 383 diff changeset	447
16156d8711c2 added block collector Claus Gittinger <cg@exept.de> parents: 383 diff changeset	448	"Created: 23.10.1996 / 15:45:00 / cg"
16156d8711c2 added block collector Claus Gittinger <cg@exept.de> parents: 383 diff changeset	449	!
16156d8711c2 added block collector Claus Gittinger <cg@exept.de> parents: 383 diff changeset	450
2382 5f84c8b618d0 added: #containsReturn Claus Gittinger <cg@exept.de> parents: 2327 diff changeset	451	containsReturn
5f84c8b618d0 added: #containsReturn Claus Gittinger <cg@exept.de> parents: 2327 diff changeset	452	^ false
5f84c8b618d0 added: #containsReturn Claus Gittinger <cg@exept.de> parents: 2327 diff changeset	453	!
5f84c8b618d0 added: #containsReturn Claus Gittinger <cg@exept.de> parents: 2327 diff changeset	454
2327 88c2ba0ae517 category change Claus Gittinger <cg@exept.de> parents: 2265 diff changeset	455	precedence
88c2ba0ae517 category change Claus Gittinger <cg@exept.de> parents: 2265 diff changeset	456	^ 9999
88c2ba0ae517 category change Claus Gittinger <cg@exept.de> parents: 2265 diff changeset	457	!
88c2ba0ae517 category change Claus Gittinger <cg@exept.de> parents: 2265 diff changeset	458
88c2ba0ae517 category change Claus Gittinger <cg@exept.de> parents: 2265 diff changeset	459	withConstantValueDo:aBlock
88c2ba0ae517 category change Claus Gittinger <cg@exept.de> parents: 2265 diff changeset	460	"return true, if this evaluates to a constant value
88c2ba0ae517 category change Claus Gittinger <cg@exept.de> parents: 2265 diff changeset	461	and evaluate aBlock with it"
88c2ba0ae517 category change Claus Gittinger <cg@exept.de> parents: 2265 diff changeset	462
88c2ba0ae517 category change Claus Gittinger <cg@exept.de> parents: 2265 diff changeset	463	^ false
88c2ba0ae517 category change Claus Gittinger <cg@exept.de> parents: 2265 diff changeset	464	! !
88c2ba0ae517 category change Claus Gittinger <cg@exept.de> parents: 2265 diff changeset	465
88c2ba0ae517 category change Claus Gittinger <cg@exept.de> parents: 2265 diff changeset	466	!ParseNode methodsFor:'testing'!
88c2ba0ae517 category change Claus Gittinger <cg@exept.de> parents: 2265 diff changeset	467
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	468	isAssignment
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	469	"return true, if this is a node for an assignment"
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	470
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	471	^ false
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	472	!
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	473
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	474	isBinaryMessage
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	475	"return true, if this is a node for a binary send"
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	476
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	477	^ false
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	478	!
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	479
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	480	isBlockNode
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	481	"return true, if this is a node for a block"
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	482
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	483	^ false
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	484	!
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	485
2533 6bceeea254c6 added: #isBreakPointNode Claus Gittinger <cg@exept.de> parents: 2505 diff changeset	486	isBreakPointNode
6bceeea254c6 added: #isBreakPointNode Claus Gittinger <cg@exept.de> parents: 2505 diff changeset	487	^ false
6bceeea254c6 added: #isBreakPointNode Claus Gittinger <cg@exept.de> parents: 2505 diff changeset	488
6bceeea254c6 added: #isBreakPointNode Claus Gittinger <cg@exept.de> parents: 2505 diff changeset	489	"Created: / 05-07-2011 / 21:14:01 / cg"
6bceeea254c6 added: #isBreakPointNode Claus Gittinger <cg@exept.de> parents: 2505 diff changeset	490	!
6bceeea254c6 added: #isBreakPointNode Claus Gittinger <cg@exept.de> parents: 2505 diff changeset	491
744 e871f9f072f8 changes for cascades to super/here semantics. Claus Gittinger <cg@exept.de> parents: 598 diff changeset	492	isCascade
e871f9f072f8 changes for cascades to super/here semantics. Claus Gittinger <cg@exept.de> parents: 598 diff changeset	493	^ false
e871f9f072f8 changes for cascades to super/here semantics. Claus Gittinger <cg@exept.de> parents: 598 diff changeset	494
e871f9f072f8 changes for cascades to super/here semantics. Claus Gittinger <cg@exept.de> parents: 598 diff changeset	495	"Created: / 16.7.1998 / 20:11:33 / cg"
e871f9f072f8 changes for cascades to super/here semantics. Claus Gittinger <cg@exept.de> parents: 598 diff changeset	496	!
e871f9f072f8 changes for cascades to super/here semantics. Claus Gittinger <cg@exept.de> parents: 598 diff changeset	497
e871f9f072f8 changes for cascades to super/here semantics. Claus Gittinger <cg@exept.de> parents: 598 diff changeset	498	isCascadeToSuper
e871f9f072f8 changes for cascades to super/here semantics. Claus Gittinger <cg@exept.de> parents: 598 diff changeset	499	^ false
e871f9f072f8 changes for cascades to super/here semantics. Claus Gittinger <cg@exept.de> parents: 598 diff changeset	500
e871f9f072f8 changes for cascades to super/here semantics. Claus Gittinger <cg@exept.de> parents: 598 diff changeset	501	"Created: / 16.7.1998 / 19:51:07 / cg"
e871f9f072f8 changes for cascades to super/here semantics. Claus Gittinger <cg@exept.de> parents: 598 diff changeset	502	!
e871f9f072f8 changes for cascades to super/here semantics. Claus Gittinger <cg@exept.de> parents: 598 diff changeset	503
0 7ad01559b262 Initial revision claus parents: diff changeset	504	isConstant
13 30e69e21d1d1 * empty log message * claus parents: 4 diff changeset	505	"return true, if this is a node for a constant"
30e69e21d1d1 * empty log message * claus parents: 4 diff changeset	506
30e69e21d1d1 * empty log message * claus parents: 4 diff changeset	507	^ false
30e69e21d1d1 * empty log message * claus parents: 4 diff changeset	508	!
30e69e21d1d1 * empty log message * claus parents: 4 diff changeset	509
1533 bff4a03d6d48 * empty log message * Claus Gittinger <cg@exept.de> parents: 1528 diff changeset	510	isErrorNode
bff4a03d6d48 * empty log message * Claus Gittinger <cg@exept.de> parents: 1528 diff changeset	511	^ false
bff4a03d6d48 * empty log message * Claus Gittinger <cg@exept.de> parents: 1528 diff changeset	512	!
bff4a03d6d48 * empty log message * Claus Gittinger <cg@exept.de> parents: 1528 diff changeset	513
53 c5dd7abf8431 * empty log message * claus parents: 33 diff changeset	514	isGlobal
c5dd7abf8431 * empty log message * claus parents: 33 diff changeset	515	"return true, if this is a node for a global variable"
c5dd7abf8431 * empty log message * claus parents: 33 diff changeset	516
c5dd7abf8431 * empty log message * claus parents: 33 diff changeset	517	^ false
c5dd7abf8431 * empty log message * claus parents: 33 diff changeset	518	!
c5dd7abf8431 * empty log message * claus parents: 33 diff changeset	519
2000 5439196a4bb4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1990 diff changeset	520	isGlobalNamed:globalName
5439196a4bb4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1990 diff changeset	521	"return true, if this is a node for a particular global variable"
5439196a4bb4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1990 diff changeset	522
5439196a4bb4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1990 diff changeset	523	^ false
5439196a4bb4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1990 diff changeset	524
5439196a4bb4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1990 diff changeset	525	"Created: / 05-03-2007 / 15:13:23 / cg"
5439196a4bb4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1990 diff changeset	526	!
5439196a4bb4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1990 diff changeset	527
1310 feb30ab0c221 better variabletype queries. Claus Gittinger <cg@exept.de> parents: 1114 diff changeset	528	isGlobalVariable
feb30ab0c221 better variabletype queries. Claus Gittinger <cg@exept.de> parents: 1114 diff changeset	529	^ false
feb30ab0c221 better variabletype queries. Claus Gittinger <cg@exept.de> parents: 1114 diff changeset	530	!
feb30ab0c221 better variabletype queries. Claus Gittinger <cg@exept.de> parents: 1114 diff changeset	531
1528 855c084e2f67 * empty log message * ca parents: 1503 diff changeset	532	isImmutable
855c084e2f67 * empty log message * ca parents: 1503 diff changeset	533	"not used with ST/X -
855c084e2f67 * empty log message * ca parents: 1503 diff changeset	534	for JavaScript nodes return true here."
855c084e2f67 * empty log message * ca parents: 1503 diff changeset	535
855c084e2f67 * empty log message * ca parents: 1503 diff changeset	536	^ true
855c084e2f67 * empty log message * ca parents: 1503 diff changeset	537	!
855c084e2f67 * empty log message * ca parents: 1503 diff changeset	538
2403 79c95fae81e8 added: #isImplicitJavaScriptMessage Claus Gittinger <cg@exept.de> parents: 2402 diff changeset	539	isImplicitJavaScriptMessage
79c95fae81e8 added: #isImplicitJavaScriptMessage Claus Gittinger <cg@exept.de> parents: 2402 diff changeset	540	"return true, if this is a node for an implicit getter/setter send"
79c95fae81e8 added: #isImplicitJavaScriptMessage Claus Gittinger <cg@exept.de> parents: 2402 diff changeset	541
79c95fae81e8 added: #isImplicitJavaScriptMessage Claus Gittinger <cg@exept.de> parents: 2402 diff changeset	542	^ false
79c95fae81e8 added: #isImplicitJavaScriptMessage Claus Gittinger <cg@exept.de> parents: 2402 diff changeset	543
79c95fae81e8 added: #isImplicitJavaScriptMessage Claus Gittinger <cg@exept.de> parents: 2402 diff changeset	544	"Created: / 05-07-2010 / 14:11:41 / cg"
79c95fae81e8 added: #isImplicitJavaScriptMessage Claus Gittinger <cg@exept.de> parents: 2402 diff changeset	545	!
79c95fae81e8 added: #isImplicitJavaScriptMessage Claus Gittinger <cg@exept.de> parents: 2402 diff changeset	546
1725 728ba29d1872 JavaScript support Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	547	isInnerJavaScriptBlock
728ba29d1872 JavaScript support Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	548	^ false
728ba29d1872 JavaScript support Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	549	!
728ba29d1872 JavaScript support Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	550
2862 fbb540cd74bd added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2819 diff changeset	551	isJAVA
fbb540cd74bd added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2819 diff changeset	552	"Return true, if receiver is global variable node JAVA.
fbb540cd74bd added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2819 diff changeset	553	Used to highlight Java class references."
fbb540cd74bd added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2819 diff changeset	554
fbb540cd74bd added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2819 diff changeset	555	^false
fbb540cd74bd added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2819 diff changeset	556
fbb540cd74bd added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2819 diff changeset	557	"Created: / 19-04-2012 / 09:36:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fbb540cd74bd added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2819 diff changeset	558	!
fbb540cd74bd added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2819 diff changeset	559
fbb540cd74bd added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2819 diff changeset	560	isJavaPackageReference
fbb540cd74bd added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2819 diff changeset	561	"Return true, given node is JAVA package reference in form:
fbb540cd74bd added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2819 diff changeset	562	JAVA package1 package2
fbb540cd74bd added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2819 diff changeset	563	"
fbb540cd74bd added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2819 diff changeset	564
fbb540cd74bd added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2819 diff changeset	565	^false
fbb540cd74bd added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2819 diff changeset	566
fbb540cd74bd added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2819 diff changeset	567	"Created: / 19-04-2012 / 09:53:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fbb540cd74bd added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2819 diff changeset	568	!
fbb540cd74bd added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2819 diff changeset	569
3184 ce57fb8b3acb class: ParseNode Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	570	isJavaScriptAndExpression
ce57fb8b3acb class: ParseNode Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	571	^ false
ce57fb8b3acb class: ParseNode Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	572	!
ce57fb8b3acb class: ParseNode Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	573
2402 da3d16a4193d changed: #testplanItem:groupPattern:executor:testPlanExecutor: Claus Gittinger <cg@exept.de> parents: 2401 diff changeset	574	isJavaScriptArrayAccess
da3d16a4193d changed: #testplanItem:groupPattern:executor:testPlanExecutor: Claus Gittinger <cg@exept.de> parents: 2401 diff changeset	575	"return true, if this is a node for a javascript array reference i.e. expr[]"
da3d16a4193d changed: #testplanItem:groupPattern:executor:testPlanExecutor: Claus Gittinger <cg@exept.de> parents: 2401 diff changeset	576
da3d16a4193d changed: #testplanItem:groupPattern:executor:testPlanExecutor: Claus Gittinger <cg@exept.de> parents: 2401 diff changeset	577	^ false
da3d16a4193d changed: #testplanItem:groupPattern:executor:testPlanExecutor: Claus Gittinger <cg@exept.de> parents: 2401 diff changeset	578
da3d16a4193d changed: #testplanItem:groupPattern:executor:testPlanExecutor: Claus Gittinger <cg@exept.de> parents: 2401 diff changeset	579	"Created: / 05-07-2010 / 14:04:27 / cg"
da3d16a4193d changed: #testplanItem:groupPattern:executor:testPlanExecutor: Claus Gittinger <cg@exept.de> parents: 2401 diff changeset	580	!
da3d16a4193d changed: #testplanItem:groupPattern:executor:testPlanExecutor: Claus Gittinger <cg@exept.de> parents: 2401 diff changeset	581
2400 c7e4a0c68ec1 added: #isJavaScriptBlock Claus Gittinger <cg@exept.de> parents: 2382 diff changeset	582	isJavaScriptBlock
c7e4a0c68ec1 added: #isJavaScriptBlock Claus Gittinger <cg@exept.de> parents: 2382 diff changeset	583	"return true, if this is a node for a javascript block"
c7e4a0c68ec1 added: #isJavaScriptBlock Claus Gittinger <cg@exept.de> parents: 2382 diff changeset	584
c7e4a0c68ec1 added: #isJavaScriptBlock Claus Gittinger <cg@exept.de> parents: 2382 diff changeset	585	^ false
c7e4a0c68ec1 added: #isJavaScriptBlock Claus Gittinger <cg@exept.de> parents: 2382 diff changeset	586
c7e4a0c68ec1 added: #isJavaScriptBlock Claus Gittinger <cg@exept.de> parents: 2382 diff changeset	587	"Created: / 09-06-2010 / 01:53:19 / cg"
c7e4a0c68ec1 added: #isJavaScriptBlock Claus Gittinger <cg@exept.de> parents: 2382 diff changeset	588	!
c7e4a0c68ec1 added: #isJavaScriptBlock Claus Gittinger <cg@exept.de> parents: 2382 diff changeset	589
2401 3bfe65bdcc64 added: #isJavaScriptConditionalExpression Claus Gittinger <cg@exept.de> parents: 2400 diff changeset	590	isJavaScriptConditionalExpression
3bfe65bdcc64 added: #isJavaScriptConditionalExpression Claus Gittinger <cg@exept.de> parents: 2400 diff changeset	591	"return true, if this is a node for a ?: expression"
3bfe65bdcc64 added: #isJavaScriptConditionalExpression Claus Gittinger <cg@exept.de> parents: 2400 diff changeset	592
3bfe65bdcc64 added: #isJavaScriptConditionalExpression Claus Gittinger <cg@exept.de> parents: 2400 diff changeset	593	^ false
3bfe65bdcc64 added: #isJavaScriptConditionalExpression Claus Gittinger <cg@exept.de> parents: 2400 diff changeset	594
3bfe65bdcc64 added: #isJavaScriptConditionalExpression Claus Gittinger <cg@exept.de> parents: 2400 diff changeset	595	"Created: / 09-06-2010 / 01:55:15 / cg"
3bfe65bdcc64 added: #isJavaScriptConditionalExpression Claus Gittinger <cg@exept.de> parents: 2400 diff changeset	596	!
3bfe65bdcc64 added: #isJavaScriptConditionalExpression Claus Gittinger <cg@exept.de> parents: 2400 diff changeset	597
3184 ce57fb8b3acb class: ParseNode Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	598	isJavaScriptOrExpression
ce57fb8b3acb class: ParseNode Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	599	^ false
ce57fb8b3acb class: ParseNode Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	600	!
ce57fb8b3acb class: ParseNode Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	601
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	602	isMessage
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	603	"return true, if this is a node for a message expression"
19 84a1ddf215a5 * empty log message * claus parents: 13 diff changeset	604
84a1ddf215a5 * empty log message * claus parents: 13 diff changeset	605	^ false
84a1ddf215a5 * empty log message * claus parents: 13 diff changeset	606	!
84a1ddf215a5 * empty log message * claus parents: 13 diff changeset	607
1310 feb30ab0c221 better variabletype queries. Claus Gittinger <cg@exept.de> parents: 1114 diff changeset	608	isMethodVariable
feb30ab0c221 better variabletype queries. Claus Gittinger <cg@exept.de> parents: 1114 diff changeset	609	^ false
feb30ab0c221 better variabletype queries. Claus Gittinger <cg@exept.de> parents: 1114 diff changeset	610	!
feb30ab0c221 better variabletype queries. Claus Gittinger <cg@exept.de> parents: 1114 diff changeset	611
2327 88c2ba0ae517 category change Claus Gittinger <cg@exept.de> parents: 2265 diff changeset	612	isNew
88c2ba0ae517 category change Claus Gittinger <cg@exept.de> parents: 2265 diff changeset	613	"return true, if this is a new XXXX node"
88c2ba0ae517 category change Claus Gittinger <cg@exept.de> parents: 2265 diff changeset	614
88c2ba0ae517 category change Claus Gittinger <cg@exept.de> parents: 2265 diff changeset	615	^ false
88c2ba0ae517 category change Claus Gittinger <cg@exept.de> parents: 2265 diff changeset	616	!
88c2ba0ae517 category change Claus Gittinger <cg@exept.de> parents: 2265 diff changeset	617
2088 b06c5a88c2e1 testing for javascript Claus Gittinger <cg@exept.de> parents: 2078 diff changeset	618	isPostIncDec
b06c5a88c2e1 testing for javascript Claus Gittinger <cg@exept.de> parents: 2078 diff changeset	619	"for JavaScript"
b06c5a88c2e1 testing for javascript Claus Gittinger <cg@exept.de> parents: 2078 diff changeset	620
b06c5a88c2e1 testing for javascript Claus Gittinger <cg@exept.de> parents: 2078 diff changeset	621	^ false
b06c5a88c2e1 testing for javascript Claus Gittinger <cg@exept.de> parents: 2078 diff changeset	622	!
b06c5a88c2e1 testing for javascript Claus Gittinger <cg@exept.de> parents: 2078 diff changeset	623
b06c5a88c2e1 testing for javascript Claus Gittinger <cg@exept.de> parents: 2078 diff changeset	624	isPreIncDec
b06c5a88c2e1 testing for javascript Claus Gittinger <cg@exept.de> parents: 2078 diff changeset	625	"for JavaScript"
b06c5a88c2e1 testing for javascript Claus Gittinger <cg@exept.de> parents: 2078 diff changeset	626
b06c5a88c2e1 testing for javascript Claus Gittinger <cg@exept.de> parents: 2078 diff changeset	627	^ false
b06c5a88c2e1 testing for javascript Claus Gittinger <cg@exept.de> parents: 2078 diff changeset	628	!
b06c5a88c2e1 testing for javascript Claus Gittinger <cg@exept.de> parents: 2078 diff changeset	629
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	630	isPrimary
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	631	"return true, if this is a node for a primary (i.e. non-send)"
13 30e69e21d1d1 * empty log message * claus parents: 4 diff changeset	632
30e69e21d1d1 * empty log message * claus parents: 4 diff changeset	633	^ false
30e69e21d1d1 * empty log message * claus parents: 4 diff changeset	634	!
30e69e21d1d1 * empty log message * claus parents: 4 diff changeset	635
30e69e21d1d1 * empty log message * claus parents: 4 diff changeset	636	isReturnNode
30e69e21d1d1 * empty log message * claus parents: 4 diff changeset	637	"return true, if this is a node for a return expression"
30e69e21d1d1 * empty log message * claus parents: 4 diff changeset	638
0 7ad01559b262 Initial revision claus parents: diff changeset	639	^ false
7ad01559b262 Initial revision claus parents: diff changeset	640	!
7ad01559b262 Initial revision claus parents: diff changeset	641
862 2e3aefb24308 added #isSelf Claus Gittinger <cg@exept.de> parents: 843 diff changeset	642	isSelf
2e3aefb24308 added #isSelf Claus Gittinger <cg@exept.de> parents: 843 diff changeset	643	"return true, if this is a self-node"
2e3aefb24308 added #isSelf Claus Gittinger <cg@exept.de> parents: 843 diff changeset	644
2e3aefb24308 added #isSelf Claus Gittinger <cg@exept.de> parents: 843 diff changeset	645	^ false
2e3aefb24308 added #isSelf Claus Gittinger <cg@exept.de> parents: 843 diff changeset	646	!
2e3aefb24308 added #isSelf Claus Gittinger <cg@exept.de> parents: 843 diff changeset	647
2505 d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	648	isStatementNode
d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	649	"return true, if this is a statement node"
d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	650
d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	651	^ false
d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	652
d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	653	"Created: / 13-06-2011 / 11:26:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	654	!
d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	655
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	656	isSuper
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	657	"return true, if this is a super-node"
13 30e69e21d1d1 * empty log message * claus parents: 4 diff changeset	658
0 7ad01559b262 Initial revision claus parents: diff changeset	659	^ false
7ad01559b262 Initial revision claus parents: diff changeset	660	!
7ad01559b262 Initial revision claus parents: diff changeset	661
2089 7bce7ca994bb javaScript support Claus Gittinger <cg@exept.de> parents: 2088 diff changeset	662	isThis
7bce7ca994bb javaScript support Claus Gittinger <cg@exept.de> parents: 2088 diff changeset	663	"for JavaScript"
7bce7ca994bb javaScript support Claus Gittinger <cg@exept.de> parents: 2088 diff changeset	664
7bce7ca994bb javaScript support Claus Gittinger <cg@exept.de> parents: 2088 diff changeset	665	^ false
7bce7ca994bb javaScript support Claus Gittinger <cg@exept.de> parents: 2088 diff changeset	666	!
7bce7ca994bb javaScript support Claus Gittinger <cg@exept.de> parents: 2088 diff changeset	667
0 7ad01559b262 Initial revision claus parents: diff changeset	668	isUnaryMessage
13 30e69e21d1d1 * empty log message * claus parents: 4 diff changeset	669	"return true, if this is a node for a unary send"
30e69e21d1d1 * empty log message * claus parents: 4 diff changeset	670
0 7ad01559b262 Initial revision claus parents: diff changeset	671	^ false
244 2ce60e837d52 use dup if possible when pushing args Claus Gittinger <cg@exept.de> parents: 148 diff changeset	672	!
2ce60e837d52 use dup if possible when pushing args Claus Gittinger <cg@exept.de> parents: 148 diff changeset	673
2ce60e837d52 use dup if possible when pushing args Claus Gittinger <cg@exept.de> parents: 148 diff changeset	674	isVariable
2ce60e837d52 use dup if possible when pushing args Claus Gittinger <cg@exept.de> parents: 148 diff changeset	675	"return true, if this is a node for a variable"
2ce60e837d52 use dup if possible when pushing args Claus Gittinger <cg@exept.de> parents: 148 diff changeset	676
2ce60e837d52 use dup if possible when pushing args Claus Gittinger <cg@exept.de> parents: 148 diff changeset	677	^ false
2ce60e837d52 use dup if possible when pushing args Claus Gittinger <cg@exept.de> parents: 148 diff changeset	678
2ce60e837d52 use dup if possible when pushing args Claus Gittinger <cg@exept.de> parents: 148 diff changeset	679	"Created: 14.4.1996 / 00:46:44 / cg"
2694 254e7adda5ca added: #isVariableNode Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	680	!
254e7adda5ca added: #isVariableNode Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	681
254e7adda5ca added: #isVariableNode Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	682	isVariableNode
254e7adda5ca added: #isVariableNode Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	683	"return true, if this is a node for a variable"
254e7adda5ca added: #isVariableNode Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	684
254e7adda5ca added: #isVariableNode Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	685	^ self isVariable
254e7adda5ca added: #isVariableNode Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	686
254e7adda5ca added: #isVariableNode Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	687	"Created: / 12-09-2011 / 09:32:17 / cg"
0 7ad01559b262 Initial revision claus parents: diff changeset	688	! !
7ad01559b262 Initial revision claus parents: diff changeset	689
148 ef0e604209ec version method at the end Claus Gittinger <cg@exept.de> parents: 140 diff changeset	690	!ParseNode class methodsFor:'documentation'!
ef0e604209ec version method at the end Claus Gittinger <cg@exept.de> parents: 140 diff changeset	691
3276 a97fbe62a73c class: ParseNode Claus Gittinger <cg@exept.de> parents: 3275 diff changeset	692	version
a97fbe62a73c class: ParseNode Claus Gittinger <cg@exept.de> parents: 3275 diff changeset	693	^ '$Header: /cvs/stx/stx/libcomp/ParseNode.st,v 1.71 2013-08-21 16:46:24 cg Exp $'
a97fbe62a73c class: ParseNode Claus Gittinger <cg@exept.de> parents: 3275 diff changeset	694	!
a97fbe62a73c class: ParseNode Claus Gittinger <cg@exept.de> parents: 3275 diff changeset	695
2505 d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	696	version_CVS
3276 a97fbe62a73c class: ParseNode Claus Gittinger <cg@exept.de> parents: 3275 diff changeset	697	^ '$Header: /cvs/stx/stx/libcomp/ParseNode.st,v 1.71 2013-08-21 16:46:24 cg Exp $'
148 ef0e604209ec version method at the end Claus Gittinger <cg@exept.de> parents: 140 diff changeset	698	! !
3110 f517641d3673 Emit LINE16 bytecode insn just before a SEND bytecode is emmited when Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2862 diff changeset	699

author	Claus Gittinger <cg@exept.de>
	Wed, 21 Aug 2013 18:46:24 +0200
changeset 3276	a97fbe62a73c
parent 3275	921a8afad859
child 3279	2dae90cce9e5
permissions	-rw-r--r--