summaryrefslogtreecommitdiff
path: root/rts
diff options
context:
space:
mode:
authorBen Gamari <ben@smart-cactus.org>2022-11-18 14:28:37 -0500
committerMarge Bot <ben+marge-bot@smart-cactus.org>2023-03-08 15:02:30 -0500
commit6283144fb2e98f4c774950567e55575c1747d136 (patch)
tree1d6cf734d64b2d913c2a3f387907f67d544c96fd /rts
parent5b7f65767fbc2967e01a13ee580598e976f5d225 (diff)
downloadhaskell-6283144fb2e98f4c774950567e55575c1747d136.tar.gz
rts/Sanity: Mark pinned_object_blocks
Diffstat (limited to 'rts')
-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 a77eb08d7a..e3fa74efae 100644
--- a/rts/sm/Sanity.c
+++ b/rts/sm/Sanity.c
@@ -1053,6 +1053,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);
}