diff options
| author | Michael Chastain <mec@google.com> | 2004-08-28 23:55:48 +0000 |
|---|---|---|
| committer | Michael Chastain <mec@google.com> | 2004-08-28 23:55:48 +0000 |
| commit | 3e3ffd2b74c0321e887da2ca396070c6f61b0e1a (patch) | |
| tree | f8259011df30ae915d6c1bb2f54e1c5a51154317 /gdb/testsuite/gdb.gdb/selftest.exp | |
| parent | 0873df2aec48685715d2c5041c1f6f4ed43976c1 (diff) | |
| download | gdb-3e3ffd2b74c0321e887da2ca396070c6f61b0e1a.zip gdb-3e3ffd2b74c0321e887da2ca396070c6f61b0e1a.tar.gz gdb-3e3ffd2b74c0321e887da2ca396070c6f61b0e1a.tar.bz2 | |
2004-08-27 Michael Chastain <mec.gnu@mindspring.com>
With code from Manoj Iyer <manjo@austin.ibm.com>:
* lib/gdb.exp (gdb_file_cmd): Return more information in the
return value. Add an arm for "no debugging symbols found".
Change a stray "error" to "perror".
(gdb_run_cmd): Adapt to new return value.
* gdb.base/remote.exp: Adapt to new 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/selftest.exp')
| -rw-r--r-- | gdb/testsuite/gdb.gdb/selftest.exp | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/gdb/testsuite/gdb.gdb/selftest.exp b/gdb/testsuite/gdb.gdb/selftest.exp index 54105d2..02ad806 100644 --- a/gdb/testsuite/gdb.gdb/selftest.exp +++ b/gdb/testsuite/gdb.gdb/selftest.exp @@ -15,9 +15,6 @@ # along with this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. -# Please email any bugs, comments, and/or additions to this file to: -# bug-gdb@prep.ai.mit.edu - # This file was written by Rob Savoye. (rob@cygnus.com) if $tracelevel then { @@ -243,14 +240,15 @@ proc test_with_self { executable } { set oldtimeout $timeout set timeout 600 verbose "Timeout is now $timeout seconds" 2 - if {[gdb_load $executable] <0} then { - set timeout $oldtimeout - verbose "Timeout is now $timeout seconds" 2 - return -1 - } + + set result [gdb_load $executable] set timeout $oldtimeout verbose "Timeout is now $timeout seconds" 2 + if { [lindex $result 0] != "" } then { + return -1 + } + # disassemble yourself gdb_test "x/10i main" \ "x/10i.*main.*main.$decimal.*main.$decimal.*" \ |