a

1 files changed, 19 insertions, 0 deletions

diff --git a/tests/programs/bench_bytes.zc b/tests/programs/bench_bytes.zc
new file mode 100644
index 0000000..cb878f6
--- /dev/null
+++ b/tests/programs/bench_bytes.zc
@@ -0,0 +1,19 @@
+fn sumbytes(n) {
+	let buf[64], i = 0, s = 0, b, reps, ch;
+	while (i < 64) { buf[i] = i * 0x0101010101010101; i++; }
+	b = addr_b(buf);
+	ch = get_c();
+	reps = 0;
+	while (ch >= '0' && ch <= '9') { reps = reps * 10 + ch - '0'; ch = get_c(); }
+	while (reps > 0) {
+		i = 0; s = 0;
+		while (i < n) { s = s + ld8(b + (i & 511)); i++; }
+		reps--;
+	}
+	return s;
+}
+fn main() {
+	put_n(sumbytes(4000));
+	put_c(10);
+	return 0;
+}