diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-01-26 16:44:43 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-01-26 16:44:43 +0000 |
| commit | 7fe44985589724dcec9673580abb16118ba49068 (patch) | |
| tree | f7d3c46347a4a1ced8644cd21431355ebdc31c7c /sv.h | |
| parent | d28d780685cbd952928da9c691e2b5bae129457a (diff) | |
| download | perl-7fe44985589724dcec9673580abb16118ba49068.tar.gz | |
Standardise the conditional compilation protection of ({}) from
#if defined(__GNUC__) && !defined(__STRICT_ANSI__) && !defined(PERL_GCC_PEDANTIC)
to
#if defined(__GNUC__) && !defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN)
because the ({}) construction can be used under __STRICT_ANSI__
(and should be, because it avoids temporary use of PL_Sv).
p4raw-id: //depot/perl@33077
Diffstat (limited to 'sv.h')
| -rw-r--r-- | sv.h | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -221,7 +221,7 @@ perform the upgrade if necessary. See C<svtype>. #define SvFLAGS(sv) (sv)->sv_flags #define SvREFCNT(sv) (sv)->sv_refcnt -#if defined(__GNUC__) && !defined(__STRICT_ANSI__) && !defined(PERL_GCC_PEDANTIC) +#if defined(__GNUC__) && !defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN) # define SvREFCNT_inc(sv) \ ({ \ SV * const _sv = (SV*)(sv); \ @@ -264,7 +264,7 @@ perform the upgrade if necessary. See C<svtype>. #define SvREFCNT_inc_void_NN(sv) (void)(++SvREFCNT((SV*)(sv))) #define SvREFCNT_inc_simple_void_NN(sv) (void)(++SvREFCNT((SV*)(sv))) -#if defined(__GNUC__) && !defined(__STRICT_ANSI__) && !defined(PERL_GCC_PEDANTIC) +#if defined(__GNUC__) && !defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN) # define SvREFCNT_dec(sv) \ ({ \ SV * const _sv = (SV*)(sv); \ |