Catch error on close so runtest won't bomb.

This commit is contained in:
Rob Savoye 1993-03-17 02:04:20 +00:00
parent 400b81b5e6
commit 521cce5909

View file

@ -139,6 +139,7 @@ proc gdb_exit {} {
} }
catch "send \"quit\n\"" result catch "send \"quit\n\"" result
if [string match "write\(spawn_id=\[0-9\]+\): Bad file number" $result] then { if [string match "write\(spawn_id=\[0-9\]+\): Bad file number" $result] then {
catch "close"
return 0 return 0
} }
expect { expect {
@ -161,6 +162,11 @@ proc gdb_exit {} {
close close
} }
} }
catch "close"
if $verbose>1 then {
send_user "Quitting $GDB $GDBFLAGS\n"
}
} }
# #