From db14f9df7f2f62039af85ac75ac59a4e22d09787 Mon Sep 17 00:00:00 2001
From: Ian Lynagh <igloo@earth.li>
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 553f7e7ad10..f75250659ce 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) {
--
GitLab