mirros/rockchip-kernel
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

scripts: get_abi.pl: precompile what match regexes

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