diff options
author | Sylvestre Ledru <sylvestre@debian.org> | 2014-06-14 08:49:40 +0000 |
---|---|---|
committer | Sylvestre Ledru <sylvestre@debian.org> | 2014-06-14 08:49:40 +0000 |
commit | e6f5c37aab685089c2f71809590ab5bd40e3bc02 (patch) | |
tree | ed4b2e6ccc727d9fea6e9bf7d642f98d7481e64a /tools | |
parent | b78303a715232f5a0fdcaa3d0676a5b58255fc3c (diff) | |
download | clang-e6f5c37aab685089c2f71809590ab5bd40e3bc02.tar.gz clang-e6f5c37aab685089c2f71809590ab5bd40e3bc02.tar.bz2 clang-e6f5c37aab685089c2f71809590ab5bd40e3bc02.tar.xz |
List the function/method name in the index page of scan-build
git-svn-id: https://llvm.org/svn/llvm-project/cfe/trunk@210971 91177308-0d34-0410-b5e6-96231b3b80d8
Diffstat (limited to 'tools')
-rwxr-xr-x | tools/scan-build/scan-build | 17 |
1 files changed, 14 insertions, 3 deletions
diff --git a/tools/scan-build/scan-build b/tools/scan-build/scan-build index f46f0933c0..862bd3a4ca 100755 --- a/tools/scan-build/scan-build +++ b/tools/scan-build/scan-build @@ -368,6 +368,7 @@ sub ScanFile { my $BugType = ""; my $BugFile = ""; + my $BugFunction = ""; my $BugCategory = ""; my $BugDescription = ""; my $BugPathLength = 1; @@ -395,8 +396,13 @@ sub ScanFile { elsif (/<!-- BUGDESC (.*) -->$/) { $BugDescription = $1; } + elsif (/<!-- FUNCTIONNAME (.*) -->$/) { + $BugFunction = $1; + } + } + close(IN); if (!defined $BugCategory) { @@ -409,7 +415,7 @@ sub ScanFile { return; } - push @$Index,[ $FName, $BugCategory, $BugType, $BugFile, $BugLine, + push @$Index,[ $FName, $BugCategory, $BugType, $BugFile, $BugFunction, $BugLine, $BugPathLength ]; } @@ -701,6 +707,7 @@ print OUT <<ENDTEXT; <td>Bug Group</td> <td class="sorttable_sorted">Bug Type<span id="sorttable_sortfwdind"> ▾</span></td> <td>File</td> + <td>Function/Method</td> <td class="Q">Line</td> <td class="Q">Path Length</td> <td class="sorttable_nosort"></td> @@ -758,13 +765,17 @@ ENDTEXT } print OUT "</td>"; + print OUT "<td class=\"DESC\">"; + print OUT $row->[4]; + print OUT "</td>"; + # Print out the quantities. - for my $j ( 4 .. 5 ) { + for my $j ( 5 .. 6 ) { print OUT "<td class=\"Q\">$row->[$j]</td>"; } # Print the rest of the columns. - for (my $j = 6; $j <= $#{$row}; ++$j) { + for (my $j = 7; $j <= $#{$row}; ++$j) { print OUT "<td>$row->[$j]</td>" } |