Print full errorInfo when a failure occurs.

git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@35999 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
Reid Spencer 2007-04-14 17:36:20 +00:00
parent 98a72203d7
commit bcb8674f7e

View File

@ -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\nwhile running: $line\n$errmsg"
set errmsg " at RUN: line $lineno\n$::errorInfo\n$errmsg"
switch "$code" {
CHILDSTATUS {
set status [lindex $::errorCode 2]