hollalinux
/
linux-sg2042
mirror of https://github.com/sophgo/linux-riscv.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

ktest: Remove indexes from warnings check 

The index of a line where a warning is tested can be returned
differently on different versions of gcc (or same version compiled
differently). That is, a tab + space can give different results. This
causes the warning check to produce a false positive. Removing the
index from the check fixes this issue.

Signed-off-by: Steven Rostedt <rostedt@goodmis.org>
This commit is contained in:
Steven Rostedt (Red Hat) 2013-02-18 09:35:49 -05:00 committed by Steven Rostedt
parent 4c0b67a27d
commit 7328735cbf
1 changed files with 26 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
tools/testing/ktest/ktest.pl
View File

@ -1945,6 +1945,27 @@ sub start_monitor_and_boot {
my $check_build_re = ".*:.*(warning|error|Error):.*"; my $check_build_re = ".*:.*(warning|error|Error):.*";
my $utf8_quote = "\\x{e2}\\x{80}(\\x{98}|\\x{99})"; my $utf8_quote = "\\x{e2}\\x{80}(\\x{98}|\\x{99})";
sub process_warning_line {
my ($line) = @_;
chomp $line;
# for distcc heterogeneous systems, some compilers
# do things differently causing warning lines
# to be slightly different. This makes an attempt
# to fixe those issues.
# chop off the index into the line
# using distcc, some compilers give different indexes
# depending on white space
$line =~ s/^(\s*\S+:\d+:)\d+/$1/;
# Some compilers use UTF-8 extended for quotes and some don't.
$line =~ s/$utf8_quote/'/g;
return $line;
}
# Read buildlog and check against warnings file for any # Read buildlog and check against warnings file for any
# new warnings. # new warnings.
# #
@ -1965,8 +1986,9 @@ sub check_buildlog {
while (<IN>) { while (<IN>) {
if (/$check_build_re/) { if (/$check_build_re/) {
chomp; my $warning = process_warning_line $_;
$warnings_list{$_} = 1;
$warnings_list{$warning} = 1;
} }
} }
close(IN); close(IN);
@ -1978,13 +2000,9 @@ sub check_buildlog {
open(IN, $buildlog) or dodie "Can't open $buildlog"; open(IN, $buildlog) or dodie "Can't open $buildlog";
while (<IN>) { while (<IN>) {
if (/$check_build_re/) { if (/$check_build_re/) {
my $warning = process_warning_line $_;
# Some compilers use UTF-8 extended for quotes if (!defined $warnings_list{$warning}) {
# for distcc heterogeneous systems, this causes issues
s/$utf8_quote/'/g;
chomp;
if (!defined $warnings_list{$_}) {
fail "New warning found (not in $warnings_file)\n$_\n"; fail "New warning found (not in $warnings_file)\n$_\n";
$no_reboot = $save_no_reboot; $no_reboot = $save_no_reboot;
return 0; return 0;