summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBen Gamari <ben@smart-cactus.org>2022-11-18 14:28:37 -0500
committerZubin Duggal <zubin.duggal@gmail.com>2023-04-14 13:07:38 +0530
commita7be6c65bf59ec1bb17c7e4c2145fb8ce56fd29f (patch)
tree87bb81f712c00b6bca44aebb51499a0e26f327e3
parent66c32a26d4c79ed19850aa0893d3e48a32b747ee (diff)
downloadhaskell-a7be6c65bf59ec1bb17c7e4c2145fb8ce56fd29f.tar.gz
rts/Sanity: Mark pinned_object_blocks
(cherry picked from commit 3223048a1ee73384010aa20be548bad95ef1744a)
-rw-r--r--rts/sm/Sanity.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/rts/sm/Sanity.c b/rts/sm/Sanity.c
index c63fcd46c9..729bd2a350 100644
--- a/rts/sm/Sanity.c
+++ b/rts/sm/Sanity.c
@@ -1036,6 +1036,7 @@ findMemoryLeak (void)
for (i = 0; i < getNumCapabilities(); i++) {
markBlocks(gc_threads[i]->free_blocks);
markBlocks(getCapability(i)->pinned_object_block);
+ markBlocks(getCapability(i)->pinned_object_blocks);
markBlocks(getCapability(i)->upd_rem_set.queue.blocks);
}