From aba160b043588171eac8235105d45b30a7f141f5 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Mon, 16 Sep 2019 20:23:57 +0200 Subject: [PATCH] fix callref parsing into C back-end --- src/comp.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/comp.c b/src/comp.c index f2733625b51..2846037e5a0 100644 --- a/src/comp.c +++ b/src/comp.c @@ -1147,8 +1147,8 @@ emit_limple_call_ref (Lisp_Object insn) #s(comp-mvar 2 11 t 10 integer t)). */ Lisp_Object callee = FIRST (insn); - EMACS_UINT nargs = XFIXNUM (Flength (CDR (CDR (insn)))); - EMACS_UINT base_ptr = XFIXNUM (FUNCALL1 (comp-mvar-slot, THIRD (insn))); + EMACS_UINT nargs = XFIXNUM (Flength (CDR (insn))); + EMACS_UINT base_ptr = XFIXNUM (FUNCALL1 (comp-mvar-slot, SECOND (insn))); return emit_call_ref (callee, nargs, comp.frame[base_ptr]); } -- 2.39.5