Searched refs:padname (Results 1 - 5 of 5) sorted by relevance
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/B/ |
H A D | Concise.pm | 564 my $padname = (($curcv->PADLIST->ARRAY)[0]->ARRAY)[$h{targ}]; 565 if (defined $padname and class($padname) ne "SPECIAL") { 566 $h{targarg} = $padname->PVX; 567 if ($padname->FLAGS & SVf_FAKE) { 574 $fake .= 'a' if $padname->IVX & 1; # PAD_FAKELEX_ANON 575 $fake .= 'm' if $padname->IVX & 2; # PAD_FAKELEX_MULTI 576 $fake .= ':' . $padname->NVX if $curcv->CvFLAGS & CVf_ANON; 581 my $intro = $padname->NVX - $cop_seq_base; 582 my $finish = int($padname [all...] |
H A D | Deparse.pm | 1034 my $var = $self->padname($op->targ); 2628 sub padname { subroutine 2637 return substr($self->padname($op->targ), 1); # skip $/@/% 2643 return $self->maybe_my($op, $cx, $self->padname($op->targ)); 2694 $name = $self->padname($op->targ); 2819 my ($op, $cx, $left, $right, $padname) = @_; 2821 unless ($array->name eq $padname) { # Maybe this has been fixed 2824 if ($array->name eq $padname) { 2893 my ($op, $cx, $left, $right, $regname, $padname) = @_; 2907 } elsif ($array->name eq $padname) { [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ |
H A D | pad.c | 122 AV *padlist, *padname, *pad, *a0; local 153 padname = newAV(); 169 av_store(padname, 0, newSVpvn("@_", 2)); 179 av_store(padlist, 0, (SV*)padname); 198 PTR2UV(padname), (UV)flags
|
H A D | op.c | 5362 char *padname = local 5364 if (padname) 5368 padname + 1,
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/ |
H A D | B.pm | 652 of a lexical variable from a padname array. Lexical variable names
|
Completed in 57 milliseconds