From 4d4f2a4efc8fb58d8b3375578b763aee33b6e91a Mon Sep 17 00:00:00 2001
From: Andrea Corallo <andrea_corallo@yahoo.it>
Date: Mon, 24 Jun 2019 13:45:08 +0200
Subject: [PATCH] add emit_EQ

---
 src/comp.c | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/src/comp.c b/src/comp.c
index 4f3a80572d1..6f5ca5f4ecd 100644
--- 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 *
-- 
2.39.5