From 18a6a2390beac1918a783d9139c111c2813a6862 Mon Sep 17 00:00:00 2001 From: DongHun Kwak Date: Tue, 9 Feb 2021 16:00:42 +0900 Subject: Imported Upstream version 2.2.13 --- tests/gpgscm/scheme.c | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'tests') diff --git a/tests/gpgscm/scheme.c b/tests/gpgscm/scheme.c index 4384841..b188e36 100644 --- a/tests/gpgscm/scheme.c +++ b/tests/gpgscm/scheme.c @@ -44,6 +44,8 @@ # endif #endif +#include "gpgrt.h" /* For GGPRT_GCC_VERSION */ + /* Used for documentation purposes, to signal functions in 'interface' */ #define INTERFACE @@ -3438,6 +3440,11 @@ int list_length(scheme *sc, pointer a) { +#if GPGRT_GCC_VERSION >= 80000 +# pragma GCC diagnostic push +# pragma GCC diagnostic ignored "-Wimplicit-fallthrough" +#endif + #define s_retbool(tf) s_return(sc,(tf) ? sc->T : sc->F) /* kernel of this interpreter */ @@ -5323,6 +5330,11 @@ Eval_Cycle(scheme *sc, enum scheme_opcodes op) { } } +#if GPGRT_GCC_VERSION >= 80000 +# pragma GCC diagnostic pop +#endif + + typedef int (*test_predicate)(pointer); static int is_any(pointer p) { -- cgit v1.2.3