From: Simon Marlow <simonmar@microsoft.com>
Date: Wed, 8 Feb 2006 14:54:51 +0000 (+0000)
Subject: fix a bug in closure_sizeW_()
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=a50e6825494446fdf579a7580d402c99e013657e

fix a bug in closure_sizeW_()
---

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