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

	of aborting the whole testsuite run.

diff --git a/gdb/testsuite/gdb.gdbtk/ChangeLog b/gdb/testsuite/gdb.gdbtk/ChangeLog
index 6001ce7..3360312 100644 (file)
--- 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 e1e8889..e581520 100644 (file)
--- 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"
     }
   }