X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=rts%2FGC.c;h=967f48d817f775fa801e89708d7a0a5a0df46c7c;hb=cc4e58b669ea557909bde4307b0cc5fed19de919;hp=10f6a3659932b769d46407a7994aaa8c565d983b;hpb=b1953bbb1ed3cb16497e5447db7487f0c2d9e41a;p=ghc-hetmet.git

diff --git a/rts/GC.c b/rts/GC.c
index 10f6a36..967f48d 100644
--- a/rts/GC.c
+++ b/rts/GC.c
@@ -827,8 +827,8 @@ GarbageCollect ( void (*get_roots)(evac_fn), rtsBool force_major_gc )
 	copied +=  mut_list_size;
 
 	debugTrace(DEBUG_gc,
-		   "mut_list_size: %ld (%d vars, %d arrays, %d others)",
-		   mut_list_size * sizeof(W_), 
+		   "mut_list_size: %lu (%d vars, %d arrays, %d others)",
+		   (unsigned long)(mut_list_size * sizeof(W_)),
 		   mutlist_MUTVARS, mutlist_MUTARRS, mutlist_OTHERS);
     }
 
@@ -4650,7 +4650,7 @@ threadPaused(Capability *cap, StgTSO *tso)
 	    if (closure_IND(bh) || bh->header.info == &stg_BLACKHOLE_info) {
 		debugTrace(DEBUG_squeeze,
 			   "suspending duplicate work: %ld words of stack",
-			   (StgPtr)frame - tso->sp);
+			   (long)((StgPtr)frame - tso->sp));
 
 		// If this closure is already an indirection, then
 		// suspend the computation up to this point: