Home
last modified time | relevance | path

Searched refs:PL_comppad_name (Results 1 – 8 of 8) sorted by relevance

/mirbsd/src/gnu/usr.bin/perl/
Dpad.h221 #define PAD_COMPNAME_FLAGS(po) SvFLAGS(*av_fetch(PL_comppad_name, (po), FALSE))
222 #define PAD_COMPNAME_PV(po) SvPV_nolen(*av_fetch(PL_comppad_name, (po), FALSE))
227 (GvSTASH(*av_fetch(PL_comppad_name, (po), FALSE)))
229 #define PAD_COMPNAME_GEN(po) SvCUR(AvARRAY(PL_comppad_name)[po])
231 #define PAD_COMPNAME_GEN_set(po, gen) SvCUR_set(AvARRAY(PL_comppad_name)[po], gen)
268 PL_comppad_name = av_dup(proto_perl->Icomppad_name, param); \
Dpad.c141 SAVESPTR(PL_comppad_name); in Perl_pad_new()
189 PL_comppad_name = (AV*)(*av_fetch(padlist, 0, FALSE)); in Perl_pad_new()
295 if (sv == (SV*)PL_comppad_name) in Perl_pad_undef()
296 PL_comppad_name = Nullav; in Perl_pad_undef()
360 av_store(PL_comppad_name, offset, namesv); in Perl_pad_add_name()
419 SV * const * const names = AvARRAY(PL_comppad_name); in Perl_pad_alloc()
420 const SSize_t names_fill = AvFILLp(PL_comppad_name); in Perl_pad_alloc()
466 av_store(PL_comppad_name, ix, name); in Perl_pad_add_anon()
504 if (AvFILLp(PL_comppad_name) < 0 || !ckWARN(WARN_MISC)) in Perl_pad_check_dup()
507 svp = AvARRAY(PL_comppad_name); in Perl_pad_check_dup()
[all …]
Dbytecode.pl511 comppad_name *(SV**)&PL_comppad_name svindex
Dembedvar.h228 #define PL_comppad_name (PERL_GET_INTERP->Icomppad_name) macro
553 #define PL_comppad_name (vTHX->Icomppad_name) macro
881 #define PL_Icomppad_name PL_comppad_name
Dperlapi.h192 #undef PL_comppad_name
193 #define PL_comppad_name (*Perl_Icomppad_name_ptr(aTHX))
Dop.c1268 /* XXX */ assert(av_fetch(PL_comppad_name, (o->op_targ), FALSE)); in Perl_mod()
1269 /* XXX */ assert(*av_fetch(PL_comppad_name, (o->op_targ), FALSE)); in Perl_mod()
1973 PL_comppad_name = 0; in Perl_newPROG()
5429 /*XXX*/ assert(av_fetch(PL_comppad_name, (kid->op_targ), FALSE)); in Perl_ck_fun()
5430 /*XXX*/ assert(*av_fetch(PL_comppad_name, (kid->op_targ), FALSE)); in Perl_ck_fun()
6731 lexname = *av_fetch(PL_comppad_name, rop->op_first->op_targ, TRUE); in Perl_peep()
6782 lexname = *av_fetch(PL_comppad_name, rop->op_first->op_targ, TRUE); in Perl_peep()
/mirbsd/src/gnu/usr.bin/perl/ext/ByteLoader/
Dbyterun.c1101 *(SV**)&PL_comppad_name = arg; in byterun()
/mirbsd/src/gnu/usr.bin/perl/pod/
Dperlintern.pod513 C<PL_comppad_name> is set to the names AV.