From a50e6825494446fdf579a7580d402c99e013657e Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Wed, 8 Feb 2006 14:54:51 +0000 Subject: [PATCH] fix a bug in closure_sizeW_() --- ghc/includes/Storage.h | 3 +++ 1 file changed, 3 insertions(+) diff --git a/ghc/includes/Storage.h b/ghc/includes/Storage.h index 8cfd511..c339c4e 100644 --- a/ghc/includes/Storage.h +++ b/ghc/includes/Storage.h @@ -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) { -- 1.7.10.4