diff options
author | Ben Gamari <ben@smart-cactus.org> | 2022-11-18 14:28:37 -0500 |
---|---|---|
committer | Ben Gamari <ben@smart-cactus.org> | 2023-01-09 13:55:04 -0500 |
commit | 8906d0e4dc987638e56a30d5e8f448c454ec220f (patch) | |
tree | 71560268f6b34e554ebc9f99bc258d434f30d1b9 | |
parent | d460fe22506b20f74b3ff8b9bbbbf2969bbf89b5 (diff) | |
download | haskell-8906d0e4dc987638e56a30d5e8f448c454ec220f.tar.gz |
rts/Sanity: Mark pinned_object_blocks
-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 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); } |