summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBen Gamari <ben@smart-cactus.org>2022-11-23 19:44:18 -0500
committerBen Gamari <ben@smart-cactus.org>2023-01-09 13:55:05 -0500
commit07a70cd0e6b6d636cf6c68e6a96e89712a6809a7 (patch)
tree565c9e098ca2db664c98ed6e5143330f6a2fcc87
parent8906d0e4dc987638e56a30d5e8f448c454ec220f (diff)
downloadhaskell-07a70cd0e6b6d636cf6c68e6a96e89712a6809a7.tar.gz
rts/Sanity: Look at nonmoving saved_filled lists
-rw-r--r--rts/sm/Sanity.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/rts/sm/Sanity.c b/rts/sm/Sanity.c
index e3fa74efae..a8a7a3d9c6 100644
--- a/rts/sm/Sanity.c
+++ b/rts/sm/Sanity.c
@@ -634,6 +634,7 @@ void checkNonmovingHeap (const struct NonmovingHeap *heap)
for (unsigned int i=0; i < NONMOVING_ALLOCA_CNT; i++) {
const struct NonmovingAllocator *alloc = heap->allocators[i];
checkNonmovingSegments(alloc->filled);
+ checkNonmovingSegments(alloc->saved_filled);
checkNonmovingSegments(alloc->active);
for (unsigned int cap=0; cap < getNumCapabilities(); cap++) {
checkNonmovingSegments(alloc->current[cap]);
@@ -1066,6 +1067,7 @@ findMemoryLeak (void)
for (i = 0; i < NONMOVING_ALLOCA_CNT; i++) {
struct NonmovingAllocator *alloc = nonmovingHeap.allocators[i];
markNonMovingSegments(alloc->filled);
+ markNonMovingSegments(alloc->saved_filled);
markNonMovingSegments(alloc->active);
for (j = 0; j < getNumCapabilities(); j++) {
markNonMovingSegments(alloc->current[j]);