1 files changed, 52 insertions, 0 deletions
diff --git a/tests/programs/o3bytes.zc b/tests/programs/o3bytes.zc
new file mode 100644
index 0000000..bada583
--- /dev/null
+++ b/tests/programs/o3bytes.zc
@@ -0,0 +1,52 @@
+// byte ops called from o3 stay in the region. ld8/st8 and the 16- and 32-bit
+// pair are opcodes there, on the interpreter, the arm64 jit and llvm.
+fn sp() { put_c(32); return 0; }
+fn litw(v) { return v + v + 1; }
+fn f() { put_c('A'); return 0; }
+fn main() {
+	let buf[4], b, i, s, t, p, v, w;
+	i = 0;
+	while (i < 4) { buf[i] = 0; i++; }
+	b = addr_b(buf);
+	i = 0;
+	s = 0;
+	o3 {
+		while (i < 20) {
+			t = b + i;
+			st8(t, i);
+			s = s + ld8(t);
+			i++;
+		}
+	}
+	put_n(s); sp();
+	o3 { st16(b, 4660); w = ld16(b); }
+	put_n(w); sp();
+	t = b + 7;
+	o3 { w = ld8(t); }
+	put_n(w); sp();
+	o3 { w = ld16(t); }
+	put_n(w); sp();
+	t = b + 10;
+	v = 16909060;
+	o3 { st32(t, v); w = ld32(t); }
+	put_n(w); sp();
+	t = 0 - 1;
+	o3 { st8(t, v); w = ld8(t); }
+	put_n(w); sp();
+	t = addr_b(MW) - 1;
+	o3 { w = ld16(t); }
+	put_n(w);
+	put_c(10);
+	p = f;
+	f();
+	while (*p != litw('A')) p++;
+	t = addr_b(p);
+	v = litw('B') & 255;
+	o3 { st8(t, v); }
+	f();
+	v = litw('C') & 255;
+	o3 { st8(t, v); }
+	f();
+	put_c(10);
+	return 0;
+}