* gdb.threads/thread-specific.exp (get_thread_list): Update.

* gdb.threads/execl.exp: Update.
This commit is contained in:
Andreas Schwab 2010-12-25 17:54:01 +00:00
parent 0f70898ff4
commit a283af878e
3 changed files with 12 additions and 4 deletions

View File

@ -1,3 +1,8 @@
2010-12-25 Andreas Schwab <schwab@linux-m68k.org>
* gdb.threads/thread-specific.exp (get_thread_list): Update.
* gdb.threads/execl.exp: Update.
2010-12-23 Yao Qi <yao@codesourcery.com>
* gdb.arch/arm-disp-step.exp: New.

View File

@ -57,11 +57,11 @@ gdb_test "info threads" ".*" "info threads after exec"
set test "info threads after exec"
gdb_test_multiple "info threads" "$test" {
-re "2 Thread .*$gdb_prompt $" {
-re "2 *Thread .*$gdb_prompt $" {
# Old threads left behind.
fail "$test"
}
-re "4 Thread .*$gdb_prompt $" {
-re "4 *Thread .*$gdb_prompt $" {
# New threads registered.
fail "$test"
}

View File

@ -44,11 +44,14 @@ proc get_thread_list { } {
-re "New Thread \[^\n\]*\n" {
exp_continue
}
-re "^\\* *(\[0-9\]*) Thread \[^\n\]*main\[^\n\]*\n" {
-re "^ *Id *Target Id\[^\n\]*\n" {
exp_continue
}
-re "^\\* *(\[0-9\]*) *Thread \[^\n\]*main\[^\n\]*\n" {
set thr_list "$expect_out(1,string) $thr_list"
exp_continue
}
-re "^ *(\[0-9\]*) Thread \[^\n\]*\n" {
-re "^ *(\[0-9\]*) *Thread \[^\n\]*\n" {
lappend thr_list $expect_out(1,string)
exp_continue
}