From 521cce5909e6f86367d5ec41faa1e70d02d69984 Mon Sep 17 00:00:00 2001
From: Rob Savoye <rob@cygnus>
Date: Wed, 17 Mar 1993 02:04:20 +0000
Subject: Catch error on close so runtest won't bomb.

---
 gdb/testsuite/config/unix-gdb.exp | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'gdb')

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"
+    }    
 }
 
 #
-- 
cgit v1.1