From: Andrea Corallo <akrl@sdf.org>
Date: Wed, 17 Aug 2022 20:48:59 +0000 (+0200)
Subject: * src/pdumper.c (Fdump_emacs_portable): Check and warn for pure space overflow
X-Git-Tag: emacs-29.0.90~1447^2~55
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=095ea821208b7470da98d95820653c8d527cd745;p=emacs.git

* src/pdumper.c (Fdump_emacs_portable): Check and warn for pure space overflow
---

diff --git a/src/alloc.c b/src/alloc.c
index 6e166d00d5b..2ffee9f729d 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -5355,9 +5355,6 @@ pure_alloc (size_t size, int type)
   goto again;
 }
 
-
-#ifdef HAVE_UNEXEC
-
 /* Print a warning if PURESIZE is too small.  */
 
 void
@@ -5368,8 +5365,6 @@ check_pure_size (void)
 	      " bytes needed)"),
 	     pure_bytes_used + pure_bytes_used_before_overflow);
 }
-#endif
-
 
 /* Find the byte sequence {DATA[0], ..., DATA[NBYTES-1], '\0'} from
    the non-Lisp data pool of the pure storage, and return its start
diff --git a/src/pdumper.c b/src/pdumper.c
index 33cb804dbae..168027726c5 100644
--- a/src/pdumper.c
+++ b/src/pdumper.c
@@ -4040,6 +4040,8 @@ types.  */)
   if (!NILP (XCDR (Fall_threads ())))
     error ("No other Lisp threads can be running when this function is called");
 
+  check_pure_size ();
+
   /* Clear out any detritus in memory.  */
   do
     {