Commit 5e4bac34 authored by Tobin C. Harding's avatar Tobin C. Harding

leaking_addresses: cache architecture name

Currently we are repeatedly calling `uname -m`.  This is causing the
script to take a long time to run (more than 10 seconds to parse
/proc/kallsyms).  We can use Perl state variables to cache the result of
the first call to `uname -m`.  With this change in place the script
scans the whole kernel in under a minute.

Cache machine architecture in state variable.
Signed-off-by: 's avatarTobin C. Harding <me@tobin.cc>
parent b401f56f
...@@ -175,7 +175,7 @@ sub is_32bit ...@@ -175,7 +175,7 @@ sub is_32bit
sub is_ix86_32 sub is_ix86_32
{ {
my $arch = `uname -m`; state $arch = `uname -m`;
chomp $arch; chomp $arch;
if ($arch =~ m/i[3456]86/) { if ($arch =~ m/i[3456]86/) {
...@@ -198,12 +198,14 @@ sub is_arch ...@@ -198,12 +198,14 @@ sub is_arch
sub is_x86_64 sub is_x86_64
{ {
return is_arch('x86_64'); state $is = is_arch('x86_64');
return $is;
} }
sub is_ppc64 sub is_ppc64
{ {
return is_arch('ppc64'); state $is = is_arch('ppc64');
return $is;
} }
# Gets config option value from kernel config file. # Gets config option value from kernel config file.
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment