summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBen Gamari <ben@smart-cactus.org>2022-11-23 19:44:18 -0500
committerMarge Bot <ben+marge-bot@smart-cactus.org>2023-03-08 15:02:30 -0500
commit9b52840412c920a1a1eed26df37262bc6c82c171 (patch)
tree8da110d188afc74e1dba017aa1197834333ad9f5
parent6283144fb2e98f4c774950567e55575c1747d136 (diff)
downloadhaskell-9b52840412c920a1a1eed26df37262bc6c82c171.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]);