From 290443aee60e4402c1dcb740ba541718607bd4e4 Mon Sep 17 00:00:00 2001
From: daanx <daanx@effp.org>
Date: Thu, 13 Apr 2023 11:41:08 -0700
Subject: [PATCH] fix assertion/invariant

---
 src/segment.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/segment.c b/src/segment.c
index 1ba2209d..5542705d 100644
--- a/src/segment.c
+++ b/src/segment.c
@@ -355,8 +355,8 @@ static void mi_pages_try_purge(mi_segments_tld_t* tld) {
   mi_page_t* page = pq->last;
   while (page != NULL && mi_page_purge_is_expired(page,now)) {
     mi_page_t* const prev = page->prev; // save previous field
+    mi_page_purge_remove(page, tld);    // remove from the list to maintain invariant for mi_page_purge
     mi_page_purge(_mi_page_segment(page), page, tld);
-    page->prev = page->next = NULL;
     page = prev;
   }
   // discard the reset pages from the queue