diff options
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/alloc.c b/src/alloc.c index 6a47b872d23..731391a779b 100644 --- a/src/alloc.c +++ b/src/alloc.c | |||
| @@ -4012,7 +4012,9 @@ int | |||
| 4012 | inhibit_garbage_collection () | 4012 | inhibit_garbage_collection () |
| 4013 | { | 4013 | { |
| 4014 | int count = specpdl_ptr - specpdl; | 4014 | int count = specpdl_ptr - specpdl; |
| 4015 | specbind (Qgc_cons_threshold, make_number (MOST_POSITIVE_FIXNUM)); | 4015 | int nbits = min (VALBITS, BITS_PER_INT); |
| 4016 | |||
| 4017 | specbind (Qgc_cons_threshold, make_number (((EMACS_INT) 1 << (nbits - 1)) - 1)); | ||
| 4016 | return count; | 4018 | return count; |
| 4017 | } | 4019 | } |
| 4018 | 4020 | ||