Lines Matching full:my
14 my $nm = $ENV{'NM'} || die "$0: ERROR: NM not set?";
15 my $objtree = $ENV{'objtree'} || '.';
18 my $jobs = {}; # child process pid -> file handle
20 my $results = {}; # object index -> [ { level, secname }, ... ]
25 open(my $fh, "getconf _NPROCESSORS_ONLN 2>/dev/null |")
27 my $procs = <$fh>;
40 my ($index, $initcalls) = @_;
44 foreach my $counter (sort { $a <=> $b } keys(%{$initcalls})) {
45 my $level = $initcalls->{$counter}->{'level'};
48 my $secname = $initcalls->{$counter}->{'module'} . '__' .
59 my ($fh) = @_;
64 my $data = <$fh>;
72 my ($index, $level, $secname) = $data =~
98 my ($index, $file) = @_;
102 open(my $fh, "\"$nm\" --defined-only \"$file\" 2>/dev/null |")
105 my $initcalls = {};
112 my ($path)= $_ =~ /^(.+)\:$/;
121 my ($module, $counter, $line, $symbol) = $_ =~
135 my ($function, $level) = $symbol =~
156 my ($select) = @_;
158 my $pid = 0;
161 foreach my $fh ($select->can_read(0)) {
173 my $fh = $jobs->{$pid};
189 my $index = 0;
190 my $njobs = $ENV{'PARALLELISM'} || get_online_processors();
191 my $select = IO::Select->new();
193 while (my $file = shift(@ARGV)) {
195 my $pid = open(my $fh, '-|');
227 my $sections = {}; # level -> [ secname, ...]
231 foreach my $index (sort { $a <=> $b } keys(%{$results})) {
232 foreach my $result (@{$results->{$index}}) {
233 my $level = $result->{'level'};
249 foreach my $level (sort(keys(%{$sections}))) {
250 my $section;
260 foreach my $secname (@{$sections->{$level}}) {