Change 34039: Strength reduction optimisation seems to spot that a = a + 1; is just

[Nicholas Clark]

Change 34039 by [EMAIL PROTECTED] on 2008/06/09 18:43:59

        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.

Affected files ...

... //depot/perl/regcomp.c#656 edit

Differences ...

==== //depot/perl/regcomp.c#656 (text) ====
Index: perl/regcomp.c
--- perl/regcomp.c#655~34038~   2008-06-09 11:18:57.000000000 -0700
+++ perl/regcomp.c      2008-06-09 11:43:59.000000000 -0700
@@ -5669,11 +5669,7 @@
                                 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);
End of Patch.