This is the mail archive of the insight@sources.redhat.com mailing list for the Insight project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

[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;

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]