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);
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
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