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/complaints.exp | |
| parent | 0873df2aec48685715d2c5041c1f6f4ed43976c1 (diff) | |
| download | fsf-binutils-gdb-3e3ffd2b74c0321e887da2ca396070c6f61b0e1a.zip fsf-binutils-gdb-3e3ffd2b74c0321e887da2ca396070c6f61b0e1a.tar.gz fsf-binutils-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/complaints.exp')
| -rw-r--r-- | gdb/testsuite/gdb.gdb/complaints.exp | 18 |
1 files changed, 8 insertions, 10 deletions
diff --git a/gdb/testsuite/gdb.gdb/complaints.exp b/gdb/testsuite/gdb.gdb/complaints.exp index 3d3426f..719065f 100644 --- a/gdb/testsuite/gdb.gdb/complaints.exp +++ b/gdb/testsuite/gdb.gdb/complaints.exp @@ -1,5 +1,5 @@ -# Copyright 2002 -# Free Software Foundation, Inc. +# Copyright 2002, 2004 +# Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by @@ -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 Andrew Cagney (cagney at redhat dot com), # derived from xfullpath.exp (written by Joel Brobecker), derived from # selftest.exp (written by Rob Savoye). @@ -51,14 +48,15 @@ proc setup_test { 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 + } + # Set a breakpoint at main gdb_test "break captured_command_loop" \ "Breakpoint.*at.* file.*, line.*" \ |