diff options
| author | Karl Williamson <khw@cpan.org> | 2021-07-17 19:55:43 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2021-07-18 09:28:05 -0600 |
| commit | e08ee3cb66f362c4901846a46014cfdfcd60326c (patch) | |
| tree | b146b6ac02937c62ee0a097d25e28bc4799b82b5 /dist/Devel-PPPort | |
| parent | 45d6cb5ec05ebf2c464b1f7b3d7eb4e4af99dbd0 (diff) | |
| download | perl-e08ee3cb66f362c4901846a46014cfdfcd60326c.tar.gz | |
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).
Diffstat (limited to 'dist/Devel-PPPort')
| -rw-r--r-- | dist/Devel-PPPort/parts/inc/misc | 9 |
1 files changed, 7 insertions, 2 deletions
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) |