diff options
Diffstat (limited to 'src/bytecode.c')
| -rw-r--r-- | src/bytecode.c | 6 |
1 files changed, 3 insertions, 3 deletions
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, | |||
| 503 | 503 | ||
| 504 | if (INTEGERP (args_template)) | 504 | if (INTEGERP (args_template)) |
| 505 | { | 505 | { |
| 506 | EMACS_INT at = XINT (args_template); | 506 | ptrdiff_t at = XINT (args_template); |
| 507 | int rest = at & 128; | 507 | int rest = at & 128; |
| 508 | int mandatory = at & 127; | 508 | int mandatory = at & 127; |
| 509 | EMACS_INT nonrest = at >> 8; | 509 | ptrdiff_t nonrest = at >> 8; |
| 510 | eassert (mandatory <= nonrest); | 510 | eassert (mandatory <= nonrest); |
| 511 | if (nargs <= nonrest) | 511 | if (nargs <= nonrest) |
| 512 | { | 512 | { |
| 513 | EMACS_INT i; | 513 | ptrdiff_t i; |
| 514 | for (i = 0 ; i < nargs; i++, args++) | 514 | for (i = 0 ; i < nargs; i++, args++) |
| 515 | PUSH (*args); | 515 | PUSH (*args); |
| 516 | if (nargs < mandatory) | 516 | if (nargs < mandatory) |