Searched refs:CopLINE (Results 1 - 15 of 15) sorted by relevance
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ |
H A D | deb.c | 55 (long)CopLINE(PL_curcop)); 58 (long)CopLINE(PL_curcop));
|
H A D | cop.h | 95 #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 D | scope.h | 182 #define SAVECOPLINE(c) SAVEI32(CopLINE(c))
|
H A D | toke.c | 105 #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), 485 * increments the current line number in CopLINE(PL_curcop) and checks 653 av_store(CopFILEAV(PL_curcop),(I32)CopLINE(PL_curcop),sv); 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_curco [all...] |
H A D | dump.c | 419 if (CopLINE(cCOPo)) 421 (UV)CopLINE(cCOPo)); 671 if (CopLINE(cCOPo)) 673 (UV)CopLINE(cCOPo));
|
H A D | op.c | 541 line_t oldline = CopLINE(PL_curcop); 2746 if (CopLINE(PL_curcop) < (line_t)PL_multi_end) 3360 if (PERLDB_LINE && CopLINE(PL_curcop) && PL_curstash != PL_debstash) { 3393 CopLINE_set(cop, CopLINE(PL_curcop)); 3406 SV **svp = av_fetch(CopFILEAV(PL_curcop), (I32)CopLINE(cop), FALSE); 3497 line_t oldline = CopLINE(PL_curcop); 4117 if (!name && PERLDB_NAMEANON && CopLINE(PL_curcop)) { 4121 CopFILE(PL_curcop), (IV)CopLINE(PL_curcop)); 4205 line_t oldline = CopLINE(PL_curcop); 4373 (long)PL_subline, (long)CopLINE(PL_curco [all...] |
H A D | pp_ctl.c | 1497 PUSHs(sv_2mortal(newSViv((I32)CopLINE(cx->blk_oldcop)))); 2655 if (PERLDB_NAMEEVAL && CopLINE(PL_curcop)) { 2659 CopFILE(PL_curcop), (IV)CopLINE(PL_curcop)); 3353 if (PERLDB_NAMEEVAL && CopLINE(PL_curcop)) { 3357 CopFILE(PL_curcop), (IV)CopLINE(PL_curcop));
|
H A D | scope.c | 310 GvLINE(gv) = CopLINE(PL_curcop);
|
H A D | gv.c | 115 GvLINE(gv) = CopLINE(PL_curcop);
|
H A D | perlio.c | 468 sprintf(buffer, "%s:%" IVdf " ", s, (IV) CopLINE(PL_curcop)); 480 (IV) CopLINE(PL_curcop));
|
H A D | util.c | 966 if (CopLINE(cop)) 968 OutCopFILE(cop), (IV)CopLINE(cop));
|
H A D | perl.c | 4561 line_t oldline = CopLINE(PL_curcop);
|
H A D | pp.c | 812 GvLINE(sv) = CopLINE(PL_curcop);
|
H A D | pp_sys.c | 486 SV *line = sv_2mortal(newSVuv(CopLINE(PL_curcop)));
|
H A D | sv.c | 3835 GvLINE(dstr) = CopLINE(PL_curcop);
|
Completed in 444 milliseconds