Home
last modified time | relevance | path

Searched refs:PL_formtarget (Results 1 – 7 of 7) sorted by relevance

/mirbsd/src/gnu/usr.bin/perl/
Dpp_ctl.c377 SvPV_force(PL_formtarget, len); in PP()
378 if (DO_UTF8(PL_formtarget)) in PP()
380 t = SvGROW(PL_formtarget, len + fudge + 1); /* XXX SvCUR bad */ in PP()
426 SvCUR_set(PL_formtarget, t - SvPVX_const(PL_formtarget)); in PP()
428 sv_catpvn_utf8_upgrade(PL_formtarget, f, arg, nsv); in PP()
429 t = SvEND(PL_formtarget); in PP()
433 SvCUR_set(PL_formtarget, t - SvPVX_const(PL_formtarget)); in PP()
435 sv_utf8_upgrade(PL_formtarget); in PP()
436 SvGROW(PL_formtarget, SvCUR(PL_formtarget) + fudge + 1); in PP()
437 t = SvEND(PL_formtarget); in PP()
[all …]
Dpp_sys.c1341 (long)IoLINES_LEFT(io), (long)FmLINES(PL_formtarget))); in PP()
1344 if (IoLINES_LEFT(io) < FmLINES(PL_formtarget) && in PP()
1345 PL_formtarget != PL_toptarget) in PP()
1373 const char *s = SvPVX_const(PL_formtarget); in PP()
1383 const STRLEN save = SvCUR(PL_formtarget); in PP()
1384 SvCUR_set(PL_formtarget, s - SvPVX_const(PL_formtarget)); in PP()
1385 do_print(PL_formtarget, ofp); in PP()
1386 SvCUR_set(PL_formtarget, save); in PP()
1387 sv_chop(PL_formtarget, (char *)s); in PP()
1388 FmLINES(PL_formtarget) -= IoLINES_LEFT(io); in PP()
[all …]
Dembedvar.h70 #define PL_formtarget (vTHX->Tformtarget) macro
1188 #define PL_formtarget (aTHX->Tformtarget) macro
1328 #define PL_Tformtarget PL_formtarget
Dperlapi.h798 #undef PL_formtarget
799 #define PL_formtarget (*Perl_Tformtarget_ptr(aTHX))
Dperl.c1064 PL_formtarget = Nullsv; in perl_destruct()
4657 PL_formtarget = PL_bodytarget;
5077 PL_formtarget = PL_bodytarget;
Dutil.c3328 PL_formtarget = PL_toptarget;
3330 PL_formtarget = PL_bodytarget;
Dsv.c11580 PL_formtarget = sv_dup(proto_perl->Tformtarget, param); in perl_clone_using()