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 /regexp.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 'regexp.h')
| -rw-r--r-- | regexp.h | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -379,7 +379,7 @@ and check for NULL. #define RX_WRAPLEN(prog) SvCUR(prog) #define RX_CHECK_SUBSTR(prog) (((struct regexp *)SvANY(prog))->check_substr) #define RX_REFCNT(prog) SvREFCNT(prog) -#if defined(__GNUC__) && !defined(__STRICT_ANSI__) && !defined(PERL_GCC_PEDANTIC) +#if defined(__GNUC__) && !defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN) # define RX_EXTFLAGS(prog) \ (*({ \ const REGEXP *const thwape = (prog); \ @@ -464,7 +464,7 @@ and check for NULL. #define REXEC_IGNOREPOS 0x08 /* \G matches at start. */ #define REXEC_NOT_FIRST 0x10 /* This is another iteration of //g. */ -#if defined(__GNUC__) && !defined(__STRICT_ANSI__) && !defined(PERL_GCC_PEDANTIC) +#if defined(__GNUC__) && !defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN) # define ReREFCNT_inc(re) \ ({ \ /* This is here to generate a casting warning if incorrect. */ \ |