mirrors
/
linux-stable
mirror of https://git.kernel.org/pub/scm/linux/kernel/git/stable/linux.git
1
0
Fork 0
Code Issues Releases Wiki Activity

scripts: get_abi.pl: precompile what match regexes 

In order to earn some time during matches, pre-compile regexes.

Before this patch:
	$ time ./scripts/get_abi.pl undefined |wc -l
	6970

	real	0m54,751s
	user	0m54,022s
	sys	0m0,592s

Afterwards:

	$ time ./scripts/get_abi.pl undefined |wc -l
	6970

	real	0m5,888s
	user	0m5,310s
	sys	0m0,562s

Signed-off-by: Mauro Carvalho Chehab <mchehab+huawei@kernel.org>
Link: https://lore.kernel.org/r/ec45de8fcae791aab0880644974a110424423e68.1632411447.git.mchehab+huawei@kernel.org
Signed-off-by: Greg Kroah-Hartman <gregkh@linuxfoundation.org>
This commit is contained in:
Mauro Carvalho Chehab 2021-09-23 17:41:18 +02:00 committed by Greg Kroah-Hartman
parent cb06b8ddeb
commit f34f67292b
1 changed files with 29 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
scripts/get_abi.pl
View File

@ -25,6 +25,7 @@ my $search_string;
my $dbg_what_parsing = 1;
my $dbg_what_open = 2;
my $dbg_dump_abi_structs = 4;
my $dbg_undefined = 8;
#
# If true, assumes that the description is formatted with ReST
@ -692,7 +693,8 @@ sub check_undefined_symbols {
if (!defined($leaf{$leave})) {
$leave = "others";
}
my $what = $leaf{$leave};
my @expr = @{$leaf{$leave}->{expr}};
die ("missing rules for $leave") if (!defined($leaf{$leave}));
my $path = $file;
$path =~ s,(.*/).*,$1,;
@ -702,10 +704,17 @@ sub check_undefined_symbols {
$found_string = 1;
}
foreach my $a (@names) {
print "--> $a\n" if ($found_string && $hint);
foreach my $w (split /\xac/, $what) {
if ($a =~ m#^$w$#) {
for (my $i = 0; $i < @names; $i++) {
if ($found_string && $hint) {
if (!$i) {
print "--> $names[$i]\n";
} else {
print " $names[$i]\n";
}
}
foreach my $re (@expr) {
print "$names[$i] =~ /^$re\$/\n" if ($debug && $dbg_undefined);
if ($names[$i] =~ $re) {
$exact = 1;
last;
}
@ -715,6 +724,7 @@ sub check_undefined_symbols {
next if ($exact);
if ($hint && (!$search_string || $found_string)) {
my $what = $leaf{$leave}->{what};
$what =~ s/\xac/\n\t/g;
if ($leave ne "others") {
print " more likely regexes:\n\t$what\n";
@ -734,7 +744,7 @@ sub undefined_symbols {
no_chdir => 1
}, $sysfs_prefix);
$leaf{"others"} = "";
$leaf{"others"}->{what} = "";
foreach my $w (sort keys %data) {
foreach my $what (split /\xac/,$w) {
@ -792,14 +802,15 @@ sub undefined_symbols {
$what =~ s/sqrt(.*)/sqrt\(.*\)/;
my $leave = get_leave($what);
my $added = 0;
foreach my $l (split /\|/, $leave) {
if (defined($leaf{$l})) {
next if ($leaf{$l} =~ m/\b$what\b/);
$leaf{$l} .= "\xac" . $what;
next if ($leaf{$l}->{what} =~ m/\b$what\b/);
$leaf{$l}->{what} .= "\xac" . $what;
$added = 1;
} else {
$leaf{$l} = $what;
$leaf{$l}->{what} = $what;
$added = 1;
}
}
@ -809,6 +820,15 @@ sub undefined_symbols {
}
}
# Compile regexes
foreach my $l (keys %leaf) {
my @expr;
foreach my $w(split /\xac/, $leaf{$l}->{what}) {
push @expr, qr /^$w$/;
}
$leaf{$l}->{expr} = \@expr;
}
# Take links into account
foreach my $link (keys %aliases) {
my $abs_file = $aliases{$link};