Home
last modified time | relevance | path

Searched refs:CopLINE (Results 1 – 16 of 16) sorted by relevance

/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/
H A Ddeb.c55 (long)CopLINE(PL_curcop)); in Perl_vdeb()
58 (long)CopLINE(PL_curcop)); in Perl_vdeb()
H A Dcop.h95 #define CopLINE(c) ((c)->cop_line) macro
96 #define CopLINE_inc(c) (++CopLINE(c))
97 #define CopLINE_dec(c) (--CopLINE(c))
98 #define CopLINE_set(c,l) (CopLINE(c) = (l))
H A Dtoke.c105 #define CLINE (PL_copline = (CopLINE(PL_curcop) < PL_copline ? CopLINE(PL_curcop) : PL_copline))
193 Perl_sv_catpvf(aTHX_ report, ":line %d:%"IVdf":", CopLINE(PL_curcop), in S_tokereport()
653 av_store(CopFILEAV(PL_curcop),(I32)CopLINE(PL_curcop),sv); in S_skipspace()
2501 av_store(CopFILEAV(PL_curcop),(I32)CopLINE(PL_curcop),sv);
2588 av_store(CopFILEAV(PL_curcop),(I32)CopLINE(PL_curcop),sv);
2592 if (CopLINE(PL_curcop) == 1) {
3297 yylval.ival = CopLINE(PL_curcop);
4133 Perl_newSVpvf(aTHX_ "%"IVdf, (IV)CopLINE(PL_curcop)));
4360 yylval.ival = CopLINE(PL_curcop);
4410 yylval.ival = CopLINE(PL_curcop);
[all …]
H A Dscope.h182 #define SAVECOPLINE(c) SAVEI32(CopLINE(c))
H A Ddump.c419 if (CopLINE(cCOPo)) in Perl_do_op_dump()
421 (UV)CopLINE(cCOPo)); in Perl_do_op_dump()
671 if (CopLINE(cCOPo)) in Perl_do_op_dump()
673 (UV)CopLINE(cCOPo)); in Perl_do_op_dump()
H A Dop.c541 line_t oldline = CopLINE(PL_curcop); in S_scalarboolean()
2746 if (CopLINE(PL_curcop) < (line_t)PL_multi_end) in Perl_pmruntime()
3360 if (PERLDB_LINE && CopLINE(PL_curcop) && PL_curstash != PL_debstash) { in Perl_newSTATEOP()
3393 CopLINE_set(cop, CopLINE(PL_curcop)); in Perl_newSTATEOP()
3406 SV **svp = av_fetch(CopFILEAV(PL_curcop), (I32)CopLINE(cop), FALSE); in Perl_newSTATEOP()
3497 line_t oldline = CopLINE(PL_curcop); in S_new_logop()
4117 if (!name && PERLDB_NAMEANON && CopLINE(PL_curcop)) { in Perl_newATTRSUB()
4121 CopFILE(PL_curcop), (IV)CopLINE(PL_curcop)); in Perl_newATTRSUB()
4205 line_t oldline = CopLINE(PL_curcop); in Perl_newATTRSUB()
4373 (long)PL_subline, (long)CopLINE(PL_curcop)); in Perl_newATTRSUB()
[all …]
H A Dpp_ctl.c1497 PUSHs(sv_2mortal(newSViv((I32)CopLINE(cx->blk_oldcop)))); in PP()
2655 if (PERLDB_NAMEEVAL && CopLINE(PL_curcop)) { in Perl_sv_compile_2op()
2659 CopFILE(PL_curcop), (IV)CopLINE(PL_curcop)); in Perl_sv_compile_2op()
3353 if (PERLDB_NAMEEVAL && CopLINE(PL_curcop)) { in PP()
3357 CopFILE(PL_curcop), (IV)CopLINE(PL_curcop)); in PP()
H A Dscope.c310 GvLINE(gv) = CopLINE(PL_curcop); in Perl_save_gp()
H A Dutil.c966 if (CopLINE(cop)) in Perl_vmess()
968 OutCopFILE(cop), (IV)CopLINE(cop)); in Perl_vmess()
H A Dgv.c115 GvLINE(gv) = CopLINE(PL_curcop); in Perl_gv_init()
H A Dperlio.c468 sprintf(buffer, "%s:%" IVdf " ", s, (IV) CopLINE(PL_curcop));
480 (IV) CopLINE(PL_curcop));
H A Dperl.c4561 line_t oldline = CopLINE(PL_curcop);
H A Dpp.c812 GvLINE(sv) = CopLINE(PL_curcop); in PP()
H A Dpp_sys.c486 SV *line = sv_2mortal(newSVuv(CopLINE(PL_curcop))); in PP()
H A Dsv.c3835 GvLINE(dstr) = CopLINE(PL_curcop); in Perl_sv_setsv_flags()
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/B/
H A DB.xs1007 #define COP_line(o) CopLINE(o)