* gdb.threads/thread-specific.exp: Stop early if no threads are

	found.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 08abd6250562429bab79201480e17fa54ef6c086..93287a53c729ce1e4fb0b025bfd941bc2161e58d 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2004-02-09  Daniel Jacobowitz  <drow@mvista.com>
+
+       * gdb.threads/thread-specific.exp: Stop early if no threads are
+       found.
+
 2004-02-09  Michael Chastain  <mec.gnu@mindspring.com>
 
        * gdb.base/pending.exp: Remove extra \n from gdb_test calls.

diff --git a/gdb/testsuite/gdb.threads/thread-specific.exp b/gdb/testsuite/gdb.threads/thread-specific.exp
index ffcaaad1762fdc25bc95196311dc1472d922a5fc..66f0bd2261c8872654566b8f72e292e989d5e7ba 100644 (file)
--- a/gdb/testsuite/gdb.threads/thread-specific.exp
+++ b/gdb/testsuite/gdb.threads/thread-specific.exp
@@ -86,6 +86,11 @@ gdb_continue_to_breakpoint "all threads started"
 set line [gdb_get_line_number "thread-specific.exp: thread loop"]
 set threads [get_thread_list]
 
+if {[llength $threads] == 0} {
+  # We have already issued a FAIL above.
+  return 1
+}
+
 gdb_test_multiple "break $line thread [lindex $threads 0]" \
   "breakpoint $line main thread" {
     -re "Breakpoint (\[0-9\]*) at.* file .*$srcfile, line.*$gdb_prompt $" {