fix XUNTAG

diff --git a/src/comp.c b/src/comp.c
index 6f5ca5f4ecdd7bca79802298c1415b9aea5d5f59..599f8f158b7952621e87aee7e5fb2c12cd91c4ab 100644 (file)
--- a/src/comp.c
+++ b/src/comp.c
@@ -504,7 +504,7 @@ emit_rval_XUNTAG (gcc_jit_rvalue *a, gcc_jit_type *type, unsigned lisp_word_tag)
   /* #define XUNTAG(a, type, ctype) ((ctype *)
      ((char *) XLP (a) - LISP_WORD_TAG (type))) */
 
-  return emit_cast (type,
+  return emit_cast (gcc_jit_type_get_pointer (type),
           gcc_jit_context_new_binary_op (
             comp.ctxt,
             NULL,
@@ -512,8 +512,10 @@ emit_rval_XUNTAG (gcc_jit_rvalue *a, gcc_jit_type *type, unsigned lisp_word_tag)
             comp.emacs_int_type,
             emit_rval_XLI (a),
             gcc_jit_context_new_rvalue_from_int (comp.ctxt,
-                                          comp.int_type,
-                                          lisp_word_tag)));
+                                                 comp.emacs_int_type,
+                                                 lisp_word_tag)));
+}
+
 static gcc_jit_rvalue *
 emit_rval_XCONS (gcc_jit_rvalue *a)
 {