at v192 1.5 kB view raw
1http://ltp.cvs.sourceforge.net/viewvc/ltp/utils/analysis/lcov/bin/geninfo?view=log 2 3--- a/bin/geninfo 2013/01/10 09:02:32 1.119 4+++ b/bin/geninfo 2013/02/22 14:09:08 1.120 5@@ -864,7 +864,6 @@ 6 my $source; # gcov source header information 7 my $object; # gcov object header information 8 my @matches; # List of absolute paths matching filename 9- my @unprocessed; # List of unprocessed source code files 10 my $base_dir; # Base directory for current file 11 my @tmp_links; # Temporary links to be cleaned up 12 my @result; 13@@ -1060,7 +1059,6 @@ 14 15 # Traverse the list of generated .gcov files and combine them into a 16 # single .info file 17- @unprocessed = keys(%{$instr}); 18 foreach $gcov_file (sort(@gcov_list)) 19 { 20 my $i; 21@@ -1143,16 +1141,6 @@ 22 \@matches, \@gcov_content); 23 } 24 25- # Remove processed file from list 26- for ($index = scalar(@unprocessed) - 1; $index >= 0; $index--) 27- { 28- if ($unprocessed[$index] eq $source_filename) 29- { 30- splice(@unprocessed, $index, 1); 31- last; 32- } 33- } 34- 35 # Skip external files if requested 36 if (!$opt_external) { 37 if (is_external($source_filename)) { 38@@ -1297,16 +1285,6 @@ 39 unlink($gcov_file); 40 } 41 42- # Check for files which show up in the graph file but were never 43- # processed 44- if (@unprocessed && @gcov_list) 45- { 46- foreach (@unprocessed) 47- { 48- warn("WARNING: no data found for $_\n"); 49- } 50- } 51- 52 if (!($output_filename && ($output_filename eq "-"))) 53 { 54 close(INFO_HANDLE);