diff options
Diffstat (limited to 'gdb')
| -rw-r--r-- | gdb/testsuite/config/unix-gdb.exp | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gdb/testsuite/config/unix-gdb.exp b/gdb/testsuite/config/unix-gdb.exp index 6245663..2e5a117 100644 --- a/gdb/testsuite/config/unix-gdb.exp +++ b/gdb/testsuite/config/unix-gdb.exp @@ -139,6 +139,7 @@ proc gdb_exit {} { } catch "send \"quit\n\"" result if [string match "write\(spawn_id=\[0-9\]+\): Bad file number" $result] then { + catch "close" return 0 } expect { @@ -161,6 +162,11 @@ proc gdb_exit {} { close } } + catch "close" + + if $verbose>1 then { + send_user "Quitting $GDB $GDBFLAGS\n" + } } # |