equal
deleted
inserted
replaced
666 |
666 |
667 iRMethod := (IRBuilder new) |
667 iRMethod := (IRBuilder new) |
668 numRargs:1; |
668 numRargs:1; |
669 addTemps:#( #self ); |
669 addTemps:#( #self ); |
670 pushReceiver; |
670 pushReceiver; |
671 send:#halt toSuperOf:IRBuilderTest; |
671 send:#error toSuperOf:IRBuilderTest; |
672 returnTop; |
672 returnTop; |
673 ir. |
673 ir. |
674 aCompiledMethod := iRMethod compiledCode. |
674 aCompiledMethod := iRMethod compiledCode. |
675 self assert:(aCompiledMethod isKindOf:CompiledMethod). |
675 self assert:(aCompiledMethod isKindOf:CompiledMethod). |
676 self |
676 self |
678 (aCompiledMethod valueWithReceiver:(IRBuilderTest new) arguments:#()) |
678 (aCompiledMethod valueWithReceiver:(IRBuilderTest new) arguments:#()) |
679 ] |
679 ] |
680 raise:Error. |
680 raise:Error. |
681 |
681 |
682 "Modified: / 11-06-2008 / 16:09:12 / Jan Vrany <vranyj1@fel.cvut.cz>" |
682 "Modified: / 11-06-2008 / 16:09:12 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
683 "Modified: / 30-10-2014 / 22:44:58 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
683 ! |
684 ! |
684 |
685 |
685 testStorIntoVariable |
686 testStorIntoVariable |
686 |iRMethod aCompiledMethod| |
687 |iRMethod aCompiledMethod| |
687 |
688 |
1023 |
1024 |
1024 version_CVS |
1025 version_CVS |
1025 ^ 'Header: /cvs/stx/cvut/stx/goodies/newcompiler/IRBuilderTest.st,v 1.3 2009/10/08 12:03:51 fm Exp ' |
1026 ^ 'Header: /cvs/stx/cvut/stx/goodies/newcompiler/IRBuilderTest.st,v 1.3 2009/10/08 12:03:51 fm Exp ' |
1026 ! |
1027 ! |
1027 |
1028 |
|
1029 version_HG |
|
1030 |
|
1031 ^ '$Changeset: <not expanded> $' |
|
1032 ! |
|
1033 |
1028 version_SVN |
1034 version_SVN |
1029 ^ '$Id:: $' |
1035 ^ '$Id:: $' |
1030 ! ! |
1036 ! ! |
1031 |
1037 |