Just a little cleanup. Made gdb_exit "kill" any isstip's still running

and blow away the socket. GDB now restarts beautifully.

diff --git a/gdb/testsuite/config/udi-gdb.exp b/gdb/testsuite/config/udi-gdb.exp
index df64531a745e8c46e2692a16722a7f498dca1c93..695e85ff7def09f636108e49c5debcfe20c2b902 100644 (file)
--- a/gdb/testsuite/config/udi-gdb.exp
+++ b/gdb/testsuite/config/udi-gdb.exp
@@ -31,17 +31,13 @@ if ![info exists prompt] then {
     set prompt "\(gdb\)"
 }
 
+load_lib gdb.exp
+
 #
 # gdb_version -- extract and print the version number of gdb
 #
 proc gdb_version {} {
-    global GDB
-    global GDBFLAGS
-    global prompt
-    set tmp [exec echo "q" | $GDB]
-    set version [lindex $tmp [lsearch $tmp "\[0-9\]*"]]
-    set version [string range $version 0 [expr [string length $version]-2]]
-    clone_output "[which $GDB] version $version $GDBFLAGS\n"
+    default_gdb_version
 }
 
 #
@@ -59,27 +55,21 @@ proc gdb_load { arg } {
     global expect_out
 
     send "load $arg\n"
-    if $verbose>1 then {
-       send_user "Loading $arg into $GDB\n"
-    }
+    verbose "Loading $arg into $GDB"
     expect {
        -re "Loading.*\.text.*\.data.*\.bss.*Reading symbols from $arg.+done.*$prompt $" {
-           if $verbose>1 then {
-               send_user "Loaded $arg into $GDB\n"
-           }
+           verbose "Loaded $arg into $GDB"
            return 1
        }
-       -re "$prompt $"     {
-           if $verbose>1 then {
-               error "GDB couldn't load."
-           }
+       -re "$prompt $" {
+           error "Couldn't load $arg into $GDB."
+           return 0
        }
        timeout {
-           if $verbose>1 then {
                error "Timed out trying to load $arg."
-           }
+           return 0
        }
-}
+    }
     if [info exists expect_out(buffer)] then {
        send_log $expect_out(buffer)
     }
@@ -100,10 +90,17 @@ proc gdb_target_udi { } {
     send "target udi $targetname\n"
     set timeout 60
     expect {
+       -re "target udi $targetname\[\r\n\]+" {
+           continue -expect
+       }
        -re "TIP UDI 1.2 Conformant.*$prompt $" {
-           if $verbose>1 then {
-               send_user "Set target to $targetname\n"
-           }
+           verbose "Set target to $targetname"
+       }
+       -re "TIP-ipc WARNING,.*failed:" {
+           warning "$expect_out(buffer)"
+       }
+       -re "TIP-ipc ERROR,.*failed:" {
+           error "$expect_out(buffer)"
        }
        -re "A program is being debugged already.  Kill it\? \(y or n\)" {
            send "y\n"
@@ -138,13 +135,16 @@ proc gdb_start { } {
     }
     expect  {
        -re "GDB.*$prompt $"   {
-           if $verbose>1 then {
-               send_user "$GDB initialized for cross mode\n\n"
-           }
+           verbose "$GDB initialized for cross mode\n"
+       }
+       -re "$prompt $" {
+           error "GDB never initialized."
+           return -1
+       }
+       timeout {
+           error "(timeout) GDB never initialized."    
+           return -1
        }
-       -re "$prompt $"     { error "GDB never initialized."; return -1 }
-       timeout             { error "(timeout) GDB never initialized.";
-           return -1 }
     }
 
     # force the height to "unlimited", so no pagers get used
@@ -158,25 +158,28 @@ proc gdb_start { } {
     send "set args main\n"
     expect -re ".*$prompt $" {}
 
-    if $verbose>1 then {
-       send_user "Setting up target, Please wait...\n"
-    }
+    verbose "Setting up target, Please wait..."
 
     gdb_target_udi
 }
 
-expect_after {
-    "<return>"            { send "\n"; clone_output "ERROR: Window too small." }
-    -re "\(y or n\) "     { send "n\n"; error "Got interactive prompt." }
-    buffer_full                   { error "internal buffer is full." }
-    eof                           { error "eof -- pty is hosed." }
-    timeout                       { error "timeout." }
-    "virtual memory exhausted" { error "virtual memory exhausted." }
-    "Undefined command"           { error "send string probably wrong." }
+#
+# gdb_exit -- exit gdb
+#
+proc gdb_exit { } {
+    slay isstip
+    catch default_gdb_exit
+    set in [open [concat "|ls -F"] r]
+    while {[gets $in line]>-1} {
+       if [regexp "=$" $line] then {
+           set line [string trimright $line "="]
+           verbose "Removing the $line named socket"
+           exec rm -f $line
+       }
+    }
+    close $in
 }
 
-load_lib gdb.exp
-
 gdb_start
 
 # make sure gdb has actually started, otherwise if the first test