"{ 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$'
! !