aboutsummaryrefslogtreecommitdiff
path: root/tests/programs/gc.zc
blob: 00586d7ecb7594a256f2627e146edb7d050ab0e2 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
namespace;
include rt;

let keep;
unchecked fn churn(n) {
	let i = 0, p;
	while (i < n) { p = rt.new(10); p[0] = i; if (i % 100 == 0) keep = p; i++; }
	return 0;
}
fn main() {
	let base = rt.live_objects(), f;
	churn(1000);
	rt.put_n(rt.live_objects() - base); rt.put_c(' ');
	f = rt.gc();
	rt.put_n(f >= 900); rt.put_c(' ');		// conservative: stale words, and genome code words that happen to look like heap addresses, keep a few alive (937 with the genome at 0x70000 words)
	rt.put_n(keep[0]); rt.put_c(' ');		// the one a global still points at survives
	churn(200000);				// 3.2m words through a 393k word heap: needs the automatic collector
	rt.put_n(rt.gc_runs > 1); rt.put_c(' ');
	rt.put_n(keep[0]); rt.put_c(10);
	return 0;
}