a

1 files changed, 20 insertions, 0 deletions

diff --git a/docs/history/13-gap-fixes/code/tests/gc.zc b/docs/history/13-gap-fixes/code/tests/gc.zc
new file mode 100644
index 0000000..41f14a0
--- /dev/null
+++ b/docs/history/13-gap-fixes/code/tests/gc.zc
@@ -0,0 +1,20 @@
+let keep;
+unchecked fn churn(n)
+{
+	let i = 0, p;
+	while (i < n) { p = new(10); p[0] = i; if (i % 100 == 0) keep = p; i++; }
+	return 0;
+}
+fn main()
+{
+	let base = live_objects(), f;
+	churn(1000);
+	putn(live_objects() - base); putc(' ');
+	f = gc();
+	putn(f >= 990); putc(' ');		// conservative: a stale word or two may keep one alive
+	putn(keep[0]); putc(' ');		// the one a global still points at survives
+	churn(200000);				// 3.2m words through a 393k word heap: needs the automatic collector
+	putn(gc_runs > 1); putc(' ');
+	putn(keep[0]); putc(10);
+	return 0;
+}