* configure.ac (enable_libgomp): Remove *-*-irix6*.
[deliverable/binutils-gdb.git] / gdb / cp-abi.c
CommitLineData
015a42b4 1/* Generic code for supporting multiple C++ ABI's
06c4d4dc 2
0b302171 3 Copyright (C) 2001-2003, 2005-2012 Free Software Foundation, Inc.
015a42b4
JB
4
5 This file is part of GDB.
6
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
a9762ec7 9 the Free Software Foundation; either version 3 of the License, or
015a42b4
JB
10 (at your option) any later version.
11
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
16
17 You should have received a copy of the GNU General Public License
a9762ec7 18 along with this program. If not, see <http://www.gnu.org/licenses/>. */
015a42b4
JB
19
20#include "defs.h"
21#include "value.h"
22#include "cp-abi.h"
fe1f4a5e 23#include "command.h"
7093c834 24#include "exceptions.h"
fe1f4a5e
DJ
25#include "gdbcmd.h"
26#include "ui-out.h"
8af8e3bc 27#include "gdb_assert.h"
309367d4 28#include "gdb_string.h"
015a42b4 29
fe1f4a5e 30static struct cp_abi_ops *find_cp_abi (const char *short_name);
015a42b4 31
fe1f4a5e
DJ
32static struct cp_abi_ops current_cp_abi = { "", NULL };
33static struct cp_abi_ops auto_cp_abi = { "auto", NULL };
015a42b4 34
fe1f4a5e
DJ
35#define CP_ABI_MAX 8
36static struct cp_abi_ops *cp_abis[CP_ABI_MAX];
37static int num_cp_abis = 0;
015a42b4
JB
38
39enum ctor_kinds
40is_constructor_name (const char *name)
41{
42 if ((current_cp_abi.is_constructor_name) == NULL)
8a3fe4f8 43 error (_("ABI doesn't define required function is_constructor_name"));
015a42b4
JB
44 return (*current_cp_abi.is_constructor_name) (name);
45}
46
47enum dtor_kinds
48is_destructor_name (const char *name)
49{
50 if ((current_cp_abi.is_destructor_name) == NULL)
8a3fe4f8 51 error (_("ABI doesn't define required function is_destructor_name"));
015a42b4
JB
52 return (*current_cp_abi.is_destructor_name) (name);
53}
54
55int
56is_vtable_name (const char *name)
57{
58 if ((current_cp_abi.is_vtable_name) == NULL)
8a3fe4f8 59 error (_("ABI doesn't define required function is_vtable_name"));
015a42b4
JB
60 return (*current_cp_abi.is_vtable_name) (name);
61}
62
63int
64is_operator_name (const char *name)
65{
66 if ((current_cp_abi.is_operator_name) == NULL)
8a3fe4f8 67 error (_("ABI doesn't define required function is_operator_name"));
015a42b4
JB
68 return (*current_cp_abi.is_operator_name) (name);
69}
70
1514d34e 71int
8af8e3bc
PA
72baseclass_offset (struct type *type, int index, const gdb_byte *valaddr,
73 int embedded_offset, CORE_ADDR address,
74 const struct value *val)
1514d34e 75{
8af8e3bc
PA
76 volatile struct gdb_exception ex;
77 int res = 0;
78
79 gdb_assert (current_cp_abi.baseclass_offset != NULL);
80
81 TRY_CATCH (ex, RETURN_MASK_ERROR)
82 {
83 res = (*current_cp_abi.baseclass_offset) (type, index, valaddr,
84 embedded_offset,
85 address, val);
86 }
87
88 if (ex.reason < 0 && ex.error == NOT_AVAILABLE_ERROR)
89 throw_error (NOT_AVAILABLE_ERROR,
90 _("Cannot determine virtual baseclass offset "
91 "of incomplete object"));
92 else if (ex.reason < 0)
93 throw_exception (ex);
94 else
95 return res;
1514d34e
DJ
96}
97
e933e538 98struct value *
aff410f1
MS
99value_virtual_fn_field (struct value **arg1p,
100 struct fn_field *f, int j,
fe1f4a5e 101 struct type *type, int offset)
015a42b4
JB
102{
103 if ((current_cp_abi.virtual_fn_field) == NULL)
104 return NULL;
aff410f1
MS
105 return (*current_cp_abi.virtual_fn_field) (arg1p, f, j,
106 type, offset);
015a42b4 107}
1514d34e 108
015a42b4 109struct type *
aff410f1
MS
110value_rtti_type (struct value *v, int *full,
111 int *top, int *using_enc)
015a42b4 112{
7093c834 113 struct type *ret = NULL;
bfd189b1 114 volatile struct gdb_exception e;
c5504eaf 115
015a42b4
JB
116 if ((current_cp_abi.rtti_type) == NULL)
117 return NULL;
7093c834
PP
118 TRY_CATCH (e, RETURN_MASK_ERROR)
119 {
120 ret = (*current_cp_abi.rtti_type) (v, full, top, using_enc);
121 }
122 if (e.reason < 0)
123 return NULL;
124 return ret;
015a42b4
JB
125}
126
0d5de010 127void
aff410f1
MS
128cplus_print_method_ptr (const gdb_byte *contents,
129 struct type *type,
0d5de010
DJ
130 struct ui_file *stream)
131{
132 if (current_cp_abi.print_method_ptr == NULL)
133 error (_("GDB does not support pointers to methods on this target"));
134 (*current_cp_abi.print_method_ptr) (contents, type, stream);
135}
136
137int
ad4820ab 138cplus_method_ptr_size (struct type *to_type)
0d5de010
DJ
139{
140 if (current_cp_abi.method_ptr_size == NULL)
141 error (_("GDB does not support pointers to methods on this target"));
ad4820ab 142 return (*current_cp_abi.method_ptr_size) (to_type);
0d5de010
DJ
143}
144
145void
ad4820ab
UW
146cplus_make_method_ptr (struct type *type, gdb_byte *contents,
147 CORE_ADDR value, int is_virtual)
0d5de010
DJ
148{
149 if (current_cp_abi.make_method_ptr == NULL)
150 error (_("GDB does not support pointers to methods on this target"));
ad4820ab 151 (*current_cp_abi.make_method_ptr) (type, contents, value, is_virtual);
0d5de010
DJ
152}
153
b18be20d 154CORE_ADDR
aff410f1
MS
155cplus_skip_trampoline (struct frame_info *frame,
156 CORE_ADDR stop_pc)
b18be20d
DJ
157{
158 if (current_cp_abi.skip_trampoline == NULL)
159 return 0;
52f729a7 160 return (*current_cp_abi.skip_trampoline) (frame, stop_pc);
b18be20d
DJ
161}
162
0d5de010 163struct value *
aff410f1
MS
164cplus_method_ptr_to_value (struct value **this_p,
165 struct value *method_ptr)
0d5de010
DJ
166{
167 if (current_cp_abi.method_ptr_to_value == NULL)
168 error (_("GDB does not support pointers to methods on this target"));
169 return (*current_cp_abi.method_ptr_to_value) (this_p, method_ptr);
170}
171
41f1b697
DJ
172int
173cp_pass_by_reference (struct type *type)
174{
175 if ((current_cp_abi.pass_by_reference) == NULL)
176 return 0;
177 return (*current_cp_abi.pass_by_reference) (type);
178}
179
fe1f4a5e
DJ
180/* Set the current C++ ABI to SHORT_NAME. */
181
182static int
183switch_to_cp_abi (const char *short_name)
184{
185 struct cp_abi_ops *abi;
186
187 abi = find_cp_abi (short_name);
188 if (abi == NULL)
189 return 0;
190
191 current_cp_abi = *abi;
192 return 1;
193}
194
195/* Add ABI to the list of supported C++ ABI's. */
196
015a42b4 197int
fe1f4a5e 198register_cp_abi (struct cp_abi_ops *abi)
015a42b4 199{
fe1f4a5e
DJ
200 if (num_cp_abis == CP_ABI_MAX)
201 internal_error (__FILE__, __LINE__,
3e43a32a
MS
202 _("Too many C++ ABIs, please increase "
203 "CP_ABI_MAX in cp-abi.c"));
fe1f4a5e 204
015a42b4
JB
205 cp_abis[num_cp_abis++] = abi;
206
207 return 1;
fe1f4a5e
DJ
208}
209
210/* Set the ABI to use in "auto" mode to SHORT_NAME. */
015a42b4 211
fe1f4a5e
DJ
212void
213set_cp_abi_as_auto_default (const char *short_name)
214{
215 char *new_longname, *new_doc;
216 struct cp_abi_ops *abi = find_cp_abi (short_name);
217
218 if (abi == NULL)
219 internal_error (__FILE__, __LINE__,
e2e0b3e5 220 _("Cannot find C++ ABI \"%s\" to set it as auto default."),
fe1f4a5e
DJ
221 short_name);
222
223 if (auto_cp_abi.longname != NULL)
224 xfree ((char *) auto_cp_abi.longname);
225 if (auto_cp_abi.doc != NULL)
226 xfree ((char *) auto_cp_abi.doc);
227
228 auto_cp_abi = *abi;
229
230 auto_cp_abi.shortname = "auto";
0dfdb8ba 231 new_longname = xstrprintf ("currently \"%s\"", abi->shortname);
fe1f4a5e
DJ
232 auto_cp_abi.longname = new_longname;
233
0dfdb8ba 234 new_doc = xstrprintf ("Automatically selected; currently \"%s\"",
049742da 235 abi->shortname);
fe1f4a5e
DJ
236 auto_cp_abi.doc = new_doc;
237
238 /* Since we copy the current ABI into current_cp_abi instead of
239 using a pointer, if auto is currently the default, we need to
240 reset it. */
241 if (strcmp (current_cp_abi.shortname, "auto") == 0)
242 switch_to_cp_abi ("auto");
015a42b4
JB
243}
244
fe1f4a5e
DJ
245/* Return the ABI operations associated with SHORT_NAME. */
246
247static struct cp_abi_ops *
248find_cp_abi (const char *short_name)
015a42b4
JB
249{
250 int i;
fe1f4a5e 251
015a42b4 252 for (i = 0; i < num_cp_abis; i++)
fe1f4a5e
DJ
253 if (strcmp (cp_abis[i]->shortname, short_name) == 0)
254 return cp_abis[i];
255
256 return NULL;
015a42b4
JB
257}
258
fe1f4a5e
DJ
259/* Display the list of registered C++ ABIs. */
260
261static void
262list_cp_abis (int from_tty)
263{
79a45e25 264 struct ui_out *uiout = current_uiout;
fe1f4a5e
DJ
265 struct cleanup *cleanup_chain;
266 int i;
fe1f4a5e 267
c5504eaf 268 ui_out_text (uiout, "The available C++ ABIs are:\n");
aff410f1
MS
269 cleanup_chain = make_cleanup_ui_out_tuple_begin_end (uiout,
270 "cp-abi-list");
fe1f4a5e
DJ
271 for (i = 0; i < num_cp_abis; i++)
272 {
273 char pad[14];
274 int padcount;
275
276 ui_out_text (uiout, " ");
277 ui_out_field_string (uiout, "cp-abi", cp_abis[i]->shortname);
278
279 padcount = 16 - 2 - strlen (cp_abis[i]->shortname);
280 pad[padcount] = 0;
281 while (padcount > 0)
282 pad[--padcount] = ' ';
283 ui_out_text (uiout, pad);
284
285 ui_out_field_string (uiout, "doc", cp_abis[i]->doc);
286 ui_out_text (uiout, "\n");
287 }
288 do_cleanups (cleanup_chain);
289}
290
291/* Set the current C++ ABI, or display the list of options if no
292 argument is given. */
293
294static void
295set_cp_abi_cmd (char *args, int from_tty)
296{
297 if (args == NULL)
298 {
299 list_cp_abis (from_tty);
300 return;
301 }
302
303 if (!switch_to_cp_abi (args))
8a3fe4f8 304 error (_("Could not find \"%s\" in ABI list"), args);
fe1f4a5e
DJ
305}
306
307/* Show the currently selected C++ ABI. */
308
309static void
310show_cp_abi_cmd (char *args, int from_tty)
311{
79a45e25
PA
312 struct ui_out *uiout = current_uiout;
313
fe1f4a5e
DJ
314 ui_out_text (uiout, "The currently selected C++ ABI is \"");
315
316 ui_out_field_string (uiout, "cp-abi", current_cp_abi.shortname);
317 ui_out_text (uiout, "\" (");
318 ui_out_field_string (uiout, "longname", current_cp_abi.longname);
319 ui_out_text (uiout, ").\n");
320}
321
b9362cc7
AC
322extern initialize_file_ftype _initialize_cp_abi; /* -Wmissing-prototypes */
323
fe1f4a5e
DJ
324void
325_initialize_cp_abi (void)
326{
327 register_cp_abi (&auto_cp_abi);
328 switch_to_cp_abi ("auto");
329
ac74f770
MS
330 add_cmd ("cp-abi", class_obscure, set_cp_abi_cmd, _("\
331Set the ABI used for inspecting C++ objects.\n\
332\"set cp-abi\" with no arguments will list the available ABIs."),
fe1f4a5e
DJ
333 &setlist);
334
335 add_cmd ("cp-abi", class_obscure, show_cp_abi_cmd,
aff410f1
MS
336 _("Show the ABI used for inspecting C++ objects."),
337 &showlist);
fe1f4a5e 338}
This page took 0.686255 seconds and 4 git commands to generate.