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 215 milliseconds