diff options
Diffstat (limited to 'rts/sm/NonMovingMark.c')
| -rw-r--r-- | rts/sm/NonMovingMark.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/rts/sm/NonMovingMark.c b/rts/sm/NonMovingMark.c index 3b227bb805..75fe88b03b 100644 --- a/rts/sm/NonMovingMark.c +++ b/rts/sm/NonMovingMark.c @@ -990,6 +990,9 @@ trace_tso (MarkQueue *queue, StgTSO *tso) trace_trec_header(queue, tso->trec); markQueuePushClosure_(queue, (StgClosure *) tso->stackobj); markQueuePushClosure_(queue, (StgClosure *) tso->_link); + if (tso->label != NULL) { + markQueuePushClosure_(queue, (StgClosure *) tso->label); + } if ( tso->why_blocked == BlockedOnMVar || tso->why_blocked == BlockedOnMVarRead || tso->why_blocked == BlockedOnBlackHole |