Mercurial Mercurial > hg > ctu-ircompiler / annotate
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
IRJumpOverBlock.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Mon, 17 Sep 2012 09:03:06 +0000
changeset 39 d361eb9419e6
parent 37 be8c2dd09dff
child 41 f3898a3b378d
permissions -rw-r--r--
- IRTempStore changed: #version_SVN - IRAccess changed: #version_SVN - IRMethod changed: #version_SVN - IRPrinter changed: #version_SVN - IRTempRead changed: #version_SVN - IRLiteralVariableRead changed: #version_SVN - IRLine changed: #version_SVN - IRClosure changed: #version_SVN - IRFunction changed: #version_SVN - IRDup changed: #version_SVN - IRTranslator changed: #version_SVN - IRInterpreter changed: #version_SVN - IRBuilder changed: #version_SVN - IRBytecodeGenerator changed: #version_SVN - IRJumpOverBlock changed: #version_SVN - IRBlockReturnTop changed: #version_SVN - IRSequence changed: #version_SVN - IRDecompiler changed: #version_SVN - IRInstVarStore changed: #version_SVN - cvut_stx_goodies_newcompiler added: #excludedFromPreRequisites #extensionsVersion_SVN #svnRepositoryUrlString changed: #preRequisites #svnRevisionNr #version_SVN - IRLiteralVariableAccess changed: #version_SVN - IRTransformTest changed: #version_SVN - IRStackCount changed: #version_SVN - IRInstVarAccess changed: #version_SVN - IRLiteralVariableStore changed: #version_SVN - IRBuilderTest changed: #version_SVN - IRInstruction changed: #version_SVN - IRTempAccess changed: #version_SVN - IRConstant changed: #version_SVN - IRSend changed: #version_SVN - IRInstVarRead changed: #version_SVN - IRPop changed: #version_SVN - IRReturn changed: #version_SVN - IRJump changed: #version_SVN - IRJumpIf changed: #version_SVN - extensions ...
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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 
     1
 
"{ Package: 'cvut:stx/goodies/newcompiler' }"
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:''













0dd36941955f
Initial revision. All tests pass.



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




     7


	category:'NewCompiler-IR'













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














0dd36941955f
Initial revision. All tests pass.



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




    42


version








37






be8c2dd09dff
Build files regenerated



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 
26

diff
changeset




    43


    ^ '$Id$'








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_CVS








37






be8c2dd09dff
Build files regenerated



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 
26

diff
changeset




    47


    ^ '§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




    48


!













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




    49














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




    50


version_SVN








37






be8c2dd09dff
Build files regenerated



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 
26

diff
changeset




    51


    ^ '$Id::                                                                                                                        $'








1






0dd36941955f
Initial revision. All tests pass.



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




    52


! !















hg/ctu-ircompiler