Lines Matching refs:strpos
354 /* Assumptions: if ANCH_GPOS, then strpos is anchored. XXXX Check GPOS logic */
356 /* If SCREAM, then SvPVX(sv) should be compatible with strpos and strend.
359 /* XXXX We assume that strpos is strbeg unless sv. */
387 Perl_re_intuit_start(pTHX_ regexp *prog, SV *sv, char *strpos,
402 char *i_strpos = strpos;
416 strpos;
418 strlen(s) : strend - strpos;
438 if (prog->minlen > strend - strpos) {
443 strbeg = (sv && SvPOK(sv)) ? strend - SvCUR(sv) : strpos;
469 && (strpos != strbeg)) {
478 s = HOP3c(strpos, prog->check_offset_min, strend);
505 s = strpos;
520 s = strpos;
594 other_last = strpos;
603 if (s - strpos > prog->check_offset_max /* signed-corrected t > strpos */
605 || ((t = reghopmaybe3_c(s, -(prog->check_offset_max), strpos))
606 && t > strpos)))
609 t = strpos;
658 if (t == strpos)
715 if (t == strpos)
723 if (s - strpos > prog->check_offset_max /* signed-corrected t > strpos */
725 || ((t = reghopmaybe3_c(s, -prog->check_offset_max, strpos))
726 && t > strpos))) {
728 cannot start at strpos. */
749 strpos = t + 1;
751 PL_colors[0],PL_colors[1], (long)(strpos - i_strpos), (long)(strpos - i_strpos + prog->anchored_offset)));
766 other_last = strpos = s = t + 1;
784 /* The found string does not prohibit matching at strpos,
789 /* Even in this situation we may use MBOL flag if strpos is offset
792 && (strpos != strbeg) && strpos[-1] != '\n'
796 t = strpos;
801 (long)(strpos - i_strpos), PL_colors[0],PL_colors[1]);
804 if (!(prog->reganch & ROPT_NAUGHTY) /* XXXX If strpos moved? */
823 s = strpos;
830 s = strpos;