From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 927 invoked by alias); 15 Apr 2002 21:40:15 -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 910 invoked from network); 15 Apr 2002 21:40:10 -0000 Received: from unknown (HELO nevyn.them.org) (128.2.145.6) by sources.redhat.com with SMTP; 15 Apr 2002 21:40:10 -0000 Received: from drow by nevyn.them.org with local (Exim 3.35 #1 (Debian)) id 16xED9-0001KR-00; Mon, 15 Apr 2002 17:40:31 -0400 Date: Mon, 15 Apr 2002 14:40:00 -0000 From: Daniel Jacobowitz To: gdb-patches@sources.redhat.com, fnasser@redhat.com Subject: RFA/testsuite: Fix `array unset' goof Message-ID: <20020415174031.A4930@nevyn.them.org> Mail-Followup-To: gdb-patches@sources.redhat.com, fnasser@redhat.com Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Disposition: inline User-Agent: Mutt/1.3.23i X-SW-Source: 2002-04/txt/msg00545.txt.bz2 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? -- 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