projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
beb5737
)
fix a bug in closure_sizeW_()
author
Simon Marlow
<simonmar@microsoft.com>
Wed, 8 Feb 2006 14:54:51 +0000
(14:54 +0000)
committer
Simon Marlow
<simonmar@microsoft.com>
Wed, 8 Feb 2006 14:54:51 +0000
(14:54 +0000)
ghc/includes/Storage.h
patch
|
blob
|
history
diff --git
a/ghc/includes/Storage.h
b/ghc/includes/Storage.h
index
8cfd511
..
c339c4e
100644
(file)
--- 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)
{