From c34496d0b956abc9d1ad55daa53ba626138233f4 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Mon, 22 Jul 2019 18:05:31 -0700 Subject: [PATCH] =?utf8?q?Keep=20track=20of=20consing=20while=20GC?= =?utf8?q?=E2=80=99s=20inhibited?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit * 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 --- src/alloc.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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--; } -- 2.39.2