mirror of
https://sourceware.org/git/binutils-gdb.git
synced 2024-12-09 04:21:49 +08:00
22c12a6c70
Convert language_data::string_lower_bound member variable to a virtual method language_defn::string_lower_bound. Over all of the languages we currently support there are currently only two values for the lower bound, 0 or 1. I noticed that in all cases, if a language has C style arrays then the lower bound is 0, otherwise the lower bound is 1. So the default for the virtual method in language.h makes use of this, which means languages don't have to worry about providing a string_lower_bound method at all. Except for Modula2. This language is defined to not have C style arrays, but has a string_lower_bound index of 0, this behaviour is maintained after this commit by having Modula2 be the only language that overrides the string_lower_bound method. There should be no user visible changes after this commit. gdb/ChangeLog: * ada-lang.c (ada_language_data): Remove string_lower_bound initializer. * c-lang.c (c_language_data): Likewise. (cplus_language_data): Likewise. (asm_language_data): Likewise. (minimal_language_data): Likewise. * d-lang.c (d_language_data): Likewise. * f-lang.c (f_language_data): Likewise. * go-lang.c (go_language_data): Likewise. * language.c (unknown_language_data): Likewise. (auto_language_data): Likewise. * language.h (language_data): Remove string_lower_bound field. (language_defn::string_lower_bound): New member function. * m2-lang.c (m2_language_data): Remove string_lower_bound initializer. (m2_language::string_lower_bound): New member function. * objc-lang.c (objc_language_data): Remove string_lower_bound initializer. * opencl-lang.c (opencl_language_data): Likewise. * p-lang.c (pascal_language_data): Likewise. * rust-lang.c (rust_language_data): Likewise. * valops.c (value_cstring): Update call to string_lower_bound. (value_string): Likewise. * value.c (allocate_repeated_value): Likewise.
386 lines
12 KiB
C
386 lines
12 KiB
C
/* D language support routines for GDB, the GNU debugger.
|
|
|
|
Copyright (C) 2005-2020 Free Software Foundation, Inc.
|
|
|
|
This file is part of GDB.
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation; either version 3 of the License, or
|
|
(at your option) any later version.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with this program. If not, see <http://www.gnu.org/licenses/>. */
|
|
|
|
#include "defs.h"
|
|
#include "symtab.h"
|
|
#include "language.h"
|
|
#include "varobj.h"
|
|
#include "d-lang.h"
|
|
#include "c-lang.h"
|
|
#include "demangle.h"
|
|
#include "cp-support.h"
|
|
#include "gdbarch.h"
|
|
|
|
/* The name of the symbol to use to get the name of the main subprogram. */
|
|
static const char D_MAIN[] = "D main";
|
|
|
|
/* Function returning the special symbol name used by D for the main
|
|
procedure in the main program if it is found in minimal symbol list.
|
|
This function tries to find minimal symbols so that it finds them even
|
|
if the program was compiled without debugging information. */
|
|
|
|
const char *
|
|
d_main_name (void)
|
|
{
|
|
struct bound_minimal_symbol msym;
|
|
|
|
msym = lookup_minimal_symbol (D_MAIN, NULL, NULL);
|
|
if (msym.minsym != NULL)
|
|
return D_MAIN;
|
|
|
|
/* No known entry procedure found, the main program is probably not D. */
|
|
return NULL;
|
|
}
|
|
|
|
/* Implements the la_demangle language_defn routine for language D. */
|
|
|
|
char *
|
|
d_demangle (const char *symbol, int options)
|
|
{
|
|
return gdb_demangle (symbol, options | DMGL_DLANG);
|
|
}
|
|
|
|
/* Table mapping opcodes into strings for printing operators
|
|
and precedences of the operators. */
|
|
static const struct op_print d_op_print_tab[] =
|
|
{
|
|
{",", BINOP_COMMA, PREC_COMMA, 0},
|
|
{"=", BINOP_ASSIGN, PREC_ASSIGN, 1},
|
|
{"||", BINOP_LOGICAL_OR, PREC_LOGICAL_OR, 0},
|
|
{"&&", BINOP_LOGICAL_AND, PREC_LOGICAL_AND, 0},
|
|
{"|", BINOP_BITWISE_IOR, PREC_BITWISE_IOR, 0},
|
|
{"^", BINOP_BITWISE_XOR, PREC_BITWISE_XOR, 0},
|
|
{"&", BINOP_BITWISE_AND, PREC_BITWISE_AND, 0},
|
|
{"==", BINOP_EQUAL, PREC_ORDER, 0},
|
|
{"!=", BINOP_NOTEQUAL, PREC_ORDER, 0},
|
|
{"<=", BINOP_LEQ, PREC_ORDER, 0},
|
|
{">=", BINOP_GEQ, PREC_ORDER, 0},
|
|
{">", BINOP_GTR, PREC_ORDER, 0},
|
|
{"<", BINOP_LESS, PREC_ORDER, 0},
|
|
{">>", BINOP_RSH, PREC_SHIFT, 0},
|
|
{"<<", BINOP_LSH, PREC_SHIFT, 0},
|
|
{"+", BINOP_ADD, PREC_ADD, 0},
|
|
{"-", BINOP_SUB, PREC_ADD, 0},
|
|
{"~", BINOP_CONCAT, PREC_ADD, 0},
|
|
{"*", BINOP_MUL, PREC_MUL, 0},
|
|
{"/", BINOP_DIV, PREC_MUL, 0},
|
|
{"%", BINOP_REM, PREC_MUL, 0},
|
|
{"^^", BINOP_EXP, PREC_REPEAT, 0},
|
|
{"@", BINOP_REPEAT, PREC_REPEAT, 0},
|
|
{"-", UNOP_NEG, PREC_PREFIX, 0},
|
|
{"!", UNOP_LOGICAL_NOT, PREC_PREFIX, 0},
|
|
{"~", UNOP_COMPLEMENT, PREC_PREFIX, 0},
|
|
{"*", UNOP_IND, PREC_PREFIX, 0},
|
|
{"&", UNOP_ADDR, PREC_PREFIX, 0},
|
|
{"sizeof ", UNOP_SIZEOF, PREC_PREFIX, 0},
|
|
{"++", UNOP_PREINCREMENT, PREC_PREFIX, 0},
|
|
{"--", UNOP_PREDECREMENT, PREC_PREFIX, 0},
|
|
{NULL, OP_NULL, PREC_PREFIX, 0}
|
|
};
|
|
|
|
/* Mapping of all D basic data types into the language vector. */
|
|
|
|
enum d_primitive_types {
|
|
d_primitive_type_void,
|
|
d_primitive_type_bool,
|
|
d_primitive_type_byte,
|
|
d_primitive_type_ubyte,
|
|
d_primitive_type_short,
|
|
d_primitive_type_ushort,
|
|
d_primitive_type_int,
|
|
d_primitive_type_uint,
|
|
d_primitive_type_long,
|
|
d_primitive_type_ulong,
|
|
d_primitive_type_cent, /* Signed 128 bit integer. */
|
|
d_primitive_type_ucent, /* Unsigned 128 bit integer. */
|
|
d_primitive_type_float,
|
|
d_primitive_type_double,
|
|
d_primitive_type_real,
|
|
d_primitive_type_ifloat, /* Imaginary float types. */
|
|
d_primitive_type_idouble,
|
|
d_primitive_type_ireal,
|
|
d_primitive_type_cfloat, /* Complex number of two float values. */
|
|
d_primitive_type_cdouble,
|
|
d_primitive_type_creal,
|
|
d_primitive_type_char, /* Unsigned character types. */
|
|
d_primitive_type_wchar,
|
|
d_primitive_type_dchar,
|
|
nr_d_primitive_types
|
|
};
|
|
|
|
/* Constant data that describes the D language. */
|
|
|
|
extern const struct language_data d_language_data =
|
|
{
|
|
range_check_off,
|
|
case_sensitive_on,
|
|
array_row_major,
|
|
macro_expansion_no,
|
|
&exp_descriptor_c,
|
|
false, /* la_store_sym_names_in_linkage_form_p */
|
|
d_op_print_tab, /* Expression operators for printing. */
|
|
&default_varobj_ops,
|
|
};
|
|
|
|
/* Class representing the D language. */
|
|
|
|
class d_language : public language_defn
|
|
{
|
|
public:
|
|
d_language ()
|
|
: language_defn (language_d, d_language_data)
|
|
{ /* Nothing. */ }
|
|
|
|
/* See language.h. */
|
|
|
|
const char *name () const override
|
|
{ return "d"; }
|
|
|
|
/* See language.h. */
|
|
|
|
const char *natural_name () const override
|
|
{ return "D"; }
|
|
|
|
/* See language.h. */
|
|
|
|
const std::vector<const char *> &filename_extensions () const override
|
|
{
|
|
static const std::vector<const char *> extensions = { ".d" };
|
|
return extensions;
|
|
}
|
|
|
|
/* See language.h. */
|
|
void language_arch_info (struct gdbarch *gdbarch,
|
|
struct language_arch_info *lai) const override
|
|
{
|
|
const struct builtin_d_type *builtin = builtin_d_type (gdbarch);
|
|
|
|
lai->string_char_type = builtin->builtin_char;
|
|
lai->primitive_type_vector
|
|
= GDBARCH_OBSTACK_CALLOC (gdbarch, nr_d_primitive_types + 1,
|
|
struct type *);
|
|
|
|
lai->primitive_type_vector [d_primitive_type_void]
|
|
= builtin->builtin_void;
|
|
lai->primitive_type_vector [d_primitive_type_bool]
|
|
= builtin->builtin_bool;
|
|
lai->primitive_type_vector [d_primitive_type_byte]
|
|
= builtin->builtin_byte;
|
|
lai->primitive_type_vector [d_primitive_type_ubyte]
|
|
= builtin->builtin_ubyte;
|
|
lai->primitive_type_vector [d_primitive_type_short]
|
|
= builtin->builtin_short;
|
|
lai->primitive_type_vector [d_primitive_type_ushort]
|
|
= builtin->builtin_ushort;
|
|
lai->primitive_type_vector [d_primitive_type_int]
|
|
= builtin->builtin_int;
|
|
lai->primitive_type_vector [d_primitive_type_uint]
|
|
= builtin->builtin_uint;
|
|
lai->primitive_type_vector [d_primitive_type_long]
|
|
= builtin->builtin_long;
|
|
lai->primitive_type_vector [d_primitive_type_ulong]
|
|
= builtin->builtin_ulong;
|
|
lai->primitive_type_vector [d_primitive_type_cent]
|
|
= builtin->builtin_cent;
|
|
lai->primitive_type_vector [d_primitive_type_ucent]
|
|
= builtin->builtin_ucent;
|
|
lai->primitive_type_vector [d_primitive_type_float]
|
|
= builtin->builtin_float;
|
|
lai->primitive_type_vector [d_primitive_type_double]
|
|
= builtin->builtin_double;
|
|
lai->primitive_type_vector [d_primitive_type_real]
|
|
= builtin->builtin_real;
|
|
lai->primitive_type_vector [d_primitive_type_ifloat]
|
|
= builtin->builtin_ifloat;
|
|
lai->primitive_type_vector [d_primitive_type_idouble]
|
|
= builtin->builtin_idouble;
|
|
lai->primitive_type_vector [d_primitive_type_ireal]
|
|
= builtin->builtin_ireal;
|
|
lai->primitive_type_vector [d_primitive_type_cfloat]
|
|
= builtin->builtin_cfloat;
|
|
lai->primitive_type_vector [d_primitive_type_cdouble]
|
|
= builtin->builtin_cdouble;
|
|
lai->primitive_type_vector [d_primitive_type_creal]
|
|
= builtin->builtin_creal;
|
|
lai->primitive_type_vector [d_primitive_type_char]
|
|
= builtin->builtin_char;
|
|
lai->primitive_type_vector [d_primitive_type_wchar]
|
|
= builtin->builtin_wchar;
|
|
lai->primitive_type_vector [d_primitive_type_dchar]
|
|
= builtin->builtin_dchar;
|
|
|
|
lai->bool_type_symbol = "bool";
|
|
lai->bool_type_default = builtin->builtin_bool;
|
|
}
|
|
|
|
/* See language.h. */
|
|
bool sniff_from_mangled_name (const char *mangled,
|
|
char **demangled) const override
|
|
{
|
|
*demangled = d_demangle (mangled, 0);
|
|
return *demangled != NULL;
|
|
}
|
|
|
|
/* See language.h. */
|
|
|
|
char *demangle (const char *mangled, int options) const override
|
|
{
|
|
return d_demangle (mangled, options);
|
|
}
|
|
|
|
/* See language.h. */
|
|
|
|
void print_type (struct type *type, const char *varstring,
|
|
struct ui_file *stream, int show, int level,
|
|
const struct type_print_options *flags) const override
|
|
{
|
|
c_print_type (type, varstring, stream, show, level, flags);
|
|
}
|
|
|
|
/* See language.h. */
|
|
|
|
void value_print_inner
|
|
(struct value *val, struct ui_file *stream, int recurse,
|
|
const struct value_print_options *options) const override
|
|
{
|
|
return d_value_print_inner (val, stream, recurse, options);
|
|
}
|
|
|
|
/* See language.h. */
|
|
|
|
struct block_symbol lookup_symbol_nonlocal
|
|
(const char *name, const struct block *block,
|
|
const domain_enum domain) const override
|
|
{
|
|
return d_lookup_symbol_nonlocal (this, name, block, domain);
|
|
}
|
|
|
|
/* See language.h. */
|
|
|
|
int parser (struct parser_state *ps) const override
|
|
{
|
|
return d_parse (ps);
|
|
}
|
|
|
|
/* See language.h. */
|
|
|
|
const char *name_of_this () const override
|
|
{ return "this"; }
|
|
};
|
|
|
|
/* Single instance of the D language class. */
|
|
|
|
static d_language d_language_defn;
|
|
|
|
/* Build all D language types for the specified architecture. */
|
|
|
|
static void *
|
|
build_d_types (struct gdbarch *gdbarch)
|
|
{
|
|
struct builtin_d_type *builtin_d_type
|
|
= GDBARCH_OBSTACK_ZALLOC (gdbarch, struct builtin_d_type);
|
|
|
|
/* Basic types. */
|
|
builtin_d_type->builtin_void
|
|
= arch_type (gdbarch, TYPE_CODE_VOID, TARGET_CHAR_BIT, "void");
|
|
builtin_d_type->builtin_bool
|
|
= arch_boolean_type (gdbarch, 8, 1, "bool");
|
|
builtin_d_type->builtin_byte
|
|
= arch_integer_type (gdbarch, 8, 0, "byte");
|
|
builtin_d_type->builtin_ubyte
|
|
= arch_integer_type (gdbarch, 8, 1, "ubyte");
|
|
builtin_d_type->builtin_short
|
|
= arch_integer_type (gdbarch, 16, 0, "short");
|
|
builtin_d_type->builtin_ushort
|
|
= arch_integer_type (gdbarch, 16, 1, "ushort");
|
|
builtin_d_type->builtin_int
|
|
= arch_integer_type (gdbarch, 32, 0, "int");
|
|
builtin_d_type->builtin_uint
|
|
= arch_integer_type (gdbarch, 32, 1, "uint");
|
|
builtin_d_type->builtin_long
|
|
= arch_integer_type (gdbarch, 64, 0, "long");
|
|
builtin_d_type->builtin_ulong
|
|
= arch_integer_type (gdbarch, 64, 1, "ulong");
|
|
builtin_d_type->builtin_cent
|
|
= arch_integer_type (gdbarch, 128, 0, "cent");
|
|
builtin_d_type->builtin_ucent
|
|
= arch_integer_type (gdbarch, 128, 1, "ucent");
|
|
builtin_d_type->builtin_float
|
|
= arch_float_type (gdbarch, gdbarch_float_bit (gdbarch),
|
|
"float", gdbarch_float_format (gdbarch));
|
|
builtin_d_type->builtin_double
|
|
= arch_float_type (gdbarch, gdbarch_double_bit (gdbarch),
|
|
"double", gdbarch_double_format (gdbarch));
|
|
builtin_d_type->builtin_real
|
|
= arch_float_type (gdbarch, gdbarch_long_double_bit (gdbarch),
|
|
"real", gdbarch_long_double_format (gdbarch));
|
|
|
|
builtin_d_type->builtin_byte->set_instance_flags
|
|
(builtin_d_type->builtin_byte->instance_flags ()
|
|
| TYPE_INSTANCE_FLAG_NOTTEXT);
|
|
|
|
builtin_d_type->builtin_ubyte->set_instance_flags
|
|
(builtin_d_type->builtin_ubyte->instance_flags ()
|
|
| TYPE_INSTANCE_FLAG_NOTTEXT);
|
|
|
|
/* Imaginary and complex types. */
|
|
builtin_d_type->builtin_ifloat
|
|
= arch_float_type (gdbarch, gdbarch_float_bit (gdbarch),
|
|
"ifloat", gdbarch_float_format (gdbarch));
|
|
builtin_d_type->builtin_idouble
|
|
= arch_float_type (gdbarch, gdbarch_double_bit (gdbarch),
|
|
"idouble", gdbarch_double_format (gdbarch));
|
|
builtin_d_type->builtin_ireal
|
|
= arch_float_type (gdbarch, gdbarch_long_double_bit (gdbarch),
|
|
"ireal", gdbarch_long_double_format (gdbarch));
|
|
builtin_d_type->builtin_cfloat
|
|
= init_complex_type ("cfloat", builtin_d_type->builtin_float);
|
|
builtin_d_type->builtin_cdouble
|
|
= init_complex_type ("cdouble", builtin_d_type->builtin_double);
|
|
builtin_d_type->builtin_creal
|
|
= init_complex_type ("creal", builtin_d_type->builtin_real);
|
|
|
|
/* Character types. */
|
|
builtin_d_type->builtin_char
|
|
= arch_character_type (gdbarch, 8, 1, "char");
|
|
builtin_d_type->builtin_wchar
|
|
= arch_character_type (gdbarch, 16, 1, "wchar");
|
|
builtin_d_type->builtin_dchar
|
|
= arch_character_type (gdbarch, 32, 1, "dchar");
|
|
|
|
return builtin_d_type;
|
|
}
|
|
|
|
static struct gdbarch_data *d_type_data;
|
|
|
|
/* Return the D type table for the specified architecture. */
|
|
|
|
const struct builtin_d_type *
|
|
builtin_d_type (struct gdbarch *gdbarch)
|
|
{
|
|
return (const struct builtin_d_type *) gdbarch_data (gdbarch, d_type_data);
|
|
}
|
|
|
|
void _initialize_d_language ();
|
|
void
|
|
_initialize_d_language ()
|
|
{
|
|
d_type_data = gdbarch_data_register_post_init (build_d_types);
|
|
}
|