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

1 files changed, 1 insertions, 1 deletions

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--;
 }