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

     2 

     3 IRReturn subclass:#IRBlockReturnTop

     4 	instanceVariableNames:'successor'

     5 	classVariableNames:''

     6 	poolDictionaries:''

     7 	category:'NewCompiler-IR'

     8 !

     9 

    10 

    11 !IRBlockReturnTop methodsFor:'accessing'!

    12 

    13 successor: anObject

    14 

    15 	successor := anObject. 

    16 !

    17 

    18 successorSequences

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

    20 

    21 	^  { successor }

    22 ! !

    23 

    24 !IRBlockReturnTop methodsFor:'interpret'!

    25 

    26 executeOn: interpreter

    27 	interpreter blockReturnTop.

    28 ! !

    29 

    30 !IRBlockReturnTop methodsFor:'testing'!

    31 

    32 isBlockReturnTop

    33 

    34 	^true.

    35 !

    36 

    37 isRemote

    38 	^false.

    39 ! !

    40 

    41 !IRBlockReturnTop class methodsFor:'documentation'!

    42 

    43 version

    44     ^'$Id$'

    45 ! !