From: Simon Marlow <simonmar@microsoft.com>
Date: Thu, 1 Nov 2007 15:02:28 +0000 (+0000)
Subject: fix a warning
X-Git-Tag: Before_cabalised-GHC~291
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=8058f95c14f77f887430e62bb609c1fec827fcc3;hp=a78f4a5c3f20f0a86050280c83923c2c2ad36b21;p=ghc-hetmet.git

fix a warning
---

diff --git a/rts/sm/Scav.c-inc b/rts/sm/Scav.c-inc
index 951341f..7b3a65f 100644
--- a/rts/sm/Scav.c-inc
+++ b/rts/sm/Scav.c-inc
@@ -462,5 +462,6 @@ scavenge_block (bdescr *bd, StgPtr scan)
     }
   }
 
-  debugTrace(DEBUG_gc, "   scavenged %ld bytes", (bd->free - scan) * sizeof(W_));
+  debugTrace(DEBUG_gc, "   scavenged %ld bytes",
+             (unsigned long)((bd->free - scan) * sizeof(W_)));
 }