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/Threads.c | |
| parent | 78bd1cdb548b43cf6892234006730c69ddaa2a9e (diff) | |
| download | haskell-f9e1c2af8fdd112019a657e66b0cd685d8df66f6.tar.gz | |
Match format strings and arguments for printf-like functions
Diffstat (limited to 'rts/Threads.c')
| -rw-r--r-- | rts/Threads.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/rts/Threads.c b/rts/Threads.c index f6c28007e9..d2cac625ef 100644 --- a/rts/Threads.c +++ b/rts/Threads.c @@ -707,8 +707,8 @@ printThreadBlockage(StgTSO *tso) debugBelch("is blocked on an MVar @ %p", tso->block_info.closure); break; case BlockedOnException: - debugBelch("is blocked on delivering an exception to thread %d", - tso->block_info.tso->id); + debugBelch("is blocked on delivering an exception to thread %lu", + (unsigned long)tso->block_info.tso->id); break; case BlockedOnBlackHole: debugBelch("is blocked on a black hole"); @@ -744,7 +744,7 @@ printThreadBlockage(StgTSO *tso) void printThreadStatus(StgTSO *t) { - debugBelch("\tthread %4d @ %p ", t->id, (void *)t); + debugBelch("\tthread %4lu @ %p ", (unsigned long)t->id, (void *)t); { void *label = lookupThreadLabel(t->id); if (label) debugBelch("[\"%s\"] ",(char *)label); |