"{ Package: 'cvut:stx/goodies/newcompiler' }"

IRAccess subclass:#IRLiteralVariableAccess
	instanceVariableNames:'association'
	classVariableNames:''
	poolDictionaries:''
	category:'NewCompiler-IR'
!


!IRLiteralVariableAccess methodsFor:'accessing'!

association: anAssociation
	association := anAssociation
!

isLiteralVariable
	^true
!

isLiteralVariableAccess
	^true
!

isLiteralVariableRead
	^self isLiteralVariableAccess and: [self isRead].
!

isLiteralVariableStore
	^self isLiteralVariableAccess and: [self isStore].
! !

!IRLiteralVariableAccess class methodsFor:'documentation'!

version
    ^ '$Id$'
!

version_CVS
    ^ '§Header: /cvs/stx/cvut/stx/goodies/newcompiler/IRLiteralVariableAccess.st,v 1.3 2009/10/08 11:59:04 fm Exp §'
!

version_SVN
    ^ '$Id::                                                                                                                        $'
! !