From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 8111 invoked by alias); 28 Nov 2013 10:56:42 -0000 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 Received: (qmail 8100 invoked by uid 89); 28 Nov 2013 10:56:41 -0000 Authentication-Results: sourceware.org; auth=none X-Virus-Found: No X-Spam-SWARE-Status: No, score=-0.8 required=5.0 tests=AWL,BAYES_50,RDNS_NONE,URIBL_BLOCKED autolearn=no version=3.3.2 X-HELO: mga09.intel.com Received: from Unknown (HELO mga09.intel.com) (134.134.136.24) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP; Thu, 28 Nov 2013 10:56:40 +0000 Received: from orsmga002.jf.intel.com ([10.7.209.21]) by orsmga102.jf.intel.com with ESMTP; 28 Nov 2013 02:52:54 -0800 X-ExtLoop1: 1 Received: from kboell-mobl1.ger.corp.intel.com (HELO [172.28.205.40]) ([172.28.205.40]) by orsmga002.jf.intel.com with ESMTP; 28 Nov 2013 02:56:15 -0800 Message-ID: <5297214E.7000308@linux.intel.com> Date: Thu, 28 Nov 2013 12:25:00 -0000 From: Keven Boell User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:24.0) Gecko/20100101 Thunderbird/24.1.1 MIME-Version: 1.0 To: Tom Tromey CC: gdb-patches@sourceware.org Subject: Re: [PATCH] testsuite: introduce index in varobj child eval. References: <1385467825-5236-1-git-send-email-keven.boell@intel.com> <87fvqj5h3e.fsf@fleche.redhat.com> <5295E492.7050501@linux.intel.com> <87r4a13ngb.fsf@fleche.redhat.com> In-Reply-To: <87r4a13ngb.fsf@fleche.redhat.com> Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: 7bit X-IsSubscribed: yes X-SW-Source: 2013-11/txt/msg00879.txt.bz2 Looks like my mail client screwed it up. Please see the patch below. Is it ok to check it in? Thanks, Keven >From 5e99f34f1fb0b10715f5558a9dea781d4a14e864 Mon Sep 17 00:00:00 2001 From: Keven Boell Date: Thu, 21 Nov 2013 10:54:47 +0100 Subject: [PATCH] testsuite: introduce index in varobj child eval. In some languages, e.g. fortran, arrays start with index 1 instead 0. This patch changes the MI library to support testing varobj children of fortran arrays. 2013-11-21 Keven Boell testsuite/ * lib/mi-support.exp (mi_list_varobj_children_range): Add call to mi_list_array_varobj_children_with_index. (mi_list_array_varobj_children_with_index): New function. Add parameter to specify array start. Change-Id: Ib9e46843ca6302f16ef7cb24df25f9f8c1d11793 Signed-off-by: Keven Boell --- gdb/testsuite/lib/mi-support.exp | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/gdb/testsuite/lib/mi-support.exp b/gdb/testsuite/lib/mi-support.exp index 0c3cdbe..cb7bf90 100644 --- a/gdb/testsuite/lib/mi-support.exp +++ b/gdb/testsuite/lib/mi-support.exp @@ -1487,9 +1487,18 @@ proc mi_list_varobj_children_range {varname from to numchildren children testnam # Verifies that variable object VARNAME has NUMBER children, # where each one is named $VARNAME. and has type TYPE. proc mi_list_array_varobj_children { varname number type testname } { + mi_list_array_varobj_children_with_index $varname $number 0 $type $testname +} + +# Same as mi_list_array_varobj_children, but allowing to pass a start index +# for an array. +proc mi_list_array_varobj_children_with_index { varname number start_index \ + type testname } { set t {} + set index $start_index for {set i 0} {$i < $number} {incr i} { - lappend t [list $varname.$i $i 0 $type] + lappend t [list $varname.$index $index 0 $type] + incr index } mi_list_varobj_children $varname $t $testname } -- 1.7.9.5 On 27.11.2013 15:53, Tom Tromey wrote: >>>>>> "Keven" == Keven Boell writes: > > Keven> * lib/mi-support.exp (mi_list_varobj_children_range): Add > Keven> call to mi_list_array_varobj_children_with_index. > Keven> (mi_list_array_varobj_children_with_index): New function. > Keven> Add parameter to specify array start. > > Ok. > > Keven> + mi_list_array_varobj_children_with_index $varname $number 0 $type > Keven> $testname > > Your patch got wrapped. > > Tom >