This is the mail archive of the
gdb-patches@sources.redhat.com
mailing list for the GDB project.
RFA: adapt gdb/testsuite/config/sim.exp to new gdb_file_cmd
- From: Jim Blandy <jimb at redhat dot com>
- To: gdb-patches at sources dot redhat dot com
- Date: 08 Sep 2004 18:23:30 -0500
- Subject: RFA: adapt gdb/testsuite/config/sim.exp to new gdb_file_cmd
Here's a caller of gdb_file_cmd that wasn't updated when the type of
its return value was changed.
Tested on i686-pc-linux-gnu x powerpc-eabispe sim.
2004-09-08 Jim Blandy <jimb@redhat.com>
* config/sim.exp (gdb_load): Adapt to expect and return new return
values from gdb_file_command.
Index: gdb/testsuite/config/sim.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/config/sim.exp,v
retrieving revision 1.2
diff -c -p -r1.2 sim.exp
*** gdb/testsuite/config/sim.exp 8 Feb 2004 03:56:14 -0000 1.2
--- gdb/testsuite/config/sim.exp 8 Sep 2004 23:22:12 -0000
*************** proc gdb_target_sim { } {
*** 46,52 ****
#
# gdb_load -- load a file into the debugger.
- # return a -1 if anything goes wrong.
#
proc gdb_load { arg } {
global verbose
--- 46,51 ----
*************** proc gdb_load { arg } {
*** 56,62 ****
global gdb_prompt
if { $arg != "" } {
! if [gdb_file_cmd $arg] then { return -1 }
}
gdb_target_sim
--- 55,64 ----
global gdb_prompt
if { $arg != "" } {
! set status [gdb_file_cmd $arg]
! if { [lindex $status 0] != "" } then {
! return $status
! }
}
gdb_target_sim
*************** proc gdb_load { arg } {
*** 71,77 ****
}
set timeout 30
verbose "Timeout is now $timeout seconds" 2
! return 1
}
-re "$gdb_prompt $" {
if $verbose>1 then {
--- 73,79 ----
}
set timeout 30
verbose "Timeout is now $timeout seconds" 2
! return { "" }
}
-re "$gdb_prompt $" {
if $verbose>1 then {