From ecc350ca5c2eb50be8309c5f14f8bf0d87db9a02 Mon Sep 17 00:00:00 2001
From: Moon Flower <moonflower@elhenney.local>
Date: Mon, 12 Oct 2026 08:46:23 +0330
Subject: a

---
 tests/programs/roots.zc | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 tests/programs/roots.zc

(limited to 'tests/programs/roots.zc')

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;
+}
-- 
cgit v1.2.3