diff options
| author | Martin Hunt <hunt@redhat.com> | 2004-07-14 18:55:22 +0000 |
|---|---|---|
| committer | Martin Hunt <hunt@redhat.com> | 2004-07-14 18:55:22 +0000 |
| commit | d629a7cb0a6988deb2469c4db663c4ed387394fb (patch) | |
| tree | 99f3bff09a0e3a3d915e65cc9b3dcea21bd601db /gdb/testsuite | |
| parent | d833db3b344f72248c91e1ea6ebfded046bdd884 (diff) | |
| download | gdb-d629a7cb0a6988deb2469c4db663c4ed387394fb.zip gdb-d629a7cb0a6988deb2469c4db663c4ed387394fb.tar.gz gdb-d629a7cb0a6988deb2469c4db663c4ed387394fb.tar.bz2 | |
2004-07-14 Martin Hunt <hunt@redhat.com>
* lib/insight-support.exp (gdbtk_start): Unset TCL_LIBRARY
which fixes some problems where init.tcl was not found.
Diffstat (limited to 'gdb/testsuite')
| -rw-r--r-- | gdb/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gdb/testsuite/lib/insight-support.exp | 3 |
2 files changed, 7 insertions, 1 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index a838b11..396d65a 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2004-07-14 Martin Hunt <hunt@redhat.com> + + * lib/insight-support.exp (gdbtk_start): Unset TCL_LIBRARY + which fixes some problems where init.tcl was not found. + 2004-07-13 Andrew Cagney <cagney@gnu.org> * gdb.base/sizeof.exp: Skip test when no inferior I/O. diff --git a/gdb/testsuite/lib/insight-support.exp b/gdb/testsuite/lib/insight-support.exp index cbdf163..e1e8889 100644 --- a/gdb/testsuite/lib/insight-support.exp +++ b/gdb/testsuite/lib/insight-support.exp @@ -1,6 +1,6 @@ # GDB Testsuite Support for Insight. # -# Copyright 2001 Red Hat, Inc. +# Copyright 2001, 2004 Red Hat, Inc. # # This program is free software; you can redistribute it and/or modify it # under the terms of the GNU General Public License (GPL) as published by @@ -98,6 +98,7 @@ proc gdbtk_start {test} { set env(SRCDIR) $abs_srcdir set env(GDBTK_VERBOSE) 1 set env(GDBTK_LOGFILE) [to_tcl_path [file join $objdir gdb.log]] + unset -nocomplain env(TCL_LIBRARY) set err [catch {exec $INSIGHT -nx -q --tclcommand=$test} res] if { $err } { |