mirror of
https://github.com/c64scene-ar/llvm-6502.git
synced 2024-07-21 18:29:45 +00:00
Encapsulated all of the print statements in "if( $VERBOSE) { }". The testing script will be absoutely silent now except for errors, which will still be printed to the annoyance of the user.
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@29525 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
parent
190a418bf6
commit
ea103a86fa
@ -185,7 +185,7 @@ if ($CONFIGUREARGS !~ /--disable-jit/) {
|
|||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
if (@ARGV != 0 and @ARGV != 3){
|
if (@ARGV != 0 and @ARGV != 3 and $VERBOSE){
|
||||||
foreach $x (@ARGV){
|
foreach $x (@ARGV){
|
||||||
print "$x\n";
|
print "$x\n";
|
||||||
}
|
}
|
||||||
@ -376,7 +376,7 @@ sub GetDejagnuTestResults { # (filename, log)
|
|||||||
my $firstline;
|
my $firstline;
|
||||||
$/ = "\n"; #Make sure we're going line at a time.
|
$/ = "\n"; #Make sure we're going line at a time.
|
||||||
|
|
||||||
print "DEJAGNU TEST RESULTS:\n";
|
if( $VERBOSE) { print "DEJAGNU TEST RESULTS:\n"; }
|
||||||
|
|
||||||
if (open SRCHFILE, $filename) {
|
if (open SRCHFILE, $filename) {
|
||||||
# Process test results
|
# Process test results
|
||||||
@ -394,10 +394,10 @@ sub GetDejagnuTestResults { # (filename, log)
|
|||||||
$first_list = 0;
|
$first_list = 0;
|
||||||
$should_break = 1;
|
$should_break = 1;
|
||||||
push(@lines, "$_\n");
|
push(@lines, "$_\n");
|
||||||
print " $_\n";
|
if( $VERBOSE) { print " $_\n"; }
|
||||||
} else {
|
} else {
|
||||||
push(@lines, "$_\n");
|
push(@lines, "$_\n");
|
||||||
print " $_\n";
|
if( $VERBOSE) { print " $_\n"; }
|
||||||
}
|
}
|
||||||
} #elsif ( m/Summary/ ) {
|
} #elsif ( m/Summary/ ) {
|
||||||
# if ( $first_list ) {
|
# if ( $first_list ) {
|
||||||
@ -414,7 +414,7 @@ sub GetDejagnuTestResults { # (filename, log)
|
|||||||
#}
|
#}
|
||||||
elsif ( $readingsum ) {
|
elsif ( $readingsum ) {
|
||||||
push(@lines,"$_\n");
|
push(@lines,"$_\n");
|
||||||
print " $_\n";
|
if( $VERBOSE) { print " $_\n"; }
|
||||||
}
|
}
|
||||||
|
|
||||||
}
|
}
|
||||||
@ -460,7 +460,7 @@ sub SendData{
|
|||||||
$send.= "Content-length: $length\n\n";
|
$send.= "Content-length: $length\n\n";
|
||||||
$send.= "$content";
|
$send.= "$content";
|
||||||
|
|
||||||
print SOCK $send;
|
#print SOCK $send;
|
||||||
my $result;
|
my $result;
|
||||||
while(<SOCK>){
|
while(<SOCK>){
|
||||||
$result .= $_;
|
$result .= $_;
|
||||||
|
Loading…
Reference in New Issue
Block a user