OpenE2K
/
binutils-gdb
12
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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.
This commit is contained in:
Martin Hunt 2004-07-14 18:55:22 +00:00
parent d833db3b34
commit d629a7cb0a
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gdb/testsuite/ChangeLog
View File

@ -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.

3
gdb/testsuite/lib/insight-support.exp
View File

@ -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 } {