From 2dc6ff917607f5444417884662126ad0d4037402 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Mon, 24 Jun 2019 13:44:25 +0200 Subject: [PATCH] add emit_NILP --- src/comp.c | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/comp.c b/src/comp.c index e1fb7316318..4f3a80572d1 100644 --- a/src/comp.c +++ b/src/comp.c @@ -753,6 +753,10 @@ emit_lisp_obj_from_ptr (basic_block_t *block, void *p) } static gcc_jit_rvalue * +emit_NILP (gcc_jit_rvalue *x) +{ + return emit_EQ (x, emit_lisp_obj_from_ptr (comp.block, Qnil)); +} emit_call_n_ref (const char *f_name, unsigned nargs, gcc_jit_lvalue *base_arg) { -- 2.39.5