From b7c5957e7c64ce75471b6b43f0871e002b987b2e Mon Sep 17 00:00:00 2001
From: Reid Spencer <rspencer@reidspencer.com>
Date: Sat, 14 Apr 2007 18:51:19 +0000
Subject: 1. Don't generate redundant copy of stderr 2. Only match \ at the
 *end* of a line.

llvm-svn: 36007
---
 llvm/test/lib/llvm.exp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'llvm/test/lib')

diff --git a/llvm/test/lib/llvm.exp b/llvm/test/lib/llvm.exp
index dd0525bf8ce..acfc911565e 100644
--- a/llvm/test/lib/llvm.exp
+++ b/llvm/test/lib/llvm.exp
@@ -5,7 +5,7 @@ proc execOneLine { test outcome lineno line } {
   if { $retval != 0 } {
     set code [lindex $::errorCode 0]
     set lineno [expr $lineno + 1]
-    set errmsg " at RUN: line $lineno\n$::errorInfo\n$errmsg"
+    set errmsg " at RUN: line $lineno\n$::errorInfo"
     switch "$code" {
       CHILDSTATUS {
         set status [lindex $::errorCode 2]
@@ -101,7 +101,7 @@ proc llvm-runtest { programs } {
       #see if this is our run line
       if {[regexp {END.[ *]$} $line match endofscript]} {
         break
-      } elseif {[regexp {RUN: *([^\\]+)(\\)} $line match oneline suffix]} {
+      } elseif {[regexp {RUN: *([^\\]+)(\\)$} $line match oneline suffix]} {
         set runline "$runline$oneline "
       } elseif {[regexp {RUN: *([^&]+)(&&)?} $line match oneline suffix]} {
         set runline "$runline$oneline"
-- 
cgit v1.2.3