From: Andrea Corallo <andrea_corallo@yahoo.it>
Date: Mon, 24 Jun 2019 11:44:25 +0000 (+0200)
Subject: add emit_NILP
X-Git-Tag: emacs-28.0.90~2727^2~1435
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2dc6ff917607f5444417884662126ad0d4037402;p=emacs.git

add emit_NILP
---

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)
 {