summaryrefslogtreecommitdiff
path: root/gdb/testsuite/gdb.threads/linux-dp.exp
diff options
context:
space:
mode:
authorDaniel Jacobowitz <drow@false.org>2002-01-31 05:05:29 +0000
committerDaniel Jacobowitz <drow@false.org>2002-01-31 05:05:29 +0000
commit396cc25565f77fe9eb14153b599dfe8022963cbe (patch)
tree0a2fccef64cb9da3e90295ff265efe557ee64b26 /gdb/testsuite/gdb.threads/linux-dp.exp
parent8a48e96728f9b0d7f7d56495ce7206e9c9955527 (diff)
downloadbinutils-gdb-396cc25565f77fe9eb14153b599dfe8022963cbe.tar.gz
2002-01-30 Daniel Jacobowitz <drow@mvista.com>
* gdb.threads/linux-dp.exp: Use 'array unset', not 'array set'. (check_philosopher_stack): Check for manager thread before checking for a just-starting thread.
Diffstat (limited to 'gdb/testsuite/gdb.threads/linux-dp.exp')
-rw-r--r--gdb/testsuite/gdb.threads/linux-dp.exp20
1 files changed, 10 insertions, 10 deletions
diff --git a/gdb/testsuite/gdb.threads/linux-dp.exp b/gdb/testsuite/gdb.threads/linux-dp.exp
index bdb320927de..0ce94c09623 100644
--- a/gdb/testsuite/gdb.threads/linux-dp.exp
+++ b/gdb/testsuite/gdb.threads/linux-dp.exp
@@ -172,6 +172,15 @@ proc check_philosopher_stack {thread seen_name} {
}
set interesting 1
}
+ -re ".* in __pthread_manager \\(.*$gdb_prompt $" {
+ if {$manager_seen == 1} {
+ fail "manager thread is distinct: $thread"
+ } else {
+ set manager_seen 1
+ pass "manager thread is distinct: $thread"
+ }
+ set interesting 1
+ }
-re "pthread_start_thread.*\r\n$gdb_prompt $" {
## Maybe the thread hasn't started yet.
pass $name
@@ -185,15 +194,6 @@ proc check_philosopher_stack {thread seen_name} {
}
set interesting 1
}
- -re ".* in __pthread_manager \\(.*$gdb_prompt $" {
- if {$manager_seen == 1} {
- fail "manager thread is distinct: $thread"
- } else {
- set manager_seen 1
- pass "manager thread is distinct: $thread"
- }
- set interesting 1
- }
-re " in \\?\\?.*\r\n$gdb_prompt $" {
## Sometimes we can't get a backtrace. I'm going to call
## this a pass, since we do verify that at least one
@@ -214,7 +214,7 @@ proc check_philosopher_stack {thread seen_name} {
}
set any_interesting 0
-array set seen {}
+array unset seen
for {set i 1} {$i <= 7} {incr i} {
if [check_philosopher_stack $i seen] {
set any_interesting 1