Mercurial > emacs

changeset 11679:1ced2d67d411

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.
author Richard M. Stallman <rms@gnu.org>
date Thu, 04 May 1995 16:19:08 +0000
parents c0e33cdebfab
children fef963992a7a
files src/alloc.c
diffstat 1 files changed, 6 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/src/alloc.c	Thu May 04 16:17:44 1995 +0000
+++ b/src/alloc.c	Thu May 04 16:19:08 1995 +0000
@@ -69,7 +69,7 @@
 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 @@
 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 @@
     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++)
 	  {