From c704a823e706cae61d8a6af610d3ca801830e35b Mon Sep 17 00:00:00 2001 From: Daniel Ehrenberg Date: Sat, 26 Sep 2009 02:48:40 -0500 Subject: [PATCH] Fixing low-level-ir compiler tests for slot changes --- basis/compiler/tests/low-level-ir.factor | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/basis/compiler/tests/low-level-ir.factor b/basis/compiler/tests/low-level-ir.factor index 76d7e6de42..5df04a4d9d 100644 --- a/basis/compiler/tests/low-level-ir.factor +++ b/basis/compiler/tests/low-level-ir.factor @@ -64,9 +64,9 @@ IN: compiler.tests.low-level-ir ! one of the sources [ t ] [ V{ - T{ ##load-immediate f 1 $[ 2 cell log2 shift ] } + T{ ##load-immediate f 1 $[ 2 cell log2 shift array tag-number - ] } T{ ##load-reference f 0 { t f t } } - T{ ##slot f 0 0 1 $[ array tag-number ] 2 } + T{ ##slot f 0 0 1 } } compile-test-bb ] unit-test @@ -79,9 +79,9 @@ IN: compiler.tests.low-level-ir [ t ] [ V{ - T{ ##load-immediate f 1 $[ 2 cell log2 shift ] } + T{ ##load-immediate f 1 $[ 2 cell log2 shift array tag-number - ] } T{ ##load-reference f 0 { t f t } } - T{ ##set-slot f 0 0 1 $[ array tag-number ] 2 } + T{ ##set-slot f 0 0 1 } } compile-test-bb dup first eq? ] unit-test