This is the mail archive of the
insight@sourceware.org
mailing list for the Insight project.
[OBV] Fix gdbtk/generic/gdbtk-varobj.c compilation failure
- From: "Pierre Muller" <muller at ics dot u-strasbg dot fr>
- To: <insight at sourceware dot org>
- Date: Wed, 16 Sep 2009 11:49:50 +0200
- Subject: [OBV] Fix gdbtk/generic/gdbtk-varobj.c compilation failure
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 <muller@ics.u-strasbg.fr>
* 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. */