X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FPrinter.c;h=36fdf7bda4ba7831163e562144865fcc89ddeec7;hb=3b1f598f60e9dfc45aba5dd0c0993ca0b403aeac;hp=8290d220a0b0498373ec5ec47e4b370f2b09bcd4;hpb=0065d5ab628975892cea1ec7303f968c3338cbe1;p=ghc-hetmet.git

diff --git a/rts/Printer.c b/rts/Printer.c
index 8290d22..36fdf7b 100644
--- a/rts/Printer.c
+++ b/rts/Printer.c
@@ -381,7 +381,7 @@ printClosure( StgClosure *obj )
 
     case TSO:
       debugBelch("TSO("); 
-      debugBelch("%d (%p)",((StgTSO*)obj)->id, (StgTSO*)obj);
+      debugBelch("%lu (%p)",(unsigned long)(((StgTSO*)obj)->id), (StgTSO*)obj);
       debugBelch(")\n"); 
       break;