From e4ed2cbea1a9b80bb88a179399708e5d2bf1eb13 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Gerd=20M=C3=B6llmann?= <gerd@gnu.org>
Date: Wed, 8 Jan 2025 04:43:50 +0100
Subject: [PATCH] ; Fix an assertion

* src/lisp.h (safe_free): Don't assert only xfree can be used.
---
 src/lisp.h | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/lisp.h b/src/lisp.h
index 0d9ed9b7495..990fe6640a8 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -6185,7 +6185,12 @@ safe_free (specpdl_ref sa_count)
       specpdl_ptr--;
       if (specpdl_ptr->kind == SPECPDL_UNWIND_PTR)
 	{
+#ifdef HAVE_MPS
+	  eassert (specpdl_ptr->unwind_ptr.func == xfree
+		   || specpdl_ptr->unwind_ptr.func == igc_xfree);
+#else
 	  eassert (specpdl_ptr->unwind_ptr.func == xfree);
+#endif
 	  xfree (specpdl_ptr->unwind_ptr.arg);
 	}
       else