summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDouglas Wilson <douglas.wilson@gmail.com>2021-01-01 20:13:59 +0000
committerBen Gamari <ben@smart-cactus.org>2021-05-04 19:12:12 -0400
commite835fb1f5baf4e2c5e4bd336e5266dd0728a77e1 (patch)
tree792ae570ebe5cd49cbb358b012418e748efb2be1
parentf4ac60b95c8eed9d6c3c905338156bfe42351db5 (diff)
downloadhaskell-e835fb1f5baf4e2c5e4bd336e5266dd0728a77e1.tar.gz
rts: stats: Fix calculation for fragmentation
(cherry picked from commit 06beed685a69ed044159707363a791fd266f069b)
-rw-r--r--rts/Stats.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/Stats.c b/rts/Stats.c
index 895ff3f040..95d4df4dd1 100644
--- a/rts/Stats.c
+++ b/rts/Stats.c
@@ -1395,7 +1395,7 @@ stat_exitReport (void)
* BLOCKS_PER_MBLOCK
* BLOCK_SIZE_W
- hw_alloc_blocks * BLOCK_SIZE_W)
- / (uint64_t)sizeof(W_);
+ * (uint64_t)sizeof(W_);
sum.average_bytes_used = stats.major_gcs == 0 ? 0 :
stats.cumulative_live_bytes/stats.major_gcs,