From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gdb-patches-return-34387-listarch-gdb-patches=sources.redhat.com@sources.redhat.com>
Received: (qmail 10824 invoked by alias); 14 Jul 2004 21:57:11 -0000
Mailing-List: contact gdb-patches-help@sources.redhat.com; run by ezmlm
Precedence: bulk
List-Subscribe: <mailto:gdb-patches-subscribe@sources.redhat.com>
List-Archive: <http://sources.redhat.com/ml/gdb-patches/>
List-Post: <mailto:gdb-patches@sources.redhat.com>
List-Help: <mailto:gdb-patches-help@sources.redhat.com>, <http://sources.redhat.com/ml/#faqs>
Sender: gdb-patches-owner@sources.redhat.com
Received: (qmail 10817 invoked from network); 14 Jul 2004 21:57:10 -0000
Received: from unknown (HELO mx1.redhat.com) (66.187.233.31)
  by sourceware.org with SMTP; 14 Jul 2004 21:57:10 -0000
Received: from int-mx1.corp.redhat.com (int-mx1.corp.redhat.com [172.16.52.254])
	by mx1.redhat.com (8.12.10/8.12.10) with ESMTP id i6ELvAe1002319
	for <gdb-patches@sources.redhat.com>; Wed, 14 Jul 2004 17:57:10 -0400
Received: from pobox.corp.redhat.com (pobox.corp.redhat.com [172.16.52.156])
	by int-mx1.corp.redhat.com (8.11.6/8.11.6) with ESMTP id i6ELv9020386
	for <gdb-patches@sources.redhat.com>; Wed, 14 Jul 2004 17:57:09 -0400
Received: from [172.16.50.27] (vpn50-27.rdu.redhat.com [172.16.50.27])
	by pobox.corp.redhat.com (8.12.8/8.12.8) with ESMTP id i6ELv938005442
	for <gdb-patches@sources.redhat.com>; Wed, 14 Jul 2004 17:57:09 -0400
Subject: [patch] insight-support.exp
From: "Martin M. Hunt" <hunt@redhat.com>
To: gdb-patches@sources.redhat.com
Content-Type: text/plain
Organization: Red Hat Inc.
Message-Id: <1089842223.3010.16.camel@dragon>
Mime-Version: 1.0
Date: Wed, 14 Jul 2004 21:57:00 -0000
Content-Transfer-Encoding: 7bit
X-SW-Source: 2004-07/txt/msg00171.txt.bz2

  2004-07-14  Martin Hunt  <hunt@redhat.com>
        
        * lib/insight-support.exp (gdbtk_start): Unset TCL_LIBRARY
        which fixes some problems where init.tcl was not found.

Index: testsuite/lib/insight-support.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/lib/insight-support.exp,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- testsuite/lib/insight-support.exp   27 Sep 2002 14:49:26 -0000     
1.6
+++ testsuite/lib/insight-support.exp   14 Jul 2004 18:55:22 -0000     
1.7
@@ -1,6 +1,6 @@
 # GDB Testsuite Support for Insight.
 #
-# Copyright 2001 Red Hat, Inc.
+# Copyright 2001, 2004 Red Hat, Inc.
 #
 # This program is free software; you can redistribute it and/or modify
it
 # under the terms of the GNU General Public License (GPL) as published
by
@@ -98,6 +98,7 @@
   set env(SRCDIR) $abs_srcdir
   set env(GDBTK_VERBOSE) 1
   set env(GDBTK_LOGFILE) [to_tcl_path [file join $objdir gdb.log]]
+  unset -nocomplain env(TCL_LIBRARY)
  
   set err [catch {exec $INSIGHT -nx -q --tclcommand=$test} res]
   if { $err } {

-- 
Martin M. Hunt <hunt@redhat.com>
Red Hat Inc.