diff options
| author | David Mitchell <davem@iabyn.com> | 2014-02-08 13:57:54 +0000 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2014-02-08 14:04:56 +0000 |
| commit | 4d0062494ca3897c363c7b032d8ad924495435b3 (patch) | |
| tree | a06ef1a56f20c0e11e5f79e62d37ff3d0d1e0e7d /regexec.c | |
| parent | f7022b5a04f3da75047662acc8b74229a3406a09 (diff) | |
| download | perl-4d0062494ca3897c363c7b032d8ad924495435b3.tar.gz | |
re_intuit_start(): add comments about check_ix
if (check_ix)
isn't very clear, so clarify it a bit.
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -978,7 +978,7 @@ Perl_re_intuit_start(pTHX_ last1 = HOP3c(strend, other->min_offset - prog->minlen, strbeg); - if (other_ix) { + if (other_ix) {/* i.e. if (other-is-float) */ /* last is the latest point where the floating substr could * start, *given* any constraints from the earlier fixed * match. This constraint is that the floating string starts @@ -1046,7 +1046,7 @@ Perl_re_intuit_start(pTHX_ other_last = HOP3c(last, 1, strend) /* highest failure */; rx_origin = - other_ix + other_ix /* i.e. if other-is-float */ ? HOP3c(rx_origin, 1, strend) : HOP4c(last, 1 - other->min_offset, strbeg, strend); goto restart; @@ -1055,7 +1055,7 @@ Perl_re_intuit_start(pTHX_ DEBUG_EXECUTE_r(PerlIO_printf(Perl_debug_log, " at offset %ld...\n", (long)(s - strpos))); - if (other_ix) { + if (other_ix) { /* if (other-is-float) */ /* other_last is set to s, not s+1, since its possible for * a floating substr to fail first time, then succeed * second time at the same floating position; e.g.: |