--- a/IRTransformTest.st Wed Apr 06 21:17:27 2011 +0000
+++ b/IRTransformTest.st Sat May 07 13:19:45 2011 +0000
@@ -60,12 +60,13 @@
(iRMethod allSequences last) last delete.
(iRMethod allSequences last)
- addInstructions: {(IRInstruction pushLiteral: 2). (IRInstruction returnTop)}.
+ addInstructions: (Array with:(IRInstruction pushLiteral: 2) with: (IRInstruction returnTop)).
aCompiledMethod := iRMethod compiledCode.
self should: [(aCompiledMethod valueWithReceiver: nil arguments: #() ) = 2].
"Modified: / 30-03-2009 / 19:40:10 / Jan Vrany <vranyj1@fel.cvut.cz>"
+ "Modified: / 07-05-2011 / 14:17:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
testAddIntructionsBefore
@@ -82,12 +83,13 @@
push := (iRMethod allSequences last) at: (iRMethod allSequences size - 1) .
(iRMethod allSequences last)
- addInstructions: {(IRInstruction pushLiteral: 2). (IRInstruction returnTop)} before: push.
+ addInstructions: (Array with:(IRInstruction pushLiteral: 2) with: (IRInstruction returnTop)) before: push.
aCompiledMethod := iRMethod compiledCode.
self should: [(aCompiledMethod valueWithReceiver: nil arguments: #() ) = 2].
"Modified: / 30-03-2009 / 19:40:21 / Jan Vrany <vranyj1@fel.cvut.cz>"
+ "Modified: / 07-05-2011 / 14:18:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
testAddIntructionsBeforeFromLList