aboutsummaryrefslogtreecommitdiff
path: root/tests/programs/o3direct.zc
diff options
context:
space:
mode:
Diffstat (limited to 'tests/programs/o3direct.zc')
-rw-r--r--tests/programs/o3direct.zc25
1 files changed, 14 insertions, 11 deletions
diff --git a/tests/programs/o3direct.zc b/tests/programs/o3direct.zc
index 3c5d7ee..7998129 100644
--- a/tests/programs/o3direct.zc
+++ b/tests/programs/o3direct.zc
@@ -1,3 +1,6 @@
+namespace;
+include rt, run;
+
// o3 calls between functions: arguments in registers, results on the stack, and the ways a call can leave the fast path
fn put_f(x) { asm { x @ #1220 } return 0; }
struct node { int v; node *next; };
@@ -10,24 +13,24 @@ o3 int four(int a, int b, int c, int d) { return three(a, b, c) * 10 + d; }
o3 int zero() { return 7; }
o3 int ack(int m, int n) { if (m == 0) return n + 1; if (n == 0) return ack(m - 1, 1); return ack(m - 1, ack(m, n - 1)); }
o3 float half(float x, int k) { if (k == 0) return x; return half(x / 2.0, k - 1); }
-o3 int noisy(int n) { if (n == 0) return 0; put_n(n); put_c(' '); return n + noisy(n - 1); }
+o3 int noisy(int n) { if (n == 0) return 0; rt.put_n(n); rt.put_c(' '); return n + noisy(n - 1); }
unchecked o3 int sumlist(node *p) { int s = 0; while (p) { s = s + p.v; p = p.next; } return s; }
unchecked o3 int build(int n) {
node *h = 0;
- for (int i = 1; i <= n; i++) { node *x = new(node); x.v = i; x.next = h; h = x; }
+ for (int i = 1; i <= n; i++) { node *x = rt.new(node); x.v = i; x.next = h; h = x; }
int s = sumlist(h);
- while (h) { node *t = h.next; free(h); h = t; }
+ while (h) { node *t = h.next; rt.free(h); h = t; }
return s;
}
unchecked o3 int mix(int a, int b) { return three(a, zero(), b) + fib(a) + four(1, 2, 3, b); }
unchecked fn main() {
- put_n(fib(20)); put_c(' ');
- put_n(ev(10)); put_c(' '); put_n(ev(7)); put_c(' ');
- put_n(three(1, 2, 3)); put_c(' '); put_n(four(4, 5, 6, 7)); put_c(' '); put_n(zero()); put_c(' ');
- put_n(ack(2, 3)); put_c(' ');
- put_f(half(64.0, 3)); put_c(' ');
- put_n(build(100)); put_c(' ');
- put_n(mix(6, 9)); put_c(10);
- put_n(noisy(4)); put_c(10);
+ rt.put_n(fib(20)); rt.put_c(' ');
+ rt.put_n(ev(10)); rt.put_c(' '); rt.put_n(ev(7)); rt.put_c(' ');
+ rt.put_n(three(1, 2, 3)); rt.put_c(' '); rt.put_n(four(4, 5, 6, 7)); rt.put_c(' '); rt.put_n(zero()); rt.put_c(' ');
+ rt.put_n(ack(2, 3)); rt.put_c(' ');
+ put_f(half(64.0, 3)); rt.put_c(' ');
+ rt.put_n(build(100)); rt.put_c(' ');
+ rt.put_n(mix(6, 9)); rt.put_c(10);
+ rt.put_n(noisy(4)); rt.put_c(10);
return 0;
}