add emit_rval_XCONS

diff --git a/src/comp.c b/src/comp.c
index c24017ce68bbdda22d623082f2a68264418d3353..e1fb73163182e1d88b1ed2c9bd6332201e9aa1da 100644 (file)
--- a/src/comp.c
+++ b/src/comp.c
@@ -514,6 +514,14 @@ emit_rval_XUNTAG (gcc_jit_rvalue *a, gcc_jit_type *type, unsigned lisp_word_tag)
             gcc_jit_context_new_rvalue_from_int (comp.ctxt,
                                           comp.int_type,
                                           lisp_word_tag)));
+static gcc_jit_rvalue *
+emit_rval_XCONS (gcc_jit_rvalue *a)
+{
+  return emit_rval_XUNTAG (a,
+                          gcc_jit_struct_as_type (comp.lisp_cons_s),
+                          LISP_WORD_TAG (Lisp_Cons));
+}
+
 }
 
 static gcc_jit_rvalue *