Commit 619e0f19 authored by Paul Eggert's avatar Paul Eggert
Browse files

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

parent 41ec903a
...@@ -503,14 +503,14 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth, ...@@ -503,14 +503,14 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth,
if (INTEGERP (args_template)) if (INTEGERP (args_template))
{ {
EMACS_INT at = XINT (args_template); ptrdiff_t at = XINT (args_template);
int rest = at & 128; int rest = at & 128;
int mandatory = at & 127; int mandatory = at & 127;
EMACS_INT nonrest = at >> 8; ptrdiff_t nonrest = at >> 8;
eassert (mandatory <= nonrest); eassert (mandatory <= nonrest);
if (nargs <= nonrest) if (nargs <= nonrest)
{ {
EMACS_INT i; ptrdiff_t i;
for (i = 0 ; i < nargs; i++, args++) for (i = 0 ; i < nargs; i++, args++)
PUSH (*args); PUSH (*args);
if (nargs < mandatory) if (nargs < mandatory)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment