2006-04-10 H.J. Lu <hongjiu.lu@intel.com>

[deliverable/binutils-gdb.git] / binutils / testsuite / lib / utils-lib.exp

diff --git a/binutils/testsuite/lib/utils-lib.exp b/binutils/testsuite/lib/utils-lib.exp
index bb819a3766fbaba58e7c47a30dbc74d41870f6bd..f7970b29269171d4b287d252f9ae9eafcd87157e 100644 (file)
--- a/binutils/testsuite/lib/utils-lib.exp
+++ b/binutils/testsuite/lib/utils-lib.exp
@@ -73,6 +73,12 @@ proc default_binutils_run { prog progargs } {
     if {![string match "" $exec_output]} then {
        send_log "$exec_output\n"
        verbose "$exec_output"
+    } else {
+       if { [lindex $state 0] != 0 } {
+           set exec_output "$prog exited with status [lindex $state 0]"
+           send_log "$exec_output\n"
+           verbose "$exec_output"
+       }
     }
     return $exec_output
 }