Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Fix retainer profiling

  • Loading branch information...
commit db14f9df7f2f62039af85ac75ac59a4e22d09787 1 parent ed5cbfc
@igfoo igfoo authored
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) {
Please sign in to comment.
Something went wrong with that request. Please try again.