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

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

[Keith Seitz]

Hi,

This is the follow-up to the previous Makefile changes concerning gdbtk's
imminent separation from local versions of tcl/tk.

Keith

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

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

[Fernando Nasser]

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

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

[Keith Seitz]

On Wed, 15 Aug 2001, Fernando Nasser wrote:

> > This is the follow-up to the previous Makefile changes concerning gdbtk's
> > imminent separation from local versions of tcl/tk.
>
> Sure.  Go ahead.

Done. Thanks.

Keith

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