X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FRtsUtils.c;h=9021909dfa7e32d20600db1c0bfa449e63b73ecc;hb=129e7b91d1cd0fc583b6bba01e39d10c30db18be;hp=51c1250682e9e15c3bf54db74c47a13bfc36c3f0;hpb=a35d65c3465de9661325a9295715b1ef298eb888;p=ghc-hetmet.git

diff --git a/rts/RtsUtils.c b/rts/RtsUtils.c
index 51c1250..9021909 100644
--- a/rts/RtsUtils.c
+++ b/rts/RtsUtils.c
@@ -138,8 +138,8 @@ static void addAllocation(void *addr, size_t len) {
         /* This doesn't actually help as we haven't looked at the flags
          * at the time that it matters (while running constructors) */
         IF_DEBUG(sanity,
-                 debugBelch("Ignoring allocation %p %zd as allocs is NULL\n",
-                            addr, len);)
+                 debugBelch("Ignoring allocation %p %d as allocs is NULL\n",
+                            addr, (int)len);)
     }
 }