aboutsummaryrefslogtreecommitdiff
path: root/docs/history/13-gap-fixes/code/tests/buddy.zc
diff options
context:
space:
mode:
Diffstat (limited to 'docs/history/13-gap-fixes/code/tests/buddy.zc')
-rw-r--r--docs/history/13-gap-fixes/code/tests/buddy.zc15
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;
-}