From: Frank Ch. Eigler <fche@redhat.com>
Date: Thu, 4 Oct 2001 22:11:12 +0000 (+0000)
Subject: 2001-10-04  Frank Ch. Eigler  <fche@redhat.com>
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=1d9d99f32d861ae85dd59689ada801cc51d3ac91;p=binutils-gdb.git

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 59d888a0c7d..04182ea7f53 100644
--- 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 a296c7899c9..42d14a9a27a 100644
--- 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
 }