[kaffe] CVS kaffe (doogie): Print out the total errors for each compiler group.
Kaffe CVS
cvs-commits at kaffe.org
Fri Dec 10 17:01:10 PST 2004
PatchSet 5605
Date: 2004/12/11 00:45:49
Author: doogie
Branch: HEAD
Tag: (none)
Log:
Print out the total errors for each compiler group.
Members:
scripts/sort-warnings.pl:1.11->1.12
ChangeLog:1.3150->1.3151
Index: kaffe/scripts/sort-warnings.pl
diff -u kaffe/scripts/sort-warnings.pl:1.11 kaffe/scripts/sort-warnings.pl:1.12
--- kaffe/scripts/sort-warnings.pl:1.11 Sat Dec 11 00:42:31 2004
+++ kaffe/scripts/sort-warnings.pl Sat Dec 11 00:45:49 2004
@@ -83,6 +83,7 @@
my %error_counts;
my %errors;
my $total_errors = 0;
+my %compiler_errors;
for ( my $i = 0; $i < @Registry::warnings; $i++ ) {
my $warning = $Registry::warnings[ $i ];
@@ -114,12 +115,16 @@
$count++;
$total_errors++;
}
+ $compiler_errors{ $compiler } += $count;
print( STDERR "$count\n" ) if ( !$disabled{ $compiler } );
$text = $scanned . $text;
}
#print( STDERR join( "\n", keys( %file_errors ) ) . "\n" );
-print( "\nTotal Errors: $total_errors\n\n" );
-
+print( "\nTotal Errors: $total_errors\n" );
+while ( my ( $compiler, $count ) = each( %compiler_errors ) ) {
+ print( "Compiler($compiler) Errors: $count\n" ) if ( !$disabled{ $compiler } );
+}
+print( "\n" );
#print( Dumper( \%errors ) );
foreach my $file ( sort( { $file_errors{ $b } <=> $file_errors{ $a } } keys( %file_errors ) ) ) {
my $count = $file_errors{ $file };
Index: kaffe/ChangeLog
diff -u kaffe/ChangeLog:1.3150 kaffe/ChangeLog:1.3151
--- kaffe/ChangeLog:1.3150 Sat Dec 11 00:42:27 2004
+++ kaffe/ChangeLog Sat Dec 11 00:45:43 2004
@@ -1,6 +1,11 @@
2004-12-10 Adam Heath <doogie at brainfood.com>
* scripts/sort-warnings.pl:
+ Print out the total errors for each compiler group.
+
+2004-12-10 Adam Heath <doogie at brainfood.com>
+
+ * scripts/sort-warnings.pl:
Fix prepending on @INC.
2004-12-10 Dalibor Topic <robilad at kaffe.org>
More information about the kaffe
mailing list