summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPaul Eggert <eggert@cs.ucla.edu>2019-08-13 12:28:53 -0700
committerPaul Eggert <eggert@cs.ucla.edu>2019-08-13 12:29:13 -0700
commitf4974d6fe6137f436763998be27afafea9866098 (patch)
treed94eb04757fbd52247393522ad80b1c45834ebd1
parentb80559be212292d44ce14ca5e94505cab4d9a868 (diff)
downloademacs-f4974d6fe6137f436763998be27afafea9866098.tar.gz
Don’t increase consing_until_gc when out of memory
* src/alloc.c (memory_full): Don’t increase consing_until_gc. Suggested by Eli Zaretskii (Bug#37006#46).
-rw-r--r--src/alloc.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/alloc.c b/src/alloc.c
index 14b0a7b8381..0548a09cb8b 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -3866,7 +3866,7 @@ memory_full (size_t nbytes)
if (! enough_free_memory)
{
Vmemory_full = Qt;
- consing_until_gc = memory_full_cons_threshold;
+ consing_until_gc = min (consing_until_gc, memory_full_cons_threshold);
/* The first time we get here, free the spare memory. */
for (int i = 0; i < ARRAYELTS (spare_memory); i++)