Catch error on close so runtest won't bomb.
authorRob Savoye <rob@cygnus>
Wed, 17 Mar 1993 02:04:20 +0000 (02:04 +0000)
committerRob Savoye <rob@cygnus>
Wed, 17 Mar 1993 02:04:20 +0000 (02:04 +0000)
gdb/testsuite/config/unix-gdb.exp

index 62456639980d4f1ca5922374e24d1033948973bd..2e5a117d8d05a487a1afb26217fa78e2ad9f3183 100644 (file)
@@ -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"
+    }    
 }
 
 #