Fix garbage collection

* src/alloc.c (free_cons): Avoid false positives in
INT_ADD_WRAPV.  (Bug#37006)

1 files changed, 3 insertions, 1 deletions

diff --git a/src/alloc.c b/src/alloc.c
index 5e089311a27..d9022ac46c3 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -2542,7 +2542,9 @@ free_cons (struct Lisp_Cons *ptr)
   ptr->u.s.u.chain = cons_free_list;
   ptr->u.s.car = dead_object ();
   cons_free_list = ptr;
-  if (INT_ADD_WRAPV (consing_until_gc, sizeof *ptr, &consing_until_gc))
+  if (consing_until_gc <= 0)
+    consing_until_gc += sizeof *ptr;
+  else if (INT_ADD_WRAPV (consing_until_gc, sizeof *ptr, &consing_until_gc))
     consing_until_gc = OBJECT_CT_MAX;
   gcstat.total_free_conses++;
 }