| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ |
| H A D | pad.h | 16 /* a padlist is currently just an AV; but that might change,
101 =for apidoc m|SV *|PAD_BASE_SV |PADLIST padlist|PADOFFSET po
102 Get the value from slot C<po> in the base (DEPTH=1) pad of a padlist
104 =for apidoc m|void|PAD_SET_CUR |PADLIST padlist|I32 n
105 Set the current pad to be pad C<n> in the padlist, saving
108 =for apidoc m|void|PAD_SET_CUR_NOSAVE |PADLIST padlist|I32 n
134 #define PAD_BASE_SV(padlist, po) \
135 (AvARRAY(padlist)[1]) \
136 ? AvARRAY((AV*)(AvARRAY(padlist)[1]))[po] : Nullsv;
139 #define PAD_SET_CUR_NOSAVE(padlist,
[all...] |
| H A D | pad.c | 108 Create a new compiling padlist, saving and updating the various global
122 AV *padlist, *padname, *pad, *a0; local
152 padlist = newAV();
178 AvREAL_off(padlist);
179 av_store(padlist, 0, (SV*)padname);
180 av_store(padlist, 1, (SV*)pad);
184 PL_comppad_name = (AV*)(*av_fetch(padlist, 0, FALSE));
185 PL_comppad = (AV*)(*av_fetch(padlist, 1, FALSE));
195 "Pad 0x%"UVxf"[0x%"UVxf"] new: padlist=0x%"UVxf
197 PTR2UV(PL_comppad), PTR2UV(PL_curpad), PTR2UV(padlist),
224 PADLIST *padlist = CvPADLIST(cv); local
761 AV *padlist = CvPADLIST(bcv); local
1189 Perl_do_dump_pad(pTHX_ I32 level, PerlIO *file, PADLIST *padlist, int full) argument
1261 AV* padlist = CvPADLIST(cv); local
1460 Perl_pad_fixup_inner_anons(pTHX_ PADLIST *padlist, CV *old_cv, CV *new_cv) argument
1492 Perl_pad_push(pTHX_ PADLIST *padlist, int depth, int has_args) argument
[all...] |
| H A D | dump.c | 1451 AV *padlist, *comppad; local
1480 padlist = CvPADLIST(cv);
1481 comppad = (AV*)(*av_fetch(padlist, 0, FALSE));
|
| H A D | pp_ctl.c | 2239 AV* padlist = CvPADLIST(cv); local
2255 pad_push(padlist, CvDEPTH(cv), cx->blk_sub.hasargs);
2271 PAD_SET_CUR(padlist, CvDEPTH(cv));
|
| H A D | pp_hot.c | 2871 AV* padlist = CvPADLIST(cv); local
2883 pad_push(padlist, CvDEPTH(cv), 1);
2899 PAD_SET_CUR(padlist, CvDEPTH(cv));
|
| H A D | proto.h | 1336 PERL_CALLCONV void Perl_do_dump_pad(pTHX_ I32 level, PerlIO *file, PADLIST *padlist, int full);
1337 PERL_CALLCONV void Perl_pad_fixup_inner_anons(pTHX_ PADLIST *padlist, CV *old_cv, CV *new_cv);
1339 PERL_CALLCONV void Perl_pad_push(pTHX_ PADLIST *padlist, int depth, int has_args);
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/B/ |
| H A D | Debug.pm | 194 my ($padlist) = $sv->PADLIST;
197 printf <<'EOT', $$stash, $$start, $$root, $$gv, $file, $sv->DEPTH, $padlist, ${$sv->OUTSIDE}, $sv->OUTSIDE_SEQ;
211 $padlist->debug if $padlist;
|
| H A D | Xref.pm | 142 my $padlist = shift;
145 return if class($padlist) eq "SPECIAL";
146 ($namelistav,$vallistav) = $padlist->ARRAY;
|
| H A D | CC.pm | 38 # is [$name, $root, $start, @padlist]. PMOP repl code
39 # tuples inherit padlist.
43 my @padlist; # Copy of current padlist so PMOP repl code can find it
172 debug "cc_queue: name $name, root $root, start $start, padlist (@pl)\n"
177 push(@cc_todo, [$name, $root, $start, (@pl ? @pl : @padlist)]);
402 @padlist = @_;
1558 my ($name, $root, $start, @padlist) = @_;
1566 load_pad(@padlist);
1610 declare_pad(@padlist) ;
[all...] |
| H A D | C.pm | 973 my $padlist = $cv->PADLIST;
999 $startfield = saveoptree($ppname, $root, $cv->START, $padlist->ARRAY);
1002 if ($$padlist) {
1004 $$padlist, $$cv) if $debug_cv;
1005 $padlist->save;
1007 $$padlist, $$cv) if $debug_cv;
1018 $$padlist, ${$cv->OUTSIDE}, $cv->CvFLAGS,
|
| H A D | Deparse.pm | 1274 my $padlist = $cv->PADLIST;
1276 next if class($padlist) eq "SPECIAL";
1277 my @padlist = $padlist->ARRAY;
1278 my @ns = $padlist[0]->ARRAY;
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Devel/Peek/ |
| H A D | Peek.xs | 35 AV* padlist = CvPADLIST(cv), *argav;
57 svp = AvARRAY(padlist);
58 while (++i <= AvFILL(padlist)) { /* Depth. */
112 if (AvFILL(padlist) > 1) {
|