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

IRTempAccess subclass:#IRTempStore
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'NewCompiler-IR'
!


!IRTempStore methodsFor:'interpret'!

executeOn: interpreter 
        interpreter storeTemp: number kind: kind level: level

    "Modified: / 30-03-2009 / 14:17:59 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !

!IRTempStore methodsFor:'testing'!

isRead
	^false
!

isStore
	^true
! !

!IRTempStore class methodsFor:'documentation'!

version
    ^ '$Id$'
!

version_CVS
    ^ '§Header: /cvs/stx/cvut/stx/goodies/newcompiler/IRTempStore.st,v 1.3 2009/10/08 12:04:11 fm Exp §'
!

version_SVN
    ^ '$Id::                                                                                                                        $'
! !