IRJumpOverBlock.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Thu, 30 Oct 2014 22:42:40 +0000
changeset 45 04a50b0d540a
parent 43 c8afb8e4c3cc
permissions -rw-r--r--
Reduced dependencies to only stx:libbasic and stx:libcomp. The latter will wanish as soon as actual bytecode assemby is implemented.

"{ Package: 'ctu:ircompiler' }"

IRJump subclass:#IRJumpOverBlock
	instanceVariableNames:'blockSequence'
	classVariableNames:''
	poolDictionaries:''
	category:'IR Compiler-IR'
!


!IRJumpOverBlock methodsFor:'accessing'!

blockSequence
	^blockSequence
!

blockSequence: instr
	blockSequence := instr.
!

successorSequences

    ^ Array with: destination with: blockSequence

    "Modified: / 11-06-2008 / 13:31:19 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !

!IRJumpOverBlock methodsFor:'interpret'!

executeOn: interpreter
	^ interpreter jumpOverBlock:  blockSequence orderNumber to: destination orderNumber
! !

!IRJumpOverBlock methodsFor:'testing'!

isJumpOverBlock
	^true.
! !

!IRJumpOverBlock class methodsFor:'documentation'!

version_CVS
    ^ 'Header: /cvs/stx/cvut/stx/goodies/newcompiler/IRJumpOverBlock.st,v 1.3 2009/10/08 11:56:16 fm Exp '
!

version_SVN
    ^ '$Id::                                                                                                                        $'
! !