Re: [RFA/insight] testsuite/gdb.exp: Don't set env vars

Fernando Nasser
2001-08-15T13:34:00Z

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 <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.
>
> 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