diff options
Diffstat (limited to 'tests/programs/enhance.zc')
| -rw-r--r-- | tests/programs/enhance.zc | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/tests/programs/enhance.zc b/tests/programs/enhance.zc index 327b4bd..2d6ea43 100644 --- a/tests/programs/enhance.zc +++ b/tests/programs/enhance.zc @@ -1,3 +1,6 @@ +namespace; +include rt; + // custom opcodes: recipes, lifted vm code, several outputs, and a fallback enhance clampadd(a, b) micro "a = add a b; a = min a 100; a = max a 0"; enhance cube(x) vm { 0 $ 0 $ * * }; @@ -11,18 +14,18 @@ let qq, rr, seed = 7; fn rnd() { seed = seed * 1103515245 + 12345; return seed ^ (seed >> 11); } fn main() { let i = 0, a, bad = 0; - put_n(clampadd(70, 50)); put_c(' '); put_n(clampadd(-50, 2)); put_c(' '); put_n(cube(7)); put_c(' '); + rt.put_n(clampadd(70, 50)); rt.put_c(' '); rt.put_n(clampadd(-50, 2)); rt.put_c(' '); rt.put_n(cube(7)); rt.put_c(' '); asm { 17 5 divmod rr ! qq ! } - put_n(qq); put_c(','); put_n(rr); put_c(' '); - put_n(noisy(4)); put_c(' '); - put_n(hi(-1, -1)); put_c(' '); + rt.put_n(qq); rt.put_c(','); rt.put_n(rr); rt.put_c(' '); + rt.put_n(noisy(4)); rt.put_c(' '); + rt.put_n(hi(-1, -1)); rt.put_c(' '); while (i < 5000) { a = rnd(); - if (div7(a) != zdiv(a, 7)) bad++; + if (div7(a) != rt.zdiv(a, 7)) bad++; if (urem10(a) < 0 || urem10(a) > 9) bad++; - if (a / (i + 1) != zdiv(a, i + 1)) bad++; + if (a / (i + 1) != rt.zdiv(a, i + 1)) bad++; i++; } - put_n(bad); put_c(10); + rt.put_n(bad); rt.put_c(10); return 0; } |