From 787e9602531c9995f8010bf879d6afa098493b95 Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Thu, 8 Feb 2007 17:12:50 +0000 Subject: [PATCH] * insight-support.exp (gdbtk_start): Return error status instead of aborting the whole testsuite run. --- gdb/testsuite/gdb.gdbtk/ChangeLog | 5 +++++ gdb/testsuite/gdb.gdbtk/insight-support.exp | 6 +++--- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/gdb/testsuite/gdb.gdbtk/ChangeLog b/gdb/testsuite/gdb.gdbtk/ChangeLog index 6001ce744b..3360312e41 100644 --- a/gdb/testsuite/gdb.gdbtk/ChangeLog +++ b/gdb/testsuite/gdb.gdbtk/ChangeLog @@ -1,3 +1,8 @@ +2007-02-08 Andreas Schwab + + * insight-support.exp (gdbtk_start): Return error status instead + of aborting the whole testsuite run. + 2006-09-19 Keith Seitz * 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 e1e88896a1..e581520635 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" } } -- 2.11.0