Lines Matching defs:cx
1678 register PERL_CONTEXT *cx;
1691 PUSHBLOCK(cx, CXt_BLOCK, SP);
1789 register PERL_CONTEXT *cx;
1796 cx = &cxstack[cxstack_ix];
1797 cx->blk_oldpm = PL_curpm; /* fake block should preserve $1 et al */
1800 POPBLOCK(cx,newpm);
1845 register PERL_CONTEXT *cx;
1851 cx = &cxstack[cxstack_ix];
1852 if (CxTYPE(cx) != CXt_LOOP)
1855 itersvp = CxITERVAR(cx);
1856 av = cx->blk_loop.iterary;
1859 if (cx->blk_loop.iterlval) {
1861 register SV* cur = cx->blk_loop.iterlval;
1888 if (cx->blk_loop.iterix > cx->blk_loop.itermax)
1894 sv_setiv(*itersvp, cx->blk_loop.iterix++);
1903 *itersvp = newSViv(cx->blk_loop.iterix++);
1909 if (cx->blk_loop.iterix >= (av == PL_curstack ? cx->blk_oldsp : AvFILL(av)))
1915 SV **svp = av_fetch(av, ++cx->blk_loop.iterix, FALSE);
1922 sv = AvARRAY(av)[++cx->blk_loop.iterix];
1934 SV *lv = cx->blk_loop.iterlval;
1942 lv = cx->blk_loop.iterlval = NEWSV(26, 0);
1948 LvTARGOFF(lv) = cx->blk_loop.iterix;
2197 register PERL_CONTEXT *cx;
2200 PUSHSUBST(cx);
2313 register PERL_CONTEXT *cx;
2316 POPBLOCK(cx,newpm);
2323 if (cx->blk_sub.cv && CvDEPTH(cx->blk_sub.cv) > 1) {
2357 POPSUB(cx,sv); /* Stack values are safe: release CV and @_ ... */
2373 register PERL_CONTEXT *cx;
2376 POPBLOCK(cx,newpm);
2381 if (cx->blk_sub.lval & OPpENTERSUB_INARGS) {
2392 if (!CvLVALUE(cx->blk_sub.cv))
2408 else if (cx->blk_sub.lval) { /* Leave it as it is if we can. */
2412 if (!CvLVALUE(cx->blk_sub.cv)) {
2415 POPSUB(cx,sv);
2427 POPSUB(cx,sv);
2443 POPSUB(cx,sv);
2460 POPSUB(cx,sv);
2479 if (cx->blk_sub.cv && CvDEPTH(cx->blk_sub.cv) > 1) {
2515 POPSUB(cx,sv); /* Stack values are safe: release CV and @_ ... */
2566 register PERL_CONTEXT *cx;
2873 PUSHBLOCK(cx, CXt_SUB, MARK);
2874 PUSHSUB(cx);
2920 cx->blk_sub.savearray = GvAV(PL_defgv);
2923 CX_CURPAD_SAVE(cx->blk_sub);
2924 cx->blk_sub.argarray = av;