From da28e1e1b073aa293883d838010ff1dd98178a8a Mon Sep 17 00:00:00 2001 From: "H.J. Lu" Date: Mon, 10 Apr 2006 19:05:31 +0000 Subject: [PATCH] 2006-04-10 H.J. Lu * lib/utils-lib.exp (default_binutils_run): Check exit status. --- binutils/testsuite/ChangeLog | 4 ++++ binutils/testsuite/lib/utils-lib.exp | 6 ++++++ 2 files changed, 10 insertions(+) diff --git a/binutils/testsuite/ChangeLog b/binutils/testsuite/ChangeLog index 3a74c9f8e6..a7e6ad6d97 100644 --- a/binutils/testsuite/ChangeLog +++ b/binutils/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2006-04-10 H.J. Lu + + * lib/utils-lib.exp (default_binutils_run): Check exit status. + 2005-12-24 Ben Elliston * 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 bb819a3766..f7970b2926 100644 --- 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 } -- 2.34.1