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);
420 # pg_print(cookie, pg)
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;
441 # pg_showcpus(cookie, pg)
447 my $pg = shift;
449 my @cpus = $p->cpus($pg);
452 my $cpu_string = $p->cpus($pg);
459 # pg_print_node(cookie, 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);
480 # pg_print_tree(cookie, tree, pg, prefix, childprefix, npeers)
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;
548 # pg_remove_from_tree(tree, pg)
554 my $pg = shift;
555 my $node = $pg_tree->{$pg};
578 @parent_children = grep { $_ != $pg } @parent_children;
584 delete $pg_tree->{$pg};
607 gettext("Usage:\t%s [-T] [-p] [-v] [-r string] [-R string] [pg ... | -c processor_id ...]\n\n"),
610 gettext("\t%s -s [-v] [-r string] [-R string] [pg ... | -c processor_id ...]\n\n"), $cmdname;
611 printf STDERR gettext("\t%s -C | -I [-r string] [-R string] [pg ... | -c processor_id ...]\n\n"),