espressif/binutils-gdb
1
0
Fork 0
mirror of https://github.com/espressif/binutils-gdb.git synced 2025-06-28 23:39:35 +08:00
Code Issues Packages Projects Releases Wiki Activity

2004-07-14 Martin Hunt <hunt@redhat.com>

Browse Source 
* 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
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> 2004-07-13 Andrew Cagney <cagney@gnu.org>
* gdb.base/sizeof.exp: Skip test when no inferior I/O. * 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. # 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 # 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 # 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(SRCDIR) $abs_srcdir
set env(GDBTK_VERBOSE) 1 set env(GDBTK_VERBOSE) 1
set env(GDBTK_LOGFILE) [to_tcl_path [file join $objdir gdb.log]] 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] set err [catch {exec $INSIGHT -nx -q --tclcommand=$test} res]
if { $err } { if { $err } {