1 files changed, 1 insertions, 1 deletions
diff --git a/src/alloc.c b/src/alloc.c
index e89981c4545..50de0a217c6 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -4020,7 +4020,7 @@ struct backtrace
 int
 inhibit_garbage_collection ()
 {
-  int count = specpdl_ptr - specpdl;
+  int count = SPECPDL_INDEX ();
  int nbits = min (VALBITS, BITS_PER_INT);
  specbind (Qgc_cons_threshold, make_number (((EMACS_INT) 1 << (nbits - 1)) - 1));

diff --git a/src/alloc.c b/src/alloc.c index e89981c4545..50de0a217c6 100644 --- a/src/alloc.c +++ b/src/alloc.c
@@ -4020,7 +4020,7 @@ struct backtrace
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));