diff options
| author | Ross Paterson <ross@soi.city.ac.uk> | 2011-11-04 15:42:16 +0000 |
|---|---|---|
| committer | Ross Paterson <ross@soi.city.ac.uk> | 2011-11-04 15:42:16 +0000 |
| commit | ed26b477377ac4ac2277a82effb8d1b830843851 (patch) | |
| tree | b93b80be9b27f361d1355fb97ff307288e7654f8 /rts/Trace.c | |
| parent | da11a22547426f717cab676c6fc03cda42dbd6c5 (diff) | |
| parent | c739d845f9b3fc67ee20aa3de7e876cb1327bb1a (diff) | |
| download | haskell-ed26b477377ac4ac2277a82effb8d1b830843851.tar.gz | |
Merge branch 'master' of http://darcs.haskell.org//ghc
Diffstat (limited to 'rts/Trace.c')
| -rw-r--r-- | rts/Trace.c | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/rts/Trace.c b/rts/Trace.c index a3aa266c4e..1671bfeb36 100644 --- a/rts/Trace.c +++ b/rts/Trace.c @@ -547,6 +547,24 @@ void traceUserMsg(Capability *cap, char *msg) traceFormatUserMsg(cap, "%s", msg); } +void traceThreadLabel_(Capability *cap, + StgTSO *tso, + char *label) +{ +#ifdef DEBUG + if (RtsFlags.TraceFlags.tracing == TRACE_STDERR) { + ACQUIRE_LOCK(&trace_utx); + tracePreface(); + debugBelch("cap %d: thread %lu has label %s\n", + cap->no, (lnat)tso->id, label); + RELEASE_LOCK(&trace_utx); + } else +#endif + { + postThreadLabel(cap, tso->id, label); + } +} + void traceThreadStatus_ (StgTSO *tso USED_IF_DEBUG) { #ifdef DEBUG |