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

IRInstruction subclass:#IRAccess
	instanceVariableNames:'number name'
	classVariableNames:''
	poolDictionaries:''
	category:'NewCompiler-IR'
!


!IRAccess methodsFor:'accessing'!

number

	^ number
!

number: num

	number _ num
! !

!IRAccess methodsFor:'testing'!

isRead
	^self isStore not
! !

!IRAccess class methodsFor:'documentation'!

version
    ^ '$Header: /cvs/stx/cvut/stx/goodies/newcompiler/IRAccess.st,v 1.3 2009/10/08 11:57:08 fm Exp $'
!

version_CVS
    ^ '$Header: /cvs/stx/cvut/stx/goodies/newcompiler/IRAccess.st,v 1.3 2009/10/08 11:57:08 fm Exp $'
!

version_SVN
    ^ '$Id$'
! !