Lines Matching defs:cx
527 PERL_CONTEXT *cx;
530 cx = CX_CUR();
534 assert(CxTYPE(cx) == CXt_BLOCK || CxTYPE_is_LOOP(cx));
535 CX_LEAVE_SCOPE(cx);
4870 PERL_CONTEXT *cx = CX_CUR();
4871 SV **itersvp = CxITERVAR(cx);
4872 const U8 type = CxTYPE(cx);
4901 SV* cur = cx->blk_loop.state_u.lazysv.cur;
4902 SV *end = cx->blk_loop.state_u.lazysv.end;
4963 IV cur = cx->blk_loop.state_u.lazyiv.cur;
4965 if (UNLIKELY(cur > cx->blk_loop.state_u.lazyiv.end)) {
5010 cx->blk_loop.state_u.lazyiv.end = IV_MIN;
5012 ++cx->blk_loop.state_u.lazyiv.cur;
5020 ix = (cx->blk_loop.state_u.stack.ix += inc);
5022 ? ix > cx->blk_oldsp
5023 : ix <= cx->blk_loop.state_u.stack.basesp)
5040 av = cx->blk_loop.state_u.ary.ary;
5042 ix = (cx->blk_loop.state_u.ary.ix += inc);
5062 if (UNLIKELY(cx->cx_type & CXp_FOR_LVREF)) {
5092 DIE(aTHX_ "panic: pp_iter, type=%u", CxTYPE(cx));
5507 PERL_CONTEXT *cx;
5514 CX_PUSHSUBST(cx);
5780 * CX_LEAVE_SCOPE(cx) unless it's protected or copied.
6112 PERL_CONTEXT *cx;
6116 cx = CX_CUR();
6117 assert(CxTYPE(cx) == CXt_SUB);
6119 if (CxMULTICALL(cx)) {
6126 gimme = cx->blk_gimme;
6127 oldsp = PL_stack_base + cx->blk_oldsp; /* last arg of previous frame */
6134 CX_LEAVE_SCOPE(cx);
6135 cx_popsub(cx); /* Stack values are safe: release CV and @_ ... */
6136 cx_popblock(cx);
6137 retop = cx->blk_sub.retop;
6138 CX_POP(cx);
6181 PERL_CONTEXT *cx;
6360 cx = cx_pushblock(CXt_SUB, gimme, MARK, old_savestack_ix);
6362 cx_pushsub(cx, cv, PL_op->op_next, hasargs);
6374 cx->blk_sub.savearray = *defavp;
6405 if (UNLIKELY((cx->blk_u16 & OPpENTERSUB_LVAL_MASK) == OPpLVAL_INTRO &&
6560 const PERL_CONTEXT *cx = caller_cx(0, NULL);
6563 assert(cx);
6564 PL_curcop = cx->blk_oldcop;