* lib/gdb.exp (gdbtk_start): Don't set environment

	variables for TCL_LIBRARY and friends. Insight will
	now figure these out for itself.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index c05f2e46d4485806f7942f065e859e465b74211b..670b266836af6cbf32eab3a4ba570037b8046c3b 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2001-08-15  Keith Seitz  <keiths@redhat.com>
+
+       * lib/gdb.exp (gdbtk_start): Don't set environment
+       variables for TCL_LIBRARY and friends. Insight will
+       now figure these out for itself.
+
 2001-08-02  Michael Snyder  <msnyder@redhat.com>
 
        * gdb.base/completion.exp: Remove the symbol "a64l" from

diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp
index 4949083de4ba842a96f08c0979e3cd765e4258cb..47b148c3ebab6b121b90478642777872cd75e546 100644 (file)
--- a/gdb/testsuite/lib/gdb.exp
+++ b/gdb/testsuite/lib/gdb.exp
@@ -1665,15 +1665,9 @@ proc gdbtk_start {test} {
   # Find absolute path to test
   set test [to_tcl_path -abs $test]
 
-  # Set environment variables for tcl libraries and such
+  # Set some environment variables
   cd $srcdir
   set abs_srcdir [pwd]
-  set env(GDBTK_LIBRARY) [to_tcl_path -abs [file join $abs_srcdir .. gdbtk library]]
-  set env(TCL_LIBRARY) [to_tcl_path -abs [file join $abs_srcdir .. .. tcl library]]
-  set env(TK_LIBRARY) [to_tcl_path -abs [file join $abs_srcdir .. .. tk library]]
-  set env(TIX_LIBRARY) [to_tcl_path -abs [file join $abs_srcdir .. .. tix library]]
-  set env(ITCL_LIBRARY) [to_tcl_path -abs [file join $abs_srcdir .. .. itcl itcl library]]
-  set env(CYGNUS_GUI_LIBRARY) [to_tcl_path -abs [file join .. $abs_srcdir .. .. libgui library]]
   set env(DEFS) [to_tcl_path -abs [file join $abs_srcdir $subdir defs]]
 
   cd $wd