From 89e034a7acef12ad187b95a8b45970c89fdc9e0b Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Thu, 18 Aug 2022 16:41:26 +0200 Subject: [PATCH] * src/alloc.c (pure_alloc): Warn for pure space overflow --- src/alloc.c | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/src/alloc.c b/src/alloc.c index 2ffee9f729..34bedac36b 100644 --- a/src/alloc.c +++ b/src/alloc.c @@ -5314,6 +5314,7 @@ valid_lisp_object_p (Lisp_Object obj) 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. */ -- 2.25.1