diff options
author | Simon Marlow <marlowsd@gmail.com> | 2009-09-08 09:26:39 +0000 |
---|---|---|
committer | Simon Marlow <marlowsd@gmail.com> | 2009-09-08 09:26:39 +0000 |
commit | c425356c830621e9480d547eff24134037ced63b (patch) | |
tree | e878935e8cc5706bc34313f54665c6ec9ae7ab73 /rts/Trace.c | |
parent | db0309b6aea4d44f525bb66b7732002061b84a42 (diff) | |
download | haskell-c425356c830621e9480d547eff24134037ced63b.tar.gz |
Fix warnings on 64-bit platforms; fixes validate on x86-64
Diffstat (limited to 'rts/Trace.c')
-rw-r--r-- | rts/Trace.c | 36 |
1 files changed, 19 insertions, 17 deletions
diff --git a/rts/Trace.c b/rts/Trace.c index eee3554ca1..7194651339 100644 --- a/rts/Trace.c +++ b/rts/Trace.c @@ -112,40 +112,41 @@ static void traceSchedEvent_stderr (Capability *cap, EventTypeNum tag, tracePreface(); switch (tag) { case EVENT_CREATE_THREAD: // (cap, thread) - debugBelch("cap %d: created thread %ld\n", cap->no, tso->id); + debugBelch("cap %d: created thread %lu\n", + cap->no, (lnat)tso->id); break; case EVENT_RUN_THREAD: // (cap, thread) - debugBelch("cap %d: running thread %ld (%s)\n", cap->no, - tso->id, what_next_strs[tso->what_next]); + debugBelch("cap %d: running thread %lu (%s)\n", + cap->no, (lnat)tso->id, what_next_strs[tso->what_next]); break; case EVENT_THREAD_RUNNABLE: // (cap, thread) - debugBelch("cap %d: thread %ld appended to run queue\n", - cap->no, tso->id); + debugBelch("cap %d: thread %lu appended to run queue\n", + cap->no, (lnat)tso->id); break; case EVENT_RUN_SPARK: // (cap, thread) - debugBelch("cap %d: thread %ld running a spark\n", - cap->no, tso->id); + debugBelch("cap %d: thread %lu running a spark\n", + cap->no, (lnat)tso->id); break; case EVENT_CREATE_SPARK_THREAD: // (cap, spark_thread) - debugBelch("cap %d: creating spark thread %ld\n", + debugBelch("cap %d: creating spark thread %lu\n", cap->no, (long)other); break; case EVENT_MIGRATE_THREAD: // (cap, thread, new_cap) - debugBelch("cap %d: thread %ld migrating to cap %d\n", - cap->no, tso->id, (int)other); + debugBelch("cap %d: thread %lu migrating to cap %d\n", + cap->no, (lnat)tso->id, (int)other); break; case EVENT_STEAL_SPARK: // (cap, thread, victim_cap) - debugBelch("cap %d: thread %ld stealing a spark from cap %d\n", - cap->no, tso->id, (int)other); + debugBelch("cap %d: thread %lu stealing a spark from cap %d\n", + cap->no, (lnat)tso->id, (int)other); break; case EVENT_THREAD_WAKEUP: // (cap, thread, other_cap) - debugBelch("cap %d: waking up thread %ld on cap %d\n", - cap->no, tso->id, (int)other); + debugBelch("cap %d: waking up thread %lu on cap %d\n", + cap->no, (lnat)tso->id, (int)other); break; case EVENT_STOP_THREAD: // (cap, thread, status) - debugBelch("cap %d: thread %ld stopped (%s)\n", - cap->no, tso->id, thread_stop_reasons[other]); + debugBelch("cap %d: thread %lu stopped (%s)\n", + cap->no, (lnat)tso->id, thread_stop_reasons[other]); break; case EVENT_SHUTDOWN: // (cap) debugBelch("cap %d: shutting down\n", cap->no); @@ -163,7 +164,8 @@ static void traceSchedEvent_stderr (Capability *cap, EventTypeNum tag, debugBelch("cap %d: finished GC\n", cap->no); break; default: - debugBelch("cap %2d: thread %ld: event %d\n\n", cap->no, tso->id, tag); + debugBelch("cap %2d: thread %lu: event %d\n\n", + cap->no, (lnat)tso->id, tag); break; } |