From: Ian Lynagh <igloo@earth.li>
Date: Wed, 13 Dec 2006 12:26:02 +0000 (+0000)
Subject: Give a better panic if the allocation debugger is used uninitialised
X-Git-Tag: 2006-12-16~16
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=55476c33f7389b8d0d8def117b3b2c5833663a79

Give a better panic if the allocation debugger is used uninitialised
---

diff --git a/rts/RtsUtils.c b/rts/RtsUtils.c
index a8efe79..518d464 100644
--- a/rts/RtsUtils.c
+++ b/rts/RtsUtils.c
@@ -95,6 +95,9 @@ static void addAllocation(void *addr, size_t len) {
     Allocated *a;
     size_t alloc_size;
 
+    if (allocs == NULL) {
+        barf("addAllocation: allocator debugger not initialised");
+    }
     alloc_size = sizeof(Allocated);
     if ((a = (Allocated *) malloc(alloc_size)) == NULL) {
       /* don't fflush(stdout); WORKAROUND bug in Linux glibc */
@@ -112,6 +115,9 @@ static void addAllocation(void *addr, size_t len) {
 static void removeAllocation(void *addr) {
     Allocated *prev, *a;
 
+    if (allocs == NULL) {
+        barf("addAllocation: allocator debugger not initialised");
+    }
     if (addr == NULL) {
         barf("Freeing NULL!");
     }