diff options
Diffstat (limited to 'rts/sm/Storage.c')
| -rw-r--r-- | rts/sm/Storage.c | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/rts/sm/Storage.c b/rts/sm/Storage.c index 59ad231f34..4cd1bc99c9 100644 --- a/rts/sm/Storage.c +++ b/rts/sm/Storage.c @@ -186,6 +186,13 @@ initStorage (void) IF_DEBUG(gc, statDescribeGens()); RELEASE_SM_LOCK; + + traceEventHeapInfo(CAPSET_HEAP_DEFAULT, + RtsFlags.GcFlags.generations, + RtsFlags.GcFlags.maxHeapSize * BLOCK_SIZE_W * sizeof(W_), + RtsFlags.GcFlags.minAllocAreaSize * BLOCK_SIZE_W * sizeof(W_), + MBLOCK_SIZE_W * sizeof(W_), + BLOCK_SIZE_W * sizeof(W_)); } void storageAddCapabilities (nat from, nat to) |