2001-10-04 Frank Ch. Eigler <fche@redhat.com>

	* lib/insight-support.exp (gdbtk_start): Don't exit dejagnu
	if gdb child process crashes, just signal an error.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 59d888a0c7d46733fddeb1817c9420d1eb239551..04182ea7f53ed41cc3087122c8ebc1eade3903ba 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2001-10-04  Frank Ch. Eigler  <fche@redhat.com>
+
+       * lib/insight-support.exp (gdbtk_start): Don't exit dejagnu
+       if gdb child process crashes, just signal an error.
+
 2001-10-02  Jim Blandy  <jimb@redhat.com>
 
        * lib/gdb.exp (test_xfail_format): Simplify.

diff --git a/gdb/testsuite/lib/insight-support.exp b/gdb/testsuite/lib/insight-support.exp
index a296c7899c97405e9e4e47bb61b8a01663a30933..42d14a9a27a72e4c481edee2d5ca0676237b2485 100644 (file)
--- a/gdb/testsuite/lib/insight-support.exp
+++ b/gdb/testsuite/lib/insight-support.exp
@@ -94,7 +94,7 @@ proc gdbtk_start {test} {
   set err [catch {exec $GDB -nx -q --tclcommand=$test} res]
   if { $err } {
     perror "Execing $GDB failed: $res"
-    exit 1;
+    append res "\nERROR gdb-crash"
   }
   return $res
 }