diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-05-04 16:19:08 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-05-04 16:19:08 +0000 |
| commit | ab076539546566cbc3fdb8701a359244f7af7770 (patch) | |
| tree | e3c3bf1b421c9b6254360470521ab52d4e601da5 /src | |
| parent | 1ddd4b790aa6529a25b238e249d2bbea398e5297 (diff) | |
| download | emacs-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.c | 9 |
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++) { |