* lib/gdb.exp (gdbtk_start): Don't set environment
variables for TCL_LIBRARY and friends. Insight will now figure these out for itself.
This commit is contained in:
parent
f0b743a914
commit
942a4df220
@ -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
|
||||
|
@ -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
|
||||
|
Loading…
x
Reference in New Issue
Block a user