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

IRInstVarAccess subclass:#IRInstVarStore
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'NewCompiler-IR'
!


!IRInstVarStore methodsFor:'interpret'!

executeOn: interpreter

	Preferences compileBlocksAsClosures 
		ifFalse: [interpreter storeInstVar: number] 
		ifTrue: [interpreter pushLiteral: number.
				interpreter send: #privStoreIn:instVar:].
		
! !

!IRInstVarStore methodsFor:'testing'!

isRead
	^false
!

isStore
	^true
! !

!IRInstVarStore class methodsFor:'documentation'!

version
    ^'$Id$'
! !