* bytecode.c (exec_byte_code): Do not unnecessarily grow ptrdiff_t to EMACS_INT.

diff --git a/src/bytecode.c b/src/bytecode.c
index 4a414b4..ed85d54 100644 (file)
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -503,14 +503,14 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth,
 
   if (INTEGERP (args_template))
     {
-      EMACS_INT at = XINT (args_template);
+      ptrdiff_t at = XINT (args_template);
       int rest = at & 128;
       int mandatory = at & 127;
-      EMACS_INT nonrest = at >> 8;
+      ptrdiff_t nonrest = at >> 8;
       eassert (mandatory <= nonrest);
       if (nargs <= nonrest)
        {
-         EMACS_INT i;
+         ptrdiff_t i;
          for (i = 0 ; i < nargs; i++, args++)
            PUSH (*args);
          if (nargs < mandatory)