[llvm-commits] [llvm] r49790 - /llvm/branches/ggreif/parallelized-test/lib/llvm.exp

[Gabor Greif]

Author: ggreif
Date: Wed Apr 16 10:09:01 2008
New Revision: 49790

URL: http://llvm.org/viewvc/llvm-project?rev=49790&view=rev
Log:
even nicer filenames (for failed tests now)

Modified:
    llvm/branches/ggreif/parallelized-test/lib/llvm.exp

Modified: llvm/branches/ggreif/parallelized-test/lib/llvm.exp
URL: http://llvm.org/viewvc/llvm-project/llvm/branches/ggreif/parallelized-test/lib/llvm.exp?rev=49790&r1=49789&r2=49790&view=diff

==============================================================================
--- llvm/branches/ggreif/parallelized-test/lib/llvm.exp (original)
+++ llvm/branches/ggreif/parallelized-test/lib/llvm.exp Wed Apr 16 10:09:01 2008
@@ -1,5 +1,5 @@
 # This procedure executes one line of a test case's execution script.
-proc execOneLine { test PRS outcome lineno line } {
+proc execOneLine { subdir_filename test PRS outcome lineno line } {
   set status 0
   set resultmsg ""
   set retval [ catch { eval exec -keepnewline -- $line } errmsg ]
@@ -14,21 +14,21 @@
       CHILDSTATUS {
         set status [lindex $::errorCode 2]
         if { $status != 0 } {
-          set resultmsg "$test$PRS\nFailed with exit($status)$errmsg"
+          set resultmsg "$subdir_filename$PRS\nFailed with exit($status)$errmsg"
         }
       }
       CHILDKILLED {
         set signal [lindex $::errorCode 2]
-        set resultmsg "$test$PRS\nFailed with signal($signal)$errmsg"
+        set resultmsg "$subdir_filename$PRS\nFailed with signal($signal)$errmsg"
       }
       CHILDSUSP {
         set signal [lindex $::errorCode 2]
-        set resultmsg "$test$PRS\nFailed with suspend($signal)$errmsg"
+        set resultmsg "$subdir_filename$PRS\nFailed with suspend($signal)$errmsg"
       }
       POSIX {
         set posixNum [lindex $::errorCode 1]
         set posixMsg [lindex $::errorCode 2]
-        set resultmsg "$test$PRS\nFailed with posix($posixNum,$posixMsg)$errmsg"
+        set resultmsg "$subdir_filename$PRS\nFailed with posix($posixNum,$posixMsg)$errmsg"
       }
       NONE {
       }
@@ -273,7 +273,7 @@
     set failed 0
     for { set i 0 } { $i < $numLines } { set i [ expr $i + 1 ] } {
       regsub ^.*RUN:(.*) $lines($i) \1 theLine
-      set resultmsg [execOneLine $test $PRNUMS $outcome $i $theLine ]
+      set resultmsg [execOneLine $subdir_filename $test $PRNUMS $outcome $i $theLine ]
       if { $resultmsg != "" } {
         if { $outcome == "XFAIL" } {
           xfail "$resultmsg"