From: Simon Marlow <marlowsd@gmail.com>
Date: Fri, 24 Jul 2009 15:00:10 +0000 (+0000)
Subject: add number of bytes to +RTS -DS leak reports
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=52cacd61834e6f448b8904bfa52c4a5a402e8698

add number of bytes to +RTS -DS leak reports
---

diff --git a/rts/RtsUtils.c b/rts/RtsUtils.c
index 3091aa1..6906619 100644
--- a/rts/RtsUtils.c
+++ b/rts/RtsUtils.c
@@ -110,8 +110,8 @@ shutdownAllocator(void)
         free(prev);
         if (a == NULL) return;
         IF_DEBUG(sanity,
-                 debugBelch("Warning: %p still allocated at shutdown\n",
-                            a->addr);)
+                 debugBelch("Warning: %ld bytes at %p still allocated at shutdown\n",
+                            a->len, a->addr);)
         prev = a;
     }
 }