* 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)
* gdb.t03/ptype.exp: For UDI, skip tests which call malloc.
* gdb.t02/whatis.exp: Remove xfails for PRs 1838 and 2417; they
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.
* 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
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
}
#
# 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
# Set gdb to the desired UDI target
@ -94,6 +80,22 @@ proc gdb_target_udi { } {
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
# UDICONF enviroment variable is set.