diff options
Diffstat (limited to 'gdb/testsuite/lib')
-rw-r--r-- | gdb/testsuite/lib/mi-support.exp | 13 |
1 files changed, 1 insertions, 12 deletions
diff --git a/gdb/testsuite/lib/mi-support.exp b/gdb/testsuite/lib/mi-support.exp index cb8227d..7f9a3f5 100644 --- a/gdb/testsuite/lib/mi-support.exp +++ b/gdb/testsuite/lib/mi-support.exp @@ -1968,19 +1968,8 @@ proc mi_load_shlibs { args } { mi_gdb_test "set solib-search-path [file dirname [lindex $args 0]]" "\^done" "" } -proc mi_reverse_list { list } { - if { [llength $list] <= 1 } { - return $list - } - set tail [lrange $list 1 [llength $list]] - set rtail [mi_reverse_list $tail] - lappend rtail [lindex $list 0] - return $rtail -} - -proc mi_check_thread_states { xstates test } { +proc mi_check_thread_states { states test } { global expect_out - set states [mi_reverse_list $xstates] set pattern ".*\\^done,threads=\\\[" foreach s $states { set pattern "${pattern}(.*)state=\"$s\"" |