From 396cc25565f77fe9eb14153b599dfe8022963cbe Mon Sep 17 00:00:00 2001
From: Daniel Jacobowitz <drow@false.org>
Date: Thu, 31 Jan 2002 05:05:29 +0000
Subject: 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.
---
 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  <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.
+
+2002-01-30  Daniel Jacobowitz  <drow@mvista.com>
+
 	From Neil Booth <neil@daikokuya.demon.co.uk>:
 	* 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
-- 
cgit v1.1