diff options
| author | Duncan Coutts <duncan@well-typed.com> | 2011-11-02 12:02:09 +0000 |
|---|---|---|
| committer | Duncan Coutts <duncan@well-typed.com> | 2011-11-04 14:13:10 +0000 |
| commit | c739d845f9b3fc67ee20aa3de7e876cb1327bb1a (patch) | |
| tree | c3139330cdaa227854aa5fda007dd37e213d9295 /rts/ThreadLabels.h | |
| parent | d416d943ef59bafa0add5685ee0687f25db2d276 (diff) | |
| download | haskell-c739d845f9b3fc67ee20aa3de7e876cb1327bb1a.tar.gz | |
Add eventlog event for thread labels
The existing GHC.Conc.labelThread will now also emit the the thread
label into the eventlog. Profiling tools like ThreadScope could then
use the thread labels rather than thread numbers.
Diffstat (limited to 'rts/ThreadLabels.h')
| -rw-r--r-- | rts/ThreadLabels.h | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/rts/ThreadLabels.h b/rts/ThreadLabels.h index 254b91ed10..742e77ae58 100644 --- a/rts/ThreadLabels.h +++ b/rts/ThreadLabels.h @@ -17,8 +17,10 @@ void initThreadLabelTable (void); void freeThreadLabelTable (void); void * lookupThreadLabel (StgWord key); void removeThreadLabel (StgWord key); -void labelThread (StgPtr tso, char *label); #endif +void labelThread (Capability *cap, + StgTSO *tso, + char *label); #include "EndPrivate.h" |