"{ Package: 'ctu:ircompiler' }"
IRFunction subclass:#IRClosure
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
category:'NewCompiler-IR'
!
!IRClosure methodsFor:'accessing'!
environmentIr
^ environmentIr
!
environmentIr:something
environmentIr := something.
! !
!IRClosure methodsFor:'accessing - defaults'!
defaultCompiledCodeClass
"raise an error: must be redefined in concrete subclass(es)"
^Block
"Modified: / 30-03-2009 / 16:36:02 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !
!IRClosure methodsFor:'instructions - helpers'!
tempArgKindForLevel:level
"Superclass IRFunction says that I am responsible to implement this method"
^level isZero
ifTrue: [#BArg]
ifFalse:[#OBArg]
"Modified: / 30-03-2009 / 18:36:30 / Jan Vrany <vranyj1@fel.cvut.cz>"
!
tempVarKindForLevel:level
"Superclass IRFunction says that I am responsible to implement this method"
^level isZero
ifTrue: [#BVar]
ifFalse:[#OBVar]
"Modified: / 30-03-2009 / 23:05:37 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !
!IRClosure methodsFor:'testing'!
isIRClosure
^ true
! !
!IRClosure class methodsFor:'documentation'!
version
^ '$Id$'
!
version_CVS
^ 'Header: /cvs/stx/cvut/stx/goodies/newcompiler/IRClosure.st,v 1.3 2009/10/08 12:00:40 fm Exp '
!
version_SVN
^ '$Id:: $'
! !