From: Daniel Jacobowitz <drow@false.org>
Date: Thu, 31 Jan 2002 05:05:29 +0000 (+0000)
Subject: 2002-01-30  Daniel Jacobowitz  <drow@mvista.com>
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=396cc25565f77fe9eb14153b599dfe8022963cbe;p=binutils-gdb.git

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.
---

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index dd64a3094ce..646132bb283 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+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>:
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