Match format strings and arguments for printf-like functions

[ghc-hetmet.git] / rts / Printer.c

diff --git a/rts/Printer.c b/rts/Printer.c
index 8290d22..36fdf7b 100644 (file)
--- 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;