Home
last modified time | relevance | path

Searched refs:blk_eval (Results 1 – 4 of 4) sorted by relevance

/mirbsd/src/gnu/usr.bin/perl/
Dcop.h215 cx->blk_eval.old_in_eval = PL_in_eval; \
216 cx->blk_eval.old_op_type = PL_op->op_type; \
217 cx->blk_eval.old_namesv = (n ? newSVpv(n,0) : Nullsv); \
218 cx->blk_eval.old_eval_root = PL_eval_root; \
219 cx->blk_eval.cur_text = PL_linestr; \
220 cx->blk_eval.cv = Nullcv; /* set by doeval(), as applicable */ \
225 PL_in_eval = cx->blk_eval.old_in_eval; \
226 optype = cx->blk_eval.old_op_type; \
227 PL_eval_root = cx->blk_eval.old_eval_root; \
228 if (cx->blk_eval.old_namesv) \
[all …]
Dscope.c1122 (long)cx->blk_eval.old_in_eval); in Perl_cx_dump()
1124 PL_op_name[cx->blk_eval.old_op_type], in Perl_cx_dump()
1125 PL_op_desc[cx->blk_eval.old_op_type]); in Perl_cx_dump()
1126 if (cx->blk_eval.old_namesv) in Perl_cx_dump()
1128 SvPVX_const(cx->blk_eval.old_namesv)); in Perl_cx_dump()
1130 PTR2UV(cx->blk_eval.old_eval_root)); in Perl_cx_dump()
Dpp_ctl.c1543 if (cx->blk_eval.old_op_type == OP_ENTEREVAL) { in PP()
1544 PUSHs(cx->blk_eval.cur_text); in PP()
1548 else if (cx->blk_eval.old_namesv) { in PP()
1549 PUSHs(sv_2mortal(newSVsv(cx->blk_eval.old_namesv))); in PP()
1897 SV * const nsv = cx->blk_eval.old_namesv; in PP()
2308 PL_in_eval = cx->blk_eval.old_in_eval; in PP()
2309 PL_eval_root = cx->blk_eval.old_eval_root; in PP()
2440 last_eval_cx->blk_eval.old_eval_root : in PP()
2855 cxstack[cxstack_ix].blk_eval.cv = PL_compcv; in S_doeval()
3589 SV * const nsv = cx->blk_eval.old_namesv; in PP()
Dsv.c10405 ncx->blk_eval.old_in_eval = cx->blk_eval.old_in_eval; in Perl_cx_dup()
10406 ncx->blk_eval.old_op_type = cx->blk_eval.old_op_type; in Perl_cx_dup()
10407 ncx->blk_eval.old_namesv = sv_dup_inc(cx->blk_eval.old_namesv, param); in Perl_cx_dup()
10408 ncx->blk_eval.old_eval_root = cx->blk_eval.old_eval_root; in Perl_cx_dup()
10409 ncx->blk_eval.cur_text = sv_dup(cx->blk_eval.cur_text, param); in Perl_cx_dup()