From 3c1ddfb1a2c1f47cb230d7f8cf269256e8658d2e Mon Sep 17 00:00:00 2001
From: David du Colombier <0intro@gmail.com>
Date: Wed, 23 Feb 1994 00:00:00 +0000
Subject: [PATCH] Plan 9 from Bell Labs 1994-02-23

---
 port/alloc.c | 21 +++++++++++++++++----
 1 file changed, 17 insertions(+), 4 deletions(-)

diff --git a/port/alloc.c b/port/alloc.c
index c81c1f620813aaada7a0d6b7f0f6e3ada20202c1..6c9223519a80521835e9cafa95a3b90bc06be06e 100644
--- a/port/alloc.c
+++ b/port/alloc.c
@@ -154,7 +154,7 @@ xspanalloc(ulong size, int align, ulong span)
 }
 
 void*
-xalloc(ulong size)
+xallocz(ulong size, int zero)
 {
 	Xhdr *p;
 	Hole *h, **l;
@@ -176,7 +176,8 @@ xalloc(ulong size)
 			}
 			unlock(&xlists);
 			p = KADDR(p);
-			memset(p, 0, size);
+			if(zero)
+				memset(p, 0, size);
 			p->magix = Magichole;
 			p->size = size;
 			return p->data;
@@ -187,14 +188,26 @@ xalloc(ulong size)
 	return nil;
 }
 
+void*
+xalloc(ulong size)
+{
+	return xallocz(size, 1);
+}
+
 void
 xfree(void *p)
 {
 	Xhdr *x;
 
 	x = (Xhdr*)((ulong)p - datoff);
-	if(x->magix != Magichole)
-		panic("xfree");
+	if(x->magix != Magichole) {
+		uchar *a;
+		int i;
+		a = (uchar*)x;
+		for(i = 0; i < 32; i++)
+			print("#%lux ", *a++);
+		panic("xfree(0x%lux) 0x%lux!=0x%lux", p, Magichole, x->magix);
+	}
 
 	xhole(PADDR(x), x->size);
 }