diff options
| author | Bartosz Nitka <niteria@gmail.com> | 2016-07-27 08:24:40 -0700 |
|---|---|---|
| committer | Bartosz Nitka <niteria@gmail.com> | 2016-07-27 08:25:05 -0700 |
| commit | b0a5144348d6abad18e771ad2cf3134a5724b969 (patch) | |
| tree | c9e871ca5cf4273b95cdef7caadc6bfb340f29e0 /rts/Stats.c | |
| parent | 8f63ba30b170c7063640b789ce703f68dca2c21b (diff) | |
| download | haskell-b0a5144348d6abad18e771ad2cf3134a5724b969.tar.gz | |
Add mblocks_allocated to GC stats API
This exposes mblocks_allocated in the GCStats struct.
Test Plan: it builds
Reviewers: bgamari, simonmar, austin, hvr, erikd
Reviewed By: erikd
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D2429
Diffstat (limited to 'rts/Stats.c')
| -rw-r--r-- | rts/Stats.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/rts/Stats.c b/rts/Stats.c index e422a3676d..d10738aadc 100644 --- a/rts/Stats.c +++ b/rts/Stats.c @@ -883,6 +883,7 @@ extern void getGCStats( GCStats *s ) s->max_bytes_used = max_residency*sizeof(W_); s->cumulative_bytes_used = cumulative_residency*(StgWord64)sizeof(W_); s->peak_megabytes_allocated = (StgWord64)(peak_mblocks_allocated * MBLOCK_SIZE / (1024L * 1024L)); + s->mblocks_allocated = (StgWord64)mblocks_allocated; s->bytes_copied = GC_tot_copied*(StgWord64)sizeof(W_); s->max_bytes_slop = max_slop*(StgWord64)sizeof(W_); s->current_bytes_used = current_residency*(StgWord64)sizeof(W_); |