From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 31903 invoked by alias); 16 Apr 2002 15:13:39 -0000 Mailing-List: contact gdb-patches-help@sources.redhat.com; run by ezmlm Precedence: bulk List-Subscribe: List-Archive: List-Post: List-Help: , Sender: gdb-patches-owner@sources.redhat.com Received: (qmail 31845 invoked from network); 16 Apr 2002 15:13:36 -0000 Received: from unknown (HELO cygnus.com) (205.180.83.203) by sources.redhat.com with SMTP; 16 Apr 2002 15:13:36 -0000 Received: from redhat.com (romulus.sfbay.redhat.com [172.16.27.251]) by runyon.cygnus.com (8.8.7-cygnus/8.8.7) with ESMTP id IAA13476; Tue, 16 Apr 2002 08:13:35 -0700 (PDT) Message-ID: <3CBC3EE9.FE7C339F@redhat.com> Date: Tue, 16 Apr 2002 08:13:00 -0000 From: Fernando Nasser Organization: Red Hat Canada X-Accept-Language: en MIME-Version: 1.0 To: Daniel Jacobowitz CC: gdb-patches@sources.redhat.com Subject: Re: RFA/testsuite: Fix `array unset' goof References: <20020415174031.A4930@nevyn.them.org> Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit X-SW-Source: 2002-04/txt/msg00555.txt.bz2 Daniel Jacobowitz wrote: > > I fixed linux-dp.exp to use 'array unset seen' instead of > 'array set seen {}' (which doesn't do anything if seen already exists). > Unfortunately, array unset only appeared in Tcl 8.2.3. If you use DejaGNU > with system expect/tcl, you're likely to get an older version. This uses > 'array set seen {}' followed by 'unset seen', which should work in any Tcl > version. > > OK? > Please go ahead. Regards, Fernando > -- > Daniel Jacobowitz Carnegie Mellon University > MontaVista Software Debian GNU/Linux Developer > > 2002-04-15 Daniel Jacobowitz > > * gdb.threads/linux-dp.exp: Use 'unset' instead of 'array unset'. > > Index: gdb.threads/linux-dp.exp > =================================================================== > RCS file: /cvs/src/src/gdb/testsuite/gdb.threads/linux-dp.exp,v > retrieving revision 1.6 > diff -u -p -r1.6 linux-dp.exp > --- gdb.threads/linux-dp.exp 31 Jan 2002 05:08:41 -0000 1.6 > +++ gdb.threads/linux-dp.exp 15 Apr 2002 21:37:19 -0000 > @@ -214,7 +214,8 @@ proc check_philosopher_stack {thread see > } > > set any_interesting 0 > -array unset seen > +array set seen {} > +unset seen > for {set i 1} {$i <= 7} {incr i} { > if [check_philosopher_stack $i seen] { > set any_interesting 1 -- Fernando Nasser Red Hat Canada Ltd. E-Mail: fnasser@redhat.com 2323 Yonge Street, Suite #300 Toronto, Ontario M4P 2C9