Home
last modified time | relevance | path

Searched refs:PL_compcv (Results 1 – 13 of 13) sorted by relevance

/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/attrs/
H A Dattrs.xs28 if (!PL_compcv || !(cv = CvOUTSIDE(PL_compcv)))
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/
H A Dpad.c612 off = pad_findlex(name, 0, PL_compcv); in Perl_pad_findmy()
743 if (CvANON(PL_compcv) || SvTYPE(PL_compcv) == SVt_PVFM) { in S_pad_findlex()
745 CvCLONE_on(PL_compcv); in S_pad_findlex()
747 if (CvANON(PL_compcv)) in S_pad_findlex()
793 else if (!CvUNIQUE(PL_compcv)) { in S_pad_findlex()
1331 SAVESPTR(PL_compcv); in S_cv_clone2()
1333 cv = PL_compcv = (CV*)NEWSV(1104, 0); in S_cv_clone2()
H A Dpp_ctl.c2696 rop = doeval(G_SCALAR, startop, PL_compcv, PL_cop_seqmax); in Perl_sv_compile_2op()
2749 return PL_compcv; in Perl_find_runcv()
2775 SAVESPTR(PL_compcv); in S_doeval()
2776 PL_compcv = (CV*)NEWSV(1104,0); in S_doeval()
2777 sv_upgrade((SV *)PL_compcv, SVt_PVCV); in S_doeval()
2778 CvEVAL_on(PL_compcv); in S_doeval()
2780 cxstack[cxstack_ix].blk_eval.cv = PL_compcv; in S_doeval()
2783 CvOWNER(PL_compcv) = 0; in S_doeval()
2784 New(666, CvMUTEXP(PL_compcv), 1, perl_mutex); in S_doeval()
2785 MUTEX_INIT(CvMUTEXP(PL_compcv)); in S_doeval()
[all …]
H A Dop.c1887 PL_compcv = 0; in Perl_newPROG()
1898 PL_compcv = 0; in Perl_newPROG()
4152 SvREFCNT_dec(PL_compcv); in Perl_newATTRSUB()
4153 cv = PL_compcv = NULL; in Perl_newATTRSUB()
4189 if (CvFLAGS(PL_compcv)) { in Perl_newATTRSUB()
4191 CvFLAGS(cv) |= (CvFLAGS(PL_compcv) & CVf_BUILTIN_ATTRS); in Perl_newATTRSUB()
4194 SAVEFREESV(PL_compcv); in Perl_newATTRSUB()
4232 SvREFCNT_dec(PL_compcv); in Perl_newATTRSUB()
4233 PL_compcv = NULL; in Perl_newATTRSUB()
4247 CvFLAGS(cv) |= (CvFLAGS(PL_compcv) & CVf_BUILTIN_ATTRS); in Perl_newATTRSUB()
[all …]
H A Dtoke.c3053 CvLVALUE_on(PL_compcv);
3055 CvLOCKED_on(PL_compcv);
3057 CvMETHOD_on(PL_compcv);
7701 CV* outsidecv = PL_compcv;
7703 if (PL_compcv) {
7704 assert(SvTYPE(PL_compcv) == SVt_PVCV);
7708 SAVESPTR(PL_compcv);
7710 PL_compcv = (CV*)NEWSV(1104,0);
7711 sv_upgrade((SV *)PL_compcv, is_format ? SVt_PVFM : SVt_PVCV);
7712 CvFLAGS(PL_compcv) |= flags;
[all …]
H A Dperl.c1661 PL_main_cv = PL_compcv = (CV*)NEWSV(1104,0); in S_parse_body()
1662 sv_upgrade((SV *)PL_compcv, SVt_PVCV); in S_parse_body()
1663 CvUNIQUE_on(PL_compcv); in S_parse_body()
1665 CvPADLIST(PL_compcv) = pad_new(0); in S_parse_body()
1667 CvOWNER(PL_compcv) = 0; in S_parse_body()
1668 New(666, CvMUTEXP(PL_compcv), 1, perl_mutex); in S_parse_body()
1669 MUTEX_INIT(CvMUTEXP(PL_compcv)); in S_parse_body()
H A Dperly.c1877 CvSPECIAL_on(PL_compcv); in yyparse()
1922 { CvSPECIAL_on(PL_compcv); /* It's a BEGIN {} */ } in yyparse()
H A Dperlapi.h169 #undef PL_compcv
170 #define PL_compcv (*Perl_Icompcv_ptr(aTHX))
H A Dembedvar.h224 #define PL_compcv (PERL_GET_INTERP->Icompcv) macro
546 #define PL_compcv (vTHX->Icompcv) macro
871 #define PL_Icompcv PL_compcv
H A Dgv.c130 GvCV(gv) = PL_compcv; in Perl_gv_init()
H A Ddump.c1504 return PL_compcv; in S_deb_curcv()
H A Dsv.c10990 PL_compcv = cv_dup(proto_perl->Icompcv, param); in perl_clone_using()
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/B/
H A DB.xs512 #define B_comppadlist() (PL_main_cv ? CvPADLIST(PL_main_cv) : CvPADLIST(PL_compcv))