Searched refs:PL_linestr (Results 1 - 7 of 7) sorted by relevance
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ |
H A D | toke.c | 45 # 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 D | perl.c | 234 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 D | cop.h | 226 cx->blk_eval.cur_text = PL_linestr; \
|
H A D | perlapi.h | 365 #undef PL_linestr 366 #define PL_linestr (*Perl_Ilinestr_ptr(aTHX))
|
H A D | sv.c | 11058 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 D | embedvar.h | 322 #define PL_linestr (PERL_GET_INTERP->Ilinestr) macro 644 #define PL_linestr (vTHX->Ilinestr) macro 969 #define PL_Ilinestr PL_linestr
|
H A D | pp_ctl.c | 3403 save_lines(CopFILEAV(&PL_compiling), PL_linestr); local
|
Completed in 85 milliseconds