2011-09-14 00:38:03 -04:00
|
|
|
USING: compiler.codegen compiler.codegen.labels
|
|
|
|
|
compiler.codegen.relocation tools.test cpu.architecture math
|
|
|
|
|
kernel make compiler.constants words ;
|
2009-08-13 20:21:44 -04:00
|
|
|
IN: compiler.codegen.tests
|
2009-06-01 03:32:36 -04:00
|
|
|
|
2010-05-10 00:42:03 -04:00
|
|
|
[ ] [ [ ] with-fixup drop ] unit-test
|
|
|
|
|
[ ] [ [ \ + %call ] with-fixup drop ] unit-test
|
2009-06-01 03:32:36 -04:00
|
|
|
|
2010-05-10 00:42:03 -04:00
|
|
|
[ ] [ [ <label> dup define-label dup resolve-label %jump-label ] with-fixup drop ] unit-test
|
|
|
|
|
[ ] [ [ <label> dup define-label dup resolve-label B{ 0 0 0 0 } % rc-absolute-cell label-fixup ] with-fixup drop ] unit-test
|
2009-06-01 03:32:36 -04:00
|
|
|
|
|
|
|
|
! Error checking
|
2010-05-10 00:42:03 -04:00
|
|
|
[ [ <label> dup define-label %jump-label ] with-fixup ] must-fail
|
|
|
|
|
[ [ <label> dup define-label B{ 0 0 0 0 } % rc-relative label-fixup ] with-fixup ] must-fail
|
|
|
|
|
[ [ <label> dup define-label B{ 0 0 0 0 } % rc-absolute-cell label-fixup ] with-fixup ] must-fail
|
