From abbfde4c31188b330d6ff1eb595cc56981213394 Mon Sep 17 00:00:00 2001
From: valerioedu <valerio.tangari@icloud.com>
Date: Sat, 15 Mar 2025 22:22:05 +0100
Subject: [PATCH] Fix issue with pages_purge list in _mi_segments_collect

---
 src/segment.c | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/src/segment.c b/src/segment.c
index e2730b7f..7c1759ae 100644
--- a/src/segment.c
+++ b/src/segment.c
@@ -524,6 +524,22 @@ void _mi_segments_collect(bool force, mi_segments_tld_t* tld) {
   mi_pages_try_purge(force,tld);
   #if MI_DEBUG>=2
   if (!_mi_is_main_thread()) {
+    if (tld->pages_purge.first != NULL) {
+      mi_page_t* p = tld->pages_purge.first;
+      _mi_warning_message("pages_purge list is not empty. First page: %p\n", (void*)tld->pages_purge.first);
+      while (p != NULL) {
+        mi_assert_internal(p->segment_in_use);
+        p = p->next;
+      }
+    }
+    if (tld->pages_purge.last != NULL) {
+      mi_page_t* p = tld->pages_purge.last;
+      _mi_warning_message("pages_purge list is not empty. Last page: %p\n", (void*)tld->pages_purge.last);
+      while (p != NULL) {
+        mi_assert_internal(p->segment_in_use);
+        p = p->prev;
+      }
+    }
     mi_assert_internal(tld->pages_purge.first == NULL);
     mi_assert_internal(tld->pages_purge.last == NULL);
   }