From mboxrd@z Thu Jan  1 00:00:00 1970
From: Keith Seitz <keiths@cygnus.com>
To: <gdb-patches@sources.redhat.com>
Cc: Insight Maling List <insight@sources.redhat.com>
Subject: [RFA/insight] testsuite/gdb.exp: Don't set env vars
Date: Wed, 15 Aug 2001 13:29:00 -0000
Message-id: <Pine.GSO.4.33.0108151326370.25893-100000@makita.cygnus.com>
X-SW-Source: 2001-q3/msg00136.html

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