summaryrefslogtreecommitdiff
path: root/rts/Trace.c
diff options
context:
space:
mode:
authorAustin Seipp <austin@well-typed.com>2014-08-20 12:16:09 -0500
committerAustin Seipp <austin@well-typed.com>2014-08-20 12:16:09 -0500
commit43c68d650457f81dc0e06956bb143e4d2b359d44 (patch)
treec453e2b3d26a8f2a07d641914b9236ab6f81dbc1 /rts/Trace.c
parent514a6310281c1f810508115a41c25c02305f914e (diff)
downloadhaskell-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.c40
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);