summaryrefslogtreecommitdiffstats
path: root/bin
diff options
context:
space:
mode:
authorkmu <kmu@jelly.ad.hdfgroup.org>2019-11-07 20:34:13 (GMT)
committerDavid Young <dyoung@hdfgroup.org>2020-05-20 14:20:23 (GMT)
commit6725222332ded4dd7324f61a73299d889a4ae571 (patch)
tree3092f832d185062f062347b172104ad0b95b17cf /bin
parentd1d4635550d989a887db98791213c455894b48eb (diff)
downloadhdf5-6725222332ded4dd7324f61a73299d889a4ae571.zip
hdf5-6725222332ded4dd7324f61a73299d889a4ae571.tar.gz
hdf5-6725222332ded4dd7324f61a73299d889a4ae571.tar.bz2
fix warnings from Intel compiler
Diffstat (limited to 'bin')
-rwxr-xr-xbin/warnhist17
1 files changed, 13 insertions, 4 deletions
diff --git a/bin/warnhist b/bin/warnhist
index a8dcd97..e48e591 100755
--- a/bin/warnhist
+++ b/bin/warnhist
@@ -206,8 +206,12 @@ while (<>) {
($last_c_name, $toss) = split /\:/, $_;
}
+ if($_ =~ /.*[A-Za-z0-9_]\.[chC]\(.*[0-9]\):.*#.*/) {
+ $last_c_name = $_;
+ }
+
# Skip lines that don't have the word "warning"
- next if $_ !~ /[Ww]arning:/;
+ next if $_ !~ /[Ww]arning/;
# Skip warnings from linker
next if $_ =~ /ld: warning:/;
@@ -257,11 +261,15 @@ while (<>) {
} elsif($_ =~ /^\".*, line [0-9]+: *[Ww]arning:.*/) {
($name, $toss, $warning, $extra, $extra2) = split /\:/, $_;
($name, $line) = split /\,/, $name;
- $name =~ s/^\"//g;
- $name =~ s/\"$//g;
- $line =~ s/^\s*line\s*//g;
+ $name =~ s/^\"//g;
+ $name =~ s/\"$//g;
+ $line =~ s/^\s*line\s*//g;
# print "name:'", $name, "'-'", $line, "'\n";
# print "warning:'", $warning, "'\n";
+ } elsif($_ =~ /.*[A-Za-z0-9_]\.[chC]\(.*[0-9]\):.*#.*/) {
+ ($last_c_name, $toss, $warning) = split /\:/, $last_c_name;
+ ($name, $line) = split /\(/, $last_c_name;
+ $line =~ s/\)//g;
} else {
# Check for 'character offset' field appended to file & line #
# (This is probably specific to GCC)
@@ -331,6 +339,7 @@ while (<>) {
# Convert all quotes to '
$warning =~ s/‘/'/g;
$warning =~ s/’/'/g;
+ $warning =~ s/"/'/g;
#
# These skipped messages & "genericizations" may be specific to GCC