From 2db8e78e679d88bbdbaf32bdfbed44382f55c0d6 Mon Sep 17 00:00:00 2001 From: Michael Chastain Date: Fri, 10 Sep 2004 01:04:59 +0000 Subject: 2004-09-09 Michael Chastain * 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. --- gdb/testsuite/gdb.gdb/selftest.exp | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) (limited to 'gdb/testsuite/gdb.gdb/selftest.exp') diff --git a/gdb/testsuite/gdb.gdb/selftest.exp b/gdb/testsuite/gdb.gdb/selftest.exp index fb559aa..e7d46bd 100644 --- a/gdb/testsuite/gdb.gdb/selftest.exp +++ b/gdb/testsuite/gdb.gdb/selftest.exp @@ -241,17 +241,20 @@ proc test_with_self { 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 - } } # disassemble yourself -- cgit v1.1