1 USING: compiler.codegen compiler.codegen.labels
2 compiler.codegen.relocation tools.test cpu.architecture math
3 kernel make compiler.constants words ;
4 IN: compiler.codegen.tests
6 { } [ [ ] with-fixup drop ] unit-test
7 { } [ [ \ + %call ] with-fixup drop ] unit-test
9 { } [ [ <label> dup define-label dup resolve-label %jump-label ] with-fixup drop ] unit-test
10 { } [ [ <label> dup define-label dup resolve-label B{ 0 0 0 0 } % rc-absolute-cell label-fixup ] with-fixup drop ] unit-test
13 [ [ <label> dup define-label %jump-label ] with-fixup ] must-fail
14 [ [ <label> dup define-label B{ 0 0 0 0 } % rc-relative label-fixup ] with-fixup ] must-fail
15 [ [ <label> dup define-label B{ 0 0 0 0 } % rc-absolute-cell label-fixup ] with-fixup ] must-fail