// expect: 0 1 0 1 0 1/ // spec 4.10.3: no collection runs inside an o3 region; an allocation that would collect grows the heap, and leaving the outermost region runs the pending collection once include rt; word sink; int inside; o3 int churn(int n) { int i = 0; while (i < n) { sink = rt.new(64); i++; } rt.gc(); return 0; } int early(int base) { o3 { int i = 0; while (i < 20000) { sink = rt.new(64); i++; } rt.gc(); inside = rt.gc_runs - base; return 0; } return 1; } fn main() { int before = rt.gc_runs; o3 { int i = 0; while (i < 20000) { sink = rt.new(64); i++; } inside = rt.gc_runs - before; } rt.put_n(inside); rt.put_c(32); rt.put_n(rt.gc_runs - before); rt.put_c(32); before = rt.gc_runs; churn(20000); rt.put_n(0); rt.put_c(32); rt.put_n(rt.gc_runs - before); rt.put_c(32); before = rt.gc_runs; early(before); rt.put_n(inside); rt.put_c(32); rt.put_n(rt.gc_runs - before); rt.put_c(10); return 0; } // zc0: skip