Commit a50e6825 authored by Simon Marlow's avatar Simon Marlow
Browse files

fix a bug in closure_sizeW_()

parent beb5737b
......@@ -375,6 +375,8 @@ closure_sizeW_ (StgClosure *p, StgInfoTable *info)
case FUN_2_0:
case CONSTR_2_0:
return sizeofW(StgHeader) + 2;
case THUNK:
return thunk_sizeW_fromITBL(info);
case THUNK_SELECTOR:
return THUNK_SELECTOR_sizeW();
case AP_STACK:
......@@ -411,6 +413,7 @@ closure_sizeW_ (StgClosure *p, StgInfoTable *info)
}
}
// The definitive way to find the size, in words, of a heap-allocated closure
STATIC_INLINE nat
closure_sizeW (StgClosure *p)
{
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment