diff options
Diffstat (limited to 'docs/history/13-gap-fixes/code/tests/buddy.zc')
| -rw-r--r-- | docs/history/13-gap-fixes/code/tests/buddy.zc | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/docs/history/13-gap-fixes/code/tests/buddy.zc b/docs/history/13-gap-fixes/code/tests/buddy.zc deleted file mode 100644 index 2000598..0000000 --- a/docs/history/13-gap-fixes/code/tests/buddy.zc +++ /dev/null @@ -1,15 +0,0 @@ -// 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 - putn(largest_free()); putc(' '); - i = 0; while (i < 20000) { free(keep[i]); i++; } - putn(largest_free()); putc(' '); - p = new(200000); // only possible if the small blocks merged back - putn(osize(p) >= 200000); putc(' '); - free(d*p); - putn(live_objects()); putc(10); - return 0; -} |
