testsuite: Persistent gdbserver cleanup
* lib/gdb.exp (gdb_finish): Send a kill request to `gdbserver' if in the persistent mode. * gdb.trace/disconnected-tracing.exp: Reconnect before completion.
This commit is contained in:
parent
bbe769cc07
commit
a35cfb4007
@ -1,3 +1,9 @@
|
||||
2013-10-24 Maciej W. Rozycki <macro@codesourcery.com>
|
||||
|
||||
* lib/gdb.exp (gdb_finish): Send a kill request to `gdbserver'
|
||||
if in the persistent mode.
|
||||
* gdb.trace/disconnected-tracing.exp: Reconnect before completion.
|
||||
|
||||
2013-10-24 Maciej W. Rozycki <macro@codesourcery.com>
|
||||
|
||||
* lib/gdb.exp (gdb_gcore_cmd): Also handle a "Target does not
|
||||
|
@ -147,3 +147,6 @@ proc disconnected_tfind { } {
|
||||
}
|
||||
|
||||
disconnected_tfind
|
||||
|
||||
# Reconnect for a clean gdbserver shutdown.
|
||||
gdb_reconnect
|
||||
|
@ -3612,8 +3612,23 @@ proc gdb_init { args } {
|
||||
}
|
||||
|
||||
proc gdb_finish { } {
|
||||
global gdbserver_reconnect_p
|
||||
global gdb_prompt
|
||||
global cleanfiles
|
||||
|
||||
# Give persistent gdbserver a chance to terminate before GDB is killed.
|
||||
if {[info exists gdbserver_reconnect_p] && $gdbserver_reconnect_p} {
|
||||
send_gdb "kill\n";
|
||||
gdb_expect 10 {
|
||||
-re "y or n" {
|
||||
send_gdb "y\n";
|
||||
exp_continue;
|
||||
}
|
||||
-re "$gdb_prompt $" {
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
# Exit first, so that the files are no longer in use.
|
||||
gdb_exit
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user