Gecko [ casapremiada.novaexata.com.br ]

Name	Size	Permission
glibc-malloc.meta	381 B	-rw-r--r--
glibc-malloc.stp	2.43 KB	-rw-r--r--
hugepage_clear_delays.meta	946 B	-rw-r--r--
hugepage_clear_delays.stp	483 B	-rwxr-xr-x
hugepage_collapse.meta	718 B	-rw-r--r--
hugepage_collapse.stp	159 B	-rwxr-xr-x
hugepage_cow_delays.meta	1.08 KB	-rw-r--r--
hugepage_cow_delays.stp	475 B	-rwxr-xr-x
hugepage_split.meta	756 B	-rw-r--r--
hugepage_split.stp	153 B	-rwxr-xr-x
hw_watch_addr.meta	787 B	-rw-r--r--
hw_watch_addr.stp	167 B	-rwxr-xr-x
hw_watch_addr.tcl	97 B	-rw-r--r--
hw_watch_sym.meta	715 B	-rw-r--r--
hw_watch_sym.stp	167 B	-rwxr-xr-x
hw_watch_sym.tcl	97 B	-rw-r--r--
kmalloc-top	3.8 KB	-rwxr-xr-x
kmalloc-top.meta	695 B	-rw-r--r--
last_100_frees.meta	420 B	-rw-r--r--
last_100_frees.stp	803 B	-rwxr-xr-x
last_100_frees.tcl	79 B	-rw-r--r--
last_100_frees.txt	774 B	-rw-r--r--
mmanonpage.meta	1.2 KB	-rw-r--r--
mmanonpage.stp	1.77 KB	-rwxr-xr-x
mmfilepage.meta	929 B	-rw-r--r--
mmfilepage.stp	3.47 KB	-rwxr-xr-x
mmreclaim.meta	606 B	-rw-r--r--
mmreclaim.stp	5.11 KB	-rwxr-xr-x
mmwriteback.meta	1008 B	-rw-r--r--
mmwriteback.stp	1.92 KB	-rwxr-xr-x
numa_faults.meta	702 B	-rw-r--r--
numa_faults.stp	973 B	-rwxr-xr-x
numa_faults.txt	1.67 KB	-rw-r--r--
overcommit.meta	484 B	-rw-r--r--
overcommit.stp	217 B	-rwxr-xr-x
pfaults.meta	744 B	-rw-r--r--
pfaults.stp	875 B	-rwxr-xr-x
pfaults.txt	558 B	-rw-r--r--
vm.tracepoints.meta	608 B	-rw-r--r--
vm.tracepoints.stp	414 B	-rwxr-xr-x
vm.tracepoints.txt	557 B	-rw-r--r--

Code Editor : kmalloc-top

#!/usr/bin/perl
#
# This script accumulates the execution paths of all calls to kmalloc
# in the kernel.  On Ctrl-C (or exit of the command provided by -c option),
# it sorts, filters and displays them on
# stdout.
#
# The -e (exclude) option can be used to specify a comma-separated list
# - any stack with contents matching any of the items in the list will
# be excluded from the output.
#
# The -m (min) option can be used to specify the minimum number of
# occurrences a stack needs to be included in the output.
#
# The -t (top) option can be used to specify printing only the 
# top N stack traces.
#
# The -c (command) option runs starts the command and script
# only runs for the duration of the command.
#
# The -o (options) option passes the options to systemap.
#
# Usage: ./kmalloc-top [-m min] [-e exclude list] [-t top_n] [-c command]
#           [-o options]
# Ctrl-c

use Getopt::Std;

my $kmalloc_stacks;
my $total_kmallocs;
my $filtered_kmallocs;
my $sorted_stacks;
my $first_n = 1000000000;
my $min_count = 1;
my $exclude;
my $options;

$SIG{INT} = \&sigint_handler;

getopts('c:e:m:t:o:');

if ($opt_e) {
    $exclude = join('|', split(/,/, $opt_e));
    print "Will exclude stacks containing: $exclude\n";
}

if ($opt_t) {
    $first_n = $opt_t;
    print "Will print only the top $first_n stacks.\n";
}

if ($opt_m) {
    $min_count = $opt_m;
}

if ($opt_c) {
    $command="-c \"$opt_c\""
}

if ($opt_o) {
    $options=$opt_o
}

print "Will print stacks with counts >= $min_count.\n";
print STDERR "Press Ctrl-C to stop.\n";

#The systemtap script that instruments the kmalloc
$script="
global kmalloc_stack

probe kernel.function(\"__kmalloc\") { kmalloc_stack[backtrace()]++ }

probe timer.ms(100), end
{
  foreach (stack in kmalloc_stack) {
    printf(\"<hashkey>\\n\")
    print_syms(stack) 
    printf(\"</hashkey>\\n\")
    printf(\"<hashval>%d</hashval>\\n\", kmalloc_stack[stack])
  }
  delete kmalloc_stack
}
";

open STREAM, "stap $options -e '$script' $command|" or die "Couldn't get output stream $!";

while (<STREAM>) {
    if (/<hashval>(.*?)<\/hashval>/) {
	update_hash($key, $1);
	$key = "";
    } elsif ($_ !~ (/<hashkey>|<\/hashkey>/))  {
	$key .= $_;
    }
}

$num_keys_before_filtering = scalar keys %kmalloc_stacks;
$total_kmallocs = count_kmallocs();
filter_stacks();
sort_stacks();
top_stacks();
sort_stacks();
$num_keys_after_filtering = scalar keys %kmalloc_stacks;
$filtered_kmallocs = count_kmallocs();
summarize();
exit();

sub update_hash
{
    my($key, $val) = @_;
    $kmalloc_stacks{$key} += $val;
}

sub filter_stacks
{
    while (($stack, $count) = each %kmalloc_stacks) {
	if ($count < $min_count) {
	    delete $kmalloc_stacks{$stack};
	} elsif ($exclude && $stack =~ /$exclude/) {
	    delete $kmalloc_stacks{$stack};
	}
    }
}

sub top_stacks
{
    $count=0;
    foreach $stack(@sorted_stacks) {
	$count+=1;
	if ($count > $first_n) {
	    delete $kmalloc_stacks{$stack};
	}
    }
}

sub sort_stacks
{
    @sorted_stacks = sort { $kmalloc_stacks{$b} <=> $kmalloc_stacks{$a} } keys %kmalloc_stacks;
}

sub count_kmallocs {
    $count = 0;
    foreach $stack(%kmalloc_stacks) {
	$count += $kmalloc_stacks{$stack};
    }
    return $count;
}

sub summarize {
    print "\n";
    foreach $stack(@sorted_stacks) {
	print "This path seen $kmalloc_stacks{$stack} times:\n$stack\n";
    }

if ($total_kmallocs > 0) {
	$percent = ($filtered_kmallocs)*100/$total_kmallocs;
    } else {
	$percent = 0;
    }
    print "Num stacks before filtering: $num_keys_before_filtering\n";
    print "Num stacks after filtering: $num_keys_after_filtering\n";
    print "Total kmallocs (before filtering): $total_kmallocs\n";
    print "Total kmallocs (after filtering): $filtered_kmallocs\n";
    print "The filter stacks have $percent of the total kmallocs\n";

close(STREAM);
}

sub sigint_handler
{
    system("pkill kmalloc-stacks");
}

${this.title}

Code Editor : kmalloc-top