a

1 files changed, 17 insertions, 0 deletions

diff --git a/tests/programs/roots.zc b/tests/programs/roots.zc
new file mode 100644
index 0000000..22f12a5
--- /dev/null
+++ b/tests/programs/roots.zc
@@ -0,0 +1,17 @@
+// a pointer left below the live stack is not a root. scrub then clears that word.
+unchecked fn main() {
+	let p, slot, before, after;
+	p = new(2);
+	p[0] = 7;
+	p[1] = 8;
+	slot = DSLO + 8;
+	*slot = p;
+	before = live_objects();
+	p = 0;
+	gc();
+	after = live_objects();
+	put_n(after < before); put_c(32);
+	scrub();
+	put_n(*slot); put_c(10);
+	return 0;
+}