X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FThreads.c;h=d2cac625efc3a63b1d968754c2e878971ec2a269;hp=f6c28007e9769b65d3ae6a0554f6b097fdd4cc99;hb=2f6ad11fa0c2995d950c91fd4301f23aceeb443b;hpb=c113e097ec1f3e864d0daefa76139686b9c1c312 diff --git a/rts/Threads.c b/rts/Threads.c index f6c2800..d2cac62 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);