summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthew Pickering <matthewtpickering@gmail.com>2021-03-12 05:37:42 -0500
committerMatthew Pickering <matthewtpickering@gmail.com>2021-04-01 04:24:12 -0400
commit68f1bfee539d9580be719946dac0d5ec77ef3ef1 (patch)
treeb6ba9d05aa6125d0fbaa7dde8bd7d3bdcce683e3
parent706fad606db25af66ba62dd7405128b508446f59 (diff)
downloadhaskell-wip/sanity-copy-paste.tar.gz
Fix copy+pasto in Sanity.cwip/sanity-copy-paste
-rw-r--r--rts/sm/Sanity.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/sm/Sanity.c b/rts/sm/Sanity.c
index b39559a653..ceb71c59ec 100644
--- a/rts/sm/Sanity.c
+++ b/rts/sm/Sanity.c
@@ -1273,7 +1273,7 @@ memInventory (bool show)
debugBelch(" nursery : %5" FMT_Word " blocks (%6.1lf MB)\n",
nursery_blocks, MB(nursery_blocks));
debugBelch(" empty pinned : %5" FMT_Word " blocks (%6.1lf MB)\n",
- nursery_blocks, MB(free_pinned_blocks));
+ free_pinned_blocks, MB(free_pinned_blocks));
debugBelch(" retainer : %5" FMT_Word " blocks (%6.1lf MB)\n",
retainer_blocks, MB(retainer_blocks));
debugBelch(" arena blocks : %5" FMT_Word " blocks (%6.1lf MB)\n",