Permalink
Browse files

Fix retainer profiling

  • Loading branch information...
1 parent ed5cbfc commit db14f9df7f2f62039af85ac75ac59a4e22d09787 @igfoo igfoo committed Aug 26, 2007
Showing with 1 addition and 1 deletion.
  1. +1 −1 rts/RetainerProfile.c
View
2 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) {

0 comments on commit db14f9d

Please sign in to comment.