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 *