Lines Matching defs:cx

858 #define CX_LEAVE_SCOPE(cx) LEAVE_SCOPE(cx->blk_oldsaveix)
861 /* on debugging builds, poison cx afterwards so we know no code
864 # define CX_POP(cx) \
865 assert(CX_CUR() == cx); \
867 cx = NULL;
869 # define CX_POP(cx) cxstack_ix--;
883 #define CX_POP_SAVEARRAY(cx) \
886 GvAV(PL_defgv) = cx->blk_sub.savearray; \
887 cx->blk_sub.savearray = NULL; \
921 #define CxOLD_IN_EVAL(cx) (((cx)->blk_u16) & 0x3F) /* saved PL_in_eval */
922 #define CxEVAL_TXT_REFCNTED(cx) (((cx)->blk_u16) & 0x40) /* cur_text rc++ */
923 #define CxOLD_OP_TYPE(cx) (((cx)->blk_u16) >> 7) /* type of eval op */
1028 #define CX_DEBUG(cx, action) \
1033 PL_block_type[CxTYPE(cx)], \
1035 (long)(cx->blk_oldscopesp), \
1037 (long)(cx->blk_oldsaveix), \
1076 # define CX_PUSHSUBST(cx) CXINC, cx = CX_CUR(), \
1077 cx->blk_oldsaveix = oldsave, \
1078 cx->sb_iters = iters, \
1079 cx->sb_maxiters = maxiters, \
1080 cx->sb_rflags = r_flags, \
1081 cx->sb_rxtainted = rxtainted, \
1082 cx->sb_orig = orig, \
1083 cx->sb_dstr = dstr, \
1084 cx->sb_targ = targ, \
1085 cx->sb_s = s, \
1086 cx->sb_m = m, \
1087 cx->sb_strend = strend, \
1088 cx->sb_rxres = NULL, \
1089 cx->sb_rx = rx, \
1090 cx->cx_type = CXt_SUBST | (once ? CXp_ONCE : 0); \
1091 rxres_save(&cx->sb_rxres, rx); \
1095 # define CX_POPSUBST(cx) \
1098 assert(CxTYPE(cx) == CXt_SUBST); \
1099 rxres_free(&cx->sb_rxres); \
1100 re = cx->sb_rx; \
1101 cx->sb_rx = NULL; \
1103 SvREFCNT_dec_NN(cx->sb_targ); \
1107 #define CxONCE(cx) ((cx)->cx_type & CXp_ONCE)
1171 #define CxTYPE_is_LOOP(c) ( CxTYPE(cx) >= CXt_LOOP_ARY \
1172 && CxTYPE(cx) <= CXt_LOOP_PLAIN)
1180 #define CxFOREACH(c) ( CxTYPE(cx) >= CXt_LOOP_ARY \
1181 && CxTYPE(cx) <= CXt_LOOP_LIST)
1234 * This ensures magic doesn't invalidate local stack and cx pointers.
1383 PERL_CONTEXT *cx; \
1390 cx = cx_pushblock((CXt_SUB|CXp_MULTICALL|flags), (U8)gimme, \
1392 cx_pushsub(cx, cv, NULL, 0); \
1410 PERL_CONTEXT *cx; \
1411 cx = CX_CUR(); \
1412 CX_LEAVE_SCOPE(cx); \
1413 cx_popsub_common(cx); \
1414 gimme = cx->blk_gimme; \
1416 cx_popblock(cx); \
1417 CX_POP(cx); \
1431 PERL_CONTEXT *cx = CX_CUR(); \
1432 assert(CxMULTICALL(cx)); \
1433 cx_popsub_common(cx); \
1434 cx->cx_type = (CXt_SUB|CXp_MULTICALL|flags); \
1435 cx_pushsub(cx, cv, NULL, 0); \