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

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


!IRTempAccess methodsFor:'testing'!

isSelf
	^self number = 0.
!

isTemp
	^true.
!

isTempAccess
	^true.
!

isTempRead
	^self isTempAccess and: [self isRead].
!

isTempStore
	^self isTempAccess and: [self isStore].
! !

!IRTempAccess class methodsFor:'documentation'!

version
    ^'$Id$'
! !