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 aa9200f2ebbcb4afc690b941f73bcbc148559f01..5d8003ffb5c61e2553dc0b8dfdf166224d9704a1 100644 (file)
--- 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--;
 }