From 9a03bdac5150ec32305ce05479ab6538ecb3739c Mon Sep 17 00:00:00 2001 From: Reid Spencer Date: Sat, 14 Apr 2007 18:51:19 +0000 Subject: [PATCH] 1. Don't generate redundant copy of stderr 2. Only match \ at the *end* of a line. git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@36007 91177308-0d34-0410-b5e6-96231b3b80d8 --- test/lib/llvm.exp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/test/lib/llvm.exp b/test/lib/llvm.exp index dd0525bf8ce..acfc911565e 100644 --- a/test/lib/llvm.exp +++ b/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"