2010-04-29 22:45:39 +08:00
|
|
|
/* D language support routines for GDB, the GNU debugger.
|
|
|
|
|
|
2015-01-01 17:32:14 +08:00
|
|
|
Copyright (C) 2005-2015 Free Software Foundation, Inc.
|
2010-04-29 22:45:39 +08:00
|
|
|
|
|
|
|
|
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"
|
2013-10-17 21:15:21 +08:00
|
|
|
#include "varobj.h"
|
2010-04-29 22:45:39 +08:00
|
|
|
#include "d-lang.h"
|
|
|
|
|
#include "c-lang.h"
|
2014-10-16 02:28:19 +08:00
|
|
|
#include "demangle.h"
|
|
|
|
|
#include "cp-support.h"
|
2010-04-29 22:45:39 +08:00
|
|
|
|
2014-01-19 01:09:43 +08:00
|
|
|
/* 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)
|
|
|
|
|
{
|
use bound_minsym as result for lookup_minimal_symbol et al
This patch changes a few minimal symbol lookup functions to return a
bound_minimal_symbol rather than a pointer to the minsym. This change
helps prepare gdb for computing a minimal symbol's address at the
point of use.
Note that this changes even those functions that ostensibly search a
single objfile. That was necessary because, in fact, those functions
can search an objfile and its separate debug objfiles; and it is
important for the caller to know in which objfile the minimal symbol
was actually found.
The bulk of this patch is mechanical.
2014-02-26 Tom Tromey <tromey@redhat.com>
* ada-lang.c (ada_update_initial_language): Update.
(ada_main_name, ada_has_this_exception_support): Update.
* ada-tasks.c (ada_tasks_inferior_data_sniffer): Update.
* aix-thread.c (pdc_symbol_addrs, pd_enable): Update.
* arm-tdep.c (arm_skip_stub): Update.
* auxv.c (ld_so_xfer_auxv): Update.
* avr-tdep.c (avr_scan_prologue): Update.
* ax-gdb.c (gen_var_ref): Update.
* breakpoint.c (struct breakpoint_objfile_data)
<overlay_msym, longjmp_msym, terminate_msym, exception_msym>: Change
type to bound_minimal_symbol.
(create_overlay_event_breakpoint)
(create_longjmp_master_breakpoint)
(create_std_terminate_master_breakpoint)
(create_exception_master_breakpoint): Update.
* bsd-uthread.c (bsd_uthread_lookup_address): Update.
* c-exp.y (classify_name): Update.
* coffread.c (coff_symfile_read): Update.
* common/agent.c (agent_look_up_symbols): Update.
* d-lang.c (d_main_name): Update.
* dbxread.c (find_stab_function_addr, end_psymtab): Update.
* dec-thread.c (enable_dec_thread): Update.
* dwarf2loc.c (call_site_to_target_addr): Update.
* elfread.c (elf_gnu_ifunc_resolve_by_got): Update.
* eval.c (evaluate_subexp_standard): Update.
* findvar.c (struct minsym_lookup_data) <result>: Change type
to bound_minimal_symbol.
<objfile>: Remove.
(minsym_lookup_iterator_cb, default_read_var_value): Update.
* frame.c (inside_main_func): Update.
* frv-tdep.c (frv_frame_this_id): Update.
* gcore.c (call_target_sbrk): Update.
* glibc-tdep.c (glibc_skip_solib_resolver): Update.
* gnu-v3-abi.c (gnuv3_get_typeid, gnuv3_skip_trampoline):
Update.
* go-lang.c (go_main_name): Update.
* hppa-hpux-tdep.c (hppa_hpux_skip_trampoline_code)
(hppa_hpux_find_import_stub_for_addr): Update.
* hppa-tdep.c (hppa_extract_17, hppa_lookup_stub_minimal_symbol):
Update. Change return type.
* hppa-tdep.h (hppa_lookup_stub_minimal_symbol): Change return
type.
* jit.c (jit_breakpoint_re_set_internal): Update.
* linux-fork.c (inferior_call_waitpid, checkpoint_command):
Update.
* linux-nat.c (get_signo): Update.
* linux-thread-db.c (inferior_has_bug): Update
* m32c-tdep.c (m32c_return_value)
(m32c_m16c_address_to_pointer): Update.
* m32r-tdep.c (m32r_frame_this_id): Update.
* m68hc11-tdep.c (m68hc11_get_register_info): Update.
* machoread.c (macho_resolve_oso_sym_with_minsym): Update.
* minsyms.c (lookup_minimal_symbol_internal): Rename to
lookup_minimal_symbol. Change return type.
(lookup_minimal_symbol): Remove.
(lookup_bound_minimal_symbol): Update.
(lookup_minimal_symbol_text): Change return type.
(lookup_minimal_symbol_solib_trampoline): Change return type.
* minsyms.h (lookup_minimal_symbol, lookup_minimal_symbol_text)
(lookup_minimal_symbol_solib_trampoline): Change return type.
* mips-linux-tdep.c (mips_linux_skip_resolver): Update.
* objc-lang.c (lookup_objc_class, lookup_child_selector)
(value_nsstring, find_imps): Update.
* obsd-tdep.c (obsd_skip_solib_resolver): Update.
* p-lang.c (pascal_main_name): Update.
* ppc-linux-tdep.c (ppc_linux_spe_context_lookup): Update.
* ppc-sysv-tdep.c (convert_code_addr_to_desc_addr): Update.
* proc-service.c (ps_pglobal_lookup): Update.
* ravenscar-thread.c (get_running_thread_msymbol): Change
return type.
(has_ravenscar_runtime, get_running_thread_id): Update.
* remote.c (remote_check_symbols): Update.
* sol-thread.c (ps_pglobal_lookup): Update.
* sol2-tdep.c (sol2_skip_solib_resolver): Update.
* solib-dsbt.c (lm_base): Update.
* solib-frv.c (lm_base, frv_relocate_section_addresses):
Update.
* solib-irix.c (locate_base): Update.
* solib-som.c (som_solib_create_inferior_hook)
(som_solib_desire_dynamic_linker_symbols, link_map_start):
Update.
* solib-spu.c (spu_enable_break): Update.
* solib-svr4.c (elf_locate_base, enable_break): Update.
* spu-tdep.c (spu_get_overlay_table, spu_catch_start)
(flush_ea_cache): Update.
* stabsread.c (define_symbol): Update.
* symfile.c (simple_read_overlay_table): Update.
* symtab.c (find_pc_sect_line): Update.
* tracepoint.c (scope_info): Update.
* tui-disasm.c (tui_get_begin_asm_address): Update.
* value.c (value_static_field): Update.
2013-10-15 09:53:29 +08:00
|
|
|
struct bound_minimal_symbol msym;
|
2014-01-19 01:09:43 +08:00
|
|
|
|
|
|
|
|
msym = lookup_minimal_symbol (D_MAIN, NULL, NULL);
|
use bound_minsym as result for lookup_minimal_symbol et al
This patch changes a few minimal symbol lookup functions to return a
bound_minimal_symbol rather than a pointer to the minsym. This change
helps prepare gdb for computing a minimal symbol's address at the
point of use.
Note that this changes even those functions that ostensibly search a
single objfile. That was necessary because, in fact, those functions
can search an objfile and its separate debug objfiles; and it is
important for the caller to know in which objfile the minimal symbol
was actually found.
The bulk of this patch is mechanical.
2014-02-26 Tom Tromey <tromey@redhat.com>
* ada-lang.c (ada_update_initial_language): Update.
(ada_main_name, ada_has_this_exception_support): Update.
* ada-tasks.c (ada_tasks_inferior_data_sniffer): Update.
* aix-thread.c (pdc_symbol_addrs, pd_enable): Update.
* arm-tdep.c (arm_skip_stub): Update.
* auxv.c (ld_so_xfer_auxv): Update.
* avr-tdep.c (avr_scan_prologue): Update.
* ax-gdb.c (gen_var_ref): Update.
* breakpoint.c (struct breakpoint_objfile_data)
<overlay_msym, longjmp_msym, terminate_msym, exception_msym>: Change
type to bound_minimal_symbol.
(create_overlay_event_breakpoint)
(create_longjmp_master_breakpoint)
(create_std_terminate_master_breakpoint)
(create_exception_master_breakpoint): Update.
* bsd-uthread.c (bsd_uthread_lookup_address): Update.
* c-exp.y (classify_name): Update.
* coffread.c (coff_symfile_read): Update.
* common/agent.c (agent_look_up_symbols): Update.
* d-lang.c (d_main_name): Update.
* dbxread.c (find_stab_function_addr, end_psymtab): Update.
* dec-thread.c (enable_dec_thread): Update.
* dwarf2loc.c (call_site_to_target_addr): Update.
* elfread.c (elf_gnu_ifunc_resolve_by_got): Update.
* eval.c (evaluate_subexp_standard): Update.
* findvar.c (struct minsym_lookup_data) <result>: Change type
to bound_minimal_symbol.
<objfile>: Remove.
(minsym_lookup_iterator_cb, default_read_var_value): Update.
* frame.c (inside_main_func): Update.
* frv-tdep.c (frv_frame_this_id): Update.
* gcore.c (call_target_sbrk): Update.
* glibc-tdep.c (glibc_skip_solib_resolver): Update.
* gnu-v3-abi.c (gnuv3_get_typeid, gnuv3_skip_trampoline):
Update.
* go-lang.c (go_main_name): Update.
* hppa-hpux-tdep.c (hppa_hpux_skip_trampoline_code)
(hppa_hpux_find_import_stub_for_addr): Update.
* hppa-tdep.c (hppa_extract_17, hppa_lookup_stub_minimal_symbol):
Update. Change return type.
* hppa-tdep.h (hppa_lookup_stub_minimal_symbol): Change return
type.
* jit.c (jit_breakpoint_re_set_internal): Update.
* linux-fork.c (inferior_call_waitpid, checkpoint_command):
Update.
* linux-nat.c (get_signo): Update.
* linux-thread-db.c (inferior_has_bug): Update
* m32c-tdep.c (m32c_return_value)
(m32c_m16c_address_to_pointer): Update.
* m32r-tdep.c (m32r_frame_this_id): Update.
* m68hc11-tdep.c (m68hc11_get_register_info): Update.
* machoread.c (macho_resolve_oso_sym_with_minsym): Update.
* minsyms.c (lookup_minimal_symbol_internal): Rename to
lookup_minimal_symbol. Change return type.
(lookup_minimal_symbol): Remove.
(lookup_bound_minimal_symbol): Update.
(lookup_minimal_symbol_text): Change return type.
(lookup_minimal_symbol_solib_trampoline): Change return type.
* minsyms.h (lookup_minimal_symbol, lookup_minimal_symbol_text)
(lookup_minimal_symbol_solib_trampoline): Change return type.
* mips-linux-tdep.c (mips_linux_skip_resolver): Update.
* objc-lang.c (lookup_objc_class, lookup_child_selector)
(value_nsstring, find_imps): Update.
* obsd-tdep.c (obsd_skip_solib_resolver): Update.
* p-lang.c (pascal_main_name): Update.
* ppc-linux-tdep.c (ppc_linux_spe_context_lookup): Update.
* ppc-sysv-tdep.c (convert_code_addr_to_desc_addr): Update.
* proc-service.c (ps_pglobal_lookup): Update.
* ravenscar-thread.c (get_running_thread_msymbol): Change
return type.
(has_ravenscar_runtime, get_running_thread_id): Update.
* remote.c (remote_check_symbols): Update.
* sol-thread.c (ps_pglobal_lookup): Update.
* sol2-tdep.c (sol2_skip_solib_resolver): Update.
* solib-dsbt.c (lm_base): Update.
* solib-frv.c (lm_base, frv_relocate_section_addresses):
Update.
* solib-irix.c (locate_base): Update.
* solib-som.c (som_solib_create_inferior_hook)
(som_solib_desire_dynamic_linker_symbols, link_map_start):
Update.
* solib-spu.c (spu_enable_break): Update.
* solib-svr4.c (elf_locate_base, enable_break): Update.
* spu-tdep.c (spu_get_overlay_table, spu_catch_start)
(flush_ea_cache): Update.
* stabsread.c (define_symbol): Update.
* symfile.c (simple_read_overlay_table): Update.
* symtab.c (find_pc_sect_line): Update.
* tracepoint.c (scope_info): Update.
* tui-disasm.c (tui_get_begin_asm_address): Update.
* value.c (value_static_field): Update.
2013-10-15 09:53:29 +08:00
|
|
|
if (msym.minsym != NULL)
|
2014-01-19 01:09:43 +08:00
|
|
|
return D_MAIN;
|
|
|
|
|
|
|
|
|
|
/* No known entry procedure found, the main program is probably not D. */
|
|
|
|
|
return NULL;
|
|
|
|
|
}
|
|
|
|
|
|
2010-04-29 22:45:39 +08:00
|
|
|
/* Implements the la_demangle language_defn routine for language D. */
|
2014-01-19 01:22:00 +08:00
|
|
|
|
2010-04-29 22:45:39 +08:00
|
|
|
char *
|
|
|
|
|
d_demangle (const char *symbol, int options)
|
|
|
|
|
{
|
2014-10-16 02:28:19 +08:00
|
|
|
return gdb_demangle (symbol, options | DMGL_DLANG);
|
2010-04-29 22:45:39 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* 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},
|
2014-06-20 02:29:26 +08:00
|
|
|
{"==", BINOP_EQUAL, PREC_ORDER, 0},
|
|
|
|
|
{"!=", BINOP_NOTEQUAL, PREC_ORDER, 0},
|
2010-04-29 22:45:39 +08:00
|
|
|
{"<=", 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},
|
2014-06-20 02:29:26 +08:00
|
|
|
{"~", BINOP_CONCAT, PREC_ADD, 0},
|
2010-04-29 22:45:39 +08:00
|
|
|
{"*", BINOP_MUL, PREC_MUL, 0},
|
|
|
|
|
{"/", BINOP_DIV, PREC_MUL, 0},
|
|
|
|
|
{"%", BINOP_REM, PREC_MUL, 0},
|
2014-06-20 02:29:26 +08:00
|
|
|
{"^^", BINOP_EXP, PREC_REPEAT, 0},
|
2010-04-29 22:45:39 +08:00
|
|
|
{"@", 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, 0, 0, 0}
|
|
|
|
|
};
|
|
|
|
|
|
2014-01-19 01:18:23 +08:00
|
|
|
/* 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
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
/* Implements the la_language_arch_info language_defn routine
|
|
|
|
|
for language D. */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
d_language_arch_info (struct gdbarch *gdbarch,
|
|
|
|
|
struct language_arch_info *lai)
|
|
|
|
|
{
|
|
|
|
|
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;
|
|
|
|
|
}
|
|
|
|
|
|
2010-04-29 22:45:39 +08:00
|
|
|
static const struct language_defn d_language_defn =
|
|
|
|
|
{
|
|
|
|
|
"d",
|
2013-10-26 16:00:11 +08:00
|
|
|
"D",
|
2010-04-29 22:45:39 +08:00
|
|
|
language_d,
|
|
|
|
|
range_check_off,
|
|
|
|
|
case_sensitive_on,
|
|
|
|
|
array_row_major,
|
2014-01-19 02:04:08 +08:00
|
|
|
macro_expansion_no,
|
2010-04-29 22:45:39 +08:00
|
|
|
&exp_descriptor_c,
|
2014-06-20 02:29:26 +08:00
|
|
|
d_parse,
|
|
|
|
|
d_error,
|
2010-04-29 22:45:39 +08:00
|
|
|
null_post_parser,
|
|
|
|
|
c_printchar, /* Print a character constant. */
|
|
|
|
|
c_printstr, /* Function to print string constant. */
|
|
|
|
|
c_emit_char, /* Print a single char. */
|
|
|
|
|
c_print_type, /* Print a type using appropriate syntax. */
|
2011-01-08 03:36:19 +08:00
|
|
|
c_print_typedef, /* Print a typedef using appropriate
|
|
|
|
|
syntax. */
|
2010-04-29 22:45:39 +08:00
|
|
|
d_val_print, /* Print a value using appropriate syntax. */
|
|
|
|
|
c_value_print, /* Print a top-level value. */
|
language-specific read_var_value for Ada renamings
The purpose of this patch is to better support renamings in the
"info locals" command. Consider ...
procedure Foo is
GV : Integer renames Pck.Global_Variable;
begin
Increment (GV); -- STOP
end Foo;
... Pck.Global_Variable is just an integer. After having stopped at
the "STOP" line, "info locals" yields:
(gdb) info locals
gv = <error reading variable gv (Cannot access memory at address 0xffffffffffffffff)>
In reality, two things are happening:
(1) Variable "GV" does not exist, which is normal, since there is
"GV" the renaming of another variable;
(2) But to allow the user access to that renaming the same way
the code has, the compiler produces an artificial variable
whose name encodes the renaming:
gv___XR_pck__global_variable___XE
For practical reasons, the artificial variable itself is given
irrelevant types and addresses.
But the "info locals" command does not act as if it was a short-cut
of "foreach VAR in locals, print VAR". Instead it gets the value of
each VAR directly, which does not work in this case, since the variable
is artificial and needs to be decoded first.
This patch makes the "read_var_value" routine language-specific.
The old implementation of "read_var_value" gets renamed to
"default_read_var_value" and all languages now use it (unchanged
behavior), except for Ada. In Ada, the new function ada_read_var_value
checks if we have a renaming, and if so, evaluates its value, or else
defers to default_read_var_value.
gdb/ChangeLog:
* language.h (struct language_defn): New "method" la_read_var_value.
* findvar.c: #include "language.h".
(default_read_var_value): Renames read_var_value. Rewrite
function description.
(read_var_value): New function.
* value.h (default_read_var_value): Add prototype.
* ada-lang.c (ada_read_renaming_var_value, ada_read_var_value):
New functions.
(ada_language_defn): Add entry for la_read_var_value.
* c-lang.c, d-lang.c, f-lang.c, jv-lang.c, language.c,
* m2-lang.c, objc-lang.c, opencl-lang.c, p-lang.c: Update
language_defn structures to add entry for new la_read_var_value
field.
2012-03-03 03:29:01 +08:00
|
|
|
default_read_var_value, /* la_read_var_value */
|
2010-04-29 22:45:39 +08:00
|
|
|
NULL, /* Language specific skip_trampoline. */
|
|
|
|
|
"this",
|
|
|
|
|
basic_lookup_symbol_nonlocal,
|
|
|
|
|
basic_lookup_transparent_type,
|
|
|
|
|
d_demangle, /* Language specific symbol demangler. */
|
2011-01-08 03:36:19 +08:00
|
|
|
NULL, /* Language specific
|
|
|
|
|
class_name_from_physname. */
|
2010-04-29 22:45:39 +08:00
|
|
|
d_op_print_tab, /* Expression operators for printing. */
|
|
|
|
|
1, /* C-style arrays. */
|
|
|
|
|
0, /* String lower bound. */
|
|
|
|
|
default_word_break_characters,
|
|
|
|
|
default_make_symbol_completion_list,
|
2014-01-19 01:18:23 +08:00
|
|
|
d_language_arch_info,
|
2010-04-29 22:45:39 +08:00
|
|
|
default_print_array_index,
|
|
|
|
|
default_pass_by_reference,
|
|
|
|
|
c_get_string,
|
Rename la_get_symbol_name_match_p into la_get_symbol_name_cmp
The la_get_symbol_name_match_p language hook was poorly named, as
it suggested that the function should return nonzero if the names
match, whereas it is the exact opposite. This patch therefore
renames the hook and associated typedef, as well some of the code
that uses that hook.
gdb/ChangeLog:
* language.h (symbol_name_cmp_ftype): Renames
symbol_name_match_p_ftype.
(struct language_defn)[la_get_symbol_name_cmp]: Renames
la_get_symbol_name_match_p.
* ada-lang.c (ada_get_symbol_name_cmp): Renames
ada_get_symbol_name_match_p. Update comment.
(ada_language_defn)[la_get_symbol_name_cmp]: Update value.
* linespec.c (struct symbol_matcher_data)[symbol_name_cmp]:
Renames symbol_name_match_p. Update field type.
(iterate_name_matcher, iterate_over_all_matching_symtabs): Adjust.
* c-lang.c, d-lang.c, f-lang.c, jv-lang.c, m2-lang.c, objc-lang.c,
opencl-lang.c, p-lang.c: Replace "la_get_symbol_name_match_p" by
"la_get_symbol_name_cmp" in comments.
* language.c: Likewise.
2012-02-09 03:54:37 +08:00
|
|
|
NULL, /* la_get_symbol_name_cmp */
|
2012-03-15 22:06:20 +08:00
|
|
|
iterate_over_symbols,
|
2013-10-17 21:15:21 +08:00
|
|
|
&default_varobj_ops,
|
the "compile" command
This final patch adds the new "compile" command and subcommands, and
all the machinery needed to make it work.
A shared library supplied by gcc is used for all communications with
gcc. Types and most aspects of symbols are provided directly by gdb
to the compiler using this library.
gdb provides some information about the user's code using plain text.
Macros are emitted this way, and DWARF location expressions (and
bounds for VLA) are compiled to C code.
This hybrid approach was taken because, on the one hand, it is better
to provide global declarations and such on demand; but on the other
hand, for local variables, translating DWARF location expressions to C
was much simpler than exporting a full compiler API to gdb -- the same
result, only easier to implement, understand, and debug.
In the ordinary mode, the user's expression is wrapped in a dummy
function. After compilation, gdb inserts the resulting object code
into the inferior, then calls this function.
Access to local variables is provided by noting which registers are
used by location expressions, and passing a structure of register
values into the function. Writes to registers are supported by
copying out these values after the function returns.
This approach was taken so that we could eventually implement other
more interesting features based on this same infrastructure; for
example, we're planning to investigate inferior-side breakpoint
conditions.
gdb/ChangeLog
2014-12-12 Phil Muldoon <pmuldoon@redhat.com>
Jan Kratochvil <jan.kratochvil@redhat.com>
Tom Tromey <tromey@redhat.com>
* NEWS: Update.
* symtab.h (struct symbol_computed_ops) <generate_c_location>: New
field.
* p-lang.c (pascal_language_defn): Update.
* opencl-lang.c (opencl_language_defn): Update.
* objc-lang.c (objc_language_defn): Update.
* m2-lang.c (m2_language_defn): Update.
* language.h (struct language_defn) <la_get_compile_instance,
la_compute_program>: New fields.
* language.c (unknown_language_defn, auto_language_defn)
(local_language_defn): Update.
* jv-lang.c (java_language_defn): Update.
* go-lang.c (go_language_defn): Update.
* f-lang.c (f_language_defn): Update.
* dwarf2loc.h (dwarf2_compile_property_to_c): Declare.
* dwarf2loc.c (dwarf2_compile_property_to_c)
(locexpr_generate_c_location, loclist_generate_c_location): New
functions.
(dwarf2_locexpr_funcs, dwarf2_loclist_funcs): Update.
* defs.h (enum compile_i_scope_types): New.
(enum command_control_type) <compile_control>: New constant.
(struct command_line) <control_u>: New field.
* d-lang.c (d_language_defn): Update.
* compile/compile.c: New file.
* compile/compile-c-support.c: New file.
* compile/compile-c-symbols.c: New file.
* compile/compile-c-types.c: New file.
* compile/compile.h: New file.
* compile/compile-internal.h: New file.
* compile/compile-loc2c.c: New file.
* compile/compile-object-load.c: New file.
* compile/compile-object-load.h: New file.
* compile/compile-object-run.c: New file.
* compile/compile-object-run.h: New file.
* cli/cli-script.c (multi_line_command_p, print_command_lines)
(execute_control_command, process_next_line)
(recurse_read_control_structure): Handle compile_control.
* c-lang.h (c_get_compile_context, c_compute_program): Declare.
* c-lang.c (c_language_defn, cplus_language_defn)
(asm_language_defn, minimal_language_defn): Update.
* ada-lang.c (ada_language_defn): Update.
* Makefile.in (SUBDIR_GCC_COMPILE_OBS, SUBDIR_GCC_COMPILE_SRCS):
New variables.
(SFILES): Add SUBDIR_GCC_COMPILE_SRCS.
(HFILES_NO_SRCDIR): Add compile.h.
(COMMON_OBS): Add SUBDIR_GCC_COMPILE_OBS.
(INIT_FILES): Add SUBDIR_GCC_COMPILE_SRCS.
(compile.o, compile-c-types.o, compile-c-symbols.o)
(compile-object-load.o, compile-object-run.o, compile-loc2c.o)
(compile-c-support.o): New targets.
gdb/doc/ChangeLog
2014-12-12 Phil Muldoon <pmuldoon@redhat.com>
Jan Kratochvil <jan.kratochvil@redhat.com>
* gdb.texinfo (Altering): Update.
(Compiling and Injecting Code): New node.
gdb/testsuite/ChangeLog
2014-12-12 Phil Muldoon <pmuldoon@redhat.com>
Jan Kratochvil <jan.kratochvil@redhat.com>
Tom Tromey <tromey@redhat.com>
* configure.ac: Add gdb.compile/.
* configure: Regenerate.
* gdb.compile/Makefile.in: New file.
* gdb.compile/compile-ops.exp: New file.
* gdb.compile/compile-ops.c: New file.
* gdb.compile/compile-tls.c: New file.
* gdb.compile/compile-tls.exp: New file.
* gdb.compile/compile-constvar.S: New file.
* gdb.compile/compile-constvar.c: New file.
* gdb.compile/compile-mod.c: New file.
* gdb.compile/compile-nodebug.c: New file.
* gdb.compile/compile-setjmp-mod.c: New file.
* gdb.compile/compile-setjmp.c: New file.
* gdb.compile/compile-setjmp.exp: New file.
* gdb.compile/compile-shlib.c: New file.
* gdb.compile/compile.c: New file.
* gdb.compile/compile.exp: New file.
* lib/gdb.exp (skip_compile_feature_tests): New proc.
2014-05-15 04:35:45 +08:00
|
|
|
NULL,
|
|
|
|
|
NULL,
|
2010-04-29 22:45:39 +08:00
|
|
|
LANG_MAGIC
|
|
|
|
|
};
|
|
|
|
|
|
2014-01-19 01:18:23 +08:00
|
|
|
/* 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, 1, "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", NULL);
|
|
|
|
|
builtin_d_type->builtin_double
|
|
|
|
|
= arch_float_type (gdbarch, gdbarch_double_bit (gdbarch),
|
|
|
|
|
"double", NULL);
|
|
|
|
|
builtin_d_type->builtin_real
|
|
|
|
|
= arch_float_type (gdbarch, gdbarch_long_double_bit (gdbarch),
|
|
|
|
|
"real", NULL);
|
|
|
|
|
|
|
|
|
|
TYPE_INSTANCE_FLAGS (builtin_d_type->builtin_byte)
|
|
|
|
|
|= TYPE_INSTANCE_FLAG_NOTTEXT;
|
|
|
|
|
TYPE_INSTANCE_FLAGS (builtin_d_type->builtin_ubyte)
|
|
|
|
|
|= TYPE_INSTANCE_FLAG_NOTTEXT;
|
|
|
|
|
|
|
|
|
|
/* Imaginary and complex types. */
|
|
|
|
|
builtin_d_type->builtin_ifloat
|
|
|
|
|
= arch_float_type (gdbarch, gdbarch_float_bit (gdbarch),
|
|
|
|
|
"ifloat", NULL);
|
|
|
|
|
builtin_d_type->builtin_idouble
|
|
|
|
|
= arch_float_type (gdbarch, gdbarch_double_bit (gdbarch),
|
|
|
|
|
"idouble", NULL);
|
|
|
|
|
builtin_d_type->builtin_ireal
|
|
|
|
|
= arch_float_type (gdbarch, gdbarch_long_double_bit (gdbarch),
|
|
|
|
|
"ireal", NULL);
|
|
|
|
|
builtin_d_type->builtin_cfloat
|
|
|
|
|
= arch_complex_type (gdbarch, "cfloat",
|
|
|
|
|
builtin_d_type->builtin_float);
|
|
|
|
|
builtin_d_type->builtin_cdouble
|
|
|
|
|
= arch_complex_type (gdbarch, "cdouble",
|
|
|
|
|
builtin_d_type->builtin_double);
|
|
|
|
|
builtin_d_type->builtin_creal
|
|
|
|
|
= arch_complex_type (gdbarch, "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 gdbarch_data (gdbarch, d_type_data);
|
|
|
|
|
}
|
|
|
|
|
|
2012-03-01 Pedro Alves <palves@redhat.com>
* amd64-linux-tdep.c (amd64_linux_record_signal): Make static.
* breakpoint.c (create_exception_master_breakpoint, trace_command)
(ftrace_command, strace_command): Make static.
* d-lang.c (_initialize_d_language): Declare.
* dwarf2expr.c (_initialize_dwarf2expr): Declare.
* dwarf2loc.c (_initialize_dwarf2loc):
* dwarf2read.c (process_psymtab_comp_unit): Make static.
* exec.c (exec_get_section_table): Make static.
* i386-linux-tdep.c (i386_linux_record_signal): Make static.
* infcmd.c (ensure_valid_thread, ensure_not_tfind_mode): Make static.
* inferior.c (remove_inferior_command, add_inferior_command)
(clone_inferior_command): Make static.
* linux-nat.c (linux_nat_thread_address_space)
(linux_nat_core_of_thread): Make static.
* linux-tdep.c (_initialize_linux_tdep): Declare.
* objc-lang.c (_initialize_objc_lang): Declare.
* opencl-lang.c (builtin_opencl_type, opencl_language_arch_info):
Make static.
(_initialize_opencl_language): Declare.
* record.c (_initialize_record): Declare.
* remote.c (demand_private_info, remote_get_tib_address)
(remote_supports_cond_tracepoints)
(remote_supports_fast_tracepoints, remote_get_tracepoint_status):
Make static.
* skip.c (_initialize_step_skip): Declare.
* symtab.c (skip_prologue_using_lineinfo): Make static.
* tracepoint.c (delete_trace_state_variable)
(trace_variable_command, delete_trace_variable_command)
(get_uploaded_tsv, find_matching_tracepoint_location)
(find_matching_tsv, create_tsv_from_upload, get_traceframe_info):
Make static.
* value.c (pack_unsigned_long): Make static.
* varobj.c (varobj_ensure_python_env): Make static.
* windows-tdep.c (_initialize_windows_tdep): Declare.
* xml-syscall.c (make_cleanup_free_syscalls_info): Make static.
2012-03-02 05:14:00 +08:00
|
|
|
/* Provide a prototype to silence -Wmissing-prototypes. */
|
|
|
|
|
extern initialize_file_ftype _initialize_d_language;
|
|
|
|
|
|
2010-04-29 22:45:39 +08:00
|
|
|
void
|
|
|
|
|
_initialize_d_language (void)
|
|
|
|
|
{
|
2014-01-19 01:18:23 +08:00
|
|
|
d_type_data = gdbarch_data_register_post_init (build_d_types);
|
|
|
|
|
|
2010-04-29 22:45:39 +08:00
|
|
|
add_language (&d_language_defn);
|
|
|
|
|
}
|
