"{ Package: 'cvut: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 compiledCode methodClass allInstVarNames 
                        at:self offset
        ].
    ^ name.
! !

!IRInstVarAccess class methodsFor:'documentation'!

version
    ^ '$Header: /cvs/stx/cvut/stx/goodies/newcompiler/IRInstVarAccess.st,v 1.3 2009/10/08 12:01:34 fm Exp $'
!

version_CVS
    ^ '$Header: /cvs/stx/cvut/stx/goodies/newcompiler/IRInstVarAccess.st,v 1.3 2009/10/08 12:01:34 fm Exp $'
!

version_SVN
    ^'§Id: IRInstVarAccess.st 13 2009-04-16 12:48:33Z vranyj1 §'
! !