* lib/gdb.exp: Report timeout value for verbosity level 2.

[deliverable/binutils-gdb.git] / gdb / testsuite / config / vx-gdb.exp

diff --git a/gdb/testsuite/config/vx-gdb.exp b/gdb/testsuite/config/vx-gdb.exp
index 43ffb3c5cc27dc6bb773921bde17c636990b5d46..984f4beabbb06c0d2b66b347ff33f69be7680b58 100644 (file)
--- a/gdb/testsuite/config/vx-gdb.exp
+++ b/gdb/testsuite/config/vx-gdb.exp
@@ -71,7 +71,7 @@ proc gdb_start { } {
     # get a connection to the board
     set shell_id [ eval $connectmode "$targetname" ]
     if $shell_id<0 then {
- perror "Couldn't connect to $targetname."
+       perror "Couldn't connect to $targetname."
        return -1
     }
     verbose "Spawn id for remote shell is $shell_id"
@@ -82,16 +82,17 @@ proc gdb_start { } {
 
        send -i $shell_id "\030"
        set timeout 120
+       verbose "Timeout is now $timeout seconds" 2
        expect {
            -i $shell_id -re "Connection closed.*$" {
                verbose "\nVxWorks has closed the shell"
                }
            -i $shell_id eof {
-        perror "(eof) never disconnected from VxWorks shell."
+               perror "(eof) never disconnected from VxWorks shell."
                return -1
            }
            -i $shell_id timeout {
-        perror "(timeout) never disconnected from VxWorks shell."
+               perror "(timeout) never disconnected from VxWorks shell."
                return -1
            }
        }
@@ -99,6 +100,7 @@ proc gdb_start { } {
        wait -i $shell_id
     }
     set timeout 10
+    verbose "Timeout is now $timeout seconds" 2
 
     catch "spawn_vxgdb"
 }
@@ -119,6 +121,7 @@ proc spawn_vxgdb { } {
     # set targets hostname
     send "target vxworks $targetname\n"
     set timeout 60
+    verbose "Timeout is now $timeout seconds" 2
     expect {
        -re "Done\..*$prompt $" {
            verbose "Set target to $targetname" 1
@@ -130,10 +133,12 @@ proc spawn_vxgdb { } {
        timeout { 
            perror "Couldn't set target for vxworks."
            set timeout 10
+           verbose "Timeout is now $timeout seconds" 2
            return -1
        }
     }
     set timeout 10
+    verbose "Timeout is now $timeout seconds" 2
 }
 
 proc gdb_exit { } {