From: Paul Eggert <eggert@cs.ucla.edu>
Date: Sat, 8 Oct 2011 01:39:12 +0000 (-0700)
Subject: * bytecode.c (exec_byte_code): Do not unnecessarily grow ptrdiff_t to EMACS_INT.
X-Git-Tag: emacs-24.2.90~471^2~6^2~160
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=619e0f19b389388caa93b5f9b3966f79b0305a1b;p=emacs.git

* 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 4a414b41712..ed85d54d789 100644
--- 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)