comparison src/alloc.c @ 46293:1fb8f75062c6

Use macro SPECPDL_INDEX.
author Juanma Barranquero <lekktu@gmail.com>
date Thu, 11 Jul 2002 14:18:02 +0000
parents 3f111801efb4
children fed6b815dbeb
comparison
equal deleted inserted replaced
46292:712d0161e499 46293:1fb8f75062c6
4018 /* Temporarily prevent garbage collection. */ 4018 /* Temporarily prevent garbage collection. */
4019 4019
4020 int 4020 int
4021 inhibit_garbage_collection () 4021 inhibit_garbage_collection ()
4022 { 4022 {
4023 int count = specpdl_ptr - specpdl; 4023 int count = SPECPDL_INDEX ();
4024 int nbits = min (VALBITS, BITS_PER_INT); 4024 int nbits = min (VALBITS, BITS_PER_INT);
4025 4025
4026 specbind (Qgc_cons_threshold, make_number (((EMACS_INT) 1 << (nbits - 1)) - 1)); 4026 specbind (Qgc_cons_threshold, make_number (((EMACS_INT) 1 << (nbits - 1)) - 1));
4027 return count; 4027 return count;
4028 } 4028 }