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 dd64a3094ce15ee830596ab351109375b0433084..646132bb28373f569fe580a298b10e3b53929dfa 100644 (file)
--- 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 bdb320927de8e68a98621a5805eb350443784187..0ce94c09623e6da6108ab0cfa3ef984ce6619124 100644 (file)
--- 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