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

619e0f19 · Paul Eggert · 41ec903a · 619e0f19
Commit 619e0f19 authored Oct 07, 2011 by Paul Eggert
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 3 deletions

src/bytecode.c src/bytecode.c +3 -3

No files found.
--- 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)