"{ Package: 'cvut:stx/goodies/newcompiler' }"
IRInstVarAccess subclass:#IRInstVarRead
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
category:'NewCompiler-IR'
!
!IRInstVarRead methodsFor:'interpret'!
executeOn: interpreter
interpreter pushInstVar: number
"Modified: / 11-06-2008 / 13:17:19 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !
!IRInstVarRead methodsFor:'testing'!
isRead
^true.
!
isStore
^false.
! !
!IRInstVarRead class methodsFor:'documentation'!
version
^ '$Header: /cvs/stx/cvut/stx/goodies/newcompiler/IRInstVarRead.st,v 1.3 2009/10/08 11:56:08 fm Exp $'
!
version_CVS
^ '$Header: /cvs/stx/cvut/stx/goodies/newcompiler/IRInstVarRead.st,v 1.3 2009/10/08 11:56:08 fm Exp $'
!
version_SVN
^'§Id: IRInstVarRead.st 13 2009-04-16 12:48:33Z vranyj1 §'
! !