Tests moved to separate subpackage to follow St/X conventions.
"{ Package: 'ctu:ircompiler' }"
IRAccess subclass:#IRLiteralVariableAccess
instanceVariableNames:'association'
classVariableNames:''
poolDictionaries:''
category:'IR Compiler-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_CVS
^ 'Header: /cvs/stx/cvut/stx/goodies/newcompiler/IRLiteralVariableAccess.st,v 1.3 2009/10/08 11:59:04 fm Exp '
!
version_SVN
^ '$Id:: $'
! !