blob: ab351d244d42b6cf95c49e4e688db6a11dbcbb69 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
// the buddy allocator: 20000 small blocks, freed, merge back into one big one
let keep[20000];
fn main() {
let i = 0, p;
while (i < 20000) { keep[i] = new(2); i++; } // 20000 8-word blocks
put_n(largest_free()); put_c(' ');
i = 0; while (i < 20000) { free(keep[i]); keep[i] = 0; i++; }
scrub(); // stale stack words would keep the quarantined blocks
gc();
put_n(largest_free()); put_c(' ');
p = new(200000); // only possible if the small blocks merged back
put_n(osize(p) >= 200000); put_c(' ');
free(d*p);
put_n(live_objects()); put_c(10);
return 0;
}
|
