Lines Matching defs:cx
1055 Perl_cx_dump(pTHX_ PERL_CONTEXT *cx)
1058 PerlIO_printf(Perl_debug_log, "CX %ld = %s\n", (long)(cx - cxstack), PL_block_type[CxTYPE(cx)]);
1059 if (CxTYPE(cx) != CXt_SUBST) {
1060 PerlIO_printf(Perl_debug_log, "BLK_OLDSP = %ld\n", (long)cx->blk_oldsp);
1062 PTR2UV(cx->blk_oldcop));
1063 PerlIO_printf(Perl_debug_log, "BLK_OLDMARKSP = %ld\n", (long)cx->blk_oldmarksp);
1064 PerlIO_printf(Perl_debug_log, "BLK_OLDSCOPESP = %ld\n", (long)cx->blk_oldscopesp);
1065 PerlIO_printf(Perl_debug_log, "BLK_OLDRETSP = %ld\n", (long)cx->blk_oldretsp);
1067 PTR2UV(cx->blk_oldpm));
1068 PerlIO_printf(Perl_debug_log, "BLK_GIMME = %s\n", cx->blk_gimme ? "LIST" : "SCALAR");
1070 switch (CxTYPE(cx)) {
1076 PTR2UV(cx->blk_sub.cv));
1078 PTR2UV(cx->blk_sub.gv));
1080 PTR2UV(cx->blk_sub.dfoutgv));
1082 (int)cx->blk_sub.hasargs);
1086 PTR2UV(cx->blk_sub.cv));
1088 (long)cx->blk_sub.olddepth);
1090 (int)cx->blk_sub.hasargs);
1092 (int)cx->blk_sub.lval);
1096 (long)cx->blk_eval.old_in_eval);
1098 PL_op_name[cx->blk_eval.old_op_type],
1099 PL_op_desc[cx->blk_eval.old_op_type]);
1100 if (cx->blk_eval.old_namesv)
1102 SvPVX(cx->blk_eval.old_namesv));
1104 PTR2UV(cx->blk_eval.old_eval_root));
1109 cx->blk_loop.label);
1111 (long)cx->blk_loop.resetsp);
1113 PTR2UV(cx->blk_loop.redo_op));
1115 PTR2UV(cx->blk_loop.next_op));
1117 PTR2UV(cx->blk_loop.last_op));
1119 (long)cx->blk_loop.iterix);
1121 PTR2UV(cx->blk_loop.iterary));
1123 PTR2UV(CxITERVAR(cx)));
1124 if (CxITERVAR(cx))
1126 PTR2UV(cx->blk_loop.itersave));
1128 PTR2UV(cx->blk_loop.iterlval));
1133 (long)cx->sb_iters);
1135 (long)cx->sb_maxiters);
1137 (long)cx->sb_rflags);
1139 (long)cx->sb_once);
1141 cx->sb_orig);
1143 PTR2UV(cx->sb_dstr));
1145 PTR2UV(cx->sb_targ));
1147 PTR2UV(cx->sb_s));
1149 PTR2UV(cx->sb_m));
1151 PTR2UV(cx->sb_strend));
1153 PTR2UV(cx->sb_rxres));