Lines Matching refs:pg
333 foreach my $pg (@pgs) {
334 my $name = $p->sh_name ($pg) || "unknown";
335 my $level = $p->level($pg) || 0;
338 my $tags = $p->tags($pg);
404 foreach my $pg (@top_level) {
405 my $children = $pg_tree->{$pg}->{children};
408 pg_print_tree($p, $pg_tree, $pg, '', '', scalar @children);
426 my $pg = shift;
427 my $sharing = $p->sh_name($pg);
429 my $tags = $p->tags($pg);
432 my $level = $p->level($pg) - $minlevel;
434 my $cpus = $p->cpus($pg);
435 printf "%-${max_pg_len}d %-${max_sharename_len}s", $pg, $sharing;
447 my $pg = shift;
449 my @cpus = $p->cpus($pg);
452 my $cpu_string = $p->cpus($pg);
465 my $pg = shift;
467 my $sharing = $p->sh_name($pg);
469 my $tags = $p->tags($pg);
473 print "$pg ($sharing)";
474 my $cpus = pg_showcpus($p, $pg);
489 my $pg = shift;
490 return unless defined ($pg); # done!
496 my $children = $pg_tree->{$pg}->{children};
508 pg_print_node ($p, $pg);
538 foreach my $pg ($p->all()) {
539 my @children = $p->children($pg);
540 $pg_tree->{$pg}->{parent} = $p->parent($pg);
541 $pg_tree->{$pg}->{children} = \@children;
554 my $pg = shift;
555 my $node = $pg_tree->{$pg};
578 @parent_children = grep { $_ != $pg } @parent_children;
584 delete $pg_tree->{$pg};