hg/ctu-ircompiler: IRJumpOverBlock.st@04a50b0d540a (annotated)

41 f3898a3b378d Package renamed from cvut:stx/goodies/newcompiler to ctu:ircompiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	1	"{ Package: 'ctu:ircompiler' }"
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	IRJump subclass:#IRJumpOverBlock
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4	instanceVariableNames:'blockSequence'
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	classVariableNames:''
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	poolDictionaries:''
42 acdc3ec6d152 Better class category name - IR Compiler-* Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	7	category:'IR Compiler-IR'
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11	!IRJumpOverBlock methodsFor:'accessing'!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	12
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13	blockSequence
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14	^blockSequence
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15	!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17	blockSequence: instr
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18	blockSequence := instr.
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19	!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	21	successorSequences
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	23	^ Array with: destination with: blockSequence
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25	"Modified: / 11-06-2008 / 13:31:19 / Jan Vrany <vranyj1@fel.cvut.cz>"
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26	! !
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28	!IRJumpOverBlock methodsFor:'interpret'!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	30	executeOn: interpreter
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	31	^ interpreter jumpOverBlock: blockSequence orderNumber to: destination orderNumber
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	32	! !
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	33
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	34	!IRJumpOverBlock methodsFor:'testing'!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	35
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	36	isJumpOverBlock
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	37	^true.
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	38	! !
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	39
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	40	!IRJumpOverBlock class methodsFor:'documentation'!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	41
23 377bc46cad12 Moved to package cvut:stx/goodies/newcompiler to be in sync with eXept Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	42	version_CVS
41 f3898a3b378d Package renamed from cvut:stx/goodies/newcompiler to ctu:ircompiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	43	^ 'Header: /cvs/stx/cvut/stx/goodies/newcompiler/IRJumpOverBlock.st,v 1.3 2009/10/08 11:56:16 fm Exp '
23 377bc46cad12 Moved to package cvut:stx/goodies/newcompiler to be in sync with eXept Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	44	!
377bc46cad12 Moved to package cvut:stx/goodies/newcompiler to be in sync with eXept Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	45
377bc46cad12 Moved to package cvut:stx/goodies/newcompiler to be in sync with eXept Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	46	version_SVN
37 be8c2dd09dff Build files regenerated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	47	^ '$Id:: $'
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	48	! !
42 acdc3ec6d152 Better class category name - IR Compiler-* Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	49

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--