From e08ee3cb66f362c4901846a46014cfdfcd60326c Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Sat, 17 Jul 2021 19:55:43 -0600 Subject: Partially Revert "skip using gcc brace groups for STMT_START/END" This reverts the portion of commit 6d66b125bb339b62c0d8d4283d3fe576795764ce that modified Devel::PPPort. It turns out that it broke that module when the module is run on Perl 5.13.0 (and presumably any earlier Perl). --- dist/Devel-PPPort/parts/inc/misc | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'dist/Devel-PPPort') diff --git a/dist/Devel-PPPort/parts/inc/misc b/dist/Devel-PPPort/parts/inc/misc index e62f3a7c64..9ec0a04df2 100644 --- a/dist/Devel-PPPort/parts/inc/misc +++ b/dist/Devel-PPPort/parts/inc/misc @@ -248,12 +248,17 @@ __UNDEF_NOT_PROVIDED__ PERL_GCC_BRACE_GROUPS_FORBIDDEN #undef STMT_START #undef STMT_END -#if defined(VOIDFLAGS) && (VOIDFLAGS) && (defined(sun) || defined(__sun__)) && !defined(__GNUC__) +#ifdef PERL_USE_GCC_BRACE_GROUPS +# define STMT_START (void)( /* gcc supports ``({ STATEMENTS; })'' */ +# define STMT_END ) +#else +# if defined(VOIDFLAGS) && (VOIDFLAGS) && (defined(sun) || defined(__sun__)) && !defined(__GNUC__) # define STMT_START if (1) # define STMT_END else (void)0 -#else +# else # define STMT_START do # define STMT_END while (0) +# endif #endif __UNDEFINED__ boolSV(b) ((b) ? &PL_sv_yes : &PL_sv_no) -- cgit v1.2.1