From 14e6268d141b8c54001d1d5bdcf610313ac9c447 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Fri, 19 Feb 2021 15:54:36 +0100 Subject: [PATCH] * Pacify GCC warning on non wide-int configurations * src/comp.c (emit_rvalue_from_emacs_uint) (emit_rvalue_from_lisp_word_tag): Pacify GCC warning. (emit_rvalue_from_unsigned_long_long): Define it only when necessary. --- src/comp.c | 20 ++++++++++++-------- 1 file changed, 12 insertions(+), 8 deletions(-) diff --git a/src/comp.c b/src/comp.c index 3b1f3be26822..ca6e990daaf4 100644 --- a/src/comp.c +++ b/src/comp.c @@ -1128,6 +1128,7 @@ emit_rvalue_from_long_long (gcc_jit_type *type, long long n) low)); } +#if (EMACS_INT_MAX > LONG_MAX) static gcc_jit_rvalue * emit_rvalue_from_unsigned_long_long (gcc_jit_type *type, unsigned long long n) { @@ -1169,16 +1170,18 @@ emit_rvalue_from_unsigned_long_long (gcc_jit_type *type, unsigned long long n) 32)), low)); } +#endif static gcc_jit_rvalue * emit_rvalue_from_emacs_uint (EMACS_UINT val) { +#ifdef WIDE_EMACS_INT if (val > LONG_MAX || val < LONG_MIN) return emit_rvalue_from_unsigned_long_long (comp.emacs_uint_type, val); - else - return gcc_jit_context_new_rvalue_from_long (comp.ctxt, - comp.emacs_uint_type, - val); +#endif + return gcc_jit_context_new_rvalue_from_long (comp.ctxt, + comp.emacs_uint_type, + val); } static gcc_jit_rvalue * @@ -1194,12 +1197,13 @@ emit_rvalue_from_emacs_int (EMACS_INT val) static gcc_jit_rvalue * emit_rvalue_from_lisp_word_tag (Lisp_Word_tag val) { +#ifdef WIDE_EMACS_INT if (val > LONG_MAX || val < LONG_MIN) return emit_rvalue_from_unsigned_long_long (comp.lisp_word_tag_type, val); - else - return gcc_jit_context_new_rvalue_from_long (comp.ctxt, - comp.lisp_word_tag_type, - val); +#endif + return gcc_jit_context_new_rvalue_from_long (comp.ctxt, + comp.lisp_word_tag_type, + val); } static gcc_jit_rvalue *