From 942a4df220b9c1f06f017aa3b0a17de5df4c98b8 Mon Sep 17 00:00:00 2001 From: Keith Seitz Date: Wed, 15 Aug 2001 21:11:45 +0000 Subject: [PATCH] * lib/gdb.exp (gdbtk_start): Don't set environment variables for TCL_LIBRARY and friends. Insight will now figure these out for itself. --- gdb/testsuite/ChangeLog | 6 ++++++ gdb/testsuite/lib/gdb.exp | 8 +------- 2 files changed, 7 insertions(+), 7 deletions(-) diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index c05f2e4..670b266 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2001-08-15 Keith Seitz + + * 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 * gdb.base/completion.exp: Remove the symbol "a64l" from diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp index 4949083..47b148c 100644 --- 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 -- 2.7.4