From db14f9df7f2f62039af85ac75ac59a4e22d09787 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sun, 26 Aug 2007 14:45:40 +0000 Subject: [PATCH] Fix retainer profiling --- rts/RetainerProfile.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/rts/RetainerProfile.c b/rts/RetainerProfile.c index 553f7e7..f752506 100644 --- a/rts/RetainerProfile.c +++ b/rts/RetainerProfile.c @@ -1439,7 +1439,7 @@ retainStack( StgClosure *c, retainer c_child_r, StgFunInfoTable *fun_info; retainClosure(ret_fun->fun, c, c_child_r); - fun_info = get_fun_itbl(ret_fun->fun); + fun_info = get_fun_itbl(UNTAG_CLOSURE(ret_fun->fun)); p = (P_)&ret_fun->payload; switch (fun_info->f.fun_type) { -- 1.7.10.4