From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 4 May 1995 16:19:08 +0000 (+0000)
Subject: (gc_cons_threshold): Make this an EMACS_INT.
X-Git-Tag: emacs-19.34~4179
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=26b926e143dd93baf90c788fa6bfdbc6bd47cb60;p=emacs.git

(gc_cons_threshold): Make this an EMACS_INT.
(gc_sweep): Make already_free an EMACS_INT.

(inhibit_garbage_collection): Use XSETINT, and do arithmetic in type EMACS_INT.
---

diff --git a/src/alloc.c b/src/alloc.c
index f70cb90b6af..c901a4dc228 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -69,7 +69,7 @@ static __malloc_size_t bytes_used_when_full;
 int consing_since_gc;
 
 /* Number of bytes of consing since gc before another gc should be done. */
-int gc_cons_threshold;
+EMACS_INT gc_cons_threshold;
 
 /* Nonzero during gc */
 int gc_in_progress;
@@ -1320,8 +1320,11 @@ int
 inhibit_garbage_collection ()
 {
   int count = specpdl_ptr - specpdl;
+  Lisp_Object number;
 
-  specbind (Qgc_cons_threshold, make_number ((1 << (VALBITS - 1)) - 1));
+  XSETINT (number, ((EMACS_INT) 1 << (VALBITS - 1)) - 1);
+
+  specbind (Qgc_cons_threshold, number);
 
   return count;
 }
@@ -2046,7 +2049,7 @@ gc_sweep ()
     for (mblk = marker_block; mblk; mblk = mblk->next)
       {
 	register int i;
-	int already_free = -1;
+	EMACS_INT already_free = -1;
 
 	for (i = 0; i < lim; i++)
 	  {