gdb/testsuite/

	* lib/gdb.exp (gdb_test_multiple): Handle -timeout.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index f4211d1bca0d53530f412e80d6c2a3b84e64f2f7..afaa9de4e24422030567b7b492e10758035a3a56 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,6 +1,9 @@
 2010-03-12  Daniel Jacobowitz  <dan@codesourcery.com>
 
-       gdb/testsuite/
+       * lib/gdb.exp (gdb_test_multiple): Handle -timeout.
+
+2010-03-12  Daniel Jacobowitz  <dan@codesourcery.com>
+
        * lib/gdb.exp (skip_stl_tests): New.
        (gdb_compile): Symbian needs -ldl.
        (shlib_target_file): New.

diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp
index 01ebc52bb29dad0ac3b7b90c8127ca48e7d1ea50..6ed661ef2c9e371f7683d464e92e5240de864cc5 100644 (file)
--- a/gdb/testsuite/lib/gdb.exp
+++ b/gdb/testsuite/lib/gdb.exp
@@ -601,12 +601,23 @@ proc gdb_test_multiple { command message user_code } {
     set processed_code ""
     set patterns ""
     set expecting_action 0
+    set expecting_arg 0
     foreach item $user_code subst_item $subst_code {
        if { $item == "-n" || $item == "-notransfer" || $item == "-nocase" } {
            lappend processed_code $item
            continue
        }
-       if {$item == "-indices" || $item == "-re" || $item == "-ex"} {
+       if { $item == "-indices" || $item == "-re" || $item == "-ex" } {
+           lappend processed_code $item
+           continue
+       }
+       if { $item == "-timeout" } {
+           set expecting_arg 1
+           lappend processed_code $item
+           continue
+       }
+       if { $expecting_arg } {
+           set expecting_arg 0
            lappend processed_code $item
            continue
        }