diff options
| author | Adam Sandberg Ericsson <adam@sandbergericsson.se> | 2020-05-03 18:47:20 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-12-20 20:45:55 -0500 |
| commit | 35fa0786b6ded2420f0a07446c8e45bff9bb01e0 (patch) | |
| tree | 6b2014ceee09be269379c28f3fa9110b6bd60eba /rts/Schedule.c | |
| parent | 65721691ce9c4107d1cf84ad131bf167a9e42a7d (diff) | |
| download | haskell-35fa0786b6ded2420f0a07446c8e45bff9bb01e0.tar.gz | |
rts: enable thread label table in all RTS flavours #17972
Diffstat (limited to 'rts/Schedule.c')
| -rw-r--r-- | rts/Schedule.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/rts/Schedule.c b/rts/Schedule.c index a5bd11bf5e..8a07e97ba1 100644 --- a/rts/Schedule.c +++ b/rts/Schedule.c @@ -1356,9 +1356,8 @@ scheduleHandleThreadFinished (Capability *cap, Task *task, StgTSO *t) task->incall->rstat = Killed; } } -#if defined(DEBUG) + removeThreadLabel((StgWord)task->incall->tso->id); -#endif // We no longer consider this thread and task to be bound to // each other. The TSO lives on until it is GC'd, but the |