summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1995-05-04 16:19:08 +0000
committerRichard M. Stallman <rms@gnu.org>1995-05-04 16:19:08 +0000
commitab076539546566cbc3fdb8701a359244f7af7770 (patch)
treee3c3bf1b421c9b6254360470521ab52d4e601da5 /src
parent1ddd4b790aa6529a25b238e249d2bbea398e5297 (diff)
downloademacs-ab076539546566cbc3fdb8701a359244f7af7770.tar.gz
(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.
Diffstat (limited to 'src')
-rw-r--r--src/alloc.c9
1 files changed, 6 insertions, 3 deletions
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++)
{