diff options
| author | Pedro Alves <palves@redhat.com> | 2010-03-12 21:07:51 +0000 |
|---|---|---|
| committer | Pedro Alves <palves@redhat.com> | 2010-03-12 21:07:51 +0000 |
| commit | 21e24d21198c2fa2088993ff8c6ec6505ba68860 (patch) | |
| tree | 89559e24da80bbd43e13ab4583f15b6029fa92ab /gdb/testsuite/lib | |
| parent | 759f0f0b7b0ca3e620e3dea8e69979739fb9536f (diff) | |
| download | gdb-21e24d21198c2fa2088993ff8c6ec6505ba68860.zip gdb-21e24d21198c2fa2088993ff8c6ec6505ba68860.tar.gz gdb-21e24d21198c2fa2088993ff8c6ec6505ba68860.tar.bz2 | |
gdb/testsuite/
* lib/gdb.exp (gdb_test_multiple): Handle -timeout.
Diffstat (limited to 'gdb/testsuite/lib')
| -rw-r--r-- | gdb/testsuite/lib/gdb.exp | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp index 01ebc52..6ed661e 100644 --- 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 } |