diff options
| author | Duncan Coutts <duncan@well-typed.com> | 2012-02-03 12:57:19 +0000 |
|---|---|---|
| committer | Duncan Coutts <duncan@well-typed.com> | 2012-04-04 19:10:44 +0100 |
| commit | 8536f09c2f310a95297b339de6084f77cc4044c1 (patch) | |
| tree | 5d558fb07d6c6c1abef09bfd64fac8a548aaa5e0 /rts/Capability.c | |
| parent | f9c2e8543cabd6661eec17d5be31469455a64e05 (diff) | |
| download | haskell-8536f09c2f310a95297b339de6084f77cc4044c1.tar.gz | |
Calculate the total memory allocated on a per-capability basis
In addition to the existing global method. For now we just do
it both ways and assert they give the same grand total. At some
stage we can simplify the global method to just take the sum of
the per-cap counters.
Diffstat (limited to 'rts/Capability.c')
| -rw-r--r-- | rts/Capability.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/rts/Capability.c b/rts/Capability.c index d1184db0ee..564953b662 100644 --- a/rts/Capability.c +++ b/rts/Capability.c @@ -250,6 +250,7 @@ initCapability( Capability *cap, nat i ) cap->spark_stats.gcd = 0; cap->spark_stats.fizzled = 0; #endif + cap->total_allocated = 0; cap->f.stgEagerBlackholeInfo = (W_)&__stg_EAGER_BLACKHOLE_info; cap->f.stgGCEnter1 = (StgFunPtr)__stg_gc_enter_1; |