Home
last modified time | relevance | path

Searched refs:CopFILE (Results 1 – 20 of 20) sorted by relevance

/mirbsd/src/gnu/usr.bin/perl/ext/Devel/PPPort/parts/inc/
Dcop26 __UNDEFINED__ CopFILE(c) ((c)->cop_file)
27 __UNDEFINED__ CopFILEGV(c) (CopFILE(c) ? gv_fetchfile(CopFILE(c)) : Nullgv)
29 __UNDEFINED__ CopFILESV(c) (CopFILE(c) ? GvSV(gv_fetchfile(CopFILE(c))) : Nullsv)
30 __UNDEFINED__ CopFILEAV(c) (CopFILE(c) ? GvAV(gv_fetchfile(CopFILE(c))) : Nullav)
46 __UNDEFINED__ CopFILE(c) (CopFILESV(c) ? SvPVX(CopFILESV(c)) : Nullch)
65 CopFILE()
67 RETVAL = CopFILE(PL_curcop);
81 my $file = &Devel::PPPort::CopFILE();
/mirbsd/src/gnu/usr.bin/perl/
Dcop.h36 # define CopFILE(c) ((c)->cop_file) macro
37 # define CopFILEGV(c) (CopFILE(c) \
38 ? gv_fetchfile(CopFILE(c)) : Nullgv)
46 # define CopFILESV(c) (CopFILE(c) \
47 ? GvSV(gv_fetchfile(CopFILE(c))) : Nullsv)
48 # define CopFILEAV(c) (CopFILE(c) \
49 ? GvAV(gv_fetchfile(CopFILE(c))) : Nullav)
67 # define CopFILE_free(c) (PerlMemShared_free(CopFILE(c)),(CopFILE(c) = Nullch))
75 # define CopFILE(c) (CopFILESV(c) ? SvPVX(CopFILESV(c)) : Nullch) macro
95 # define OutCopFILE(c) MacPerl_MPWFileName(CopFILE(c))
[all …]
Dcv.h67 # define CvFILE_set_from_cop(sv, cop) (CvFILE(sv) = savepv(CopFILE(cop)))
69 # define CvFILE_set_from_cop(sv, cop) (CvFILE(sv) = CopFILE(cop))
Dscope.h184 # define SAVECOPFILE(c) SAVEPPTR(CopFILE(c))
185 # define SAVECOPFILE_FREE(c) SAVESHAREDPV(CopFILE(c))
Dgv.c151 GvFILE(gv) = CopFILE(PL_curcop) ? CopFILE(PL_curcop) : (char *) ""; in Perl_gv_init()
1266 CopFILE(PL_curcop) = (char *)file; /* set for warning */ in Perl_gv_check()
Dscope.c319 GvFILE(gv) = CopFILE(PL_curcop) ? CopFILE(PL_curcop) : (char *) ""; in Perl_save_gp()
Dperl.c3709 CopFILE(PL_curcop), Strerror(errno));
3923 if (PerlLIO_access(CopFILE(PL_curcop),1)) { /*double check*/
3954 if (PerlLIO_stat(CopFILE(PL_curcop),&tmpstatbuf) < 0 ||
Dpp_ctl.c2732 CopFILE(PL_curcop), (IV)CopLINE(PL_curcop)); in Perl_sv_compile_2op()
3371 (void)hv_store(GvHVn(PL_incgv), name, len, newSVpv(CopFILE(&PL_compiling),0),0); in PP()
3471 CopFILE(PL_curcop), (IV)CopLINE(PL_curcop)); in PP()
Dop.c3494 CopFILE_set(cop, CopFILE(PL_curcop)); /* XXX share in a pvtable? */ in Perl_newSTATEOP()
4231 CopFILE(PL_curcop), (IV)CopLINE(PL_curcop)); in Perl_newATTRSUB()
4484 CopFILE(PL_curcop), in Perl_newATTRSUB()
4591 cv = newXS(name, const_sv_xsub, savepv(CopFILE(PL_curcop))); in Perl_newCONSTSUB()
Dtoke.c692 const char *cf = CopFILE(PL_curcop); in S_incline()
4338 newSVpv(CopFILE(PL_curcop),0));
Dperlio.c470 const char *s = CopFILE(PL_curcop);
Dpp_sys.c504 SV *file = sv_2mortal(newSVpv(CopFILE(PL_curcop),0)); in PP()
DChanges5.8.19316 by Stephen McCamant trades a possible dangling pointer (CopFILE()
/mirbsd/src/gnu/usr.bin/perl/ext/Time/HiRes/
Dppport.h4162 #ifndef CopFILE
4163 # define CopFILE(c) ((c)->cop_file) macro
4167 # define CopFILEGV(c) (CopFILE(c) ? gv_fetchfile(CopFILE(c)) : Nullgv)
4175 # define CopFILESV(c) (CopFILE(c) ? GvSV(gv_fetchfile(CopFILE(c))) : Nullsv)
4179 # define CopFILEAV(c) (CopFILE(c) ? GvAV(gv_fetchfile(CopFILE(c))) : Nullav)
4225 #ifndef CopFILE
4226 # define CopFILE(c) (CopFILESV(c) ? SvPVX(CopFILESV(c)) : Nullch) macro
/mirbsd/src/gnu/usr.bin/perl/ext/Cwd/
Dppport.h4162 #ifndef CopFILE
4163 # define CopFILE(c) ((c)->cop_file) macro
4167 # define CopFILEGV(c) (CopFILE(c) ? gv_fetchfile(CopFILE(c)) : Nullgv)
4175 # define CopFILESV(c) (CopFILE(c) ? GvSV(gv_fetchfile(CopFILE(c))) : Nullsv)
4179 # define CopFILEAV(c) (CopFILE(c) ? GvAV(gv_fetchfile(CopFILE(c))) : Nullav)
4225 #ifndef CopFILE
4226 # define CopFILE(c) (CopFILESV(c) ? SvPVX(CopFILESV(c)) : Nullch) macro
/mirbsd/src/gnu/usr.bin/perl/ext/Devel/PPPort/t/
Dcop.t46 my $file = &Devel::PPPort::CopFILE();
/mirbsd/src/gnu/usr.bin/perl/ext/Devel/PPPort/
DChanges104 * add tests for CopFILE and CopSTASHPV
178 CopFILE
DPPPort.xs296 CopFILE()
298 RETVAL = CopFILE(PL_curcop);
/mirbsd/src/gnu/usr.bin/perl/ext/Devel/PPPort/parts/base/
D5006000464 CopFILE # added by devel/scanprov
/mirbsd/src/gnu/usr.bin/perl/ext/B/
DB.xs1042 #define COP_file(o) CopFILE(o)