From 7cc184af587cdc8f29608cd98b738fa0322cfec4 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Thu, 16 Dec 2010 10:39:00 +0000 Subject: [PATCH] fix retainer profiling: add missing case for TSO --- rts/RetainerProfile.c | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) diff --git a/rts/RetainerProfile.c b/rts/RetainerProfile.c index 48473d2..d125c9c 100644 --- a/rts/RetainerProfile.c +++ b/rts/RetainerProfile.c @@ -1684,6 +1684,23 @@ inner_loop: ((StgStack *)c)->stack + ((StgStack *)c)->stack_size); goto loop; + case TSO: + { + StgTSO *tso = (StgTSO *)c; + + retainClosure(tso->stackobj, c, c_child_r); + retainClosure(tso->blocked_exceptions, c, c_child_r); + retainClosure(tso->bq, c, c_child_r); + retainClosure(tso->trec, c, c_child_r); + if ( tso->why_blocked == BlockedOnMVar + || tso->why_blocked == BlockedOnBlackHole + || tso->why_blocked == BlockedOnMsgThrowTo + ) { + retainClosure(tso->block_info.closure, c, c_child_r); + } + goto loop; + } + case PAP: { StgPAP *pap = (StgPAP *)c; -- 1.7.10.4