add emit_NILP

diff --git a/src/comp.c b/src/comp.c
index e1fb73163182e1d88b1ed2c9bd6332201e9aa1da..4f3a80572d17741cb7b27e3dfb068f965e9c02f5 100644 (file)
--- 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)
 {