1 /* Register groupings for GDB, the GNU debugger.
3 Copyright (C) 2002, 2003, 2007, 2008, 2009 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 3 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, see <http://www.gnu.org/licenses/>. */
23 #include "arch-utils.h"
24 #include "reggroups.h"
26 #include "gdb_assert.h"
29 #include "gdbcmd.h" /* For maintenanceprintlist. */
31 /* Individual register groups. */
36 enum reggroup_type type
;
40 reggroup_new (const char *name
, enum reggroup_type type
)
42 struct reggroup
*group
= XMALLOC (struct reggroup
);
48 /* Register group attributes. */
51 reggroup_name (struct reggroup
*group
)
57 reggroup_type (struct reggroup
*group
)
62 /* A linked list of groups for the given architecture. */
66 struct reggroup
*group
;
67 struct reggroup_el
*next
;
72 struct reggroup_el
*first
;
73 struct reggroup_el
**last
;
76 static struct gdbarch_data
*reggroups_data
;
79 reggroups_init (struct gdbarch
*gdbarch
)
81 struct reggroups
*groups
= GDBARCH_OBSTACK_ZALLOC (gdbarch
,
83 groups
->last
= &groups
->first
;
87 /* Add a register group (with attribute values) to the pre-defined
91 add_group (struct reggroups
*groups
, struct reggroup
*group
,
92 struct reggroup_el
*el
)
94 gdb_assert (group
!= NULL
);
98 groups
->last
= &el
->next
;
102 reggroup_add (struct gdbarch
*gdbarch
, struct reggroup
*group
)
104 struct reggroups
*groups
= gdbarch_data (gdbarch
, reggroups_data
);
108 /* ULGH, called during architecture initialization. Patch
110 groups
= reggroups_init (gdbarch
);
111 deprecated_set_gdbarch_data (gdbarch
, reggroups_data
, groups
);
113 add_group (groups
, group
,
114 GDBARCH_OBSTACK_ZALLOC (gdbarch
, struct reggroup_el
));
117 /* The default register groups for an architecture. */
119 static struct reggroups default_groups
= { NULL
, &default_groups
.first
};
121 /* A register group iterator. */
124 reggroup_next (struct gdbarch
*gdbarch
, struct reggroup
*last
)
126 struct reggroups
*groups
;
127 struct reggroup_el
*el
;
129 /* Don't allow this function to be called during architecture
130 creation. If there are no groups, use the default groups list. */
131 groups
= gdbarch_data (gdbarch
, reggroups_data
);
132 gdb_assert (groups
!= NULL
);
133 if (groups
->first
== NULL
)
134 groups
= &default_groups
;
136 /* Return the first/next reggroup. */
138 return groups
->first
->group
;
139 for (el
= groups
->first
; el
!= NULL
; el
= el
->next
)
141 if (el
->group
== last
)
143 if (el
->next
!= NULL
)
144 return el
->next
->group
;
152 /* Is REGNUM a member of REGGROUP? */
154 default_register_reggroup_p (struct gdbarch
*gdbarch
, int regnum
,
155 struct reggroup
*group
)
161 if (gdbarch_register_name (gdbarch
, regnum
) == NULL
162 || *gdbarch_register_name (gdbarch
, regnum
) == '\0')
164 if (group
== all_reggroup
)
166 vector_p
= TYPE_VECTOR (register_type (gdbarch
, regnum
));
167 float_p
= TYPE_CODE (register_type (gdbarch
, regnum
)) == TYPE_CODE_FLT
;
168 raw_p
= regnum
< gdbarch_num_regs (gdbarch
);
169 if (group
== float_reggroup
)
171 if (group
== vector_reggroup
)
173 if (group
== general_reggroup
)
174 return (!vector_p
&& !float_p
);
175 if (group
== save_reggroup
|| group
== restore_reggroup
)
180 /* Dump out a table of register groups for the current architecture. */
183 reggroups_dump (struct gdbarch
*gdbarch
, struct ui_file
*file
)
185 struct reggroup
*group
= NULL
;
195 name
= reggroup_name (group
);
196 fprintf_unfiltered (file
, " %-10s", name
);
206 switch (reggroup_type (group
))
211 case INTERNAL_REGGROUP
:
215 internal_error (__FILE__
, __LINE__
, _("bad switch"));
218 fprintf_unfiltered (file
, " %-10s", type
);
221 /* Note: If you change this, be sure to also update the
224 fprintf_unfiltered (file
, "\n");
226 group
= reggroup_next (gdbarch
, group
);
228 while (group
!= NULL
);
232 maintenance_print_reggroups (char *args
, int from_tty
)
234 struct gdbarch
*gdbarch
= get_current_arch ();
237 reggroups_dump (gdbarch
, gdb_stdout
);
240 struct cleanup
*cleanups
;
241 struct ui_file
*file
= gdb_fopen (args
, "w");
243 perror_with_name (_("maintenance print reggroups"));
244 cleanups
= make_cleanup_ui_file_delete (file
);
245 reggroups_dump (gdbarch
, file
);
246 do_cleanups (cleanups
);
250 /* Pre-defined register groups. */
251 static struct reggroup general_group
= { "general", USER_REGGROUP
};
252 static struct reggroup float_group
= { "float", USER_REGGROUP
};
253 static struct reggroup system_group
= { "system", USER_REGGROUP
};
254 static struct reggroup vector_group
= { "vector", USER_REGGROUP
};
255 static struct reggroup all_group
= { "all", USER_REGGROUP
};
256 static struct reggroup save_group
= { "save", INTERNAL_REGGROUP
};
257 static struct reggroup restore_group
= { "restore", INTERNAL_REGGROUP
};
259 struct reggroup
*const general_reggroup
= &general_group
;
260 struct reggroup
*const float_reggroup
= &float_group
;
261 struct reggroup
*const system_reggroup
= &system_group
;
262 struct reggroup
*const vector_reggroup
= &vector_group
;
263 struct reggroup
*const all_reggroup
= &all_group
;
264 struct reggroup
*const save_reggroup
= &save_group
;
265 struct reggroup
*const restore_reggroup
= &restore_group
;
267 extern initialize_file_ftype _initialize_reggroup
; /* -Wmissing-prototypes */
270 _initialize_reggroup (void)
272 reggroups_data
= gdbarch_data_register_post_init (reggroups_init
);
274 /* The pre-defined list of groups. */
275 add_group (&default_groups
, general_reggroup
, XMALLOC (struct reggroup_el
));
276 add_group (&default_groups
, float_reggroup
, XMALLOC (struct reggroup_el
));
277 add_group (&default_groups
, system_reggroup
, XMALLOC (struct reggroup_el
));
278 add_group (&default_groups
, vector_reggroup
, XMALLOC (struct reggroup_el
));
279 add_group (&default_groups
, all_reggroup
, XMALLOC (struct reggroup_el
));
280 add_group (&default_groups
, save_reggroup
, XMALLOC (struct reggroup_el
));
281 add_group (&default_groups
, restore_reggroup
, XMALLOC (struct reggroup_el
));
283 add_cmd ("reggroups", class_maintenance
,
284 maintenance_print_reggroups
, _("\
285 Print the internal register group names.\n\
286 Takes an optional file parameter."),
287 &maintenanceprintlist
);