scratch/igc 8d4e37dfedd: Alloc hash table user tests as roots

[Gerd Moellmann]

branch: scratch/igc
commit 8d4e37dfedd67923cfb417a5e40985db19eb78b6
Author: Gerd Möllmann <gerd@gnu.org>
Commit: Gerd Möllmann <gerd@gnu.org>

    Alloc hash table user tests as roots
---
 src/fns.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/fns.c b/src/fns.c
index 65994f45dcc..8f818694bef 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -5741,7 +5741,11 @@ get_hash_table_user_test (Lisp_Object test)
     ut = ut->next;
   if (!ut)
     {
+#ifdef HAVE_MPS
+      ut = igc_xzalloc_ambig (sizeof *ut);
+#else
       ut = xmalloc (sizeof *ut);
+#endif
       ut->test.name = test;
       ut->test.user_cmp_function = equal_fn;
       ut->test.user_hash_function = hash_fn;