From 6955ca3d2a0a2269bd0f4578b560c58ca62efeb1 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Mon, 24 Jun 2019 13:43:58 +0200 Subject: [PATCH] add emit_rval_XCONS --- src/comp.c | 8 ++++++++ 1 file changed, 8 insertions(+) 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 * -- 2.39.5