diff options
author | Andrea Corallo <akrl@sdf.org> | 2022-08-18 16:41:26 +0200 |
---|---|---|
committer | Andrea Corallo <akrl@sdf.org> | 2022-08-18 17:11:59 +0200 |
commit | def6d57669cac76ba35595ff5266d6c85a227eee (patch) | |
tree | b47fdf94765ec4b2d33ed664ca59131f60d5f1c7 | |
parent | a7abd8f235cf25d7a8362ac1de3b6a16d25afe33 (diff) | |
download | emacs-scratch/pure-overflow-warn.tar.gz |
* src/alloc.c (pure_alloc): Warn for pure space overflowscratch/pure-overflow-warn
-rw-r--r-- | src/alloc.c | 7 |
1 files changed, 7 insertions, 0 deletions
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. */ |