[patch] insight-support.exp

[patch] insight-support.exp

[Martin M. Hunt]

  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.