Searched refs:PL_linestr (Results 1 - 7 of 7) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/
H A Dtoke.c45 # define UTF ((PL_linestr && DO_UTF8(PL_linestr)) || (PL_hints & HINT_UTF8))
426 SAVESPTR(PL_linestr);
453 PL_linestr = line;
454 if (SvREADONLY(PL_linestr))
455 PL_linestr = sv_2mortal(newSVsv(PL_linestr));
456 s = SvPV(PL_linestr, len);
458 if (!(SvFLAGS(PL_linestr) & SVs_TEMP))
459 PL_linestr
[all...]
H A Dperl.c234 if (!PL_linestr) {
262 PL_linestr = NEWSV(65,79);
263 sv_upgrade(PL_linestr,SVt_PVIV);
765 SvREFCNT_dec(PL_linestr);
766 PL_linestr = Nullsv;
1323 sv_setpvn(PL_linestr,"",0);
3489 if (sv_gets(PL_linestr, PL_rsfp, 0) == Nullch ||
3490 strnNE(SvPV(PL_linestr,n_a),"#!",2) ) /* required even on Sys V */
3492 s = SvPV(PL_linestr,n_a)+2;
3501 for (s2 = s; (s2 > SvPV(PL_linestr,n_
[all...]
H A Dcop.h226 cx->blk_eval.cur_text = PL_linestr; \
H A Dperlapi.h365 #undef PL_linestr
366 #define PL_linestr (*Perl_Ilinestr_ptr(aTHX))
H A Dsv.c11058 PL_linestr = sv_dup_inc(proto_perl->Ilinestr, param);
11060 PL_bufptr = SvPVX(PL_linestr) + (i < 0 ? 0 : i);
11062 PL_oldbufptr = SvPVX(PL_linestr) + (i < 0 ? 0 : i);
11064 PL_oldoldbufptr = SvPVX(PL_linestr) + (i < 0 ? 0 : i);
11066 PL_linestart = SvPVX(PL_linestr) + (i < 0 ? 0 : i);
11069 PL_linestr = NEWSV(65,79);
11070 sv_upgrade(PL_linestr,SVt_PVIV);
11071 sv_setpvn(PL_linestr,"",0);
11072 PL_bufptr = PL_oldbufptr = PL_oldoldbufptr = PL_linestart = SvPVX(PL_linestr);
11074 PL_bufend = SvPVX(PL_linestr)
[all...]
H A Dembedvar.h322 #define PL_linestr (PERL_GET_INTERP->Ilinestr) macro
644 #define PL_linestr (vTHX->Ilinestr) macro
969 #define PL_Ilinestr PL_linestr
H A Dpp_ctl.c3403 save_lines(CopFILEAV(&PL_compiling), PL_linestr); local

Completed in 85 milliseconds