Searched refs:PL_eval_root (Results 1 – 9 of 9) sorted by relevance
110 PL_eval_root = newLISTOP(OP_LINESEQ, 0, PL_main_root, o); in byteloader_filter()112 PL_eval_root = newUNOP(OP_LEAVEEVAL, 0, PL_eval_root); in byteloader_filter()113 o->op_next = PL_eval_root; in byteloader_filter()
2242 PL_eval_root = cx->blk_eval.old_eval_root; in PP()2367 PL_eval_root); in PP()2811 PL_eval_root = Nullop; in S_doeval()2819 if (yyparse() || PL_error_count || !PL_eval_root) { in S_doeval()2826 if (PL_eval_root) { in S_doeval()2827 op_free(PL_eval_root); in S_doeval()2828 PL_eval_root = Nullop; in S_doeval()2867 *startop = PL_eval_root; in S_doeval()2869 SAVEFREEOP(PL_eval_root); in S_doeval()2874 if (PL_eval_root->op_type == OP_LEAVEEVAL in S_doeval()[all …]
225 cx->blk_eval.old_eval_root = PL_eval_root; \234 PL_eval_root = cx->blk_eval.old_eval_root; \
243 #undef PL_eval_root244 #define PL_eval_root (*Perl_Ieval_root_ptr(aTHX))
261 #define PL_eval_root (PERL_GET_INTERP->Ieval_root) macro583 #define PL_eval_root (vTHX->Ieval_root) macro908 #define PL_Ieval_root PL_eval_root
1873 if (PL_eval_root) in Perl_newPROG()1875 PL_eval_root = newUNOP(OP_LEAVEEVAL, in Perl_newPROG()1878 PL_eval_start = linklist(PL_eval_root); in Perl_newPROG()1879 PL_eval_root->op_private |= OPpREFCOUNTED; in Perl_newPROG()1880 OpREFCNT_set(PL_eval_root, 1); in Perl_newPROG()1881 PL_eval_root->op_next = 0; in Perl_newPROG()
104 op_dump(PL_eval_root); in Perl_dump_eval()
2183 PL_eval_root = PL_op; /* Only needed so that goto works right. */ in S_parse_body()
10951 PL_eval_root = proto_perl->Ieval_root; in perl_clone_using()