Home
last modified time | relevance | path

Searched refs:PL_comppad (Results 1 – 10 of 10) sorted by relevance

/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/
H A Dpad.h55 if (PL_comppad ? (AvARRAY(PL_comppad) != PL_curpad) : (PL_curpad != 0)) \
57 label, PTR2UV(PL_comppad), PTR2UV(PL_curpad));
61 if (!PL_comppad || (AvARRAY(PL_comppad) != PL_curpad)) \
63 label, PTR2UV(PL_comppad), PTR2UV(PL_curpad));
140 PL_comppad = (PAD*) (AvARRAY(padlist)[n]); \
141 PL_curpad = AvARRAY(PL_comppad); \
144 PTR2UV(PL_comppad), PTR2UV(PL_curpad), (int)(n)));
153 PL_comppad = Null(PAD*); PL_curpad = Null(SV**); \
157 opad = PL_comppad; \
158 PL_comppad = (npad); \
[all …]
H A Dpad.c185 PL_comppad = (AV*)(*av_fetch(padlist, 1, FALSE)); in Perl_pad_new()
186 PL_curpad = AvARRAY(PL_comppad); in Perl_pad_new()
197 PTR2UV(PL_comppad), PTR2UV(PL_curpad), PTR2UV(padlist), in Perl_pad_new()
289 else if (sv == (SV*)PL_comppad) { in Perl_pad_undef()
290 PL_comppad = Null(PAD*); in Perl_pad_undef()
366 av_store(PL_comppad, offset, (SV*)newAV()); in Perl_pad_add_name()
368 av_store(PL_comppad, offset, (SV*)newHV()); in Perl_pad_add_name()
400 if (AvARRAY(PL_comppad) != PL_curpad) in Perl_pad_alloc()
406 sv = *av_fetch(PL_comppad, AvFILLp(PL_comppad) + 1, TRUE); in Perl_pad_alloc()
408 retval = AvFILLp(PL_comppad); in Perl_pad_alloc()
[all …]
H A Dscope.c482 SSPUSHPTR(PL_comppad); in Perl_save_padsv()
902 PTR2UV(PL_comppad), PTR2UV(PL_curpad), in Perl_leave_scope()
1034 PL_comppad = (PAD*)SSPOPPTR; in Perl_leave_scope()
1035 if (PL_comppad) in Perl_leave_scope()
1036 PL_curpad = AvARRAY(PL_comppad); in Perl_leave_scope()
H A Dscope.h166 SSPUSHPTR((SV*)PL_comppad); \
H A Dperlapi.h739 #undef PL_comppad
740 #define PL_comppad (*Perl_Tcomppad_ptr(aTHX))
H A Dembedvar.h51 #define PL_comppad (vTHX->Tcomppad) macro
1160 #define PL_comppad (aTHX->Tcomppad) macro
1300 #define PL_Tcomppad PL_comppad
H A Dutil.c3115 PL_comppad = 0;
H A Dpp_ctl.c2704 *padp = (AV*)SvREFCNT_inc(PL_comppad); in Perl_sv_compile_2op()
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/pod/
H A Dperlintern.pod265 save PL_comppad and PL_curpad
460 C<PL_comppad> is set to the frame AV for the frame CvDEPTH == 1.
461 C<PL_curpad> is set to the body of the frame AV (i.e. AvARRAY(PL_comppad)).
463 During execution, C<PL_comppad> and C<PL_curpad> refer to the live
568 the end of PL_comppad, but for a tmp, scan the pad from PL_padix upwards
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/ByteLoader/
H A Dbytecode.h285 PL_comppad = (AV *)arg; \