From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 13517 invoked by alias); 16 Sep 2009 09:49:58 -0000 Received: (qmail 13509 invoked by uid 22791); 16 Sep 2009 09:49:57 -0000 X-SWARE-Spam-Status: No, hits=-2.1 required=5.0 tests=AWL,BAYES_00 X-Spam-Check-By: sourceware.org Received: from mailhost.u-strasbg.fr (HELO mailhost.u-strasbg.fr) (130.79.200.151) by sourceware.org (qpsmtpd/0.43rc1) with ESMTP; Wed, 16 Sep 2009 09:49:53 +0000 Received: from baal.u-strasbg.fr (baal.u-strasbg.fr [IPv6:2001:660:2402::41]) by mailhost.u-strasbg.fr (8.14.2/jtpda-5.5pre1) with ESMTP id n8G9noZC020048 for ; Wed, 16 Sep 2009 11:49:50 +0200 (CEST) (envelope-from muller@ics.u-strasbg.fr) Received: from mailserver.u-strasbg.fr (ms3.u-strasbg.fr [IPv6:2001:660:2402:d::12]) by baal.u-strasbg.fr (8.14.0/jtpda-5.5pre1) with ESMTP id n8G9noPu004183 for ; Wed, 16 Sep 2009 11:49:50 +0200 (CEST) (envelope-from muller@ics.u-strasbg.fr) Received: from d620muller (www-ics.u-strasbg.fr [130.79.210.225]) (user=mullerp mech=LOGIN) by mailserver.u-strasbg.fr (8.14.3/jtpda-5.5pre1) with ESMTP id n8G9nngc033074 (version=TLSv1/SSLv3 cipher=RC4-MD5 bits=128 verify=NO) for ; Wed, 16 Sep 2009 11:49:49 +0200 (CEST) (envelope-from muller@ics.u-strasbg.fr) From: "Pierre Muller" To: Subject: [OBV] Fix gdbtk/generic/gdbtk-varobj.c compilation failure Date: Wed, 16 Sep 2009 09:49:00 -0000 Message-ID: <000001ca36b3$08f0b8c0$1ad22a40$@u-strasbg.fr> MIME-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit X-IsSubscribed: yes Mailing-List: contact insight-help@sourceware.org; run by ezmlm Precedence: bulk List-Id: List-Subscribe: List-Archive: List-Post: List-Help: , Sender: insight-owner@sourceware.org X-SW-Source: 2009-q3/txt/msg00042.txt.bz2 Checked in as obvious fix to fix build failure using mi/mi-cmd-var.c code as model. Pierre Muller Pascal language support maintainer for GDB gdb/gdbtk ChangeLog entry 2009-09-16 Pierre Muller * generic/gdbtk-varobj.c (variable_children): Adapt to varobj_list_children function change. Index: generic/gdbtk-varobj.c =================================================================== RCS file: /cvs/src/src/gdb/gdbtk/generic/gdbtk-varobj.c,v retrieving revision 1.23 diff -u -p -r1.23 gdbtk-varobj.c --- generic/gdbtk-varobj.c 6 Apr 2009 23:11:10 -0000 1.23 +++ generic/gdbtk-varobj.c 16 Sep 2009 09:44:38 -0000 @@ -416,13 +416,13 @@ variable_children (Tcl_Interp *interp, s VEC(varobj_p) *children; struct varobj *child; char *childname; - int ix; + int ix, from, to; list = Tcl_NewListObj (0, NULL); - children = varobj_list_children (var); + children = varobj_list_children (var, &from, &to); - for (ix = 0; VEC_iterate (varobj_p, children, ix, child); ++ix) + for (ix = from; ix < to && VEC_iterate (varobj_p, children, ix, child); ++ix { childname = varobj_get_objname (child); /* Add child to result list and install the Tcl command for it. */