diff options
author | Austin Seipp <austin@well-typed.com> | 2014-08-20 12:16:09 -0500 |
---|---|---|
committer | Austin Seipp <austin@well-typed.com> | 2014-08-20 12:16:09 -0500 |
commit | 43c68d650457f81dc0e06956bb143e4d2b359d44 (patch) | |
tree | c453e2b3d26a8f2a07d641914b9236ab6f81dbc1 /rts/Trace.c | |
parent | 514a6310281c1f810508115a41c25c02305f914e (diff) | |
download | haskell-43c68d650457f81dc0e06956bb143e4d2b359d44.tar.gz |
rts: detabify/dewhitespace Trace.c
Signed-off-by: Austin Seipp <austin@well-typed.com>
Diffstat (limited to 'rts/Trace.c')
-rw-r--r-- | rts/Trace.c | 40 |
1 files changed, 20 insertions, 20 deletions
diff --git a/rts/Trace.c b/rts/Trace.c index 4671919896..b69c035d48 100644 --- a/rts/Trace.c +++ b/rts/Trace.c @@ -165,7 +165,7 @@ static void tracePreface (void) debugBelch("%12lx: ", (unsigned long)osThreadId()); #endif if (RtsFlags.TraceFlags.timestamp) { - debugBelch("%9" FMT_Word64 ": ", stat_getElapsedTime()); + debugBelch("%9" FMT_Word64 ": ", stat_getElapsedTime()); } } #endif @@ -194,8 +194,8 @@ static char *thread_stop_reasons[] = { #endif #ifdef DEBUG -static void traceSchedEvent_stderr (Capability *cap, EventTypeNum tag, - StgTSO *tso, +static void traceSchedEvent_stderr (Capability *cap, EventTypeNum tag, + StgTSO *tso, StgWord info1 STG_UNUSED, StgWord info2 STG_UNUSED) { @@ -204,26 +204,26 @@ static void traceSchedEvent_stderr (Capability *cap, EventTypeNum tag, tracePreface(); switch (tag) { case EVENT_CREATE_THREAD: // (cap, thread) - debugBelch("cap %d: created thread %" FMT_Word "\n", + debugBelch("cap %d: created thread %" FMT_Word "\n", cap->no, (W_)tso->id); break; case EVENT_RUN_THREAD: // (cap, thread) - debugBelch("cap %d: running thread %" FMT_Word " (%s)\n", + debugBelch("cap %d: running thread %" FMT_Word " (%s)\n", cap->no, (W_)tso->id, what_next_strs[tso->what_next]); break; case EVENT_THREAD_RUNNABLE: // (cap, thread) - debugBelch("cap %d: thread %" FMT_Word " appended to run queue\n", + debugBelch("cap %d: thread %" FMT_Word " appended to run queue\n", cap->no, (W_)tso->id); break; case EVENT_MIGRATE_THREAD: // (cap, thread, new_cap) - debugBelch("cap %d: thread %" FMT_Word " migrating to cap %d\n", + debugBelch("cap %d: thread %" FMT_Word " migrating to cap %d\n", cap->no, (W_)tso->id, (int)info1); break; case EVENT_THREAD_WAKEUP: // (cap, thread, info1_cap) - debugBelch("cap %d: waking up thread %" FMT_Word " on cap %d\n", + debugBelch("cap %d: waking up thread %" FMT_Word " on cap %d\n", cap->no, (W_)tso->id, (int)info1); break; - + case EVENT_STOP_THREAD: // (cap, thread, status) if (info1 == 6 + BlockedOnBlackHole) { debugBelch("cap %d: thread %" FMT_Word " stopped (blocked on black hole owned by thread %lu)\n", @@ -234,7 +234,7 @@ static void traceSchedEvent_stderr (Capability *cap, EventTypeNum tag, } break; default: - debugBelch("cap %d: thread %" FMT_Word ": event %d\n\n", + debugBelch("cap %d: thread %" FMT_Word ": event %d\n\n", cap->no, (W_)tso->id, tag); break; } @@ -243,7 +243,7 @@ static void traceSchedEvent_stderr (Capability *cap, EventTypeNum tag, } #endif -void traceSchedEvent_ (Capability *cap, EventTypeNum tag, +void traceSchedEvent_ (Capability *cap, EventTypeNum tag, StgTSO *tso, StgWord info1, StgWord info2) { #ifdef DEBUG @@ -499,7 +499,7 @@ void traceOSProcessInfo_(void) { } #ifdef DEBUG -static void traceSparkEvent_stderr (Capability *cap, EventTypeNum tag, +static void traceSparkEvent_stderr (Capability *cap, EventTypeNum tag, StgWord info1) { ACQUIRE_LOCK(&trace_utx); @@ -508,7 +508,7 @@ static void traceSparkEvent_stderr (Capability *cap, EventTypeNum tag, switch (tag) { case EVENT_CREATE_SPARK_THREAD: // (cap, spark_thread) - debugBelch("cap %d: creating spark thread %lu\n", + debugBelch("cap %d: creating spark thread %lu\n", cap->no, (long)info1); break; case EVENT_SPARK_CREATE: // (cap) @@ -516,27 +516,27 @@ static void traceSparkEvent_stderr (Capability *cap, EventTypeNum tag, cap->no); break; case EVENT_SPARK_DUD: // (cap) - debugBelch("cap %d: discarded dud spark\n", + debugBelch("cap %d: discarded dud spark\n", cap->no); break; case EVENT_SPARK_OVERFLOW: // (cap) - debugBelch("cap %d: discarded overflowed spark\n", + debugBelch("cap %d: discarded overflowed spark\n", cap->no); break; case EVENT_SPARK_RUN: // (cap) - debugBelch("cap %d: running a spark\n", + debugBelch("cap %d: running a spark\n", cap->no); break; case EVENT_SPARK_STEAL: // (cap, victim_cap) - debugBelch("cap %d: stealing a spark from cap %d\n", + debugBelch("cap %d: stealing a spark from cap %d\n", cap->no, (int)info1); break; case EVENT_SPARK_FIZZLE: // (cap) - debugBelch("cap %d: fizzled spark removed from pool\n", + debugBelch("cap %d: fizzled spark removed from pool\n", cap->no); break; case EVENT_SPARK_GC: // (cap) - debugBelch("cap %d: GCd spark removed from pool\n", + debugBelch("cap %d: GCd spark removed from pool\n", cap->no); break; default: @@ -639,7 +639,7 @@ void traceCap_(Capability *cap, char *msg, ...) { va_list ap; va_start(ap,msg); - + #ifdef DEBUG if (RtsFlags.TraceFlags.tracing == TRACE_STDERR) { traceCap_stderr(cap, msg, ap); |