1 /* Register groupings for GDB, the GNU debugger.
3 Copyright (C) 2002, 2003, 2007 Free Software Foundation, Inc.
5 Contributed by Red Hat.
7 This file is part of GDB.
9 This program is free software; you can redistribute it and/or modify
10 it under the terms of the GNU General Public License as published by
11 the Free Software Foundation; either version 2 of the License, or
12 (at your option) any later version.
14 This program is distributed in the hope that it will be useful,
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 GNU General Public License for more details.
19 You should have received a copy of the GNU General Public License
20 along with this program; if not, write to the Free Software
21 Foundation, Inc., 51 Franklin Street, Fifth Floor,
22 Boston, MA 02110-1301, USA. */
25 #include "reggroups.h"
27 #include "gdb_assert.h"
30 #include "gdbcmd.h" /* For maintenanceprintlist. */
32 /* Individual register groups. */
37 enum reggroup_type type
;
41 reggroup_new (const char *name
, enum reggroup_type type
)
43 struct reggroup
*group
= XMALLOC (struct reggroup
);
49 /* Register group attributes. */
52 reggroup_name (struct reggroup
*group
)
58 reggroup_type (struct reggroup
*group
)
63 /* A linked list of groups for the given architecture. */
67 struct reggroup
*group
;
68 struct reggroup_el
*next
;
73 struct reggroup_el
*first
;
74 struct reggroup_el
**last
;
77 static struct gdbarch_data
*reggroups_data
;
80 reggroups_init (struct gdbarch
*gdbarch
)
82 struct reggroups
*groups
= GDBARCH_OBSTACK_ZALLOC (gdbarch
,
84 groups
->last
= &groups
->first
;
88 /* Add a register group (with attribute values) to the pre-defined
92 add_group (struct reggroups
*groups
, struct reggroup
*group
,
93 struct reggroup_el
*el
)
95 gdb_assert (group
!= NULL
);
99 groups
->last
= &el
->next
;
103 reggroup_add (struct gdbarch
*gdbarch
, struct reggroup
*group
)
105 struct reggroups
*groups
= gdbarch_data (gdbarch
, reggroups_data
);
109 /* ULGH, called during architecture initialization. Patch
111 groups
= reggroups_init (gdbarch
);
112 deprecated_set_gdbarch_data (gdbarch
, reggroups_data
, groups
);
114 add_group (groups
, group
,
115 GDBARCH_OBSTACK_ZALLOC (gdbarch
, struct reggroup_el
));
118 /* The default register groups for an architecture. */
120 static struct reggroups default_groups
= { NULL
, &default_groups
.first
};
122 /* A register group iterator. */
125 reggroup_next (struct gdbarch
*gdbarch
, struct reggroup
*last
)
127 struct reggroups
*groups
;
128 struct reggroup_el
*el
;
130 /* Don't allow this function to be called during architecture
131 creation. If there are no groups, use the default groups list. */
132 groups
= gdbarch_data (gdbarch
, reggroups_data
);
133 gdb_assert (groups
!= NULL
);
134 if (groups
->first
== NULL
)
135 groups
= &default_groups
;
137 /* Return the first/next reggroup. */
139 return groups
->first
->group
;
140 for (el
= groups
->first
; el
!= NULL
; el
= el
->next
)
142 if (el
->group
== last
)
144 if (el
->next
!= NULL
)
145 return el
->next
->group
;
153 /* Is REGNUM a member of REGGROUP? */
155 default_register_reggroup_p (struct gdbarch
*gdbarch
, int regnum
,
156 struct reggroup
*group
)
162 if (REGISTER_NAME (regnum
) == NULL
163 || *REGISTER_NAME (regnum
) == '\0')
165 if (group
== all_reggroup
)
167 vector_p
= TYPE_VECTOR (register_type (gdbarch
, regnum
));
168 float_p
= TYPE_CODE (register_type (gdbarch
, regnum
)) == TYPE_CODE_FLT
;
169 /* FIXME: cagney/2003-04-13: Can't yet use gdbarch_num_regs
170 (gdbarch), as not all architectures are multi-arch. */
171 raw_p
= regnum
< NUM_REGS
;
172 if (group
== float_reggroup
)
174 if (group
== vector_reggroup
)
176 if (group
== general_reggroup
)
177 return (!vector_p
&& !float_p
);
178 if (group
== save_reggroup
|| group
== restore_reggroup
)
183 /* Dump out a table of register groups for the current architecture. */
186 reggroups_dump (struct gdbarch
*gdbarch
, struct ui_file
*file
)
188 struct reggroup
*group
= NULL
;
198 name
= reggroup_name (group
);
199 fprintf_unfiltered (file
, " %-10s", name
);
209 switch (reggroup_type (group
))
214 case INTERNAL_REGGROUP
:
218 internal_error (__FILE__
, __LINE__
, _("bad switch"));
221 fprintf_unfiltered (file
, " %-10s", type
);
224 /* Note: If you change this, be sure to also update the
227 fprintf_unfiltered (file
, "\n");
229 group
= reggroup_next (gdbarch
, group
);
231 while (group
!= NULL
);
235 maintenance_print_reggroups (char *args
, int from_tty
)
238 reggroups_dump (current_gdbarch
, gdb_stdout
);
241 struct ui_file
*file
= gdb_fopen (args
, "w");
243 perror_with_name (_("maintenance print reggroups"));
244 reggroups_dump (current_gdbarch
, file
);
245 ui_file_delete (file
);
249 /* Pre-defined register groups. */
250 static struct reggroup general_group
= { "general", USER_REGGROUP
};
251 static struct reggroup float_group
= { "float", USER_REGGROUP
};
252 static struct reggroup system_group
= { "system", USER_REGGROUP
};
253 static struct reggroup vector_group
= { "vector", USER_REGGROUP
};
254 static struct reggroup all_group
= { "all", USER_REGGROUP
};
255 static struct reggroup save_group
= { "save", INTERNAL_REGGROUP
};
256 static struct reggroup restore_group
= { "restore", INTERNAL_REGGROUP
};
258 struct reggroup
*const general_reggroup
= &general_group
;
259 struct reggroup
*const float_reggroup
= &float_group
;
260 struct reggroup
*const system_reggroup
= &system_group
;
261 struct reggroup
*const vector_reggroup
= &vector_group
;
262 struct reggroup
*const all_reggroup
= &all_group
;
263 struct reggroup
*const save_reggroup
= &save_group
;
264 struct reggroup
*const restore_reggroup
= &restore_group
;
266 extern initialize_file_ftype _initialize_reggroup
; /* -Wmissing-prototypes */
269 _initialize_reggroup (void)
271 reggroups_data
= gdbarch_data_register_post_init (reggroups_init
);
273 /* The pre-defined list of groups. */
274 add_group (&default_groups
, general_reggroup
, XMALLOC (struct reggroup_el
));
275 add_group (&default_groups
, float_reggroup
, XMALLOC (struct reggroup_el
));
276 add_group (&default_groups
, system_reggroup
, XMALLOC (struct reggroup_el
));
277 add_group (&default_groups
, vector_reggroup
, XMALLOC (struct reggroup_el
));
278 add_group (&default_groups
, all_reggroup
, XMALLOC (struct reggroup_el
));
279 add_group (&default_groups
, save_reggroup
, XMALLOC (struct reggroup_el
));
280 add_group (&default_groups
, restore_reggroup
, XMALLOC (struct reggroup_el
));
282 add_cmd ("reggroups", class_maintenance
,
283 maintenance_print_reggroups
, _("\
284 Print the internal register group names.\n\
285 Takes an optional file parameter."),
286 &maintenanceprintlist
);