From 55476c33f7389b8d0d8def117b3b2c5833663a79 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Wed, 13 Dec 2006 12:26:02 +0000 Subject: [PATCH] Give a better panic if the allocation debugger is used uninitialised --- rts/RtsUtils.c | 6 ++++++ 1 file changed, 6 insertions(+) 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!"); } -- 1.7.10.4