equal
deleted
inserted
replaced
58 |
58 |
59 (iRMethod allSequences last) last delete. |
59 (iRMethod allSequences last) last delete. |
60 (iRMethod allSequences last) last delete. |
60 (iRMethod allSequences last) last delete. |
61 |
61 |
62 (iRMethod allSequences last) |
62 (iRMethod allSequences last) |
63 addInstructions: (Array with:(IRInstruction pushLiteral: 2) with: (IRInstruction returnTop)). |
63 addInstructions: {(IRInstruction pushLiteral: 2). (IRInstruction returnTop)}. |
64 |
64 |
65 aCompiledMethod := iRMethod compiledCode. |
65 aCompiledMethod := iRMethod compiledCode. |
66 self should: [(aCompiledMethod valueWithReceiver: nil arguments: #() ) = 2]. |
66 self should: [(aCompiledMethod valueWithReceiver: nil arguments: #() ) = 2]. |
67 |
67 |
68 "Modified: / 30-03-2009 / 19:40:10 / Jan Vrany <vranyj1@fel.cvut.cz>" |
68 "Modified: / 30-03-2009 / 19:40:10 / Jan Vrany <vranyj1@fel.cvut.cz>" |
69 "Modified: / 07-05-2011 / 14:17:58 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
70 ! |
69 ! |
71 |
70 |
72 testAddIntructionsBefore |
71 testAddIntructionsBefore |
73 |
72 |
74 | iRMethod aCompiledMethod push | |
73 | iRMethod aCompiledMethod push | |
81 ir. |
80 ir. |
82 |
81 |
83 push := (iRMethod allSequences last) at: (iRMethod allSequences size - 1) . |
82 push := (iRMethod allSequences last) at: (iRMethod allSequences size - 1) . |
84 |
83 |
85 (iRMethod allSequences last) |
84 (iRMethod allSequences last) |
86 addInstructions: (Array with:(IRInstruction pushLiteral: 2) with: (IRInstruction returnTop)) before: push. |
85 addInstructions: {(IRInstruction pushLiteral: 2). (IRInstruction returnTop)} before: push. |
87 |
86 |
88 aCompiledMethod := iRMethod compiledCode. |
87 aCompiledMethod := iRMethod compiledCode. |
89 self should: [(aCompiledMethod valueWithReceiver: nil arguments: #() ) = 2]. |
88 self should: [(aCompiledMethod valueWithReceiver: nil arguments: #() ) = 2]. |
90 |
89 |
91 "Modified: / 30-03-2009 / 19:40:21 / Jan Vrany <vranyj1@fel.cvut.cz>" |
90 "Modified: / 30-03-2009 / 19:40:21 / Jan Vrany <vranyj1@fel.cvut.cz>" |
92 "Modified: / 07-05-2011 / 14:18:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
93 ! |
91 ! |
94 |
92 |
95 testAddIntructionsBeforeFromLList |
93 testAddIntructionsBeforeFromLList |
96 |iRMethod aCompiledMethod push llist col| |
94 |iRMethod aCompiledMethod push llist col| |
97 |
95 |
163 ! ! |
161 ! ! |
164 |
162 |
165 !IRTransformTest class methodsFor:'documentation'! |
163 !IRTransformTest class methodsFor:'documentation'! |
166 |
164 |
167 version |
165 version |
168 ^ '$Header: /cvs/stx/cvut/stx/goodies/newcompiler/IRTransformTest.st,v 1.3 2009/10/08 11:56:52 fm Exp $' |
166 ^ '$Id$' |
169 ! |
167 ! |
170 |
168 |
171 version_CVS |
169 version_CVS |
172 ^ '$Header: /cvs/stx/cvut/stx/goodies/newcompiler/IRTransformTest.st,v 1.3 2009/10/08 11:56:52 fm Exp $' |
170 ^ '§Header: /cvs/stx/cvut/stx/goodies/newcompiler/IRTransformTest.st,v 1.3 2009/10/08 11:56:52 fm Exp §' |
173 ! |
171 ! |
174 |
172 |
175 version_SVN |
173 version_SVN |
176 ^ '$Id$' |
174 ^ '$Id:: $' |
177 ! ! |
175 ! ! |