summaryrefslogtreecommitdiff
path: root/regexec.c
diff options
context:
space:
mode:
authorDave Mitchell <davem@fdisolutions.com>2006-09-30 00:29:10 +0000
committerDave Mitchell <davem@fdisolutions.com>2006-09-30 00:29:10 +0000
commit02d469982cfdfda685d1a8f418b9bcf1ab60c6d7 (patch)
treeac2e6925dddfb8fc1335a1f5eb90c8f510303e77 /regexec.c
parentbfac009d8686ae692a2b3faa02801b15a15e64ba (diff)
downloadperl-02d469982cfdfda685d1a8f418b9bcf1ab60c6d7.tar.gz
assert that backing up outercc->cur in regmatch()/WHILEM is not needed
p4raw-id: //depot/perl@28907
Diffstat (limited to 'regexec.c')
-rw-r--r--regexec.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/regexec.c b/regexec.c
index be64fa626b..de38316b6f 100644
--- 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;