From: Andrea Corallo <akrl@sdf.org>
Date: Mon, 16 Sep 2019 18:23:57 +0000 (+0200)
Subject: fix callref parsing into C back-end
X-Git-Tag: emacs-28.0.90~2727^2~1158
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=aba160b043588171eac8235105d45b30a7f141f5;p=emacs.git

fix callref parsing into C back-end
---

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]);
 }