Use macro SPECPDL_INDEX.

2 files changed, 2 insertions, 2 deletions

diff --git a/src/macros.c b/src/macros.c
index 82e305f8df3..5f6d83b52d6 100644
--- a/src/macros.c
+++ b/src/macros.c
@@ -284,7 +284,7 @@ COUNT is a repeat count, or nil for once, or 0 for infinite loop.  */)
 {
   Lisp_Object final;
   Lisp_Object tem;
-  int pdlcount = specpdl_ptr - specpdl;
+  int pdlcount = SPECPDL_INDEX ();
   int repeat = 1;
   struct gcpro gcpro1;
   int success_count = 0;
diff --git a/src/xfns.c b/src/xfns.c
index 912a2ceeb05..920b3b13a38 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -11605,7 +11605,7 @@ selection dialog's entry field, if MUSTMATCH is non-nil.  */)
   int ac = 0;
   extern XtAppContext Xt_app_con;
   XmString dir_xmstring, pattern_xmstring;
-  int count = specpdl_ptr - specpdl;
+  int count = SPECPDL_INDEX ();
   struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5;
 
   GCPRO5 (prompt, dir, default_filename, mustmatch, file);