yggdrasil/binutils-gdb
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

2001-04-12 Elena Zannoni <ezannoni@redhat.com>

Browse Source 
* config/gdbserver.exp (gdb_load): Handle the case
        in which the arguments to gdbserver are given in the
        baseboard configuration file.
        Also handle the case in which the server needs to do a
        load.
This commit is contained in:
Elena Zannoni 2001-05-10 19:35:14 +00:00
parent f78f6cf107
commit c2c1be8d4c
2 changed files with 46 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gdb/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2001-05-10 Elena Zannoni <ezannoni@redhat.com>
* gdb.base/completion.exp: Revamp test. Make it execute on all
platforms.
2001-05-07 Keith Seitz <keiths@cygnus.com>
* lib/gdb.exp (gdbtk_initialize_display): New proc which will

42
gdb/testsuite/config/gdbserver.exp
View File

@ -92,6 +92,8 @@ set portnum "2345";
proc gdb_load { args } {
global server_exec;
global portnum;
global verbose;
global gdb_prompt;
# Port id -- either specified in baseboard file, or managed here.
if [target_info exists gdb,socketport] {
@ -154,10 +156,20 @@ proc gdb_load { args } {
set server_exec $args;
# Fire off the debug agent
if [target_info exists gdb_server_args] {
# This flavour of gdbserver takes as arguments those specified
# in the board configuration file
set custom_args [target_info gdb_server_args];
remote_spawn host \
"$gdbserver $custom_args >& /dev/null < /dev/null &" \
writeonly
} else {
# This flavour of gdbserver takes as arguments the port information
# and the name of the executable file to be debugged.
remote_spawn host \
"$gdbserver $sockethost$portnum $args >& /dev/null < /dev/null &" \
writeonly
}
# Give it a little time to establish
sleep 2
@ -169,6 +181,32 @@ proc gdb_load { args } {
# attach to the "serial port"
gdb_target_cmd $protocol $gdbport;
# do the real load if needed
if [target_info exists gdb_server_do_load] {
send_gdb "load\n"
set timeout 2400
verbose "Timeout is now $timeout seconds" 2
gdb_expect {
-re ".*$gdb_prompt $" {
if $verbose>1 then {
send_user "Loaded $arg into $GDB\n"
}
set timeout 30
verbose "Timeout is now $timeout seconds" 2
return 1
}
-re "$gdb_prompt $" {
if $verbose>1 then {
perror "GDB couldn't load."
}
}
timeout {
if $verbose>1 then {
perror "Timed out trying to load $arg."
}
}
}
}
return 0;
}