From: Andrea Corallo <akrl@sdf.org>
Date: Thu, 18 Aug 2022 14:41:26 +0000 (+0200)
Subject: * src/alloc.c (pure_alloc): Warn for pure space overflow
X-Git-Tag: emacs-29.0.90~1447^2~54
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9297a9c45eba1b258b820af00ae60486fb79c43c;p=emacs.git

* src/alloc.c (pure_alloc): Warn for pure space overflow
---

diff --git a/src/alloc.c b/src/alloc.c
index 2ffee9f729d..34bedac36ba 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -5314,6 +5314,7 @@ static void *
 pure_alloc (size_t size, int type)
 {
   void *result;
+  static bool pure_overflow_warned = false;
 
  again:
   if (type >= 0)
@@ -5338,6 +5339,12 @@ pure_alloc (size_t size, int type)
   if (pure_bytes_used <= pure_size)
     return result;
 
+  if (!pure_overflow_warned)
+    {
+      message ("Pure Lisp storage overflowed");
+      pure_overflow_warned = true;
+    }
+
   /* Don't allocate a large amount here,
      because it might get mmap'd and then its address
      might not be usable.  */