From f46bfdf3234548f664824b7c96838d3f918950d7 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Tue, 6 Aug 2019 23:06:28 +0200 Subject: [PATCH] fix max_args --- src/comp.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/comp.c b/src/comp.c index 7ca0aec45d3..16089beee1e 100644 --- a/src/comp.c +++ b/src/comp.c @@ -2185,11 +2185,11 @@ DEFUN ("comp-add-func-to-ctxt", Fcomp_add_func_to_ctxt, Scomp_add_func_to_ctxt, Lisp_Object args = FUNCALL1 (comp-func-args, func); EMACS_INT frame_size = XFIXNUM (FUNCALL1 (comp-func-frame-size, func)); /* EMACS_INT min_args = XFIXNUM (FUNCALL1 (comp-args-min, args)); */ - EMACS_INT max_args = XFIXNUM (FUNCALL1 (comp-args-max, args)); bool ncall = !NILP (FUNCALL1 (comp-args-ncall-conv, args)); if (!ncall) { + EMACS_INT max_args = XFIXNUM (FUNCALL1 (comp-args-max, args)); comp.func = emit_func_declare (c_name, comp.lisp_obj_type, max_args, NULL, GCC_JIT_FUNCTION_EXPORTED, false); -- 2.39.5