X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pp_hot.c;h=8c04a70a12bd5aa9113183ef490d6e0d0ff5a096;hb=cb26d8ba64232f03b2fd70f760cb5b474500f681;hp=195e7043db65984a7be06ebe1fffa89d31f2fb4b;hpb=4d1ff10ffec86208b0da135b87c76b89e61c866e;p=p5sagit%2Fp5-mst-13.2.git diff --git a/pp_hot.c b/pp_hot.c index 195e704..8c04a70 100644 --- a/pp_hot.c +++ b/pp_hot.c @@ -22,7 +22,7 @@ /* Hot code. */ #ifdef USE_5005THREADS -static void unset_cvowner(pTHXo_ void *cvarg); +static void unset_cvowner(pTHX_ void *cvarg); #endif /* USE_5005THREADS */ PP(pp_const) @@ -1232,7 +1232,7 @@ PP(pp_match) (PL_tainted && (pm->op_pmflags & PMf_RETAINT))); TAINT_NOT; - PL_reg_sv_utf8 = DO_UTF8(TARG); + PL_reg_match_utf8 = DO_UTF8(TARG); if (pm->op_pmdynflags & PMdf_USED) { failure: @@ -1400,7 +1400,7 @@ yup: /* Confirmed by INTUIT */ if (global) { rx->subbeg = truebase; rx->startp[0] = s - truebase; - if (PL_reg_sv_utf8) { + if (PL_reg_match_utf8) { char *t = (char*)utf8_hop((U8*)s, rx->minlen); rx->endp[0] = t - truebase; } @@ -1928,14 +1928,14 @@ PP(pp_subst) rxtainted |= 2; TAINT_NOT; - PL_reg_sv_utf8 = DO_UTF8(TARG); + PL_reg_match_utf8 = DO_UTF8(TARG); force_it: if (!pm || !s) DIE(aTHX_ "panic: pp_subst"); strend = s + len; - slen = PL_reg_sv_utf8 ? utf8_length((U8*)s, (U8*)strend) : len; + slen = PL_reg_match_utf8 ? utf8_length((U8*)s, (U8*)strend) : len; maxiters = 2 * slen + 10; /* We can match twice at each position, once with zero-length, second time with non-zero. */ @@ -2734,7 +2734,7 @@ try_autoload: PL_curcopdb = NULL; } /* Do we need to open block here? XXXX */ - (void)(*CvXSUB(cv))(aTHXo_ cv); + (void)(*CvXSUB(cv))(aTHX_ cv); /* Enforce some sanity in scalar context. */ if (gimme == G_SCALAR && ++markix != PL_stack_sp - PL_stack_base ) { @@ -3131,7 +3131,7 @@ S_method_common(pTHX_ SV* meth, U32* hashp) #ifdef USE_5005THREADS static void -unset_cvowner(pTHXo_ void *cvarg) +unset_cvowner(pTHX_ void *cvarg) { register CV* cv = (CV *) cvarg;