Fix arithmetic overflow in GC consing count

* src/alloc.c (allow_garbage_collection):
Redo expression to avoid signed arithmetic overflow
in an intermediate expression when CONSING is negative.

1 files changed, 1 insertions, 1 deletions

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