From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 533 invoked by alias); 29 Nov 2012 19:23:16 -0000 Received: (qmail 515 invoked by uid 22791); 29 Nov 2012 19:23:15 -0000 X-SWARE-Spam-Status: No, hits=-6.7 required=5.0 tests=AWL,BAYES_00,KHOP_RCVD_UNTRUST,RCVD_IN_DNSWL_HI,RCVD_IN_HOSTKARMA_W,RP_MATCHES_RCVD,SPF_HELO_PASS X-Spam-Check-By: sourceware.org Received: from mx1.redhat.com (HELO mx1.redhat.com) (209.132.183.28) by sourceware.org (qpsmtpd/0.43rc1) with ESMTP; Thu, 29 Nov 2012 19:23:03 +0000 Received: from int-mx12.intmail.prod.int.phx2.redhat.com (int-mx12.intmail.prod.int.phx2.redhat.com [10.5.11.25]) by mx1.redhat.com (8.14.4/8.14.4) with ESMTP id qATJMx6G011265 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=OK); Thu, 29 Nov 2012 14:23:00 -0500 Received: from barimba (ovpn01.gateway.prod.ext.phx2.redhat.com [10.5.9.1]) by int-mx12.intmail.prod.int.phx2.redhat.com (8.14.4/8.14.4) with ESMTP id qATJMw9u009388 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES128-SHA bits=128 verify=NO); Thu, 29 Nov 2012 14:22:59 -0500 From: Tom Tromey To: "Ulrich Weigand" Cc: palves@redhat.com (Pedro Alves), dje@google.com (Doug Evans), gdb-patches@sourceware.org Subject: Re: RFA: handle "MiniDebuginfo" section References: <871ufggoh9.fsf@fleche.redhat.com> <201211291919.qATJJ379024978@d06av02.portsmouth.uk.ibm.com> Date: Thu, 29 Nov 2012 19:23:00 -0000 In-Reply-To: <201211291919.qATJJ379024978@d06av02.portsmouth.uk.ibm.com> (Ulrich Weigand's message of "Thu, 29 Nov 2012 20:19:03 +0100 (CET)") Message-ID: <87fw3s5i3x.fsf@fleche.redhat.com> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.2 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain Mailing-List: contact gdb-patches-help@sourceware.org; run by ezmlm Precedence: bulk List-Id: List-Subscribe: List-Archive: List-Post: List-Help: , Sender: gdb-patches-owner@sourceware.org X-SW-Source: 2012-11/txt/msg00891.txt.bz2 >>>>> "Ulrich" == Ulrich Weigand writes: Ulrich> ERROR: (DejaGnu) proc "lassign {nm {-D Ulrich> /home/uweigand/fsf/gdb-head-build/gdb/testsuite/gdb.base/gnu-debugdata Ulrich> --format=posix --defined-only}} program arguments input output" does Ulrich> not exist. Ulrich> I'm not really familiar enough with DejaGnu/Tcl to quite understand Ulrich> what's going on here ... Any thoughts? I think lassign was added in Tcl 8.5. You must be running an older version. Can you try the appended? Tom diff --git a/gdb/testsuite/gdb.base/gnu-debugdata.exp b/gdb/testsuite/gdb.base/gnu-debugdata.exp index f876309..1429a39 100644 --- a/gdb/testsuite/gdb.base/gnu-debugdata.exp +++ b/gdb/testsuite/gdb.base/gnu-debugdata.exp @@ -33,7 +33,8 @@ proc run {test program args} { } set result [eval remote_exec host [list $program] $args] verbose "result is $result" - lassign $result status output + set status [lindex $result 0] + set output [lindex $result 1] if {$status == 0} { pass $test return 0 @@ -58,7 +59,11 @@ proc pipeline {test args} { set input_file {} foreach arglist $args { verbose "raw args are $arglist" - lassign $arglist program arguments input output + + set program [lindex $arglist 0] + set arguments [lindex $arglist 1] + set input [lindex $arglist 2] + set output [lindex $arglist 3] if {$input == ""} { set input $input_file