From 4bb671f1c6adb6cbdcf90abe73967c24e5296372 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Sat, 16 Nov 2019 15:23:28 +0100 Subject: [PATCH] fix emit_limple_call_ref for 0 args case --- src/comp.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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); } -- 2.39.5