From 396cc25565f77fe9eb14153b599dfe8022963cbe Mon Sep 17 00:00:00 2001 From: Daniel Jacobowitz Date: Thu, 31 Jan 2002 05:05:29 +0000 Subject: [PATCH] 2002-01-30 Daniel Jacobowitz * 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. --- gdb/testsuite/ChangeLog | 6 ++++++ gdb/testsuite/gdb.threads/linux-dp.exp | 20 ++++++++++---------- 2 files changed, 16 insertions(+), 10 deletions(-) diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index dd64a30..646132b 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,5 +1,11 @@ 2002-01-30 Daniel Jacobowitz + * 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. + +2002-01-30 Daniel Jacobowitz + From Neil Booth : * gdb.base/bitfields.c: Correct assignments to bitfields to avoid warnings. diff --git a/gdb/testsuite/gdb.threads/linux-dp.exp b/gdb/testsuite/gdb.threads/linux-dp.exp index bdb3209..0ce94c0 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 -- 2.7.4