This is the mail archive of the
gdb-patches@sources.redhat.com
mailing list for the GDB project.
[patch] insight-support.exp
- From: "Martin M. Hunt" <hunt at redhat dot com>
- To: gdb-patches at sources dot redhat dot com
- Date: Wed, 14 Jul 2004 14:57:03 -0700
- Subject: [patch] insight-support.exp
- Organization: Red Hat Inc.
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.
Index: testsuite/lib/insight-support.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/lib/insight-support.exp,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- testsuite/lib/insight-support.exp 27 Sep 2002 14:49:26 -0000
1.6
+++ testsuite/lib/insight-support.exp 14 Jul 2004 18:55:22 -0000
1.7
@@ -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 @@
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 } {
--
Martin M. Hunt <hunt@redhat.com>
Red Hat Inc.