scratch/igc 1570776d13a: Fix alloc in sort.c

[Gerd Moellmann]

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

    Fix alloc in sort.c
---
 src/sort.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/sort.c b/src/sort.c
index d8bfc65c766..a44bc75a516 100644
--- a/src/sort.c
+++ b/src/sort.c
@@ -1130,7 +1130,11 @@ tim_sort (Lisp_Object predicate, Lisp_Object keyfunc,
          /* Fill with valid Lisp values in case a GC occurs before all
             keys have been computed.  */
          verify (NIL_IS_ZERO);
+#ifdef HAVE_MPS
+         keys = allocated_keys = igc_xzalloc_ambig (length * word_size);
+#else
          keys = allocated_keys = xzalloc (length * word_size);
+#endif
        }
 
       lo.keys = keys;