Die if pure space overflows and we're using MPS

We cannot currently support this as there's no way to know which objects
have headers.

* src/alloc.c (pure_alloc) [HAVE_MPS]: Die on pure space overflow.

1 files changed, 3 insertions, 0 deletions

diff --git a/src/alloc.c b/src/alloc.c
index 2d821ca997f..7cb2e64c1d0 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -5890,6 +5890,9 @@ pure_alloc (size_t size, int type)
     {
       message ("Pure Lisp storage overflowed");
       pure_overflow_warned = true;
+#ifdef HAVE_MPS
+      error ("Cannot continue, pure space overflowed");
+#endif
     }
 
   /* Don't allocate a large amount here,