From: Simon Marlow <marlowsd@gmail.com>
Date: Wed, 14 Jan 2009 16:28:34 +0000 (+0000)
Subject: validate fix on 32-bit
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=1b3d6042138d884841df3bc530b022dc13c5f296

validate fix on 32-bit
---

diff --git a/rts/sm/Scav.c b/rts/sm/Scav.c
index 9d1a0b6..732ad15 100644
--- a/rts/sm/Scav.c
+++ b/rts/sm/Scav.c
@@ -69,7 +69,7 @@ scavengeTSO (StgTSO *tso)
         return;
     }
 
-    debugTrace(DEBUG_gc,"scavenging thread %d",tso->id);
+    debugTrace(DEBUG_gc,"scavenging thread %d",(int)tso->id);
 
     saved_eager = gct->eager_promotion;
     gct->eager_promotion = rtsFalse;