diff options
Diffstat (limited to 'tests/programs/gc.zc')
| -rw-r--r-- | tests/programs/gc.zc | 19 |
1 files changed, 11 insertions, 8 deletions
diff --git a/tests/programs/gc.zc b/tests/programs/gc.zc index 81412a3..7d2441b 100644 --- a/tests/programs/gc.zc +++ b/tests/programs/gc.zc @@ -1,18 +1,21 @@ +namespace; +include rt; + 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++; } + while (i < n) { p = rt.new(10); p[0] = i; if (i % 100 == 0) keep = p; i++; } return 0; } fn main() { - let base = live_objects(), f; + let base = rt.live_objects(), f; churn(1000); - put_n(live_objects() - base); put_c(' '); - f = gc(); - put_n(f >= 990); put_c(' '); // conservative: a stale word or two may keep one alive - put_n(keep[0]); put_c(' '); // the one a global still points at survives + rt.put_n(rt.live_objects() - base); rt.put_c(' '); + f = rt.gc(); + rt.put_n(f >= 990); rt.put_c(' '); // conservative: a stale word or two may keep one alive + 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 - put_n(gc_runs > 1); put_c(' '); - put_n(keep[0]); put_c(10); + rt.put_n(rt.gc_runs > 1); rt.put_c(' '); + rt.put_n(keep[0]); rt.put_c(10); return 0; } |