scratch/igc 640d5b9cdd1: Die if pure space overflows and we're using MPS

[Pip Cet]

branch: scratch/igc
commit 640d5b9cdd1c67944cc48a112d416c43c3e8d5c8
Author: Pip Cet <pipcet@protonmail.com>
Commit: Pip Cet <pipcet@protonmail.com>

    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.
---
 src/alloc.c | 3 +++
 1 file changed, 3 insertions(+)

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,