* insight-support.exp (gdbtk_start): Return error status instead

	of aborting the whole testsuite run.

2 files changed, 8 insertions, 3 deletions

diff --git a/gdb/testsuite/gdb.gdbtk/ChangeLog b/gdb/testsuite/gdb.gdbtk/ChangeLog
index 6001ce744bf..3360312e41b 100644
--- a/gdb/testsuite/gdb.gdbtk/ChangeLog
+++ b/gdb/testsuite/gdb.gdbtk/ChangeLog
@@ -1,3 +1,8 @@
+2007-02-08  Andreas Schwab  <schwab@suse.de>
+
+	* insight-support.exp (gdbtk_start): Return error status instead
+	of aborting the whole testsuite run.
+
 2006-09-19  Keith Seitz  <keiths@redhat.com>
 
 	* Makefile.in: Change all instances of configure.in to refer to
diff --git a/gdb/testsuite/gdb.gdbtk/insight-support.exp b/gdb/testsuite/gdb.gdbtk/insight-support.exp
index e1e88896a1d..e5815206353 100644
--- a/gdb/testsuite/gdb.gdbtk/insight-support.exp
+++ b/gdb/testsuite/gdb.gdbtk/insight-support.exp
@@ -59,7 +59,7 @@ proc gdbtk_start {test} {
     set INSIGHT $newGDB
   } else {
     perror "Cannot find Insight executable"
-    exit 1
+    return "ERROR gdbtk_start"
   }
 
   verbose "Starting $INSIGHT -nx -q --tclcommand=$test"
@@ -67,13 +67,13 @@ proc gdbtk_start {test} {
   set real_test [which $test]
   if {$real_test == 0} {
     perror "$test is not found"
-    exit 1
+    return "ERROR gdbtk_start"
   }
 
   if {![is_remote host]} {
     if { [which $INSIGHT] == 0 } {
       perror "$INSIGHT does not exist."
-      exit 1
+      return "ERROR gdbtk_start"
     }
   }