This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
assert that backing up outercc->cur in regmatch()/WHILEM is not needed
authorDave Mitchell <davem@fdisolutions.com>
Sat, 30 Sep 2006 00:29:10 +0000 (00:29 +0000)
committerDave Mitchell <davem@fdisolutions.com>
Sat, 30 Sep 2006 00:29:10 +0000 (00:29 +0000)
p4raw-id: //depot/perl@28907

regexec.c

index be64fa6..de38316 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -3678,7 +3678,7 @@ S_regmatch(pTHX_ const regmatch_info *reginfo, regnode *prog)
                    if (result)
                        sayYES;
                    if (cur_curlyx->u.curlyx.outercc)
-                       cur_curlyx->u.curlyx.outercc->u.curlyx.cur = st->ln;
+                       assert(cur_curlyx->u.curlyx.outercc->u.curlyx.cur == st->ln);
                    sayNO;
                }
 
@@ -3763,7 +3763,7 @@ S_regmatch(pTHX_ const regmatch_info *reginfo, regnode *prog)
                    REGCP_UNWIND(st->u.whilem.lastcp);
                    regcppop(rex);
                    if (cur_curlyx->u.curlyx.outercc)
-                       cur_curlyx->u.curlyx.outercc->u.curlyx.cur = st->ln;
+                       assert(cur_curlyx->u.curlyx.outercc->u.curlyx.cur == st->ln);
 
                    if (n >= cur_curlyx->u.curlyx.max) { /* Maximum greed exceeded? */
                        if (ckWARN(WARN_REGEXP) && n >= REG_INFTY
@@ -3841,7 +3841,7 @@ S_regmatch(pTHX_ const regmatch_info *reginfo, regnode *prog)
                if (result)
                    sayYES;
                if (cur_curlyx->u.curlyx.outercc)
-                   cur_curlyx->u.curlyx.outercc->u.curlyx.cur = st->ln;
+                   assert(cur_curlyx->u.curlyx.outercc->u.curlyx.cur == st->ln);
                cur_curlyx->u.curlyx.cur = n - 1;
                cur_curlyx->u.curlyx.lastloc = st->u.whilem.lastloc;
                CACHEsayNO;