diff options
Diffstat (limited to 'src/bytecode.c')
| -rw-r--r-- | src/bytecode.c | 20 |
1 files changed, 8 insertions, 12 deletions
diff --git a/src/bytecode.c b/src/bytecode.c index 4ff15d2912a..fb9f617b514 100644 --- a/src/bytecode.c +++ b/src/bytecode.c @@ -1991,18 +1991,14 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth, Lisp_Object get_byte_code_arity (Lisp_Object args_template) { - if (INTEGERP (args_template)) - { - ptrdiff_t at = XINT (args_template); - bool rest = (at & 128) != 0; - int mandatory = at & 127; - ptrdiff_t nonrest = at >> 8; - - return Fcons (make_number (mandatory), - rest ? Qmany : make_number (nonrest)); - } - else - error ("Unknown args template!"); + eassert (NATNUMP (args_template)); + EMACS_INT at = XINT (args_template); + bool rest = (at & 128) != 0; + int mandatory = at & 127; + EMACS_INT nonrest = at >> 8; + + return Fcons (make_number (mandatory), + rest ? Qmany : make_number (nonrest)); } void |