summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBen Gamari <ben@smart-cactus.org>2022-11-23 19:44:18 -0500
committerZubin Duggal <zubin.duggal@gmail.com>2023-04-14 13:07:38 +0530
commit70a8ca3f573eadf383682c1c9ea35b0c893c3f2e (patch)
treee7177aa1164b0919fb74dfc13882b9cd685d227d
parenta7be6c65bf59ec1bb17c7e4c2145fb8ce56fd29f (diff)
downloadhaskell-70a8ca3f573eadf383682c1c9ea35b0c893c3f2e.tar.gz
rts/Sanity: Look at nonmoving saved_filled lists
(cherry picked from commit ce4cf9d59552b52ae3d4c1c1e71a83296f022c27)
-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 729bd2a350..3d929b8849 100644
--- a/rts/sm/Sanity.c
+++ b/rts/sm/Sanity.c
@@ -621,6 +621,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]);
@@ -1049,6 +1050,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]);