From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 9 Jun 2008 18:43:59 +0000 (+0000)
Subject: Strength reduction optimisation seems to spot that a = a + 1; is just
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3a92e6ae8711ddb5b5574745041a3e03a98b1f1c;p=p5sagit%2Fp5-mst-13.2.git

Strength reduction optimisation seems to spot that a = a + 1; is just
a++; so write it as the former, to keep PERL_DEBUG_COW happy.

p4raw-id: //depot/perl@34039
---

diff --git a/regcomp.c b/regcomp.c
index 6a77d55..73fce85 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -5669,11 +5669,7 @@ S_reg(pTHX_ RExC_state_t *pRExC_state, I32 paren, I32 *flagp,U32 depth)
                                 pv = (I32*)SvGROW(sv_dat, SvCUR(sv_dat) + sizeof(I32)+1);
                                 SvCUR_set(sv_dat, SvCUR(sv_dat) + sizeof(I32));
                                 pv[count] = RExC_npar;
-#ifdef PERL_DEBUG_COW
-				((XPVIV*) SvANY(sv_dat))->xiv_iv++;
-#else
-				SvIVX(sv_dat)++;
-#endif
+                                SvIV_set(sv_dat, SvIVX(sv_dat) + 1);
                             }
                         } else {
                             (void)SvUPGRADE(sv_dat,SVt_PVNV);