* config/udi-gdb.exp (gdb_load): Use "file", not "load" command,

since "run" automatically loads if necessary.  Call gdb_target_udi
	after the "file" since "file" kills any execution target.
This commit is contained in:
Jim Kingdon
1994-02-07 01:50:51 +00:00
parent 1dd29bef1b
commit 2558ba5dd6
2 changed files with 20 additions and 15 deletions

View File

@ -1,5 +1,7 @@
Sun Feb 6 15:36:13 1994 Jim Kingdon (kingdon@lioth.cygnus.com) Sun Feb 6 15:36:13 1994 Jim Kingdon (kingdon@lioth.cygnus.com)
* gdb.t03/ptype.exp: For UDI, skip tests which call malloc.
* gdb.t02/whatis.exp: Remove xfails for PRs 1838 and 2417; they * gdb.t02/whatis.exp: Remove xfails for PRs 1838 and 2417; they
are fixed. are fixed.
@ -13,7 +15,8 @@ Sun Feb 6 15:36:13 1994 Jim Kingdon (kingdon@lioth.cygnus.com)
* gdb.t01/run.exp: Only run shell test if isnative. * gdb.t01/run.exp: Only run shell test if isnative.
* config/udi-gdb.exp (gdb_load): Use "file", not "load" command, * config/udi-gdb.exp (gdb_load): Use "file", not "load" command,
since "run" automatically loads if necessary. since "run" automatically loads if necessary. Call gdb_target_udi
after the "file" since "file" kills any execution target.
* config/udi-gdb.exp (gdb_start): Don't send "set args main" to * config/udi-gdb.exp (gdb_start): Don't send "set args main" to
GDB. GDB doesn't work that way (not anymore at least) on UDI. GDB. GDB doesn't work that way (not anymore at least) on UDI.

View File

@ -41,20 +41,6 @@ proc gdb_version {} {
default_gdb_version default_gdb_version
} }
#
# gdb_load -- load a file into the debugger.
# return a -1 if anything goes wrong.
#
proc gdb_load { arg } {
global verbose
global loadpath
global loadfile
global GDB
global prompt
return [gdb_file_cmd $arg]
}
# #
# gdb_target_udi # gdb_target_udi
# Set gdb to the desired UDI target # Set gdb to the desired UDI target
@ -94,6 +80,22 @@ proc gdb_target_udi { } {
set timeout 10 set timeout 10
} }
#
# gdb_load -- load a file into the debugger.
# return a -1 if anything goes wrong.
#
proc gdb_load { arg } {
global verbose
global loadpath
global loadfile
global GDB
global prompt
if [gdb_file_cmd $arg] then { return -1 }
gdb_target_udi
}
# #
# gdb_start -- start GDB running. This assumes that there the # gdb_start -- start GDB running. This assumes that there the
# UDICONF enviroment variable is set. # UDICONF enviroment variable is set.