From a2976709fc89058dbd32fb85fcfcd2c174b5c9fc Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Gerd=20M=C3=B6llmann?= <gerd@gnu.org>
Date: Thu, 4 Jul 2024 09:40:31 +0200
Subject: [PATCH] Trace strings in struct sortstr

---
 src/buffer.c | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/src/buffer.c b/src/buffer.c
index 09423e8592a..844beff5197 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -3396,7 +3396,15 @@ record_overlay_string (struct sortstrlist *ssl, Lisp_Object str,
   ptrdiff_t nbytes;
 
   if (ssl->used == ssl->size)
-    ssl->buf = xpalloc (ssl->buf, &ssl->size, 5, -1, sizeof *ssl->buf);
+    {
+#ifdef HAVE_MPS
+      /* Never freed. */
+      eassert (ssl == &overlay_heads || ssl == &overlay_tails);
+      ssl->buf = igc_xpalloc_ambig (ssl->buf, &ssl->size, 5, -1, sizeof *ssl->buf);
+#else
+      ssl->buf = xpalloc (ssl->buf, &ssl->size, 5, -1, sizeof *ssl->buf);
+#endif
+    }
   ssl->buf[ssl->used].string = str;
   ssl->buf[ssl->used].string2 = str2;
   ssl->buf[ssl->used].size = size;