From 6d4d9225afcca63f36b318b11be945146007b00e Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Mon, 2 Sep 2019 18:01:18 +0200 Subject: [PATCH] simplify condition in emit_ctxt_code --- src/comp.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/comp.c b/src/comp.c index d36f239f510..eb6119b1118 100644 --- a/src/comp.c +++ b/src/comp.c @@ -1726,10 +1726,10 @@ emit_ctxt_code (void) FOR_EACH_TAIL (f_subr) { Lisp_Object subr_sym = XCAR (f_subr); + Lisp_Object subr = Fsymbol_function (subr_sym); /* Ignore inliners. This are not real functions to be imported. */ - if (NILP (Fgethash (subr_sym, comp.emitter_dispatcher, Qnil))) + if (SUBRP (subr)) { - Lisp_Object subr = Fsymbol_function (subr_sym); Lisp_Object maxarg = XCDR (Fsubr_arity (subr)); gcc_jit_field *field = declare_imported_func (subr_sym, comp.lisp_obj_type, -- 2.39.5