OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gdb-7.1/] [gdb/] [cp-abi.c] - Blame information for rev 227

Details | Compare with Previous | View Log

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

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.