IRJumpOverBlock.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Tue, 02 Dec 2008 08:14:54 +0000
changeset 6 49a61123c743
parent 1 0dd36941955f
child 23 377bc46cad12
permissions -rw-r--r--
A new IRLine pseudoinstruction added to include debugging info into the bytecode. See IRBuilderTests for examples.

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

IRJump subclass:#IRJumpOverBlock
	instanceVariableNames:'blockSequence'
	classVariableNames:''
	poolDictionaries:''
	category:'NewCompiler-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
    ^'$Id$'
! !