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

	* lib/utils-lib.exp (default_binutils_run): Check exit status.

diff --git a/binutils/testsuite/ChangeLog b/binutils/testsuite/ChangeLog
index 3a74c9f8e6d125c8aa3e65669741b09fadbf50af..a7e6ad6d975ae820910da53ac61628007dfe98ba 100644 (file)
--- a/binutils/testsuite/ChangeLog
+++ b/binutils/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2006-04-10  H.J. Lu  <hongjiu.lu@intel.com>
+
+       * lib/utils-lib.exp (default_binutils_run): Check exit status.
+
 2005-12-24  Ben Elliston  <bje@gnu.org>
 
        * config/default.exp: Do not load the unneeded util-defs.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
 }