From: Simon Marlow <simonmar@microsoft.com>
Date: Fri, 24 Mar 2006 16:45:41 +0000 (+0000)
Subject: fix a warning
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=a1b4e3b88a6987deed7bb7f1bd870b30eef1b475;p=ghc-hetmet.git

fix a warning
---

diff --git a/ghc/rts/GC.c b/ghc/rts/GC.c
index 4235d3e..a13cd33 100644
--- a/ghc/rts/GC.c
+++ b/ghc/rts/GC.c
@@ -818,7 +818,7 @@ GarbageCollect ( void (*get_roots)(evac_fn), rtsBool force_major_gc )
 	}
 	copied +=  mut_list_size;
 
-	IF_DEBUG(gc, debugBelch("mut_list_size: %d (%d vars, %d arrays, %d others)\n", mut_list_size * sizeof(W_), mutlist_MUTVARS, mutlist_MUTARRS, mutlist_OTHERS));
+	IF_DEBUG(gc, debugBelch("mut_list_size: %ld (%d vars, %d arrays, %d others)\n", mut_list_size * sizeof(W_), mutlist_MUTVARS, mutlist_MUTARRS, mutlist_OTHERS));
     }
 
     for (s = 0; s < generations[g].n_steps; s++) {