diff options
author | Ben Gamari <ben@smart-cactus.org> | 2022-11-18 14:28:37 -0500 |
---|---|---|
committer | Zubin Duggal <zubin.duggal@gmail.com> | 2023-04-14 13:07:38 +0530 |
commit | a7be6c65bf59ec1bb17c7e4c2145fb8ce56fd29f (patch) | |
tree | 87bb81f712c00b6bca44aebb51499a0e26f327e3 | |
parent | 66c32a26d4c79ed19850aa0893d3e48a32b747ee (diff) | |
download | haskell-a7be6c65bf59ec1bb17c7e4c2145fb8ce56fd29f.tar.gz |
rts/Sanity: Mark pinned_object_blocks
(cherry picked from commit 3223048a1ee73384010aa20be548bad95ef1744a)
-rw-r--r-- | rts/sm/Sanity.c | 1 |
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); } |