diff options
Diffstat (limited to 'rts/sm/Scav.c')
| -rw-r--r-- | rts/sm/Scav.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/rts/sm/Scav.c b/rts/sm/Scav.c index b121c010ca..69ccea7bc3 100644 --- a/rts/sm/Scav.c +++ b/rts/sm/Scav.c @@ -337,7 +337,8 @@ scavenge_PAP_payload (StgClosure *fun, StgClosure **payload, StgWord size) StgWord bitmap; const StgFunInfoTable *fun_info; - fun_info = get_fun_itbl(UNTAG_CONST_CLOSURE(fun)); + fun = UNTAG_CLOSURE(fun); + fun_info = get_fun_itbl(fun); ASSERT(fun_info->i.type != PAP); p = (StgPtr)payload; |