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


IRInstruction subclass:#IRReturn













0dd36941955f
Initial revision. All tests pass.



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


parents: 

diff
changeset




     4


	instanceVariableNames:'isRemote'













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


IRReturn comment:'Instruction "returnTop" or "remoteReturn"'













0dd36941955f
Initial revision. All tests pass.



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


parents: 

diff
changeset




    11


!













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














0dd36941955f
Initial revision. All tests pass.



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


parents: 

diff
changeset




    14


!IRReturn methodsFor:'accessing'!













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


isRemote













0dd36941955f
Initial revision. All tests pass.



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


parents: 

diff
changeset




    17














0dd36941955f
Initial revision. All tests pass.



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


parents: 

diff
changeset




    18


	^ isRemote













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


isRemote: boolean













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


	isRemote := boolean













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














0dd36941955f
Initial revision. All tests pass.



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


parents: 

diff
changeset




    26


!IRReturn methodsFor:'interpret'!













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


executeOn: interpreter













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


	^ isRemote













0dd36941955f
Initial revision. All tests pass.



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


parents: 

diff
changeset




    31


		ifTrue: [interpreter remoteReturn]













0dd36941955f
Initial revision. All tests pass.



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


parents: 

diff
changeset




    32


		ifFalse: [interpreter returnTop]













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














0dd36941955f
Initial revision. All tests pass.



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


parents: 

diff
changeset




    35


!IRReturn methodsFor:'testing'!













0dd36941955f
Initial revision. All tests pass.



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


parents: 

diff
changeset




    36














0dd36941955f
Initial revision. All tests pass.



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


parents: 

diff
changeset




    37


isReturn













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


	^ true













0dd36941955f
Initial revision. All tests pass.



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


parents: 

diff
changeset




    40


! !













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


!IRReturn class methodsFor:'documentation'!













0dd36941955f
Initial revision. All tests pass.



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


parents: 

diff
changeset




    43














0dd36941955f
Initial revision. All tests pass.



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


parents: 

diff
changeset




    44


version








37






be8c2dd09dff
Build files regenerated



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


parents: 
26

diff
changeset




    45


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




    46


!













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




    47














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


version_CVS








37






be8c2dd09dff
Build files regenerated



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


parents: 
26

diff
changeset




    49


    ^ '§Header: /cvs/stx/cvut/stx/goodies/newcompiler/IRReturn.st,v 1.3 2009/10/08 12:01:32 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




    50


!













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




    51














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




    52


version_SVN








37






be8c2dd09dff
Build files regenerated



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


parents: 
26

diff
changeset




    53


    ^ '$Id::                                                                                                                        $'








1






0dd36941955f
Initial revision. All tests pass.



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


parents: 

diff
changeset




    54


! !















hg/ctu-ircompiler