From 433108104abecb5e84f28a476b9b977c0086694f Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Sat, 15 Jun 2019 18:09:49 +0200 Subject: [PATCH] helper_PSEUDOVECTOR_TYPEP -> helper_PSEUDOVECTOR_TYPEP_XUNTAG --- src/comp.c | 21 ++++++++++++--------- 1 file changed, 12 insertions(+), 9 deletions(-) diff --git a/src/comp.c b/src/comp.c index b4774b9c331..caa5cc96003 100644 --- a/src/comp.c +++ b/src/comp.c @@ -579,10 +579,11 @@ declare_PSEUDOVECTORP (void) gcc_jit_block_end_with_return (call_pseudovector_typep_b, NULL, gcc_jit_lvalue_as_rvalue( - emit_call ("helper_PSEUDOVECTOR_TYPEP", - comp.bool_type, - 2, - args))); + emit_call ( + "helper_PSEUDOVECTOR_TYPEP_XUNTAG", + comp.bool_type, + 2, + args))); } static gcc_jit_rvalue * @@ -2076,8 +2077,8 @@ Lisp_Object helper_temp_output_buffer_setup (Lisp_Object x); Lisp_Object helper_unbind_n (int val); -bool helper_PSEUDOVECTOR_TYPEP (const union vectorlike_header *a, - enum pvec_type code); +bool helper_PSEUDOVECTOR_TYPEP_XUNTAG (const union vectorlike_header *a, + enum pvec_type code); Lisp_Object helper_save_window_excursion (Lisp_Object v1) @@ -2112,10 +2113,12 @@ helper_unbind_n (int val) } bool -helper_PSEUDOVECTOR_TYPEP (const union vectorlike_header *a, - enum pvec_type code) +helper_PSEUDOVECTOR_TYPEP_XUNTAG (const union vectorlike_header *a, + enum pvec_type code) { - return PSEUDOVECTOR_TYPEP (a, code); + return PSEUDOVECTOR_TYPEP (XUNTAG (a, Lisp_Vectorlike, + union vectorlike_header), + code); } #endif /* HAVE_LIBGCCJIT */ -- 2.39.5