steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fixing low-level-ir compiler tests for slot changes

db4
Daniel Ehrenberg 2009-09-26 02:48:40 -05:00
parent 51f2bbd74b
commit c704a823e7
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/compiler/tests/low-level-ir.factor
View File

@ -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