From: Paul Eggert <eggert@cs.ucla.edu>
Date: Tue, 23 Jul 2019 01:05:31 +0000 (-0700)
Subject: Keep track of consing while GC’s inhibited
X-Git-Tag: emacs-27.0.90~1817^2~164
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c34496d0b956abc9d1ad55daa53ba626138233f4;p=emacs.git

Keep track of consing while GC’s inhibited

* src/alloc.c (allow_garbage_collection): Do not discard the count
of consing that occurred while GC was inhibited.
Problem and initial fix reported by Pip Cet in:
https://lists.gnu.org/r/emacs-devel/2019-07/msg00523.html
---

diff --git a/src/alloc.c b/src/alloc.c
index aa9200f2ebb..5d8003ffb5c 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -5507,7 +5507,7 @@ staticpro (Lisp_Object const *varaddress)
 static void
 allow_garbage_collection (intmax_t consing)
 {
-  consing_until_gc = consing;
+  consing_until_gc -= OBJECT_CT_MAX - consing;
   garbage_collection_inhibited--;
 }