"{ Package: 'ctu:ircompiler' }"
IRInstVarAccess subclass:#IRInstVarStore
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
category:'NewCompiler-IR'
!
!IRInstVarStore methodsFor:'interpret'!
executeOn: interpreter
"Preferences compileBlocksAsClosures"false
ifFalse: [interpreter storeInstVar: number]
ifTrue: [interpreter pushLiteral: number.
interpreter send: #privStoreIn:instVar:].
"Modified: / 25-02-2009 / 15:24:03 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !
!IRInstVarStore methodsFor:'testing'!
isRead
^false
!
isStore
^true
! !
!IRInstVarStore class methodsFor:'documentation'!
version
^ '$Id$'
!
version_CVS
^ 'Header: /cvs/stx/cvut/stx/goodies/newcompiler/IRInstVarStore.st,v 1.3 2009/10/08 11:59:32 fm Exp '
!
version_SVN
^ '$Id:: $'
! !