IRInstVarAccess.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Mon, 17 Sep 2012 09:03:06 +0000
changeset 39 d361eb9419e6
parent 37 be8c2dd09dff
child 41 f3898a3b378d
permissions -rw-r--r--
- IRTempStore changed: #version_SVN - IRAccess changed: #version_SVN - IRMethod changed: #version_SVN - IRPrinter changed: #version_SVN - IRTempRead changed: #version_SVN - IRLiteralVariableRead changed: #version_SVN - IRLine changed: #version_SVN - IRClosure changed: #version_SVN - IRFunction changed: #version_SVN - IRDup changed: #version_SVN - IRTranslator changed: #version_SVN - IRInterpreter changed: #version_SVN - IRBuilder changed: #version_SVN - IRBytecodeGenerator changed: #version_SVN - IRJumpOverBlock changed: #version_SVN - IRBlockReturnTop changed: #version_SVN - IRSequence changed: #version_SVN - IRDecompiler changed: #version_SVN - IRInstVarStore changed: #version_SVN - cvut_stx_goodies_newcompiler added: #excludedFromPreRequisites #extensionsVersion_SVN #svnRepositoryUrlString changed: #preRequisites #svnRevisionNr #version_SVN - IRLiteralVariableAccess changed: #version_SVN - IRTransformTest changed: #version_SVN - IRStackCount changed: #version_SVN - IRInstVarAccess changed: #version_SVN - IRLiteralVariableStore changed: #version_SVN - IRBuilderTest changed: #version_SVN - IRInstruction changed: #version_SVN - IRTempAccess changed: #version_SVN - IRConstant changed: #version_SVN - IRSend changed: #version_SVN - IRInstVarRead changed: #version_SVN - IRPop changed: #version_SVN - IRReturn changed: #version_SVN - IRJump changed: #version_SVN - IRJumpIf changed: #version_SVN - extensions ...

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

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::                                                                                                                        $'
! !