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

IRInstruction subclass:#IRJump
	instanceVariableNames:'destination'
	classVariableNames:''
	poolDictionaries:''
	category:'NewCompiler-IR'
!

IRJump comment:'Instruction "goto: labelNum"'
!


!IRJump methodsFor:'accessing'!

destination

	^ destination
!

destination: aSequence

	destination := aSequence
!

successorSequences

	^ {destination}
! !

!IRJump methodsFor:'interpret'!

executeOn: interpreter

	^ interpreter goto: destination orderNumber
! !

!IRJump methodsFor:'testing'!

isGoto
	"is unconditional jump"

	^ true
!

isJump
	"goto or if"

	^ true
! !

!IRJump class methodsFor:'documentation'!

version
    ^ '$Header: /cvs/stx/cvut/stx/goodies/newcompiler/IRJump.st,v 1.3 2009/10/08 12:01:23 fm Exp $'
!

version_CVS
    ^ '$Header: /cvs/stx/cvut/stx/goodies/newcompiler/IRJump.st,v 1.3 2009/10/08 12:01:23 fm Exp $'
!

version_SVN
    ^'§Id: IRJump.st 13 2009-04-16 12:48:33Z vranyj1 §'
! !