Clean up "completer_handle_brkchars" callback handling
[deliverable/binutils-gdb.git] / gdb / d-lang.c
CommitLineData
6aecb9c2
JB
1/* D language support routines for GDB, the GNU debugger.
2
61baf725 3 Copyright (C) 2005-2017 Free Software Foundation, Inc.
6aecb9c2
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
9 the Free Software Foundation; either version 3 of the License, or
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
18 along with this program. If not, see <http://www.gnu.org/licenses/>. */
19
20#include "defs.h"
21#include "symtab.h"
22#include "language.h"
a53b64ea 23#include "varobj.h"
6aecb9c2
JB
24#include "d-lang.h"
25#include "c-lang.h"
35a49624
IB
26#include "demangle.h"
27#include "cp-support.h"
6aecb9c2 28
63778547
IB
29/* The name of the symbol to use to get the name of the main subprogram. */
30static const char D_MAIN[] = "D main";
31
32/* Function returning the special symbol name used by D for the main
33 procedure in the main program if it is found in minimal symbol list.
34 This function tries to find minimal symbols so that it finds them even
35 if the program was compiled without debugging information. */
36
37const char *
38d_main_name (void)
39{
3b7344d5 40 struct bound_minimal_symbol msym;
63778547
IB
41
42 msym = lookup_minimal_symbol (D_MAIN, NULL, NULL);
3b7344d5 43 if (msym.minsym != NULL)
63778547
IB
44 return D_MAIN;
45
46 /* No known entry procedure found, the main program is probably not D. */
47 return NULL;
48}
49
6aecb9c2 50/* Implements the la_demangle language_defn routine for language D. */
ec9f644a 51
6aecb9c2
JB
52char *
53d_demangle (const char *symbol, int options)
54{
35a49624 55 return gdb_demangle (symbol, options | DMGL_DLANG);
6aecb9c2
JB
56}
57
8b302db8
TT
58/* la_sniff_from_mangled_name implementation for D. */
59
60static int
61d_sniff_from_mangled_name (const char *mangled, char **demangled)
62{
63 *demangled = d_demangle (mangled, 0);
64 return *demangled != NULL;
65}
66
6aecb9c2
JB
67/* Table mapping opcodes into strings for printing operators
68 and precedences of the operators. */
69static const struct op_print d_op_print_tab[] =
70{
71 {",", BINOP_COMMA, PREC_COMMA, 0},
72 {"=", BINOP_ASSIGN, PREC_ASSIGN, 1},
73 {"||", BINOP_LOGICAL_OR, PREC_LOGICAL_OR, 0},
74 {"&&", BINOP_LOGICAL_AND, PREC_LOGICAL_AND, 0},
75 {"|", BINOP_BITWISE_IOR, PREC_BITWISE_IOR, 0},
76 {"^", BINOP_BITWISE_XOR, PREC_BITWISE_XOR, 0},
77 {"&", BINOP_BITWISE_AND, PREC_BITWISE_AND, 0},
3ed9baed
IB
78 {"==", BINOP_EQUAL, PREC_ORDER, 0},
79 {"!=", BINOP_NOTEQUAL, PREC_ORDER, 0},
6aecb9c2
JB
80 {"<=", BINOP_LEQ, PREC_ORDER, 0},
81 {">=", BINOP_GEQ, PREC_ORDER, 0},
82 {">", BINOP_GTR, PREC_ORDER, 0},
83 {"<", BINOP_LESS, PREC_ORDER, 0},
84 {">>", BINOP_RSH, PREC_SHIFT, 0},
85 {"<<", BINOP_LSH, PREC_SHIFT, 0},
86 {"+", BINOP_ADD, PREC_ADD, 0},
87 {"-", BINOP_SUB, PREC_ADD, 0},
3ed9baed 88 {"~", BINOP_CONCAT, PREC_ADD, 0},
6aecb9c2
JB
89 {"*", BINOP_MUL, PREC_MUL, 0},
90 {"/", BINOP_DIV, PREC_MUL, 0},
91 {"%", BINOP_REM, PREC_MUL, 0},
3ed9baed 92 {"^^", BINOP_EXP, PREC_REPEAT, 0},
6aecb9c2
JB
93 {"@", BINOP_REPEAT, PREC_REPEAT, 0},
94 {"-", UNOP_NEG, PREC_PREFIX, 0},
95 {"!", UNOP_LOGICAL_NOT, PREC_PREFIX, 0},
96 {"~", UNOP_COMPLEMENT, PREC_PREFIX, 0},
97 {"*", UNOP_IND, PREC_PREFIX, 0},
98 {"&", UNOP_ADDR, PREC_PREFIX, 0},
99 {"sizeof ", UNOP_SIZEOF, PREC_PREFIX, 0},
100 {"++", UNOP_PREINCREMENT, PREC_PREFIX, 0},
101 {"--", UNOP_PREDECREMENT, PREC_PREFIX, 0},
f486487f 102 {NULL, OP_NULL, PREC_PREFIX, 0}
6aecb9c2
JB
103};
104
94b1b47e
IB
105/* Mapping of all D basic data types into the language vector. */
106
107enum d_primitive_types {
108 d_primitive_type_void,
109 d_primitive_type_bool,
110 d_primitive_type_byte,
111 d_primitive_type_ubyte,
112 d_primitive_type_short,
113 d_primitive_type_ushort,
114 d_primitive_type_int,
115 d_primitive_type_uint,
116 d_primitive_type_long,
117 d_primitive_type_ulong,
118 d_primitive_type_cent, /* Signed 128 bit integer. */
119 d_primitive_type_ucent, /* Unsigned 128 bit integer. */
120 d_primitive_type_float,
121 d_primitive_type_double,
122 d_primitive_type_real,
123 d_primitive_type_ifloat, /* Imaginary float types. */
124 d_primitive_type_idouble,
125 d_primitive_type_ireal,
126 d_primitive_type_cfloat, /* Complex number of two float values. */
127 d_primitive_type_cdouble,
128 d_primitive_type_creal,
129 d_primitive_type_char, /* Unsigned character types. */
130 d_primitive_type_wchar,
131 d_primitive_type_dchar,
132 nr_d_primitive_types
133};
134
135/* Implements the la_language_arch_info language_defn routine
136 for language D. */
137
138static void
139d_language_arch_info (struct gdbarch *gdbarch,
140 struct language_arch_info *lai)
141{
142 const struct builtin_d_type *builtin = builtin_d_type (gdbarch);
143
144 lai->string_char_type = builtin->builtin_char;
145 lai->primitive_type_vector
146 = GDBARCH_OBSTACK_CALLOC (gdbarch, nr_d_primitive_types + 1,
147 struct type *);
148
149 lai->primitive_type_vector [d_primitive_type_void]
150 = builtin->builtin_void;
151 lai->primitive_type_vector [d_primitive_type_bool]
152 = builtin->builtin_bool;
153 lai->primitive_type_vector [d_primitive_type_byte]
154 = builtin->builtin_byte;
155 lai->primitive_type_vector [d_primitive_type_ubyte]
156 = builtin->builtin_ubyte;
157 lai->primitive_type_vector [d_primitive_type_short]
158 = builtin->builtin_short;
159 lai->primitive_type_vector [d_primitive_type_ushort]
160 = builtin->builtin_ushort;
161 lai->primitive_type_vector [d_primitive_type_int]
162 = builtin->builtin_int;
163 lai->primitive_type_vector [d_primitive_type_uint]
164 = builtin->builtin_uint;
165 lai->primitive_type_vector [d_primitive_type_long]
166 = builtin->builtin_long;
167 lai->primitive_type_vector [d_primitive_type_ulong]
168 = builtin->builtin_ulong;
169 lai->primitive_type_vector [d_primitive_type_cent]
170 = builtin->builtin_cent;
171 lai->primitive_type_vector [d_primitive_type_ucent]
172 = builtin->builtin_ucent;
173 lai->primitive_type_vector [d_primitive_type_float]
174 = builtin->builtin_float;
175 lai->primitive_type_vector [d_primitive_type_double]
176 = builtin->builtin_double;
177 lai->primitive_type_vector [d_primitive_type_real]
178 = builtin->builtin_real;
179 lai->primitive_type_vector [d_primitive_type_ifloat]
180 = builtin->builtin_ifloat;
181 lai->primitive_type_vector [d_primitive_type_idouble]
182 = builtin->builtin_idouble;
183 lai->primitive_type_vector [d_primitive_type_ireal]
184 = builtin->builtin_ireal;
185 lai->primitive_type_vector [d_primitive_type_cfloat]
186 = builtin->builtin_cfloat;
187 lai->primitive_type_vector [d_primitive_type_cdouble]
188 = builtin->builtin_cdouble;
189 lai->primitive_type_vector [d_primitive_type_creal]
190 = builtin->builtin_creal;
191 lai->primitive_type_vector [d_primitive_type_char]
192 = builtin->builtin_char;
193 lai->primitive_type_vector [d_primitive_type_wchar]
194 = builtin->builtin_wchar;
195 lai->primitive_type_vector [d_primitive_type_dchar]
196 = builtin->builtin_dchar;
197
198 lai->bool_type_symbol = "bool";
199 lai->bool_type_default = builtin->builtin_bool;
200}
201
56618e20
TT
202static const char *d_extensions[] =
203{
204 ".d", NULL
205};
206
6aecb9c2
JB
207static const struct language_defn d_language_defn =
208{
209 "d",
6abde28f 210 "D",
6aecb9c2
JB
211 language_d,
212 range_check_off,
6aecb9c2
JB
213 case_sensitive_on,
214 array_row_major,
3271ba66 215 macro_expansion_no,
56618e20 216 d_extensions,
6aecb9c2 217 &exp_descriptor_c,
3ed9baed 218 d_parse,
b3f11165 219 d_yyerror,
6aecb9c2
JB
220 null_post_parser,
221 c_printchar, /* Print a character constant. */
222 c_printstr, /* Function to print string constant. */
223 c_emit_char, /* Print a single char. */
224 c_print_type, /* Print a type using appropriate syntax. */
0963b4bd
MS
225 c_print_typedef, /* Print a typedef using appropriate
226 syntax. */
6aecb9c2
JB
227 d_val_print, /* Print a value using appropriate syntax. */
228 c_value_print, /* Print a top-level value. */
a5ee536b 229 default_read_var_value, /* la_read_var_value */
6aecb9c2
JB
230 NULL, /* Language specific skip_trampoline. */
231 "this",
bc7c9fab 232 d_lookup_symbol_nonlocal,
6aecb9c2
JB
233 basic_lookup_transparent_type,
234 d_demangle, /* Language specific symbol demangler. */
8b302db8 235 d_sniff_from_mangled_name,
0963b4bd
MS
236 NULL, /* Language specific
237 class_name_from_physname. */
6aecb9c2
JB
238 d_op_print_tab, /* Expression operators for printing. */
239 1, /* C-style arrays. */
240 0, /* String lower bound. */
241 default_word_break_characters,
242 default_make_symbol_completion_list,
94b1b47e 243 d_language_arch_info,
6aecb9c2
JB
244 default_print_array_index,
245 default_pass_by_reference,
246 c_get_string,
43cc5389 247 c_watch_location_expression,
1a119f36 248 NULL, /* la_get_symbol_name_cmp */
95cbceff 249 iterate_over_symbols,
a53b64ea 250 &default_varobj_ops,
bb2ec1b3
TT
251 NULL,
252 NULL,
6aecb9c2
JB
253 LANG_MAGIC
254};
255
94b1b47e
IB
256/* Build all D language types for the specified architecture. */
257
258static void *
259build_d_types (struct gdbarch *gdbarch)
260{
261 struct builtin_d_type *builtin_d_type
262 = GDBARCH_OBSTACK_ZALLOC (gdbarch, struct builtin_d_type);
263
264 /* Basic types. */
265 builtin_d_type->builtin_void
266 = arch_type (gdbarch, TYPE_CODE_VOID, 1, "void");
267 builtin_d_type->builtin_bool
268 = arch_boolean_type (gdbarch, 8, 1, "bool");
269 builtin_d_type->builtin_byte
270 = arch_integer_type (gdbarch, 8, 0, "byte");
271 builtin_d_type->builtin_ubyte
272 = arch_integer_type (gdbarch, 8, 1, "ubyte");
273 builtin_d_type->builtin_short
274 = arch_integer_type (gdbarch, 16, 0, "short");
275 builtin_d_type->builtin_ushort
276 = arch_integer_type (gdbarch, 16, 1, "ushort");
277 builtin_d_type->builtin_int
278 = arch_integer_type (gdbarch, 32, 0, "int");
279 builtin_d_type->builtin_uint
280 = arch_integer_type (gdbarch, 32, 1, "uint");
281 builtin_d_type->builtin_long
282 = arch_integer_type (gdbarch, 64, 0, "long");
283 builtin_d_type->builtin_ulong
284 = arch_integer_type (gdbarch, 64, 1, "ulong");
285 builtin_d_type->builtin_cent
286 = arch_integer_type (gdbarch, 128, 0, "cent");
287 builtin_d_type->builtin_ucent
288 = arch_integer_type (gdbarch, 128, 1, "ucent");
289 builtin_d_type->builtin_float
290 = arch_float_type (gdbarch, gdbarch_float_bit (gdbarch),
49f190bc 291 "float", gdbarch_float_format (gdbarch));
94b1b47e
IB
292 builtin_d_type->builtin_double
293 = arch_float_type (gdbarch, gdbarch_double_bit (gdbarch),
49f190bc 294 "double", gdbarch_double_format (gdbarch));
94b1b47e
IB
295 builtin_d_type->builtin_real
296 = arch_float_type (gdbarch, gdbarch_long_double_bit (gdbarch),
49f190bc 297 "real", gdbarch_long_double_format (gdbarch));
94b1b47e
IB
298
299 TYPE_INSTANCE_FLAGS (builtin_d_type->builtin_byte)
300 |= TYPE_INSTANCE_FLAG_NOTTEXT;
301 TYPE_INSTANCE_FLAGS (builtin_d_type->builtin_ubyte)
302 |= TYPE_INSTANCE_FLAG_NOTTEXT;
303
304 /* Imaginary and complex types. */
305 builtin_d_type->builtin_ifloat
306 = arch_float_type (gdbarch, gdbarch_float_bit (gdbarch),
49f190bc 307 "ifloat", gdbarch_float_format (gdbarch));
94b1b47e
IB
308 builtin_d_type->builtin_idouble
309 = arch_float_type (gdbarch, gdbarch_double_bit (gdbarch),
49f190bc 310 "idouble", gdbarch_double_format (gdbarch));
94b1b47e
IB
311 builtin_d_type->builtin_ireal
312 = arch_float_type (gdbarch, gdbarch_long_double_bit (gdbarch),
49f190bc 313 "ireal", gdbarch_long_double_format (gdbarch));
94b1b47e
IB
314 builtin_d_type->builtin_cfloat
315 = arch_complex_type (gdbarch, "cfloat",
316 builtin_d_type->builtin_float);
317 builtin_d_type->builtin_cdouble
318 = arch_complex_type (gdbarch, "cdouble",
319 builtin_d_type->builtin_double);
320 builtin_d_type->builtin_creal
321 = arch_complex_type (gdbarch, "creal",
322 builtin_d_type->builtin_real);
323
324 /* Character types. */
325 builtin_d_type->builtin_char
326 = arch_character_type (gdbarch, 8, 1, "char");
327 builtin_d_type->builtin_wchar
328 = arch_character_type (gdbarch, 16, 1, "wchar");
329 builtin_d_type->builtin_dchar
330 = arch_character_type (gdbarch, 32, 1, "dchar");
331
332 return builtin_d_type;
333}
334
335static struct gdbarch_data *d_type_data;
336
337/* Return the D type table for the specified architecture. */
338
339const struct builtin_d_type *
340builtin_d_type (struct gdbarch *gdbarch)
341{
9a3c8263 342 return (const struct builtin_d_type *) gdbarch_data (gdbarch, d_type_data);
94b1b47e
IB
343}
344
70221824
PA
345/* Provide a prototype to silence -Wmissing-prototypes. */
346extern initialize_file_ftype _initialize_d_language;
347
6aecb9c2
JB
348void
349_initialize_d_language (void)
350{
94b1b47e
IB
351 d_type_data = gdbarch_data_register_post_init (build_d_types);
352
6aecb9c2
JB
353 add_language (&d_language_defn);
354}
This page took 0.676147 seconds and 4 git commands to generate.