diff options
author | Michael Chastain <mec.gnu@mindspring.com> | 2004-09-10 01:04:59 +0000 |
---|---|---|
committer | Michael Chastain <mec.gnu@mindspring.com> | 2004-09-10 01:04:59 +0000 |
commit | 884fe4f0baf4759f17b0adc8bb714de72eba1802 (patch) | |
tree | 4191bac32a323c53086627ac5692f1b412c1de32 /gdb/testsuite/gdb.gdb/complaints.exp | |
parent | 24f409288d0ca464ff63c1f24f378ad87a579b50 (diff) | |
download | gdb-884fe4f0baf4759f17b0adc8bb714de72eba1802.tar.gz |
2004-09-09 Michael Chastain <mec.gnu@mindspring.com>
* lib/gdb.exp (gdb_file_cmd): Revert the return value to
previous simple convention. Use a global variable to store
information about what was found.
(gdb_run_cmd): Adapt to reverted return value.
* gdb.base/remote.exp: Adapt to reverted return value.
* gdb.gdb/complaints.exp: Likewise.
* gdb.gdb/observer.exp: Likewise.
* gdb.gdb/selftest.exp: Likewise.
* gdb.gdb/xfullpath.exp: Likewise.
Diffstat (limited to 'gdb/testsuite/gdb.gdb/complaints.exp')
-rw-r--r-- | gdb/testsuite/gdb.gdb/complaints.exp | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/gdb/testsuite/gdb.gdb/complaints.exp b/gdb/testsuite/gdb.gdb/complaints.exp index c29053c6197..2dd1508fed6 100644 --- a/gdb/testsuite/gdb.gdb/complaints.exp +++ b/gdb/testsuite/gdb.gdb/complaints.exp @@ -49,17 +49,20 @@ proc setup_test { executable } { set timeout 600 verbose "Timeout is now $timeout seconds" 2 + global gdb_file_cmd_debug_info + set gdb_file_cmd_debug_info "unset" + set result [gdb_load $executable] set timeout $oldtimeout verbose "Timeout is now $timeout seconds" 2 - if { [lindex $result 0] != "" } then { + if { $result != 0 } then { + return -1 + } + + if { $gdb_file_cmd_debug_info != "debug" } then { + untested "No debug information, skipping testcase." return -1 - } else { - if { [lsearch -exact [lrange $result 1 end] "nodebug"] >= 0 } then { - untested "No debug information, skipping testcase." - return -1 - } } # Set a breakpoint at main |