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

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

IRInstVarAccess comment:'when closures disabled, Field describes an instVar. With closures, it describes a 
fieldaccess with receiver to be accessed pushed first.'
!


!IRInstVarAccess methodsFor:'testing'!

isInstVarAccess
	^true.
!

varname
	name ifNil: [name := self method compiledMethod methodClass allInstVarNames at: self offset].
	^name.
! !

!IRInstVarAccess class methodsFor:'documentation'!

version
    ^'$Id$'
! !