diff options
| author | sven.panne@aedion.de <unknown> | 2006-08-10 15:36:24 +0000 |
|---|---|---|
| committer | sven.panne@aedion.de <unknown> | 2006-08-10 15:36:24 +0000 |
| commit | f9e1c2af8fdd112019a657e66b0cd685d8df66f6 (patch) | |
| tree | e786b9c422ad2b41e56a6c53b8790c02eb381f8f /rts/Printer.c | |
| parent | 78bd1cdb548b43cf6892234006730c69ddaa2a9e (diff) | |
| download | haskell-f9e1c2af8fdd112019a657e66b0cd685d8df66f6.tar.gz | |
Match format strings and arguments for printf-like functions
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; |