diff options
author | Ben Gamari <bgamari.foss@gmail.com> | 2017-10-16 15:28:02 -0400 |
---|---|---|
committer | Ben Gamari <ben@smart-cactus.org> | 2017-10-16 17:24:49 -0400 |
commit | 7e790b38c205da67681f632b00faf7a0ea33510d (patch) | |
tree | c23e0efca6d007dc2120d951a291e45bf08c7fa8 /rts/Sparks.c | |
parent | 5dab54428229a8d4f1658c4ad94f616b211851fe (diff) | |
download | haskell-7e790b38c205da67681f632b00faf7a0ea33510d.tar.gz |
rts: Label all threads created by the RTS
Reviewers: austin, erikd, simonmar
Reviewed By: simonmar
Subscribers: pacak, rwbarton, thomie
Differential Revision: https://phabricator.haskell.org/D4068
Diffstat (limited to 'rts/Sparks.c')
-rw-r--r-- | rts/Sparks.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/rts/Sparks.c b/rts/Sparks.c index ecd3c38a17..a31a5dfbe5 100644 --- a/rts/Sparks.c +++ b/rts/Sparks.c @@ -14,6 +14,7 @@ #include "Trace.h" #include "Prelude.h" #include "Sparks.h" +#include "ThreadLabels.h" #include "sm/HeapAlloc.h" #if defined(THREADED_RTS) @@ -43,7 +44,7 @@ createSparkThread (Capability *cap) tso = createIOThread (cap, RtsFlags.GcFlags.initialStkSize, (StgClosure *)runSparks_closure); - + labelThread(cap, tso, "spark evaluator"); traceEventCreateSparkThread(cap, tso->id); appendToRunQueue(cap,tso); |