diff options
Diffstat (limited to 'rts/Printer.c')
| -rw-r--r-- | rts/Printer.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/Printer.c b/rts/Printer.c index 8290d220a0..36fdf7bda4 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; |