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

IRReturn subclass:#IRBlockReturnTop
	instanceVariableNames:'successor'
	classVariableNames:''
	poolDictionaries:''
	category:'NewCompiler-IR'
!


!IRBlockReturnTop methodsFor:'accessing'!

successor: anObject

	successor := anObject. 
!

successorSequences
	"sent to last instruction in sequence which is expected to be a jump and return instruction"

	^  { successor }
! !

!IRBlockReturnTop methodsFor:'interpret'!

executeOn: interpreter
	interpreter blockReturnTop.
! !

!IRBlockReturnTop methodsFor:'testing'!

isBlockReturnTop

	^true.
!

isRemote
	^false.
! !

!IRBlockReturnTop class methodsFor:'documentation'!

version
    ^'$Id$'
! !