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

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