Searched refs:CvROOT (Results 1 – 21 of 21) sorted by relevance
132 SAVESPTR(CvROOT(multicall_cv)->op_ppaddr); \133 CvROOT(multicall_cv)->op_ppaddr = PL_ppaddr[OP_NULL]; \
253 if(!CvROOT(cv) && !CvXSUB(cv)) in MY_sv_to_cv()
328 if(CvROOT(&cvbody)) { in Perl_cv_undef_flags()338 if (CvSLABBED(&cvbody)) OpslabREFCNT_dec_padok(OpSLAB(CvROOT(&cvbody))); in Perl_cv_undef_flags()339 op_free(CvROOT(&cvbody)); in Perl_cv_undef_flags()340 CvROOT(&cvbody) = NULL; in Perl_cv_undef_flags()517 if (CvROOT(cv)) slab = OpSLAB(CvROOT(cv)); in Perl_cv_forget_slab()1083 #define CvCOMPILED(cv) CvROOT(cv)2180 cUNOPx(cUNOPx(CvROOT(cv))->op_first)->op_first in S_cv_clone_pad()2243 CvROOT(cv) = OpREFCNT_inc(CvROOT(proto)); in S_cv_clone()
812 if (justperl && (CvISXSUB(cv) || !CvROOT(cv))) in Perl_dump_sub_perl()831 else if (CvROOT(cv)) in Perl_dump_sub_perl()832 op_dump(CvROOT(cv)); in Perl_dump_sub_perl()855 if (CvROOT(GvFORM(gv))) in Perl_dump_form()856 op_dump(CvROOT(GvFORM(gv))); in Perl_dump_form()2435 PTR2UV(CvROOT(sv))); in Perl_do_sv_dump()2436 if (CvROOT(sv) && dumpops) { in Perl_do_sv_dump()2437 do_op_dump(level+1, file, CvROOT(sv)); in Perl_do_sv_dump()
44 #define CvROOT(sv) ((XPVCV*)MUTABLE_PTR(SvANY(sv)))->xcv_root_u.xcv_root macro
954 if (topgv && (GvREFCNT(topgv) == 1) && (CvROOT(cand_cv) || CvXSUB(cand_cv))) { in S_gv_fetchmeth_internal()971 if (topgv && (GvREFCNT(topgv) == 1) && (CvROOT(cand_cv) || CvXSUB(cand_cv))) { in S_gv_fetchmeth_internal()1072 if (!(CvROOT(cv) || CvXSUB(cv))) in Perl_gv_fetchmeth_pvn_autoload()1264 if (!CvROOT(cv) && !CvXSUB(cv)) { in Perl_gv_fetchmethod_pvn_flags()1368 if (!(CvROOT(cv) || CvXSUB(cv))) in Perl_gv_autoload_pvn()
331 if (!PL_compcv || CvROOT(PL_compcv) in Perl_Slab_Alloc()10159 const bool pureperl = !CvISXSUB(cv) && CvROOT(cv); in S_already_defined()10312 || (cv && CvLVALUE(cv) && !CvROOT(cv) && !CvXSUB(cv)) in Perl_newMYSUB()10327 const bool exists = CvROOT(cv) || CvXSUB(cv); in Perl_newMYSUB()10359 assert(!CvROOT(cv) && !CvCONST(cv)); in Perl_newMYSUB()10477 CvROOT(cv) = block; in Perl_newMYSUB()10857 || (cv && CvLVALUE(cv) && !CvROOT(cv) && !CvXSUB(cv) in Perl_newATTRSUB_x()10910 const bool exists = CvROOT(cv) || CvXSUB(cv); in Perl_newATTRSUB_x()10937 assert(!CvROOT(cv) && !CvCONST(cv)); in Perl_newATTRSUB_x()11091 CvROOT(cv) = block; in Perl_newATTRSUB_x()[all …]
771 else if (!(cv && CvROOT(cv))) { in PP()
2381 if (!cv || (!CvROOT(cv) && !CvXSUB(cv))) in PP()3189 while (!CvROOT(cv) && !CvXSUB(cv)) { in PP()3285 if (!CvROOT(cv) && !CvXSUB(cv)) { in PP()3513 gotoprobe = CvROOT(cx->blk_sub.cv); in PP()
1791 if (CvROOT(sv) || CvXSUB(sv)) in PP()6267 assert((void*)&CvROOT(cv) == (void*)&CvXSUB(cv)); in PP()6268 while (UNLIKELY(!CvROOT(cv))) { in PP()
3705 if (!cv || !CvROOT(cv)) { in Perl_perly_sighandler()
1745 if (cv && !CvDEPTH(cv) && (CvROOT(cv) || CvXSUB(cv))) { in Perl_invoke_exception_hook()
3999 (CvROOT(cv) || CvXSUB(cv)) && in Perl_gv_setref()14918 CvROOT(dsv) = OpREFCNT_inc(CvROOT(dsv));
79 if (CvROOT(protocv)) { in PP()
68 && CvROOT(MUTABLE_CV(sv)) in modify_SV_attributes()
339 op_free(CvROOT(cv)); in my_CvCONST_off()340 CvROOT(cv) = NULL; in my_CvCONST_off()
48 if (!CvROOT(cv)) { in DeadCode()
2049 : ix ? CvROOT(cv) : CvSTART(cv)));
5030 C<CvROOT> is not set, or by subtracting two pointers C<(2*sizeof(I32 *))> from5031 C<CvROOT> when it is set. The alternative to this approach of sneaking the slab5039 =for apidoc_item |OP *|CvROOT|CV * sv5043 the slab. If C<CvROOT> is not set when the CV is freed or undeffed, it is5054 avoids potential problems with C<CvROOT> being written over. There is code all5055 over the place, both in core and on CPAN, that does things with C<CvROOT>, so
4590 CvROOT(PL_compcv) = (OP *)1; in test_newFOROP_without_slab()4602 CvROOT(PL_compcv) = NULL; in test_newFOROP_without_slab()
116 CvROOT # Z added by devel/scanprov