From: Andreas Schwab <schwab@suse.de>
Date: Fri, 7 Dec 2001 12:32:21 +0000 (+0000)
Subject: (inhibit_garbage_collection): Don't exceed value an int can hold.
X-Git-Tag: ttn-vms-21-2-B4~17863
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=54defd0d1e9c69719e628a25c64a89ae0eb0ad0d;p=emacs.git

(inhibit_garbage_collection): Don't exceed value an int can hold.
---

diff --git a/src/alloc.c b/src/alloc.c
index 6a47b872d23..731391a779b 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -4012,7 +4012,9 @@ int
 inhibit_garbage_collection ()
 {
   int count = specpdl_ptr - specpdl;
-  specbind (Qgc_cons_threshold, make_number (MOST_POSITIVE_FIXNUM));
+  int nbits = min (VALBITS, BITS_PER_INT);
+
+  specbind (Qgc_cons_threshold, make_number (((EMACS_INT) 1 << (nbits - 1)) - 1));
   return count;
 }