--- a/IRBuilderTest.st Tue Nov 15 21:28:05 2011 +0000
+++ b/IRBuilderTest.st Thu Mar 29 18:03:58 2012 +0000
@@ -186,11 +186,10 @@
!IRBuilderTest methodsFor:'testing'!
-error
+halt
"Redefinition for testing the #send:toSuperOf:"
"Created: / 11-06-2008 / 16:08:52 / Jan Vrany <vranyj1@fel.cvut.cz>"
- "Created: / 15-11-2011 / 22:27:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
isThisEverCalled
@@ -465,7 +464,7 @@
iRMethod := (IRBuilder new)
numRargs:1;
addTemps:#( #self );
- pushLiteralVariable:#ArithmeticError;
+ pushLiteralVariable:(ArithmeticValue bindingOf:#ArithmeticSignal);
returnTop;
ir.
aCompiledMethod := iRMethod compiledCode.
@@ -474,7 +473,6 @@
= ArithmeticValue arithmeticSignal).
"Modified: / 11-06-2008 / 11:31:32 / Jan Vrany <vranyj1@fel.cvut.cz>"
- "Modified: / 15-11-2011 / 22:25:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
testLiteralVariableGlobale
@@ -670,7 +668,7 @@
numRargs:1;
addTemps:#( #self );
pushReceiver;
- send:#error toSuperOf:IRBuilderTest;
+ send:#halt toSuperOf:IRBuilderTest;
returnTop;
ir.
aCompiledMethod := iRMethod compiledCode.
@@ -682,7 +680,6 @@
raise:Error.
"Modified: / 11-06-2008 / 16:09:12 / Jan Vrany <vranyj1@fel.cvut.cz>"
- "Modified: / 15-11-2011 / 22:25:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
testStorIntoVariable
@@ -692,7 +689,7 @@
numRargs:1;
addTemps:#( #self );
pushLiteral:4;
- storeIntoLiteralVariable:(#'IRBuilderTest:TestToPush');
+ storeIntoLiteralVariable:(IRBuilderTest bindingOf:#TestToPush);
returnTop;
ir.
aCompiledMethod := iRMethod compiledCode.
@@ -700,8 +697,6 @@
aCompiledMethod valueWithReceiver:nil arguments:#().
self assert:(IRBuilderTest testToPush = 4).
IRBuilderTest testToPush:nil.
-
- "Modified: / 15-11-2011 / 22:27:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
testStoreTemp
@@ -1035,5 +1030,5 @@
!
version_SVN
- ^ '$Id$'
+ ^ '$Id:: $'
! !