diff options
| author | Keith Seitz <keiths@redhat.com> | 2002-09-27 14:49:26 +0000 |
|---|---|---|
| committer | Keith Seitz <keiths@redhat.com> | 2002-09-27 14:49:26 +0000 |
| commit | 9e8aab75872ca299171a6f7cbbca436871e4bd9f (patch) | |
| tree | 039aeb751d7a0389fc2182c9f30c413096f7724b /gdb/testsuite | |
| parent | 877335413869679f06ce9404a47f5ecc6c836427 (diff) | |
| download | gdb-9e8aab75872ca299171a6f7cbbca436871e4bd9f.zip gdb-9e8aab75872ca299171a6f7cbbca436871e4bd9f.tar.gz gdb-9e8aab75872ca299171a6f7cbbca436871e4bd9f.tar.bz2 | |
* lib/insight-support.exp (gdbtk_start): Figure out where
the insight executable is based on where gdb is. Use this
executable to start insight instead of gdb.
Diffstat (limited to 'gdb/testsuite')
| -rw-r--r-- | gdb/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gdb/testsuite/lib/insight-support.exp | 18 |
2 files changed, 19 insertions, 5 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index ab6ccea..6cc897b 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2002-09-26 Keith Seitz <keiths@redhat.com> + + * lib/insight-support.exp (gdbtk_start): Figure out where + the insight executable is based on where gdb is. Use this + executable to start insight instead of gdb. + 2002-09-25 Andrew Cagney <cagney@redhat.com> * gdb.base/pc-fp.exp, gdb.base/pc-fp.c: New test. diff --git a/gdb/testsuite/lib/insight-support.exp b/gdb/testsuite/lib/insight-support.exp index 42d14a9..cbdf163 100644 --- a/gdb/testsuite/lib/insight-support.exp +++ b/gdb/testsuite/lib/insight-support.exp @@ -54,7 +54,15 @@ proc gdbtk_start {test} { gdb_stop_suppressing_tests; - verbose "Starting $GDB -nx -q --tclcommand=$test" + # Need to convert ::GDB to use (-)?insight... + if {[regsub {gdb$} $GDB insight newGDB]} { + set INSIGHT $newGDB + } else { + perror "Cannot find Insight executable" + exit 1 + } + + verbose "Starting $INSIGHT -nx -q --tclcommand=$test" set real_test [which $test] if {$real_test == 0} { @@ -63,8 +71,8 @@ proc gdbtk_start {test} { } if {![is_remote host]} { - if { [which $GDB] == 0 } { - perror "$GDB does not exist." + if { [which $INSIGHT] == 0 } { + perror "$INSIGHT does not exist." exit 1 } } @@ -91,9 +99,9 @@ proc gdbtk_start {test} { set env(GDBTK_VERBOSE) 1 set env(GDBTK_LOGFILE) [to_tcl_path [file join $objdir gdb.log]] - set err [catch {exec $GDB -nx -q --tclcommand=$test} res] + set err [catch {exec $INSIGHT -nx -q --tclcommand=$test} res] if { $err } { - perror "Execing $GDB failed: $res" + perror "Execing $INSIGHT failed: $res" append res "\nERROR gdb-crash" } return $res |