From 1192225c97c7d07ff183970c0208d75c63a2fc37 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 23 Jun 2019 06:46:28 -0600 Subject: [PATCH] avoid some compiler warnings --- racket/src/racket/src/bignum.c | 2 +- racket/src/racket/src/jit.h | 3 +++ racket/src/racket/src/schpriv.h | 2 ++ 3 files changed, 6 insertions(+), 1 deletion(-) diff --git a/racket/src/racket/src/bignum.c b/racket/src/racket/src/bignum.c index a71c35742f..1c93bbd92a 100644 --- a/racket/src/racket/src/bignum.c +++ b/racket/src/racket/src/bignum.c @@ -459,7 +459,7 @@ static Scheme_Object *make_single_bigdig_result(int pos, bigdig d) /* May not need to allocate: */ sm = &quick; sm->o.iso.so.type = scheme_bignum_type; - SCHEME_SET_BIGPOS(sm, pos); + SCHEME_INIT_BIGPOS(sm, pos); SCHEME_BIGLEN(sm) = 1; SCHEME_BIGDIG(sm) = sm->v; sm->v[0] = d; diff --git a/racket/src/racket/src/jit.h b/racket/src/racket/src/jit.h index 6c6b36d59c..57e9e81ee8 100644 --- a/racket/src/racket/src/jit.h +++ b/racket/src/racket/src/jit.h @@ -31,6 +31,9 @@ #ifdef __GNUC__ #pragma GCC diagnostic ignored "-Waddress" +#if __GNUC__ >= 6 +# pragma GCC diagnostic ignored "-Wtautological-compare" +#endif #ifdef __clang__ # ifdef MZ_PRECISE_GC # pragma clang diagnostic ignored "-Wtautological-compare" diff --git a/racket/src/racket/src/schpriv.h b/racket/src/racket/src/schpriv.h index 3724501c4e..11914a7f0c 100644 --- a/racket/src/racket/src/schpriv.h +++ b/racket/src/racket/src/schpriv.h @@ -2170,11 +2170,13 @@ typedef struct { #ifdef MZ_PRECISE_GC # define SCHEME_BIGPOS(b) (MZ_OPT_HASH_KEY(&((Scheme_Bignum *)b)->iso) & 0x1) # define SCHEME_SET_BIGPOS(b, v) MZ_OPT_HASH_KEY(&((Scheme_Bignum *)b)->iso) = ((v) | SCHEME_BIGINLINE(b)) +# define SCHEME_INIT_BIGPOS(b, v) MZ_OPT_HASH_KEY(&((Scheme_Bignum *)b)->iso) = (v) # define SCHEME_BIGINLINE(b) (MZ_OPT_HASH_KEY(&((Scheme_Bignum *)b)->iso) & 0x2) # define SCHEME_SET_BIGINLINE(b) MZ_OPT_HASH_KEY(&((Scheme_Bignum *)b)->iso) |= (0x2 | SCHEME_BIGPOS(b)) #else # define SCHEME_BIGPOS(b) MZ_OPT_HASH_KEY(&((Scheme_Bignum *)b)->iso) # define SCHEME_SET_BIGPOS(b, v) SCHEME_BIGPOS(b) = v +# define SCHEME_INIT_BIGPOS(b, v) SCHEME_SET_BIGPOS(b, v) #endif #define SCHEME_BIGLEN(b) (((Scheme_Bignum *)b)->len)