This is the mail archive of the
insight@sources.redhat.com
mailing list for the Insight project.
[ob] Update to use reggroup_next()
- From: Andrew Cagney <ac131313 at redhat dot com>
- To: insight at sources dot redhat dot com
- Date: Tue, 05 Aug 2003 10:59:54 -0400
- Subject: [ob] Update to use reggroup_next()
GDB changed the way it iterates over register groups. This should
update insight to the new mechanism.
committed,
Andrew
2003-08-05 Andrew Cagney <cagney@redhat.com>
* generic/gdbtk-register.c (gdb_reggrouplist): Update, use
reggroup_next.
(gdb_reggroup): Ditto.
Index: gdbtk/generic/gdbtk-register.c
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/generic/gdbtk-register.c,v
retrieving revision 1.19
diff -u -r1.19 gdbtk-register.c
--- gdbtk/generic/gdbtk-register.c 11 Jun 2003 21:52:22 -0000 1.19
+++ gdbtk/generic/gdbtk-register.c 5 Aug 2003 14:56:16 -0000
@@ -514,7 +514,7 @@
gdb_reggrouplist (ClientData clientData, Tcl_Interp *interp,
int objc, Tcl_Obj **objv)
{
- struct reggroup *const *groups;
+ struct reggroup *group;
int i = 0;
if (objc != 0)
@@ -523,13 +523,13 @@
return TCL_ERROR;
}
- groups = reggroups (current_gdbarch);
-
- while (groups[i] != NULL) {
- if (reggroup_type (groups[i]) == USER_REGGROUP)
- Tcl_ListObjAppendElement (NULL, result_ptr->obj_ptr, Tcl_NewStringObj (reggroup_name(groups[i]), -1));
- i++;
- }
+ for (group = reggroup_next (current_gdbarch, NULL);
+ group != NULL;
+ group = reggroup_next (current_gdbarch, group))
+ {
+ if (reggroup_type (group) == USER_REGGROUP)
+ Tcl_ListObjAppendElement (NULL, result_ptr->obj_ptr, Tcl_NewStringObj (reggroup_name (group), -1));
+ }
return TCL_OK;
}
@@ -541,7 +541,7 @@
gdb_reggroup (ClientData clientData, Tcl_Interp *interp,
int objc, Tcl_Obj **objv)
{
- struct reggroup *const *group;
+ struct reggroup *group;
char *groupname;
int regnum;
@@ -558,18 +558,20 @@
return TCL_ERROR;
}
- for (group = reggroups (current_gdbarch); *group != NULL; group++)
+ for (group = reggroup_next (current_gdbarch, NULL);
+ group != NULL;
+ group = reggroup_next (current_gdbarch, group))
{
- if (strcmp (groupname, reggroup_name (*group)) == 0)
+ if (strcmp (groupname, reggroup_name (group)) == 0)
break;
}
- if (*group == NULL)
+ if (group == NULL)
return TCL_ERROR;
for (regnum = 0; regnum < NUM_REGS + NUM_PSEUDO_REGS; regnum++)
{
- if (gdbarch_register_reggroup_p (current_gdbarch, regnum, *group))
+ if (gdbarch_register_reggroup_p (current_gdbarch, regnum, group))
Tcl_ListObjAppendElement (NULL, result_ptr->obj_ptr, Tcl_NewIntObj (regnum));
}
return TCL_OK;