add emit_EQ

diff --git a/src/comp.c b/src/comp.c
index 4f3a80572d17741cb7b27e3dfb068f965e9c02f5..6f5ca5f4ecdd7bca79802298c1415b9aea5d5f59 100644 (file)
--- a/src/comp.c
+++ b/src/comp.c
@@ -522,6 +522,15 @@ emit_rval_XCONS (gcc_jit_rvalue *a)
                           LISP_WORD_TAG (Lisp_Cons));
 }
 
+static gcc_jit_rvalue *
+emit_EQ (gcc_jit_rvalue *x, gcc_jit_rvalue *y)
+{
+  return gcc_jit_context_new_comparison (
+          comp.ctxt,
+          NULL,
+          GCC_JIT_COMPARISON_EQ,
+          emit_rval_XLI (x),
+          emit_rval_XLI (y));
 }
 
 static gcc_jit_rvalue *