Searched refs:reganch (Results 1 – 13 of 13) sorted by relevance
48 U32 reganch; /* Internal use only + member90 #define RX_MATCH_TAINTED(prog) ((prog)->reganch & ROPT_TAINTED_SEEN)91 #define RX_MATCH_TAINTED_on(prog) ((prog)->reganch |= ROPT_TAINTED_SEEN)92 #define RX_MATCH_TAINTED_off(prog) ((prog)->reganch &= ~ROPT_TAINTED_SEEN)97 #define RX_MATCH_COPIED(prog) ((prog)->reganch & ROPT_COPY_DONE)98 #define RX_MATCH_COPIED_on(prog) ((prog)->reganch |= ROPT_COPY_DONE)99 #define RX_MATCH_COPIED_off(prog) ((prog)->reganch &= ~ROPT_COPY_DONE)104 #define RX_MATCH_UTF8(prog) ((prog)->reganch & ROPT_MATCH_UTF8)105 #define RX_MATCH_UTF8_on(prog) ((prog)->reganch |= ROPT_MATCH_UTF8)106 #define RX_MATCH_UTF8_off(prog) ((prog)->reganch &= ~ROPT_MATCH_UTF8)
1826 r->reganch = pm->op_pmflags & PMf_COMPILETIME; in Perl_pregcomp()1860 r->reganch = pm->op_pmflags & PMf_COMPILETIME; /* Again? */ in Perl_pregcomp()1863 r->reganch |= ROPT_UTF8; /* Unicode in it? */ in Perl_pregcomp()1866 r->reganch |= ROPT_NAUGHTY; in Perl_pregcomp()1912 r->reganch |= (OP(first) == MBOL in Perl_pregcomp()1921 r->reganch |= ROPT_ANCH_GPOS; in Perl_pregcomp()1927 !(r->reganch & ROPT_ANCH) ) in Perl_pregcomp()1934 r->reganch |= type | ROPT_IMPLICIT; in Perl_pregcomp()1941 r->reganch |= ROPT_SKIP; in Perl_pregcomp()1977 && (!(RExC_seen & REG_SEEN_GPOS) || (r->reganch & ROPT_ANCH_GPOS))) in Perl_pregcomp()[all …]
421 if (prog->reganch & ROPT_UTF8) { in Perl_re_intuit_start()473 if (prog->reganch & ROPT_ANCH) { /* Match at beg-of-str or after \n */ in Perl_re_intuit_start()474 ml_anch = !( (prog->reganch & ROPT_ANCH_SINGLE) in Perl_re_intuit_start()475 || ( (prog->reganch & ROPT_ANCH_BOL) in Perl_re_intuit_start()479 if ( !(prog->reganch & (ROPT_ANCH_GPOS /* Checked by the caller */ in Perl_re_intuit_start()488 !(prog->reganch & ROPT_CANY_SEEN)) { in Perl_re_intuit_start()568 else if (prog->reganch & ROPT_CANY_SEEN) in Perl_re_intuit_start()812 && !(prog->reganch & ROPT_IMPLICIT)) in Perl_re_intuit_start()822 if (!(prog->reganch & ROPT_NAUGHTY) /* XXXX If strpos moved? */ in Perl_re_intuit_start()845 prog->reganch &= ~RE_USE_INTUIT; in Perl_re_intuit_start()[all …]
1294 if (!(rx->reganch & ROPT_GPOS_SEEN)) in PP()1296 else if (rx->reganch & ROPT_ANCH_GPOS) { in PP()1324 if (rx->reganch & RE_USE_INTUIT && in PP()1325 DO_UTF8(TARG) == ((rx->reganch & ROPT_UTF8) != 0)) { in PP()1332 if ( (rx->reganch & ROPT_CHECK_ALL) in PP()1334 && ((rx->reganch & ROPT_NOSCAN) in PP()1335 || !((rx->reganch & RE_INTUIT_TAIL) in PP()2061 if (rx->reganch & RE_USE_INTUIT) { in PP()2105 && !(rx->reganch & ROPT_LOOKBEHIND_SEEN) in PP()
4614 else if (do_utf8 == ((rx->reganch & ROPT_UTF8) != 0) && in PP()4615 (rx->reganch & RE_USE_INTUIT) && !rx->nparens in PP()4616 && (rx->reganch & ROPT_CHECK_ALL) in PP()4617 && !(rx->reganch & ROPT_ANCH)) { in PP()4618 const int tail = (rx->reganch & RE_INTUIT_TAIL); in PP()4622 if (len == 1 && !(rx->reganch & ROPT_UTF8) && !tail) { in PP()
367 && !(PM_GETRE(pm)->reganch & ROPT_NOSCAN)) in Perl_do_pmop_dump()370 && PM_GETRE(pm)->reganch & ROPT_CHECK_ALL) in Perl_do_pmop_dump()
3071 U16 reganch = (U16)((re->reganch & PMf_COMPILETIME) >> 12); in Perl_sv_2pv_flags() local3074 if(reganch & 1) { in Perl_sv_2pv_flags()3080 reganch >>= 1; in Perl_sv_2pv_flags()3103 if (PMf_EXTENDED & re->reganch) in Perl_sv_2pv_flags()3133 if (re->reganch & ROPT_UTF8) in Perl_sv_2pv_flags()9654 ret->reganch = r->reganch; in Perl_re_dup()
2900 || PM_GETRE(pm)->reganch & ROPT_EVAL_SEEN))) { in Perl_pmruntime()
11467 assigned by cache_re(), so the whole if(prog->reganch & ROPT_UTF8){}12434 Subject: [perl #18232] [PATCH] store PL_reg_match_utf8 in reganch
53 char reganch; /* Internal use only. */ member
253 r->reganch = 0;264 r->reganch++;828 if (prog->reganch)1197 if (r->reganch)
16 char reganch; /* Internal use only. */ member
250 r->reganch = 0;261 r->reganch++;761 if (prog->reganch)1130 if (r->reganch)