a

1 files changed, 15 insertions, 0 deletions

diff --git a/docs/history/13-gap-fixes/code/tests/buddy.zc b/docs/history/13-gap-fixes/code/tests/buddy.zc
new file mode 100644
index 0000000..2000598
--- /dev/null
+++ b/docs/history/13-gap-fixes/code/tests/buddy.zc
@@ -0,0 +1,15 @@
+// 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;
+}