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

add emit_rval_XCONS
---

diff --git a/src/comp.c b/src/comp.c
index c24017ce68b..e1fb7316318 100644
--- 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 *