Searched refs:blk_loop (Results 1 – 5 of 5) sorted by relevance
261 ((c)->blk_loop.iterdata \263 ? &CX_CURPAD_SV( (c)->blk_loop, \264 INT2PTR(PADOFFSET, (c)->blk_loop.iterdata)) \265 : &GvSV((GV*)(c)->blk_loop.iterdata)) \268 CX_CURPAD_SAVE(cx->blk_loop); \269 if ((cx->blk_loop.iterdata = (idata))) \270 cx->blk_loop.itersave = SvREFCNT_inc(*CxITERVAR(cx)); \272 cx->blk_loop.itersave = Nullsv;274 # define CxITERVAR(c) ((c)->blk_loop.itervar)276 if ((cx->blk_loop.itervar = (SV**)(ivar))) \[all …]
1109 cx->blk_loop.label); in Perl_cx_dump()1111 (long)cx->blk_loop.resetsp); in Perl_cx_dump()1113 PTR2UV(cx->blk_loop.redo_op)); in Perl_cx_dump()1115 PTR2UV(cx->blk_loop.next_op)); in Perl_cx_dump()1117 PTR2UV(cx->blk_loop.last_op)); in Perl_cx_dump()1119 (long)cx->blk_loop.iterix); in Perl_cx_dump()1121 PTR2UV(cx->blk_loop.iterary)); in Perl_cx_dump()1126 PTR2UV(cx->blk_loop.itersave)); in Perl_cx_dump()1128 PTR2UV(cx->blk_loop.iterlval)); in Perl_cx_dump()
1136 if (!cx->blk_loop.label || in S_dopoptolabel()1137 strNE(label, cx->blk_loop.label) ) { in S_dopoptolabel()1139 (long)i, cx->blk_loop.label)); in S_dopoptolabel()1709 cx->blk_loop.iterary = (AV*)SvREFCNT_inc(POPs); in PP()1710 if (SvTYPE(cx->blk_loop.iterary) != SVt_PVAV) { in PP()1712 SV *right = (SV*)cx->blk_loop.iterary; in PP()1717 cx->blk_loop.iterix = SvIV(sv); in PP()1718 cx->blk_loop.itermax = SvIV(right); in PP()1722 cx->blk_loop.iterlval = newSVsv(sv); in PP()1723 (void) SvPV_force(cx->blk_loop.iterlval,n_a); in PP()[all …]
1856 av = cx->blk_loop.iterary; in PP()1859 if (cx->blk_loop.iterlval) { in PP()1861 register SV* cur = cx->blk_loop.iterlval; in PP()1888 if (cx->blk_loop.iterix > cx->blk_loop.itermax) in PP()1894 sv_setiv(*itersvp, cx->blk_loop.iterix++); in PP()1903 *itersvp = newSViv(cx->blk_loop.iterix++); in PP()1909 if (cx->blk_loop.iterix >= (av == PL_curstack ? cx->blk_oldsp : AvFILL(av))) in PP()1915 SV **svp = av_fetch(av, ++cx->blk_loop.iterix, FALSE); in PP()1922 sv = AvARRAY(av)[++cx->blk_loop.iterix]; in PP()1934 SV *lv = cx->blk_loop.iterlval; in PP()[all …]
10214 ncx->blk_loop.label = cx->blk_loop.label; in Perl_cx_dup()10215 ncx->blk_loop.resetsp = cx->blk_loop.resetsp; in Perl_cx_dup()10216 ncx->blk_loop.redo_op = cx->blk_loop.redo_op; in Perl_cx_dup()10217 ncx->blk_loop.next_op = cx->blk_loop.next_op; in Perl_cx_dup()10218 ncx->blk_loop.last_op = cx->blk_loop.last_op; in Perl_cx_dup()10219 ncx->blk_loop.iterdata = (CxPADLOOP(cx) in Perl_cx_dup()10220 ? cx->blk_loop.iterdata in Perl_cx_dup()10221 : gv_dup((GV*)cx->blk_loop.iterdata, param)); in Perl_cx_dup()10222 ncx->blk_loop.oldcomppad in Perl_cx_dup()10224 cx->blk_loop.oldcomppad); in Perl_cx_dup()[all …]