summaryrefslogtreecommitdiff
path: root/rts/Stats.c
diff options
context:
space:
mode:
authorDouglas Wilson <douglas.wilson@gmail.com>2021-01-01 20:13:59 +0000
committerMarge Bot <ben+marge-bot@smart-cactus.org>2021-01-09 21:21:02 -0500
commit06beed685a69ed044159707363a791fd266f069b (patch)
treebeac94eb63eaec5d56e3a79c34b13e02a3c0d644 /rts/Stats.c
parentf49d6fb27336297d6d7a46269a22dd98c131b4a8 (diff)
downloadhaskell-06beed685a69ed044159707363a791fd266f069b.tar.gz
rts: stats: Fix calculation for fragmentation
Diffstat (limited to 'rts/Stats.c')
-rw-r--r--rts/Stats.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/Stats.c b/rts/Stats.c
index 654edebb55..cee1a2ad90 100644
--- a/rts/Stats.c
+++ b/rts/Stats.c
@@ -1399,7 +1399,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,