(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 f70cb90b6af55d39beb9c623f51ce471afea5e1c..c901a4dc2283ab10d4aa3532eb85dd648037194f 100644 (file)
--- 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++)
          {