From mboxrd@z Thu Jan 1 00:00:00 1970 From: Fernando Nasser To: Keith Seitz Cc: gdb-patches@sources.redhat.com, Insight Maling List Subject: Re: [RFA/insight] testsuite/gdb.exp: Don't set env vars Date: Wed, 15 Aug 2001 13:34:00 -0000 Message-id: <3B7ADC7B.80164CBB@cygnus.com> References: X-SW-Source: 2001-q3/msg00137.html Keith Seitz wrote: > > Hi, > > This is the follow-up to the previous Makefile changes concerning gdbtk's > imminent separation from local versions of tcl/tk. > > Keith > Sure. Go ahead. > ChangeLog > 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. > > Patch > Index: testsuite/lib/gdb.exp > =================================================================== > RCS file: /cvs/src/src/gdb/testsuite/lib/gdb.exp,v > retrieving revision 1.10 > diff -u -p -r1.10 gdb.exp > --- testsuite/lib/gdb.exp 2001/07/23 19:02:31 1.10 > +++ testsuite/lib/gdb.exp 2001/08/15 20:28:52 > @@ -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 -- Fernando Nasser Red Hat - Toronto E-Mail: fnasser@redhat.com 2323 Yonge Street, Suite #300 Toronto, Ontario M4P 2C9