Corrected an error that was introduced yesterday that caused the GCC
authorPatrick Jenkins <pjenkins@apple.com>
Tue, 22 Aug 2006 18:11:19 +0000 (18:11 +0000)
committerPatrick Jenkins <pjenkins@apple.com>
Tue, 22 Aug 2006 18:11:19 +0000 (18:11 +0000)
version to be left blank if the build failed.

Also corrected a problem where if the build failed the nightly tester
would still try to read the results of the Dejagnutests log even
though it didnt exist.

git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@29829 91177308-0d34-0410-b5e6-96231b3b80d8

utils/NewNightlyTest.pl

index db78195a9c85f7883bf0b5580188e0bc9ccd4dc9..d59f1bc5d72d2ff62d8c233944a425a0fd0c56a8 100755 (executable)
@@ -768,8 +768,7 @@ if (!$NODEJAGNU) {
 #
 ##############################################################
 sub TestDirectory {
-  my $SubDir = shift;
-  
+  my $SubDir = shift;  
   ChangeDir( "$BuildDir/llvm/projects/llvm-test/$SubDir", 
              "Programs Test Subdirectory" ) || return ("", "");
   
@@ -850,35 +849,34 @@ if (!$BuildError) {
                "$Prefix-MultiSource-Performance.txt ".
                " | sort > $Prefix-Performance.txt";
   }
-}
 
-##############################################################
-#
-# 
-# gathering tests added removed broken information here
-#
-#
-##############################################################
-my $dejagnu_test_list = ReadFile "$Prefix-Tests.txt";
-my @DEJAGNU = split "\n", $dejagnu_test_list;
-
-my $passes="",
-my $fails="";
-my $xfails="";
-
-if(!$NODEJAGNU) {
-  for ($x=0; $x<@DEJAGNU; $x++) {
-    if ($DEJAGNU[$x] =~ m/^PASS:/) {
-      $passes.="$DEJAGNU[$x]\n";
-    }
-    elsif ($DEJAGNU[$x] =~ m/^FAIL:/) {
-      $fails.="$DEJAGNU[$x]\n";
-    }
-    elsif ($DEJAGNU[$x] =~ m/^XFAIL:/) {
-      $xfails.="$DEJAGNU[$x]\n";
+  ##############################################################
+  #
+  # 
+  # gathering tests added removed broken information here 
+  #
+  #
+  ##############################################################
+  my $dejagnu_test_list = ReadFile "$Prefix-Tests.txt";
+  my @DEJAGNU = split "\n", $dejagnu_test_list;
+  my ($passes, $fails, $xfails) = "";
+
+  if(!$NODEJAGNU) {
+    for ($x=0; $x<@DEJAGNU; $x++) {
+      if ($DEJAGNU[$x] =~ m/^PASS:/) {
+        $passes.="$DEJAGNU[$x]\n";
+      }
+      elsif ($DEJAGNU[$x] =~ m/^FAIL:/) {
+        $fails.="$DEJAGNU[$x]\n";
+      }
+      elsif ($DEJAGNU[$x] =~ m/^XFAIL:/) {
+        $xfails.="$DEJAGNU[$x]\n";
+      }
     }
   }
-}
+  
+} #end if !$BuildError
+
 
 ##############################################################
 #
@@ -947,6 +945,15 @@ my (@DEJAGNU_LOG, @DEJAGNU_SUM, @DEJAGNULOG_FULL, @GCC_VERSION);
 my ($dejagnutests_log ,$dejagnutests_sum, $dejagnulog_full) = "";
 my ($gcc_version, $gcc_version_long) = "";
 
+$gcc_version_long="";
+if ($GCCPATH ne "") {
+       $gcc_version_long = `$GCCPATH/gcc --version`;
+} else {
+       $gcc_version_long = `gcc --version`;
+}
+@GCC_VERSION = split '\n', $gcc_version_long;
+$gcc_version = $GCC_VERSION[0];
+
 if(!$BuildError){
   @DEJAGNU_LOG = ReadFile "$DejagnuLog";
   @DEJAGNU_SUM = ReadFile "$DejagnuSum";
@@ -955,15 +962,6 @@ if(!$BuildError){
 
   @DEJAGNULOG_FULL = ReadFile "$DejagnuTestsLog";
   $dejagnulog_full = join("\n", @DEJAGNULOG_FULL);
-
-  $gcc_version_long="";
-  if ($GCCPATH ne "") {
-       $gcc_version_long = `$GCCPATH/gcc --version`;
-  } else {
-         $gcc_version_long = `gcc --version`;
-  }
-  @GCC_VERSION = split '\n', $gcc_version_long;
-  $gcc_version = $GCC_VERSION[0];
 }
 
 ##############################################################