* config/unix-gdb.exp: Remove this version of gdb_exit
* lib/gdb.exp: Merge in all the crap from config/unix-gdb.exp. Rob says he'll look at it when he gets back to testing boards.
This commit is contained in:
parent
c10744770c
commit
4c206d219c
1 changed files with 0 additions and 55 deletions
|
@ -149,61 +149,6 @@ proc gdb_load { arg } {
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
#
|
|
||||||
# gdb_exit -- kills the gdb process currently running
|
|
||||||
#
|
|
||||||
# This overrides the generic version of gdb_exit in lib/gdb.exp, since
|
|
||||||
# it's doing a lot of wierd stuff that lib/gdb.exp isn't.
|
|
||||||
# FIXME, fold it in, or abandon this version.
|
|
||||||
|
|
||||||
proc gdb_exit {} {
|
|
||||||
global verbose
|
|
||||||
global GDB
|
|
||||||
global GDBFLAGS
|
|
||||||
set timeout 1
|
|
||||||
|
|
||||||
if $verbose>1 then {
|
|
||||||
send_user "Quitting $GDB $GDBFLAGS\n"
|
|
||||||
}
|
|
||||||
catch "send \"quit\n\"" result
|
|
||||||
if [string match "write\(spawn_id=\[0-9\]+\):" $result] then {
|
|
||||||
catch "close"
|
|
||||||
return -1
|
|
||||||
}
|
|
||||||
catch {
|
|
||||||
expect {
|
|
||||||
eof {
|
|
||||||
if $verbose>1 then {
|
|
||||||
send_user "Got EOF from $GDB\n"
|
|
||||||
}
|
|
||||||
}
|
|
||||||
timeout {
|
|
||||||
if $verbose>1 then {
|
|
||||||
send_user "Got TIMEOUT from $GDB\n"
|
|
||||||
}
|
|
||||||
close
|
|
||||||
}
|
|
||||||
-re "The program is running. Quit anyway.*? (y or n) $" {
|
|
||||||
send "y\n"
|
|
||||||
if $verbose>1 then {
|
|
||||||
send_user "\t\tKilling program being debugged\n"
|
|
||||||
}
|
|
||||||
close
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
catch "close"
|
|
||||||
# Before this was here sometimes "uit" would get sent to the next GDB
|
|
||||||
# (assuming this is immediately followed by gdb_start), which would
|
|
||||||
# cause a loss of syncronization (i.e. all the stuff that swallows a
|
|
||||||
# prompt would swallow the wrong one).
|
|
||||||
wait
|
|
||||||
|
|
||||||
if $verbose>1 then {
|
|
||||||
send_user "Quitting $GDB $GDBFLAGS\n"
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
#
|
#
|
||||||
# start gdb -- start gdb running
|
# start gdb -- start gdb running
|
||||||
#
|
#
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue