hg/ctu-ircompiler: IRLiteralVariableAccess.st@d361eb9419e6 (annotated)

23 377bc46cad12 Moved to package cvut:stx/goodies/newcompiler to be in sync with eXept Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1	"{ Package: 'cvut:stx/goodies/newcompiler' }"
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	IRAccess subclass:#IRLiteralVariableAccess
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4	instanceVariableNames:'association'
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	classVariableNames:''
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	poolDictionaries:''
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	category:'NewCompiler-IR'
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11	!IRLiteralVariableAccess methodsFor:'accessing'!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	12
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13	association: anAssociation
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14	association := anAssociation
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15	!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17	isLiteralVariable
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18	^true
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19	!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	21	isLiteralVariableAccess
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22	^true
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	23	!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25	isLiteralVariableRead
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26	^self isLiteralVariableAccess and: [self isRead].
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27	!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29	isLiteralVariableStore
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	30	^self isLiteralVariableAccess and: [self isStore].
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	31	! !
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	32
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	33	!IRLiteralVariableAccess class methodsFor:'documentation'!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	34
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	35	version
37 be8c2dd09dff Build files regenerated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	36	^ '$Id$'
23 377bc46cad12 Moved to package cvut:stx/goodies/newcompiler to be in sync with eXept Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	37	!
377bc46cad12 Moved to package cvut:stx/goodies/newcompiler to be in sync with eXept Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	38
377bc46cad12 Moved to package cvut:stx/goodies/newcompiler to be in sync with eXept Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	39	version_CVS
37 be8c2dd09dff Build files regenerated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	40	^ '�Header: /cvs/stx/cvut/stx/goodies/newcompiler/IRLiteralVariableAccess.st,v 1.3 2009/10/08 11:59:04 fm Exp �'
23 377bc46cad12 Moved to package cvut:stx/goodies/newcompiler to be in sync with eXept Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	41	!
377bc46cad12 Moved to package cvut:stx/goodies/newcompiler to be in sync with eXept Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	42
377bc46cad12 Moved to package cvut:stx/goodies/newcompiler to be in sync with eXept Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	43	version_SVN
37 be8c2dd09dff Build files regenerated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	44	^ '$Id:: $'
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	45	! !

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Mon, 17 Sep 2012 09:03:06 +0000
changeset 39	d361eb9419e6
parent 37	be8c2dd09dff
child 41	f3898a3b378d
permissions	-rw-r--r--