diff options
| author | Ian Lynagh <igloo@earth.li> | 2007-08-26 14:45:40 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2007-08-26 14:45:40 +0000 |
| commit | db14f9df7f2f62039af85ac75ac59a4e22d09787 (patch) | |
| tree | 40df156e0c0a90e2aa5d8256b3bfa8c1d4b30692 | |
| parent | ed5cbfcb0a4c62e755bd23ec70475deda5899634 (diff) | |
| download | haskell-Before_type_family_merge.tar.gz | |
Fix retainer profilingBefore_type_family_merge
| -rw-r--r-- | rts/RetainerProfile.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/RetainerProfile.c b/rts/RetainerProfile.c index 553f7e7ad1..f75250659c 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) { |