~ [ source navigation ] ~ [ diff markup ] ~ [ identifier search ] ~

TOMOYO Linux Cross Reference
Linux/scripts/stackdelta

Version: ~ [ linux-6.11.5 ] ~ [ linux-6.10.14 ] ~ [ linux-6.9.12 ] ~ [ linux-6.8.12 ] ~ [ linux-6.7.12 ] ~ [ linux-6.6.58 ] ~ [ linux-6.5.13 ] ~ [ linux-6.4.16 ] ~ [ linux-6.3.13 ] ~ [ linux-6.2.16 ] ~ [ linux-6.1.114 ] ~ [ linux-6.0.19 ] ~ [ linux-5.19.17 ] ~ [ linux-5.18.19 ] ~ [ linux-5.17.15 ] ~ [ linux-5.16.20 ] ~ [ linux-5.15.169 ] ~ [ linux-5.14.21 ] ~ [ linux-5.13.19 ] ~ [ linux-5.12.19 ] ~ [ linux-5.11.22 ] ~ [ linux-5.10.228 ] ~ [ linux-5.9.16 ] ~ [ linux-5.8.18 ] ~ [ linux-5.7.19 ] ~ [ linux-5.6.19 ] ~ [ linux-5.5.19 ] ~ [ linux-5.4.284 ] ~ [ linux-5.3.18 ] ~ [ linux-5.2.21 ] ~ [ linux-5.1.21 ] ~ [ linux-5.0.21 ] ~ [ linux-4.20.17 ] ~ [ linux-4.19.322 ] ~ [ linux-4.18.20 ] ~ [ linux-4.17.19 ] ~ [ linux-4.16.18 ] ~ [ linux-4.15.18 ] ~ [ linux-4.14.336 ] ~ [ linux-4.13.16 ] ~ [ linux-4.12.14 ] ~ [ linux-4.11.12 ] ~ [ linux-4.10.17 ] ~ [ linux-4.9.337 ] ~ [ linux-4.4.302 ] ~ [ linux-3.10.108 ] ~ [ linux-2.6.32.71 ] ~ [ linux-2.6.0 ] ~ [ linux-2.4.37.11 ] ~ [ unix-v6-master ] ~ [ ccs-tools-1.8.9 ] ~ [ policy-sample ] ~
Architecture: ~ [ i386 ] ~ [ alpha ] ~ [ m68k ] ~ [ mips ] ~ [ ppc ] ~ [ sparc ] ~ [ sparc64 ] ~

  1 #!/usr/bin/env perl
  2 # SPDX-License-Identifier: GPL-2.0
  3 
  4 # Read two files produced by the stackusage script, and show the
  5 # delta between them.
  6 #
  7 # Currently, only shows changes for functions listed in both files. We
  8 # could add an option to show also functions which have vanished or
  9 # appeared (which would often be due to gcc making other inlining
 10 # decisions).
 11 #
 12 # Another possible option would be a minimum absolute value for the
 13 # delta.
 14 #
 15 # A third possibility is for sorting by delta, but that can be
 16 # achieved by piping to sort -k5,5g.
 17 
 18 sub read_stack_usage_file {
 19     my %su;
 20     my $f = shift;
 21     open(my $fh, '<', $f)
 22         or die "cannot open $f: $!";
 23     while (<$fh>) {
 24         chomp;
 25         my ($file, $func, $size, $type) = split;
 26         # Old versions of gcc (at least 4.7) have an annoying quirk in
 27         # that a (static) function whose name has been changed into
 28         # for example ext4_find_unwritten_pgoff.isra.11 will show up
 29         # in the .su file with a name of just "11". Since such a
 30         # numeric suffix is likely to change across different
 31         # commits/compilers/.configs or whatever else we're trying to
 32         # tweak, we can't really track those functions, so we just
 33         # silently skip them.
 34         #
 35         # Newer gcc (at least 5.0) report the full name, so again,
 36         # since the suffix is likely to change, we strip it.
 37         next if $func =~ m/^[0-9]+$/;
 38         $func =~ s/\..*$//;
 39         # Line numbers are likely to change; strip those.
 40         $file =~ s/:[0-9]+$//;
 41         $su{"${file}\t${func}"} = {size => $size, type => $type};
 42     }
 43     close($fh);
 44     return \%su;
 45 }
 46 
 47 @ARGV == 2
 48     or die "usage: $0 <old> <new>";
 49 
 50 my $old = read_stack_usage_file($ARGV[0]);
 51 my $new = read_stack_usage_file($ARGV[1]);
 52 my @common = sort grep {exists $new->{$_}} keys %$old;
 53 for (@common) {
 54     my $x = $old->{$_}{size};
 55     my $y = $new->{$_}{size};
 56     my $delta = $y - $x;
 57     if ($delta) {
 58         printf "%s\t%d\t%d\t%+d\n", $_, $x, $y, $delta;
 59     }
 60 }

~ [ source navigation ] ~ [ diff markup ] ~ [ identifier search ] ~

kernel.org | git.kernel.org | LWN.net | Project Home | SVN repository | Mail admin

Linux® is a registered trademark of Linus Torvalds in the United States and other countries.
TOMOYO® is a registered trademark of NTT DATA CORPORATION.

sflogo.php