From: Andrea Corallo <akrl@sdf.org>
Date: Sat, 16 Nov 2019 14:23:28 +0000 (+0100)
Subject: fix emit_limple_call_ref for 0 args case
X-Git-Tag: emacs-28.0.90~2727^2~990
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4bb671f1c6adb6cbdcf90abe73967c24e5296372;p=emacs.git

fix emit_limple_call_ref for 0 args case
---

diff --git a/src/comp.c b/src/comp.c
index 9f1317ef70a..d05d17bd010 100644
--- a/src/comp.c
+++ b/src/comp.c
@@ -1139,7 +1139,9 @@ emit_limple_call_ref (Lisp_Object insn, bool direct)
 
   Lisp_Object callee = FIRST (insn);
   EMACS_INT nargs = XFIXNUM (Flength (CDR (insn)));
-  EMACS_INT base_ptr = XFIXNUM (CALL1I (comp-mvar-slot, SECOND (insn)));
+  EMACS_INT base_ptr = 0;
+  if (nargs)
+    base_ptr = XFIXNUM (CALL1I (comp-mvar-slot, SECOND (insn)));
   return emit_call_ref (callee, nargs, comp.frame[base_ptr], direct);
 }