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 | 26b926e143dd93baf90c788fa6bfdbc6bd47cb60 (patch) | |
| tree | 9a180362f424749b1c8cdd0a610b0d1ede7b4ca4 /src/alloc.c | |
| parent | 9fa17f930462502c6914e47386446c9055abb0da (diff) | |
| download | emacs-26b926e143dd93baf90c788fa6bfdbc6bd47cb60.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/alloc.c')
| -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++) { |