2004-02-10 Andrew Cagney <cagney@redhat.com>

	* lib/gdb.exp (gdb_expect_list): Recover from internal-errors
	using gdb_internal_error_resync.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 93287a53c729ce1e4fb0b025bfd941bc2161e58d..1ca6ce5606002831166edfe1560eb4aeeb8a678c 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2004-02-10  Andrew Cagney  <cagney@redhat.com>
+
+       * lib/gdb.exp (gdb_expect_list): Recover from internal-errors
+       using gdb_internal_error_resync.
+
 2004-02-09  Daniel Jacobowitz  <drow@mvista.com>
 
        * gdb.threads/thread-specific.exp: Stop early if no threads are

diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp
index 8933897cb4d79535d0f0403e475466f56f449a60..5cd54abd0236df5a72c2670206bf9af4b8258b48 100644 (file)
--- a/gdb/testsuite/lib/gdb.exp
+++ b/gdb/testsuite/lib/gdb.exp
@@ -1470,6 +1470,11 @@ proc gdb_expect_list {test sentinel list} {
                        fail "${test} (pattern ${index} + sentinel)"
                        set ok 0
                    }
+                   -re ".*A problem internal to GDB has been detected" {
+                       fail "${test} (GDB internal error)"
+                       set ok 0
+                       gdb_internal_error_resync
+                   }
                    timeout {
                        fail "${test} (pattern ${index} + sentinel) (timeout)"
                        set ok 0
@@ -1488,6 +1493,11 @@ proc gdb_expect_list {test sentinel list} {
                        fail "${test} (pattern ${index})"
                        set ok 0
                    }
+                   -re ".*A problem internal to GDB has been detected" {
+                       fail "${test} (GDB internal error)"
+                       set ok 0
+                       gdb_internal_error_resync
+                   }
                    timeout {
                        fail "${test} (pattern ${index}) (timeout)"
                        set ok 0