798a7429f9
This patch removes some unused variables, found with -Wunused. I have not removed everything reported by -Wunused, because some expressions such as struct type *arg_type = check_typedef (value_type); in bfin-tdep.c could have an unexpected but important side-effect. I removed others that I considered more low-risk, such as: struct gdbarch *gdbarch = get_objfile_arch (objfile); I tested building with Python 2/Python 3/no Python, with/without expat, with/without libipt and with/without babeltrace. gdb/ChangeLog: * ada-lang.c (ada_collect_symbol_completion_matches): Remove unused variables. (ada_is_redundant_range_encoding): Likewise. * ada-varobj.c (ada_varobj_get_value_of_array_variable): Likewise. * alpha-tdep.c (alpha_software_single_step): Likewise. * arm-tdep.c (_initialize_arm_tdep): Likewise. * auto-load.c (info_auto_load_cmd): Likewise. * break-catch-syscall.c (insert_catch_syscall): Likewise. (remove_catch_syscall): Likewise. * breakpoint.c (condition_completer): Likewise. (clear_command): Likewise. (update_breakpoint_locations): Likewise. * btrace.c (btrace_disable): Likewise. (btrace_teardown): Likewise. (btrace_maint_update_pt_packets): Likewise. (maint_btrace_clear_cmd): Likewise. * cli/cli-decode.c (lookup_cmd_1): Likewise. (lookup_cmd_composition): Likewise. * cli/cli-dump.c (scan_filename): Likewise. (restore_command): Likewise. * compile/compile-loc2c.c (compute_stack_depth): Likewise. * compile/compile-object-load.c (compile_object_load): Likewise. * compile/compile-object-run.c (compile_object_run): Likewise. * compile/compile.c (compile_to_object): Likewise. * completer.c (filename_completer): Likewise. (complete_files_symbols): Likewise. (complete_expression): Likewise. * corelow.c (core_open): Likewise. * ctf.c (ctf_start): Likewise. (ctf_write_status): Likewise. (ctf_write_uploaded_tsv): Likewise. (ctf_write_definition_end): Likewise. (ctf_open_dir): Likewise. (ctf_xfer_partial): Likewise. (ctf_trace_find): Likewise. * disasm.c (gdb_pretty_print_disassembler::pretty_print_insn): Likewise. * dwarf2loc.c (allocate_piece_closure): Likewise. (indirect_pieced_value): Likewise. (dwarf2_evaluate_loc_desc_full): Likewise. * dwarf2read.c (dw2_expand_marked_cus): Likewise. (dw2_expand_symtabs_matching): Likewise. (dw2_map_symbol_filenames): Likewise. (read_and_check_comp_unit_head): Likewise. (read_cutu_die_from_dwo): Likewise. (lookup_dwo_unit): Likewise. (read_comp_units_from_section): Likewise. (dwarf2_compute_name): Likewise. (handle_DW_AT_stmt_list): Likewise. (create_cus_hash_table): Likewise. (create_dwp_v2_section): Likewise. (dwarf2_rnglists_process): Likewise. (dwarf2_ranges_process): Likewise. (dwarf2_record_block_ranges): Likewise. (is_vtable_name): Likewise. (read_formatted_entries): Likewise. (skip_form_bytes): Likewise. * elfread.c (elf_symtab_read): Likewise. * exec.c (exec_file_command): Likewise. * f-valprint.c (f_val_print): Likewise. (info_common_command_for_block): Likewise. * guile/guile.c (initialize_scheme_side): Likewise. * guile/scm-breakpoint.c (gdbscm_breakpoint_commands): Likewise. * guile/scm-cmd.c (cmdscm_completer): Likewise. (gdbscm_register_command_x): Likewise. * guile/scm-frame.c (gdbscm_frame_read_var): Likewise. * guile/scm-param.c (gdbscm_parameter_value): Likewise. * guile/scm-ports.c (file_port_magic): Likewise. * guile/scm-pretty-print.c (ppscm_search_pp_list): Likewise. (ppscm_pretty_print_one_value): Likewise. (ppscm_print_children): Likewise. * guile/scm-string.c (gdbscm_string_to_argv): Likewise. * guile/scm-symtab.c (gdbscm_sal_symtab): Likewise. * guile/scm-type.c (gdbscm_type_next_field_x): Likewise. * guile/scm-utils.c (gdbscm_parse_function_args): Likewise. * i386-tdep.c (i386_register_reggroup_p): Likewise. * infcmd.c (run_command_1): Likewise. (until_next_fsm_clean_up): Likewise. * linespec.c (linespec_complete): Likewise. (find_label_symbols): Likewise. * m2-valprint.c (m2_val_print): Likewise. * memattr.c (require_user_regions): Likewise. (lookup_mem_region): Likewise. (disable_mem_command): Likewise. (mem_delete): Likewise. * mep-tdep.c (mep_register_name): Likewise. (mep_analyze_prologue): Likewise. * mi/mi-cmd-file.c (mi_cmd_file_list_shared_libraries): Likewise. * mi/mi-interp.c (mi_on_sync_execution_done): Likewise. * mi/mi-main.c (mi_cmd_trace_frame_collected): Likewise. * microblaze-linux-tdep.c (microblaze_linux_init_abi): Likewise. * minidebug.c (lzma_open): Likewise. * minsyms.c (lookup_minimal_symbol): Likewise. * mips-linux-tdep.c (mips64_fill_fpregset): Likewise. * mips-tdep.c (mips_stub_frame_sniffer): Likewise. (mips_o64_return_value): Likewise. (mips_single_step_through_delay): Likewise. (_initialize_mips_tdep): Likewise. * nios2-tdep.c (nios2_push_dummy_call): Likewise. (nios2_software_single_step): Likewise. * parse.c (find_minsym_type_and_address): Likewise. * psymtab.c (psym_relocate): Likewise. * python/py-breakpoint.c (bppy_get_commands): Likewise. (gdbpy_breakpoint_modified): Likewise. * python/py-infevents.c (create_inferior_call_event_object): Likewise. * python/py-record-btrace.c (btpy_list_item): Likewise. * python/py-type.c (typy_str): Likewise. * python/py-value.c (valpy_call): Likewise. * python/python.c (do_start_initialization): Likewise. * record-btrace.c (record_btrace_insn_history_range): Likewise. (record_btrace_call_history_range): Likewise. (record_btrace_record_method): Likewise. (record_btrace_xfer_partial): Likewise. (btrace_get_frame_function): Likewise. * record-full.c (record_full_open): Likewise. * record.c (get_context_size): Likewise. * registry.h (DEFINE_REGISTRY): Likewise. * remote-fileio.c (remote_fileio_request): Likewise. * remote.c (remote_update_thread_list): Likewise. (remote_check_symbols): Likewise. (remote_commit_resume): Likewise. (remote_interrupt): Likewise. (remote_insert_breakpoint): Likewise. (compare_sections_command): Likewise. * rust-exp.y (super_name): Likewise. (lex_string): Likewise. (convert_ast_to_type): Likewise. (convert_ast_to_expression): Likewise. * rust-lang.c (rust_print_struct_def): Likewise. (rust_print_type): Likewise. (rust_evaluate_subexp): Likewise. * rx-tdep.c (rx_register_type): Likewise. * ser-event.c (serial_event_clear): Likewise. * serial.c (serial_open): Likewise. * spu-tdep.c (spu_overlay_new_objfile): Likewise. * symfile.c (section_is_overlay): Likewise. (overlay_unmapped_address): Likewise. (overlay_mapped_address): Likewise. (simple_overlay_update_1): Likewise. (simple_overlay_update): Likewise. * symtab.c (symbol_find_demangled_name): Likewise. (search_symbols): Likewise. * target-descriptions.c (tdesc_predefined_type): Likewise. * target.c (target_commit_resume): Likewise. * thread.c (print_selected_thread_frame): Likewise. * top.c (new_ui_command): Likewise. (gdb_readline_no_editing): Likewise. * tracefile-tfile.c (tfile_open): Likewise. * tracepoint.c (create_tsv_from_upload): Likewise. * utils.c (quit): Likewise. (defaulted_query): Likewise. * valarith.c (value_concat): Likewise. * xml-syscall.c (xml_list_syscalls_by_group): Likewise. * xml-tdesc.c (target_fetch_description_xml): Likewise. * xtensa-tdep.c (xtensa_pseudo_register_read): Likewise. (xtensa_pseudo_register_write): Likewise. gdb/gdbserver/ChangeLog: * regcache.c (registers_to_string): Remove unused variable.
2311 lines
60 KiB
C
2311 lines
60 KiB
C
/* Rust language support routines for GDB, the GNU debugger.
|
||
|
||
Copyright (C) 2016-2017 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 <ctype.h>
|
||
|
||
#include "block.h"
|
||
#include "c-lang.h"
|
||
#include "charset.h"
|
||
#include "cp-support.h"
|
||
#include "demangle.h"
|
||
#include "gdbarch.h"
|
||
#include "infcall.h"
|
||
#include "objfiles.h"
|
||
#include "psymtab.h"
|
||
#include "rust-lang.h"
|
||
#include "valprint.h"
|
||
#include "varobj.h"
|
||
#include <string>
|
||
#include <vector>
|
||
|
||
/* Returns the last segment of a Rust path like foo::bar::baz. Will
|
||
not handle cases where the last segment contains generics. This
|
||
will return NULL if the last segment cannot be found. */
|
||
|
||
static const char *
|
||
rust_last_path_segment (const char * path)
|
||
{
|
||
const char *result = strrchr (path, ':');
|
||
|
||
if (result == NULL)
|
||
return NULL;
|
||
return result + 1;
|
||
}
|
||
|
||
/* See rust-lang.h. */
|
||
|
||
std::string
|
||
rust_crate_for_block (const struct block *block)
|
||
{
|
||
const char *scope = block_scope (block);
|
||
|
||
if (scope[0] == '\0')
|
||
return std::string ();
|
||
|
||
return std::string (scope, cp_find_first_component (scope));
|
||
}
|
||
|
||
/* Information about the discriminant/variant of an enum */
|
||
|
||
struct disr_info
|
||
{
|
||
/* Name of field. */
|
||
std::string name;
|
||
/* Field number in union. Negative on error. For an encoded enum,
|
||
the "hidden" member will always be field 1, and the "real" member
|
||
will always be field 0. */
|
||
int field_no;
|
||
/* True if this is an encoded enum that has a single "real" member
|
||
and a single "hidden" member. */
|
||
unsigned int is_encoded : 1;
|
||
};
|
||
|
||
/* The prefix of a specially-encoded enum. */
|
||
|
||
#define RUST_ENUM_PREFIX "RUST$ENCODED$ENUM$"
|
||
|
||
/* The number of the real field. */
|
||
|
||
#define RUST_ENCODED_ENUM_REAL 0
|
||
|
||
/* The number of the hidden field. */
|
||
|
||
#define RUST_ENCODED_ENUM_HIDDEN 1
|
||
|
||
/* Whether or not a TYPE_CODE_UNION value is an untagged union
|
||
as opposed to being a regular Rust enum. */
|
||
static bool
|
||
rust_union_is_untagged (struct type *type)
|
||
{
|
||
/* Unions must have at least one field. */
|
||
if (TYPE_NFIELDS (type) == 0)
|
||
return false;
|
||
/* If the first field is named, but the name has the rust enum prefix,
|
||
it is an enum. */
|
||
if (strncmp (TYPE_FIELD_NAME (type, 0), RUST_ENUM_PREFIX,
|
||
strlen (RUST_ENUM_PREFIX)) == 0)
|
||
return false;
|
||
/* Unions only have named fields. */
|
||
for (int i = 0; i < TYPE_NFIELDS (type); ++i)
|
||
{
|
||
if (strlen (TYPE_FIELD_NAME (type, i)) == 0)
|
||
return false;
|
||
}
|
||
return true;
|
||
}
|
||
|
||
/* Utility function to get discriminant info for a given value. */
|
||
|
||
static struct disr_info
|
||
rust_get_disr_info (struct type *type, const gdb_byte *valaddr,
|
||
int embedded_offset, CORE_ADDR address,
|
||
struct value *val)
|
||
{
|
||
int i;
|
||
struct disr_info ret;
|
||
struct type *disr_type;
|
||
struct value_print_options opts;
|
||
const char *name_segment;
|
||
|
||
get_no_prettyformat_print_options (&opts);
|
||
|
||
ret.field_no = -1;
|
||
ret.is_encoded = 0;
|
||
|
||
if (TYPE_NFIELDS (type) == 0)
|
||
error (_("Encountered void enum value"));
|
||
|
||
/* If an enum has two values where one is empty and the other holds
|
||
a pointer that cannot be zero; then the Rust compiler optimizes
|
||
away the discriminant and instead uses a zero value in the
|
||
pointer field to indicate the empty variant. */
|
||
if (strncmp (TYPE_FIELD_NAME (type, 0), RUST_ENUM_PREFIX,
|
||
strlen (RUST_ENUM_PREFIX)) == 0)
|
||
{
|
||
char *tail, *token, *saveptr = NULL;
|
||
unsigned long fieldno;
|
||
struct type *member_type;
|
||
LONGEST value;
|
||
|
||
ret.is_encoded = 1;
|
||
|
||
if (TYPE_NFIELDS (type) != 1)
|
||
error (_("Only expected one field in %s type"), RUST_ENUM_PREFIX);
|
||
|
||
/* Optimized enums have only one field. */
|
||
member_type = TYPE_FIELD_TYPE (type, 0);
|
||
|
||
std::string name (TYPE_FIELD_NAME (type, 0));
|
||
tail = &name[0] + strlen (RUST_ENUM_PREFIX);
|
||
|
||
/* The location of the value that doubles as a discriminant is
|
||
stored in the name of the field, as
|
||
RUST$ENCODED$ENUM$<fieldno>$<fieldno>$...$<variantname>
|
||
where the fieldnos are the indices of the fields that should be
|
||
traversed in order to find the field (which may be several fields deep)
|
||
and the variantname is the name of the variant of the case when the
|
||
field is zero. */
|
||
for (token = strtok_r (tail, "$", &saveptr);
|
||
token != NULL;
|
||
token = strtok_r (NULL, "$", &saveptr))
|
||
{
|
||
if (sscanf (token, "%lu", &fieldno) != 1)
|
||
{
|
||
/* We have reached the enum name, which cannot start
|
||
with a digit. */
|
||
break;
|
||
}
|
||
if (fieldno >= TYPE_NFIELDS (member_type))
|
||
error (_("%s refers to field after end of member type"),
|
||
RUST_ENUM_PREFIX);
|
||
|
||
embedded_offset += TYPE_FIELD_BITPOS (member_type, fieldno) / 8;
|
||
member_type = TYPE_FIELD_TYPE (member_type, fieldno);
|
||
}
|
||
|
||
if (token == NULL)
|
||
error (_("Invalid form for %s"), RUST_ENUM_PREFIX);
|
||
value = unpack_long (member_type, valaddr + embedded_offset);
|
||
|
||
if (value == 0)
|
||
{
|
||
ret.field_no = RUST_ENCODED_ENUM_HIDDEN;
|
||
ret.name = std::string (TYPE_NAME (type)) + "::" + token;
|
||
}
|
||
else
|
||
{
|
||
ret.field_no = RUST_ENCODED_ENUM_REAL;
|
||
ret.name = (std::string (TYPE_NAME (type)) + "::"
|
||
+ rust_last_path_segment (TYPE_NAME (TYPE_FIELD_TYPE (type, 0))));
|
||
}
|
||
|
||
return ret;
|
||
}
|
||
|
||
disr_type = TYPE_FIELD_TYPE (type, 0);
|
||
|
||
if (TYPE_NFIELDS (disr_type) == 0)
|
||
{
|
||
/* This is a bounds check and should never be hit unless Rust
|
||
has changed its debuginfo format. */
|
||
error (_("Could not find enum discriminant field"));
|
||
}
|
||
else if (TYPE_NFIELDS (type) == 1)
|
||
{
|
||
/* Sometimes univariant enums are encoded without a
|
||
discriminant. In that case, treating it as an encoded enum
|
||
with the first field being the actual type works. */
|
||
const char *field_name = TYPE_NAME (TYPE_FIELD_TYPE (type, 0));
|
||
const char *last = rust_last_path_segment (field_name);
|
||
ret.name = std::string (TYPE_NAME (type)) + "::" + last;
|
||
ret.field_no = RUST_ENCODED_ENUM_REAL;
|
||
ret.is_encoded = 1;
|
||
return ret;
|
||
}
|
||
|
||
if (strcmp (TYPE_FIELD_NAME (disr_type, 0), "RUST$ENUM$DISR") != 0)
|
||
error (_("Rust debug format has changed"));
|
||
|
||
string_file temp_file;
|
||
/* The first value of the first field (or any field)
|
||
is the discriminant value. */
|
||
c_val_print (TYPE_FIELD_TYPE (disr_type, 0),
|
||
(embedded_offset + TYPE_FIELD_BITPOS (type, 0) / 8
|
||
+ TYPE_FIELD_BITPOS (disr_type, 0) / 8),
|
||
address, &temp_file,
|
||
0, val, &opts);
|
||
|
||
ret.name = std::move (temp_file.string ());
|
||
name_segment = rust_last_path_segment (ret.name.c_str ());
|
||
if (name_segment != NULL)
|
||
{
|
||
for (i = 0; i < TYPE_NFIELDS (type); ++i)
|
||
{
|
||
/* Sadly, the discriminant value paths do not match the type
|
||
field name paths ('core::option::Option::Some' vs
|
||
'core::option::Some'). However, enum variant names are
|
||
unique in the last path segment and the generics are not
|
||
part of this path, so we can just compare those. This is
|
||
hackish and would be better fixed by improving rustc's
|
||
metadata for enums. */
|
||
const char *field_type = TYPE_NAME (TYPE_FIELD_TYPE (type, i));
|
||
|
||
if (field_type != NULL
|
||
&& strcmp (name_segment,
|
||
rust_last_path_segment (field_type)) == 0)
|
||
{
|
||
ret.field_no = i;
|
||
break;
|
||
}
|
||
}
|
||
}
|
||
|
||
if (ret.field_no == -1 && !ret.name.empty ())
|
||
{
|
||
/* Somehow the discriminant wasn't found. */
|
||
error (_("Could not find variant of %s with discriminant %s"),
|
||
TYPE_TAG_NAME (type), ret.name.c_str ());
|
||
}
|
||
|
||
return ret;
|
||
}
|
||
|
||
/* See rust-lang.h. */
|
||
|
||
bool
|
||
rust_tuple_type_p (struct type *type)
|
||
{
|
||
/* The current implementation is a bit of a hack, but there's
|
||
nothing else in the debuginfo to distinguish a tuple from a
|
||
struct. */
|
||
return (TYPE_CODE (type) == TYPE_CODE_STRUCT
|
||
&& TYPE_TAG_NAME (type) != NULL
|
||
&& TYPE_TAG_NAME (type)[0] == '(');
|
||
}
|
||
|
||
|
||
/* Return true if all non-static fields of a structlike type are in a
|
||
sequence like __0, __1, __2. OFFSET lets us skip fields. */
|
||
|
||
static bool
|
||
rust_underscore_fields (struct type *type, int offset)
|
||
{
|
||
int i, field_number;
|
||
|
||
field_number = 0;
|
||
|
||
if (TYPE_CODE (type) != TYPE_CODE_STRUCT)
|
||
return false;
|
||
for (i = 0; i < TYPE_NFIELDS (type); ++i)
|
||
{
|
||
if (!field_is_static (&TYPE_FIELD (type, i)))
|
||
{
|
||
if (offset > 0)
|
||
offset--;
|
||
else
|
||
{
|
||
char buf[20];
|
||
|
||
xsnprintf (buf, sizeof (buf), "__%d", field_number);
|
||
if (strcmp (buf, TYPE_FIELD_NAME (type, i)) != 0)
|
||
return false;
|
||
field_number++;
|
||
}
|
||
}
|
||
}
|
||
return true;
|
||
}
|
||
|
||
/* See rust-lang.h. */
|
||
|
||
bool
|
||
rust_tuple_struct_type_p (struct type *type)
|
||
{
|
||
/* This is just an approximation until DWARF can represent Rust more
|
||
precisely. We exclude zero-length structs because they may not
|
||
be tuple structs, and there's no way to tell. */
|
||
return TYPE_NFIELDS (type) > 0 && rust_underscore_fields (type, 0);
|
||
}
|
||
|
||
/* Return true if a variant TYPE is a tuple variant, false otherwise. */
|
||
|
||
static bool
|
||
rust_tuple_variant_type_p (struct type *type)
|
||
{
|
||
/* First field is discriminant */
|
||
return rust_underscore_fields (type, 1);
|
||
}
|
||
|
||
/* Return true if TYPE is a slice type, otherwise false. */
|
||
|
||
static bool
|
||
rust_slice_type_p (struct type *type)
|
||
{
|
||
return (TYPE_CODE (type) == TYPE_CODE_STRUCT
|
||
&& TYPE_TAG_NAME (type) != NULL
|
||
&& (strncmp (TYPE_TAG_NAME (type), "&[", 2) == 0
|
||
|| strcmp (TYPE_TAG_NAME (type), "&str") == 0));
|
||
}
|
||
|
||
/* Return true if TYPE is a range type, otherwise false. */
|
||
|
||
static bool
|
||
rust_range_type_p (struct type *type)
|
||
{
|
||
int i;
|
||
|
||
if (TYPE_CODE (type) != TYPE_CODE_STRUCT
|
||
|| TYPE_NFIELDS (type) > 2
|
||
|| TYPE_TAG_NAME (type) == NULL
|
||
|| strstr (TYPE_TAG_NAME (type), "::Range") == NULL)
|
||
return false;
|
||
|
||
if (TYPE_NFIELDS (type) == 0)
|
||
return true;
|
||
|
||
i = 0;
|
||
if (strcmp (TYPE_FIELD_NAME (type, 0), "start") == 0)
|
||
{
|
||
if (TYPE_NFIELDS (type) == 1)
|
||
return true;
|
||
i = 1;
|
||
}
|
||
else if (TYPE_NFIELDS (type) == 2)
|
||
{
|
||
/* First field had to be "start". */
|
||
return false;
|
||
}
|
||
|
||
return strcmp (TYPE_FIELD_NAME (type, i), "end") == 0;
|
||
}
|
||
|
||
/* Return true if TYPE seems to be the type "u8", otherwise false. */
|
||
|
||
static bool
|
||
rust_u8_type_p (struct type *type)
|
||
{
|
||
return (TYPE_CODE (type) == TYPE_CODE_INT
|
||
&& TYPE_UNSIGNED (type)
|
||
&& TYPE_LENGTH (type) == 1);
|
||
}
|
||
|
||
/* Return true if TYPE is a Rust character type. */
|
||
|
||
static bool
|
||
rust_chartype_p (struct type *type)
|
||
{
|
||
return (TYPE_CODE (type) == TYPE_CODE_CHAR
|
||
&& TYPE_LENGTH (type) == 4
|
||
&& TYPE_UNSIGNED (type));
|
||
}
|
||
|
||
/* If VALUE represents a trait object pointer, return the underlying
|
||
pointer with the correct (i.e., runtime) type. Otherwise, return
|
||
NULL. */
|
||
|
||
static struct value *
|
||
rust_get_trait_object_pointer (struct value *value)
|
||
{
|
||
struct type *type = check_typedef (value_type (value));
|
||
|
||
if (TYPE_CODE (type) != TYPE_CODE_STRUCT || TYPE_NFIELDS (type) != 2)
|
||
return NULL;
|
||
|
||
/* Try to be a bit resilient if the ABI changes. */
|
||
int vtable_field = 0;
|
||
for (int i = 0; i < 2; ++i)
|
||
{
|
||
if (strcmp (TYPE_FIELD_NAME (type, i), "vtable") == 0)
|
||
vtable_field = i;
|
||
else if (strcmp (TYPE_FIELD_NAME (type, i), "pointer") != 0)
|
||
return NULL;
|
||
}
|
||
|
||
CORE_ADDR vtable = value_as_address (value_field (value, vtable_field));
|
||
struct symbol *symbol = find_symbol_at_address (vtable);
|
||
if (symbol == NULL || symbol->subclass != SYMBOL_RUST_VTABLE)
|
||
return NULL;
|
||
|
||
struct rust_vtable_symbol *vtable_sym
|
||
= static_cast<struct rust_vtable_symbol *> (symbol);
|
||
struct type *pointer_type = lookup_pointer_type (vtable_sym->concrete_type);
|
||
return value_cast (pointer_type, value_field (value, 1 - vtable_field));
|
||
}
|
||
|
||
|
||
|
||
/* la_emitchar implementation for Rust. */
|
||
|
||
static void
|
||
rust_emitchar (int c, struct type *type, struct ui_file *stream, int quoter)
|
||
{
|
||
if (!rust_chartype_p (type))
|
||
generic_emit_char (c, type, stream, quoter,
|
||
target_charset (get_type_arch (type)));
|
||
else if (c == '\\' || c == quoter)
|
||
fprintf_filtered (stream, "\\%c", c);
|
||
else if (c == '\n')
|
||
fputs_filtered ("\\n", stream);
|
||
else if (c == '\r')
|
||
fputs_filtered ("\\r", stream);
|
||
else if (c == '\t')
|
||
fputs_filtered ("\\t", stream);
|
||
else if (c == '\0')
|
||
fputs_filtered ("\\0", stream);
|
||
else if (c >= 32 && c <= 127 && isprint (c))
|
||
fputc_filtered (c, stream);
|
||
else if (c <= 255)
|
||
fprintf_filtered (stream, "\\x%02x", c);
|
||
else
|
||
fprintf_filtered (stream, "\\u{%06x}", c);
|
||
}
|
||
|
||
/* la_printchar implementation for Rust. */
|
||
|
||
static void
|
||
rust_printchar (int c, struct type *type, struct ui_file *stream)
|
||
{
|
||
fputs_filtered ("'", stream);
|
||
LA_EMIT_CHAR (c, type, stream, '\'');
|
||
fputs_filtered ("'", stream);
|
||
}
|
||
|
||
/* la_printstr implementation for Rust. */
|
||
|
||
static void
|
||
rust_printstr (struct ui_file *stream, struct type *type,
|
||
const gdb_byte *string, unsigned int length,
|
||
const char *user_encoding, int force_ellipses,
|
||
const struct value_print_options *options)
|
||
{
|
||
/* Rust always uses UTF-8, but let the caller override this if need
|
||
be. */
|
||
const char *encoding = user_encoding;
|
||
if (user_encoding == NULL || !*user_encoding)
|
||
{
|
||
/* In Rust strings, characters are "u8". */
|
||
if (rust_u8_type_p (type))
|
||
encoding = "UTF-8";
|
||
else
|
||
{
|
||
/* This is probably some C string, so let's let C deal with
|
||
it. */
|
||
c_printstr (stream, type, string, length, user_encoding,
|
||
force_ellipses, options);
|
||
return;
|
||
}
|
||
}
|
||
|
||
/* This is not ideal as it doesn't use our character printer. */
|
||
generic_printstr (stream, type, string, length, encoding, force_ellipses,
|
||
'"', 0, options);
|
||
}
|
||
|
||
|
||
|
||
/* Helper function to print a string slice. */
|
||
|
||
static void
|
||
rust_val_print_str (struct ui_file *stream, struct value *val,
|
||
const struct value_print_options *options)
|
||
{
|
||
struct value *base = value_struct_elt (&val, NULL, "data_ptr", NULL,
|
||
"slice");
|
||
struct value *len = value_struct_elt (&val, NULL, "length", NULL, "slice");
|
||
|
||
val_print_string (TYPE_TARGET_TYPE (value_type (base)), "UTF-8",
|
||
value_as_address (base), value_as_long (len), stream,
|
||
options);
|
||
}
|
||
|
||
/* rust_print_type branch for structs and untagged unions. */
|
||
|
||
static void
|
||
val_print_struct (struct type *type, int embedded_offset,
|
||
CORE_ADDR address, struct ui_file *stream,
|
||
int recurse, struct value *val,
|
||
const struct value_print_options *options)
|
||
{
|
||
int i;
|
||
int first_field;
|
||
|
||
if (rust_slice_type_p (type) && strcmp (TYPE_NAME (type), "&str") == 0)
|
||
{
|
||
rust_val_print_str (stream, val, options);
|
||
return;
|
||
}
|
||
|
||
bool is_tuple = rust_tuple_type_p (type);
|
||
bool is_tuple_struct = !is_tuple && rust_tuple_struct_type_p (type);
|
||
struct value_print_options opts;
|
||
|
||
if (!is_tuple)
|
||
{
|
||
if (TYPE_TAG_NAME (type) != NULL)
|
||
fprintf_filtered (stream, "%s", TYPE_TAG_NAME (type));
|
||
|
||
if (TYPE_NFIELDS (type) == 0)
|
||
return;
|
||
|
||
if (TYPE_TAG_NAME (type) != NULL)
|
||
fputs_filtered (" ", stream);
|
||
}
|
||
|
||
if (is_tuple || is_tuple_struct)
|
||
fputs_filtered ("(", stream);
|
||
else
|
||
fputs_filtered ("{", stream);
|
||
|
||
opts = *options;
|
||
opts.deref_ref = 0;
|
||
|
||
first_field = 1;
|
||
for (i = 0; i < TYPE_NFIELDS (type); ++i)
|
||
{
|
||
if (field_is_static (&TYPE_FIELD (type, i)))
|
||
continue;
|
||
|
||
if (!first_field)
|
||
fputs_filtered (",", stream);
|
||
|
||
if (options->prettyformat)
|
||
{
|
||
fputs_filtered ("\n", stream);
|
||
print_spaces_filtered (2 + 2 * recurse, stream);
|
||
}
|
||
else if (!first_field)
|
||
fputs_filtered (" ", stream);
|
||
|
||
first_field = 0;
|
||
|
||
if (!is_tuple && !is_tuple_struct)
|
||
{
|
||
fputs_filtered (TYPE_FIELD_NAME (type, i), stream);
|
||
fputs_filtered (": ", stream);
|
||
}
|
||
|
||
val_print (TYPE_FIELD_TYPE (type, i),
|
||
embedded_offset + TYPE_FIELD_BITPOS (type, i) / 8,
|
||
address,
|
||
stream, recurse + 1, val, &opts,
|
||
current_language);
|
||
}
|
||
|
||
if (options->prettyformat)
|
||
{
|
||
fputs_filtered ("\n", stream);
|
||
print_spaces_filtered (2 * recurse, stream);
|
||
}
|
||
|
||
if (is_tuple || is_tuple_struct)
|
||
fputs_filtered (")", stream);
|
||
else
|
||
fputs_filtered ("}", stream);
|
||
}
|
||
|
||
static const struct generic_val_print_decorations rust_decorations =
|
||
{
|
||
/* Complex isn't used in Rust, but we provide C-ish values just in
|
||
case. */
|
||
"",
|
||
" + ",
|
||
" * I",
|
||
"true",
|
||
"false",
|
||
"()",
|
||
"[",
|
||
"]"
|
||
};
|
||
|
||
/* la_val_print implementation for Rust. */
|
||
|
||
static void
|
||
rust_val_print (struct type *type, int embedded_offset,
|
||
CORE_ADDR address, struct ui_file *stream, int recurse,
|
||
struct value *val,
|
||
const struct value_print_options *options)
|
||
{
|
||
const gdb_byte *valaddr = value_contents_for_printing (val);
|
||
|
||
type = check_typedef (type);
|
||
switch (TYPE_CODE (type))
|
||
{
|
||
case TYPE_CODE_PTR:
|
||
{
|
||
LONGEST low_bound, high_bound;
|
||
|
||
if (TYPE_CODE (TYPE_TARGET_TYPE (type)) == TYPE_CODE_ARRAY
|
||
&& rust_u8_type_p (TYPE_TARGET_TYPE (TYPE_TARGET_TYPE (type)))
|
||
&& get_array_bounds (TYPE_TARGET_TYPE (type), &low_bound,
|
||
&high_bound)) {
|
||
/* We have a pointer to a byte string, so just print
|
||
that. */
|
||
struct type *elttype = check_typedef (TYPE_TARGET_TYPE (type));
|
||
CORE_ADDR addr;
|
||
struct gdbarch *arch = get_type_arch (type);
|
||
int unit_size = gdbarch_addressable_memory_unit_size (arch);
|
||
|
||
addr = unpack_pointer (type, valaddr + embedded_offset * unit_size);
|
||
if (options->addressprint)
|
||
{
|
||
fputs_filtered (paddress (arch, addr), stream);
|
||
fputs_filtered (" ", stream);
|
||
}
|
||
|
||
fputs_filtered ("b", stream);
|
||
val_print_string (TYPE_TARGET_TYPE (elttype), "ASCII", addr,
|
||
high_bound - low_bound + 1, stream,
|
||
options);
|
||
break;
|
||
}
|
||
}
|
||
/* Fall through. */
|
||
|
||
case TYPE_CODE_METHODPTR:
|
||
case TYPE_CODE_MEMBERPTR:
|
||
c_val_print (type, embedded_offset, address, stream,
|
||
recurse, val, options);
|
||
break;
|
||
|
||
case TYPE_CODE_INT:
|
||
/* Recognize the unit type. */
|
||
if (TYPE_UNSIGNED (type) && TYPE_LENGTH (type) == 0
|
||
&& TYPE_NAME (type) != NULL && strcmp (TYPE_NAME (type), "()") == 0)
|
||
{
|
||
fputs_filtered ("()", stream);
|
||
break;
|
||
}
|
||
goto generic_print;
|
||
|
||
case TYPE_CODE_STRING:
|
||
{
|
||
struct gdbarch *arch = get_type_arch (type);
|
||
int unit_size = gdbarch_addressable_memory_unit_size (arch);
|
||
LONGEST low_bound, high_bound;
|
||
|
||
if (!get_array_bounds (type, &low_bound, &high_bound))
|
||
error (_("Could not determine the array bounds"));
|
||
|
||
/* If we see a plain TYPE_CODE_STRING, then we're printing a
|
||
byte string, hence the choice of "ASCII" as the
|
||
encoding. */
|
||
fputs_filtered ("b", stream);
|
||
rust_printstr (stream, TYPE_TARGET_TYPE (type),
|
||
valaddr + embedded_offset * unit_size,
|
||
high_bound - low_bound + 1, "ASCII", 0, options);
|
||
}
|
||
break;
|
||
|
||
case TYPE_CODE_ARRAY:
|
||
{
|
||
LONGEST low_bound, high_bound;
|
||
|
||
if (get_array_bounds (type, &low_bound, &high_bound)
|
||
&& high_bound - low_bound + 1 == 0)
|
||
fputs_filtered ("[]", stream);
|
||
else
|
||
goto generic_print;
|
||
}
|
||
break;
|
||
|
||
case TYPE_CODE_UNION:
|
||
{
|
||
int j, nfields, first_field, is_tuple, start;
|
||
struct type *variant_type;
|
||
struct disr_info disr;
|
||
struct value_print_options opts;
|
||
|
||
/* Untagged unions are printed as if they are structs.
|
||
Since the field bit positions overlap in the debuginfo,
|
||
the code for printing a union is same as that for a struct,
|
||
the only difference is that the input type will have overlapping
|
||
fields. */
|
||
if (rust_union_is_untagged (type))
|
||
{
|
||
val_print_struct (type, embedded_offset, address, stream,
|
||
recurse, val, options);
|
||
break;
|
||
}
|
||
|
||
opts = *options;
|
||
opts.deref_ref = 0;
|
||
|
||
disr = rust_get_disr_info (type, valaddr, embedded_offset, address,
|
||
val);
|
||
|
||
if (disr.is_encoded && disr.field_no == RUST_ENCODED_ENUM_HIDDEN)
|
||
{
|
||
fprintf_filtered (stream, "%s", disr.name.c_str ());
|
||
break;
|
||
}
|
||
|
||
first_field = 1;
|
||
variant_type = TYPE_FIELD_TYPE (type, disr.field_no);
|
||
nfields = TYPE_NFIELDS (variant_type);
|
||
|
||
is_tuple = (disr.is_encoded
|
||
? rust_tuple_struct_type_p (variant_type)
|
||
: rust_tuple_variant_type_p (variant_type));
|
||
start = disr.is_encoded ? 0 : 1;
|
||
|
||
if (nfields > start)
|
||
{
|
||
/* In case of a non-nullary variant, we output 'Foo(x,y,z)'. */
|
||
if (is_tuple)
|
||
fprintf_filtered (stream, "%s(", disr.name.c_str ());
|
||
else
|
||
{
|
||
/* struct variant. */
|
||
fprintf_filtered (stream, "%s{", disr.name.c_str ());
|
||
}
|
||
}
|
||
else
|
||
{
|
||
/* In case of a nullary variant like 'None', just output
|
||
the name. */
|
||
fprintf_filtered (stream, "%s", disr.name.c_str ());
|
||
break;
|
||
}
|
||
|
||
for (j = start; j < TYPE_NFIELDS (variant_type); j++)
|
||
{
|
||
if (!first_field)
|
||
fputs_filtered (", ", stream);
|
||
first_field = 0;
|
||
|
||
if (!is_tuple)
|
||
fprintf_filtered (stream, "%s: ",
|
||
TYPE_FIELD_NAME (variant_type, j));
|
||
|
||
val_print (TYPE_FIELD_TYPE (variant_type, j),
|
||
(embedded_offset
|
||
+ TYPE_FIELD_BITPOS (type, disr.field_no) / 8
|
||
+ TYPE_FIELD_BITPOS (variant_type, j) / 8),
|
||
address,
|
||
stream, recurse + 1, val, &opts,
|
||
current_language);
|
||
}
|
||
|
||
if (is_tuple)
|
||
fputs_filtered (")", stream);
|
||
else
|
||
fputs_filtered ("}", stream);
|
||
}
|
||
break;
|
||
|
||
case TYPE_CODE_STRUCT:
|
||
val_print_struct (type, embedded_offset, address, stream,
|
||
recurse, val, options);
|
||
break;
|
||
|
||
default:
|
||
generic_print:
|
||
/* Nothing special yet. */
|
||
generic_val_print (type, embedded_offset, address, stream,
|
||
recurse, val, options, &rust_decorations);
|
||
}
|
||
}
|
||
|
||
|
||
|
||
static void
|
||
rust_print_type (struct type *type, const char *varstring,
|
||
struct ui_file *stream, int show, int level,
|
||
const struct type_print_options *flags);
|
||
|
||
/* Print a struct or union typedef. */
|
||
static void
|
||
rust_print_struct_def (struct type *type, const char *varstring,
|
||
struct ui_file *stream, int show, int level,
|
||
const struct type_print_options *flags)
|
||
{
|
||
bool is_tuple_struct;
|
||
int i;
|
||
|
||
/* Print a tuple type simply. */
|
||
if (rust_tuple_type_p (type))
|
||
{
|
||
fputs_filtered (TYPE_TAG_NAME (type), stream);
|
||
return;
|
||
}
|
||
|
||
/* If we see a base class, delegate to C. */
|
||
if (TYPE_N_BASECLASSES (type) > 0)
|
||
c_print_type (type, varstring, stream, show, level, flags);
|
||
|
||
/* This code path is also used by unions. */
|
||
if (TYPE_CODE (type) == TYPE_CODE_STRUCT)
|
||
fputs_filtered ("struct ", stream);
|
||
else
|
||
fputs_filtered ("union ", stream);
|
||
|
||
if (TYPE_TAG_NAME (type) != NULL)
|
||
fputs_filtered (TYPE_TAG_NAME (type), stream);
|
||
|
||
is_tuple_struct = rust_tuple_struct_type_p (type);
|
||
|
||
if (TYPE_NFIELDS (type) == 0 && !rust_tuple_type_p (type))
|
||
return;
|
||
fputs_filtered (is_tuple_struct ? " (\n" : " {\n", stream);
|
||
|
||
for (i = 0; i < TYPE_NFIELDS (type); ++i)
|
||
{
|
||
QUIT;
|
||
if (field_is_static (&TYPE_FIELD (type, i)))
|
||
continue;
|
||
|
||
/* We'd like to print "pub" here as needed, but rustc
|
||
doesn't emit the debuginfo, and our types don't have
|
||
cplus_struct_type attached. */
|
||
|
||
/* For a tuple struct we print the type but nothing
|
||
else. */
|
||
print_spaces_filtered (level + 2, stream);
|
||
if (!is_tuple_struct)
|
||
fprintf_filtered (stream, "%s: ", TYPE_FIELD_NAME (type, i));
|
||
|
||
rust_print_type (TYPE_FIELD_TYPE (type, i), NULL,
|
||
stream, show - 1, level + 2,
|
||
flags);
|
||
fputs_filtered (",\n", stream);
|
||
}
|
||
|
||
fprintfi_filtered (level, stream, is_tuple_struct ? ")" : "}");
|
||
}
|
||
|
||
/* la_print_typedef implementation for Rust. */
|
||
|
||
static void
|
||
rust_print_typedef (struct type *type,
|
||
struct symbol *new_symbol,
|
||
struct ui_file *stream)
|
||
{
|
||
type = check_typedef (type);
|
||
fprintf_filtered (stream, "type %s = ", SYMBOL_PRINT_NAME (new_symbol));
|
||
type_print (type, "", stream, 0);
|
||
fprintf_filtered (stream, ";\n");
|
||
}
|
||
|
||
/* la_print_type implementation for Rust. */
|
||
|
||
static void
|
||
rust_print_type (struct type *type, const char *varstring,
|
||
struct ui_file *stream, int show, int level,
|
||
const struct type_print_options *flags)
|
||
{
|
||
int i;
|
||
|
||
QUIT;
|
||
if (show <= 0
|
||
&& TYPE_NAME (type) != NULL)
|
||
{
|
||
/* Rust calls the unit type "void" in its debuginfo,
|
||
but we don't want to print it as that. */
|
||
if (TYPE_CODE (type) == TYPE_CODE_VOID)
|
||
fputs_filtered ("()", stream);
|
||
else
|
||
fputs_filtered (TYPE_NAME (type), stream);
|
||
return;
|
||
}
|
||
|
||
type = check_typedef (type);
|
||
switch (TYPE_CODE (type))
|
||
{
|
||
case TYPE_CODE_VOID:
|
||
fputs_filtered ("()", stream);
|
||
break;
|
||
|
||
case TYPE_CODE_FUNC:
|
||
/* Delegate varargs to the C printer. */
|
||
if (TYPE_VARARGS (type))
|
||
goto c_printer;
|
||
|
||
fputs_filtered ("fn ", stream);
|
||
if (varstring != NULL)
|
||
fputs_filtered (varstring, stream);
|
||
fputs_filtered ("(", stream);
|
||
for (i = 0; i < TYPE_NFIELDS (type); ++i)
|
||
{
|
||
QUIT;
|
||
if (i > 0)
|
||
fputs_filtered (", ", stream);
|
||
rust_print_type (TYPE_FIELD_TYPE (type, i), "", stream, -1, 0,
|
||
flags);
|
||
}
|
||
fputs_filtered (")", stream);
|
||
/* If it returns unit, we can omit the return type. */
|
||
if (TYPE_CODE (TYPE_TARGET_TYPE (type)) != TYPE_CODE_VOID)
|
||
{
|
||
fputs_filtered (" -> ", stream);
|
||
rust_print_type (TYPE_TARGET_TYPE (type), "", stream, -1, 0, flags);
|
||
}
|
||
break;
|
||
|
||
case TYPE_CODE_ARRAY:
|
||
{
|
||
LONGEST low_bound, high_bound;
|
||
|
||
fputs_filtered ("[", stream);
|
||
rust_print_type (TYPE_TARGET_TYPE (type), NULL,
|
||
stream, show - 1, level, flags);
|
||
|
||
if (TYPE_HIGH_BOUND_KIND (TYPE_INDEX_TYPE (type)) == PROP_LOCEXPR
|
||
|| TYPE_HIGH_BOUND_KIND (TYPE_INDEX_TYPE (type)) == PROP_LOCLIST)
|
||
fprintf_filtered (stream, "; variable length");
|
||
else if (get_array_bounds (type, &low_bound, &high_bound))
|
||
fprintf_filtered (stream, "; %s",
|
||
plongest (high_bound - low_bound + 1));
|
||
fputs_filtered ("]", stream);
|
||
}
|
||
break;
|
||
|
||
case TYPE_CODE_STRUCT:
|
||
rust_print_struct_def (type, varstring, stream, show, level, flags);
|
||
break;
|
||
|
||
case TYPE_CODE_ENUM:
|
||
{
|
||
int i, len = 0;
|
||
|
||
fputs_filtered ("enum ", stream);
|
||
if (TYPE_TAG_NAME (type) != NULL)
|
||
{
|
||
fputs_filtered (TYPE_TAG_NAME (type), stream);
|
||
fputs_filtered (" ", stream);
|
||
len = strlen (TYPE_TAG_NAME (type));
|
||
}
|
||
fputs_filtered ("{\n", stream);
|
||
|
||
for (i = 0; i < TYPE_NFIELDS (type); ++i)
|
||
{
|
||
const char *name = TYPE_FIELD_NAME (type, i);
|
||
|
||
QUIT;
|
||
|
||
if (len > 0
|
||
&& strncmp (name, TYPE_TAG_NAME (type), len) == 0
|
||
&& name[len] == ':'
|
||
&& name[len + 1] == ':')
|
||
name += len + 2;
|
||
fprintfi_filtered (level + 2, stream, "%s,\n", name);
|
||
}
|
||
|
||
fputs_filtered ("}", stream);
|
||
}
|
||
break;
|
||
|
||
case TYPE_CODE_UNION:
|
||
{
|
||
/* ADT enums. */
|
||
int i;
|
||
/* Skip the discriminant field. */
|
||
int skip_to = 1;
|
||
|
||
/* Unions and structs have the same syntax in Rust,
|
||
the only difference is that structs are declared with `struct`
|
||
and union with `union`. This difference is handled in the struct
|
||
printer. */
|
||
if (rust_union_is_untagged (type))
|
||
{
|
||
rust_print_struct_def (type, varstring, stream, show, level, flags);
|
||
break;
|
||
}
|
||
|
||
fputs_filtered ("enum ", stream);
|
||
if (TYPE_TAG_NAME (type) != NULL)
|
||
{
|
||
fputs_filtered (TYPE_TAG_NAME (type), stream);
|
||
fputs_filtered (" ", stream);
|
||
}
|
||
fputs_filtered ("{\n", stream);
|
||
|
||
if (strncmp (TYPE_FIELD_NAME (type, 0), RUST_ENUM_PREFIX,
|
||
strlen (RUST_ENUM_PREFIX)) == 0)
|
||
{
|
||
const char *zero_field = strrchr (TYPE_FIELD_NAME (type, 0), '$');
|
||
if (zero_field != NULL && strlen (zero_field) > 1)
|
||
{
|
||
fprintfi_filtered (level + 2, stream, "%s,\n", zero_field + 1);
|
||
/* There is no explicit discriminant field, skip nothing. */
|
||
skip_to = 0;
|
||
}
|
||
}
|
||
else if (TYPE_NFIELDS (type) == 1)
|
||
skip_to = 0;
|
||
|
||
for (i = 0; i < TYPE_NFIELDS (type); ++i)
|
||
{
|
||
struct type *variant_type = TYPE_FIELD_TYPE (type, i);
|
||
const char *name
|
||
= rust_last_path_segment (TYPE_NAME (variant_type));
|
||
|
||
fprintfi_filtered (level + 2, stream, "%s", name);
|
||
|
||
if (TYPE_NFIELDS (variant_type) > skip_to)
|
||
{
|
||
int first = 1;
|
||
bool is_tuple = (TYPE_NFIELDS (type) == 1
|
||
? rust_tuple_struct_type_p (variant_type)
|
||
: rust_tuple_variant_type_p (variant_type));
|
||
int j;
|
||
|
||
fputs_filtered (is_tuple ? "(" : "{", stream);
|
||
for (j = skip_to; j < TYPE_NFIELDS (variant_type); j++)
|
||
{
|
||
if (first)
|
||
first = 0;
|
||
else
|
||
fputs_filtered (", ", stream);
|
||
|
||
if (!is_tuple)
|
||
fprintf_filtered (stream, "%s: ",
|
||
TYPE_FIELD_NAME (variant_type, j));
|
||
|
||
rust_print_type (TYPE_FIELD_TYPE (variant_type, j), NULL,
|
||
stream, show - 1, level + 2,
|
||
flags);
|
||
}
|
||
fputs_filtered (is_tuple ? ")" : "}", stream);
|
||
}
|
||
|
||
fputs_filtered (",\n", stream);
|
||
}
|
||
|
||
fputs_filtered ("}", stream);
|
||
}
|
||
break;
|
||
|
||
default:
|
||
c_printer:
|
||
c_print_type (type, varstring, stream, show, level, flags);
|
||
}
|
||
}
|
||
|
||
|
||
|
||
/* Compute the alignment of the type T. */
|
||
|
||
static int
|
||
rust_type_alignment (struct type *t)
|
||
{
|
||
t = check_typedef (t);
|
||
switch (TYPE_CODE (t))
|
||
{
|
||
default:
|
||
error (_("Could not compute alignment of type"));
|
||
|
||
case TYPE_CODE_PTR:
|
||
case TYPE_CODE_ENUM:
|
||
case TYPE_CODE_INT:
|
||
case TYPE_CODE_FLT:
|
||
case TYPE_CODE_REF:
|
||
case TYPE_CODE_CHAR:
|
||
case TYPE_CODE_BOOL:
|
||
return TYPE_LENGTH (t);
|
||
|
||
case TYPE_CODE_ARRAY:
|
||
case TYPE_CODE_COMPLEX:
|
||
return rust_type_alignment (TYPE_TARGET_TYPE (t));
|
||
|
||
case TYPE_CODE_STRUCT:
|
||
case TYPE_CODE_UNION:
|
||
{
|
||
int i;
|
||
int align = 1;
|
||
|
||
for (i = 0; i < TYPE_NFIELDS (t); ++i)
|
||
{
|
||
int a = rust_type_alignment (TYPE_FIELD_TYPE (t, i));
|
||
if (a > align)
|
||
align = a;
|
||
}
|
||
return align;
|
||
}
|
||
}
|
||
}
|
||
|
||
/* Like arch_composite_type, but uses TYPE to decide how to allocate
|
||
-- either on an obstack or on a gdbarch. */
|
||
|
||
static struct type *
|
||
rust_composite_type (struct type *original,
|
||
const char *name,
|
||
const char *field1, struct type *type1,
|
||
const char *field2, struct type *type2)
|
||
{
|
||
struct type *result = alloc_type_copy (original);
|
||
int i, nfields, bitpos;
|
||
|
||
nfields = 0;
|
||
if (field1 != NULL)
|
||
++nfields;
|
||
if (field2 != NULL)
|
||
++nfields;
|
||
|
||
TYPE_CODE (result) = TYPE_CODE_STRUCT;
|
||
TYPE_NAME (result) = name;
|
||
TYPE_TAG_NAME (result) = name;
|
||
|
||
TYPE_NFIELDS (result) = nfields;
|
||
TYPE_FIELDS (result)
|
||
= (struct field *) TYPE_ZALLOC (result, nfields * sizeof (struct field));
|
||
|
||
i = 0;
|
||
bitpos = 0;
|
||
if (field1 != NULL)
|
||
{
|
||
struct field *field = &TYPE_FIELD (result, i);
|
||
|
||
SET_FIELD_BITPOS (*field, bitpos);
|
||
bitpos += TYPE_LENGTH (type1) * TARGET_CHAR_BIT;
|
||
|
||
FIELD_NAME (*field) = field1;
|
||
FIELD_TYPE (*field) = type1;
|
||
++i;
|
||
}
|
||
if (field2 != NULL)
|
||
{
|
||
struct field *field = &TYPE_FIELD (result, i);
|
||
int align = rust_type_alignment (type2);
|
||
|
||
if (align != 0)
|
||
{
|
||
int delta;
|
||
|
||
align *= TARGET_CHAR_BIT;
|
||
delta = bitpos % align;
|
||
if (delta != 0)
|
||
bitpos += align - delta;
|
||
}
|
||
SET_FIELD_BITPOS (*field, bitpos);
|
||
|
||
FIELD_NAME (*field) = field2;
|
||
FIELD_TYPE (*field) = type2;
|
||
++i;
|
||
}
|
||
|
||
if (i > 0)
|
||
TYPE_LENGTH (result)
|
||
= (TYPE_FIELD_BITPOS (result, i - 1) / TARGET_CHAR_BIT +
|
||
TYPE_LENGTH (TYPE_FIELD_TYPE (result, i - 1)));
|
||
return result;
|
||
}
|
||
|
||
/* See rust-lang.h. */
|
||
|
||
struct type *
|
||
rust_slice_type (const char *name, struct type *elt_type,
|
||
struct type *usize_type)
|
||
{
|
||
struct type *type;
|
||
|
||
elt_type = lookup_pointer_type (elt_type);
|
||
type = rust_composite_type (elt_type, name,
|
||
"data_ptr", elt_type,
|
||
"length", usize_type);
|
||
|
||
return type;
|
||
}
|
||
|
||
enum rust_primitive_types
|
||
{
|
||
rust_primitive_bool,
|
||
rust_primitive_char,
|
||
rust_primitive_i8,
|
||
rust_primitive_u8,
|
||
rust_primitive_i16,
|
||
rust_primitive_u16,
|
||
rust_primitive_i32,
|
||
rust_primitive_u32,
|
||
rust_primitive_i64,
|
||
rust_primitive_u64,
|
||
rust_primitive_isize,
|
||
rust_primitive_usize,
|
||
rust_primitive_f32,
|
||
rust_primitive_f64,
|
||
rust_primitive_unit,
|
||
rust_primitive_str,
|
||
nr_rust_primitive_types
|
||
};
|
||
|
||
/* la_language_arch_info implementation for Rust. */
|
||
|
||
static void
|
||
rust_language_arch_info (struct gdbarch *gdbarch,
|
||
struct language_arch_info *lai)
|
||
{
|
||
const struct builtin_type *builtin = builtin_type (gdbarch);
|
||
struct type *tem;
|
||
struct type **types;
|
||
unsigned int length;
|
||
|
||
types = GDBARCH_OBSTACK_CALLOC (gdbarch, nr_rust_primitive_types + 1,
|
||
struct type *);
|
||
|
||
types[rust_primitive_bool] = arch_boolean_type (gdbarch, 8, 1, "bool");
|
||
types[rust_primitive_char] = arch_character_type (gdbarch, 32, 1, "char");
|
||
types[rust_primitive_i8] = arch_integer_type (gdbarch, 8, 0, "i8");
|
||
types[rust_primitive_u8] = arch_integer_type (gdbarch, 8, 1, "u8");
|
||
types[rust_primitive_i16] = arch_integer_type (gdbarch, 16, 0, "i16");
|
||
types[rust_primitive_u16] = arch_integer_type (gdbarch, 16, 1, "u16");
|
||
types[rust_primitive_i32] = arch_integer_type (gdbarch, 32, 0, "i32");
|
||
types[rust_primitive_u32] = arch_integer_type (gdbarch, 32, 1, "u32");
|
||
types[rust_primitive_i64] = arch_integer_type (gdbarch, 64, 0, "i64");
|
||
types[rust_primitive_u64] = arch_integer_type (gdbarch, 64, 1, "u64");
|
||
|
||
length = 8 * TYPE_LENGTH (builtin->builtin_data_ptr);
|
||
types[rust_primitive_isize] = arch_integer_type (gdbarch, length, 0, "isize");
|
||
types[rust_primitive_usize] = arch_integer_type (gdbarch, length, 1, "usize");
|
||
|
||
types[rust_primitive_f32] = arch_float_type (gdbarch, 32, "f32",
|
||
floatformats_ieee_single);
|
||
types[rust_primitive_f64] = arch_float_type (gdbarch, 64, "f64",
|
||
floatformats_ieee_double);
|
||
|
||
types[rust_primitive_unit] = arch_integer_type (gdbarch, 0, 1, "()");
|
||
|
||
tem = make_cv_type (1, 0, types[rust_primitive_u8], NULL);
|
||
types[rust_primitive_str] = rust_slice_type ("&str", tem,
|
||
types[rust_primitive_usize]);
|
||
|
||
lai->primitive_type_vector = types;
|
||
lai->bool_type_default = types[rust_primitive_bool];
|
||
lai->string_char_type = types[rust_primitive_u8];
|
||
}
|
||
|
||
|
||
|
||
/* A helper for rust_evaluate_subexp that handles OP_FUNCALL. */
|
||
|
||
static struct value *
|
||
rust_evaluate_funcall (struct expression *exp, int *pos, enum noside noside)
|
||
{
|
||
int i;
|
||
int num_args = exp->elts[*pos + 1].longconst;
|
||
const char *method;
|
||
struct value *function, *result, *arg0;
|
||
struct type *type, *fn_type;
|
||
const struct block *block;
|
||
struct block_symbol sym;
|
||
|
||
/* For an ordinary function call we can simply defer to the
|
||
generic implementation. */
|
||
if (exp->elts[*pos + 3].opcode != STRUCTOP_STRUCT)
|
||
return evaluate_subexp_standard (NULL, exp, pos, noside);
|
||
|
||
/* Skip over the OP_FUNCALL and the STRUCTOP_STRUCT. */
|
||
*pos += 4;
|
||
method = &exp->elts[*pos + 1].string;
|
||
*pos += 3 + BYTES_TO_EXP_ELEM (exp->elts[*pos].longconst + 1);
|
||
|
||
/* Evaluate the argument to STRUCTOP_STRUCT, then find its
|
||
type in order to look up the method. */
|
||
arg0 = evaluate_subexp (NULL_TYPE, exp, pos, noside);
|
||
|
||
if (noside == EVAL_SKIP)
|
||
{
|
||
for (i = 0; i < num_args; ++i)
|
||
evaluate_subexp (NULL_TYPE, exp, pos, noside);
|
||
return arg0;
|
||
}
|
||
|
||
std::vector<struct value *> args (num_args + 1);
|
||
args[0] = arg0;
|
||
|
||
/* We don't yet implement real Deref semantics. */
|
||
while (TYPE_CODE (value_type (args[0])) == TYPE_CODE_PTR)
|
||
args[0] = value_ind (args[0]);
|
||
|
||
type = value_type (args[0]);
|
||
if ((TYPE_CODE (type) != TYPE_CODE_STRUCT
|
||
&& TYPE_CODE (type) != TYPE_CODE_UNION
|
||
&& TYPE_CODE (type) != TYPE_CODE_ENUM)
|
||
|| rust_tuple_type_p (type))
|
||
error (_("Method calls only supported on struct or enum types"));
|
||
if (TYPE_TAG_NAME (type) == NULL)
|
||
error (_("Method call on nameless type"));
|
||
|
||
std::string name = std::string (TYPE_TAG_NAME (type)) + "::" + method;
|
||
|
||
block = get_selected_block (0);
|
||
sym = lookup_symbol (name.c_str (), block, VAR_DOMAIN, NULL);
|
||
if (sym.symbol == NULL)
|
||
error (_("Could not find function named '%s'"), name.c_str ());
|
||
|
||
fn_type = SYMBOL_TYPE (sym.symbol);
|
||
if (TYPE_NFIELDS (fn_type) == 0)
|
||
error (_("Function '%s' takes no arguments"), name.c_str ());
|
||
|
||
if (TYPE_CODE (TYPE_FIELD_TYPE (fn_type, 0)) == TYPE_CODE_PTR)
|
||
args[0] = value_addr (args[0]);
|
||
|
||
function = address_of_variable (sym.symbol, block);
|
||
|
||
for (i = 0; i < num_args; ++i)
|
||
args[i + 1] = evaluate_subexp (NULL_TYPE, exp, pos, noside);
|
||
|
||
if (noside == EVAL_AVOID_SIDE_EFFECTS)
|
||
result = value_zero (TYPE_TARGET_TYPE (fn_type), not_lval);
|
||
else
|
||
result = call_function_by_hand (function, NULL, num_args + 1, args.data ());
|
||
return result;
|
||
}
|
||
|
||
/* A helper for rust_evaluate_subexp that handles OP_RANGE. */
|
||
|
||
static struct value *
|
||
rust_range (struct expression *exp, int *pos, enum noside noside)
|
||
{
|
||
enum range_type kind;
|
||
struct value *low = NULL, *high = NULL;
|
||
struct value *addrval, *result;
|
||
CORE_ADDR addr;
|
||
struct type *range_type;
|
||
struct type *index_type;
|
||
struct type *temp_type;
|
||
const char *name;
|
||
|
||
kind = (enum range_type) longest_to_int (exp->elts[*pos + 1].longconst);
|
||
*pos += 3;
|
||
|
||
if (kind == HIGH_BOUND_DEFAULT || kind == NONE_BOUND_DEFAULT)
|
||
low = evaluate_subexp (NULL_TYPE, exp, pos, noside);
|
||
if (kind == LOW_BOUND_DEFAULT || kind == NONE_BOUND_DEFAULT)
|
||
high = evaluate_subexp (NULL_TYPE, exp, pos, noside);
|
||
|
||
if (noside == EVAL_SKIP)
|
||
return value_from_longest (builtin_type (exp->gdbarch)->builtin_int, 1);
|
||
|
||
if (low == NULL)
|
||
{
|
||
if (high == NULL)
|
||
{
|
||
index_type = NULL;
|
||
name = "std::ops::RangeFull";
|
||
}
|
||
else
|
||
{
|
||
index_type = value_type (high);
|
||
name = "std::ops::RangeTo";
|
||
}
|
||
}
|
||
else
|
||
{
|
||
if (high == NULL)
|
||
{
|
||
index_type = value_type (low);
|
||
name = "std::ops::RangeFrom";
|
||
}
|
||
else
|
||
{
|
||
if (!types_equal (value_type (low), value_type (high)))
|
||
error (_("Range expression with different types"));
|
||
index_type = value_type (low);
|
||
name = "std::ops::Range";
|
||
}
|
||
}
|
||
|
||
/* If we don't have an index type, just allocate this on the
|
||
arch. Here any type will do. */
|
||
temp_type = (index_type == NULL
|
||
? language_bool_type (exp->language_defn, exp->gdbarch)
|
||
: index_type);
|
||
/* It would be nicer to cache the range type. */
|
||
range_type = rust_composite_type (temp_type, name,
|
||
low == NULL ? NULL : "start", index_type,
|
||
high == NULL ? NULL : "end", index_type);
|
||
|
||
if (noside == EVAL_AVOID_SIDE_EFFECTS)
|
||
return value_zero (range_type, lval_memory);
|
||
|
||
addrval = value_allocate_space_in_inferior (TYPE_LENGTH (range_type));
|
||
addr = value_as_long (addrval);
|
||
result = value_at_lazy (range_type, addr);
|
||
|
||
if (low != NULL)
|
||
{
|
||
struct value *start = value_struct_elt (&result, NULL, "start", NULL,
|
||
"range");
|
||
|
||
value_assign (start, low);
|
||
}
|
||
|
||
if (high != NULL)
|
||
{
|
||
struct value *end = value_struct_elt (&result, NULL, "end", NULL,
|
||
"range");
|
||
|
||
value_assign (end, high);
|
||
}
|
||
|
||
result = value_at_lazy (range_type, addr);
|
||
return result;
|
||
}
|
||
|
||
/* A helper function to compute the range and kind given a range
|
||
value. TYPE is the type of the range value. RANGE is the range
|
||
value. LOW, HIGH, and KIND are out parameters. The LOW and HIGH
|
||
parameters might be filled in, or might not be, depending on the
|
||
kind of range this is. KIND will always be set to the appropriate
|
||
value describing the kind of range, and this can be used to
|
||
determine whether LOW or HIGH are valid. */
|
||
|
||
static void
|
||
rust_compute_range (struct type *type, struct value *range,
|
||
LONGEST *low, LONGEST *high,
|
||
enum range_type *kind)
|
||
{
|
||
int i;
|
||
|
||
*low = 0;
|
||
*high = 0;
|
||
*kind = BOTH_BOUND_DEFAULT;
|
||
|
||
if (TYPE_NFIELDS (type) == 0)
|
||
return;
|
||
|
||
i = 0;
|
||
if (strcmp (TYPE_FIELD_NAME (type, 0), "start") == 0)
|
||
{
|
||
*kind = HIGH_BOUND_DEFAULT;
|
||
*low = value_as_long (value_field (range, 0));
|
||
++i;
|
||
}
|
||
if (TYPE_NFIELDS (type) > i
|
||
&& strcmp (TYPE_FIELD_NAME (type, i), "end") == 0)
|
||
{
|
||
*kind = (*kind == BOTH_BOUND_DEFAULT
|
||
? LOW_BOUND_DEFAULT : NONE_BOUND_DEFAULT);
|
||
*high = value_as_long (value_field (range, i));
|
||
}
|
||
}
|
||
|
||
/* A helper for rust_evaluate_subexp that handles BINOP_SUBSCRIPT. */
|
||
|
||
static struct value *
|
||
rust_subscript (struct expression *exp, int *pos, enum noside noside,
|
||
int for_addr)
|
||
{
|
||
struct value *lhs, *rhs, *result;
|
||
struct type *rhstype;
|
||
LONGEST low, high_bound;
|
||
/* Initialized to appease the compiler. */
|
||
enum range_type kind = BOTH_BOUND_DEFAULT;
|
||
LONGEST high = 0;
|
||
int want_slice = 0;
|
||
|
||
++*pos;
|
||
lhs = evaluate_subexp (NULL_TYPE, exp, pos, noside);
|
||
rhs = evaluate_subexp (NULL_TYPE, exp, pos, noside);
|
||
|
||
if (noside == EVAL_SKIP)
|
||
return lhs;
|
||
|
||
rhstype = check_typedef (value_type (rhs));
|
||
if (rust_range_type_p (rhstype))
|
||
{
|
||
if (!for_addr)
|
||
error (_("Can't take slice of array without '&'"));
|
||
rust_compute_range (rhstype, rhs, &low, &high, &kind);
|
||
want_slice = 1;
|
||
}
|
||
else
|
||
low = value_as_long (rhs);
|
||
|
||
struct type *type = check_typedef (value_type (lhs));
|
||
if (noside == EVAL_AVOID_SIDE_EFFECTS)
|
||
{
|
||
struct type *base_type = nullptr;
|
||
if (TYPE_CODE (type) == TYPE_CODE_ARRAY)
|
||
base_type = TYPE_TARGET_TYPE (type);
|
||
else if (rust_slice_type_p (type))
|
||
{
|
||
for (int i = 0; i < TYPE_NFIELDS (type); ++i)
|
||
{
|
||
if (strcmp (TYPE_FIELD_NAME (type, i), "data_ptr") == 0)
|
||
{
|
||
base_type = TYPE_TARGET_TYPE (TYPE_FIELD_TYPE (type, i));
|
||
break;
|
||
}
|
||
}
|
||
if (base_type == nullptr)
|
||
error (_("Could not find 'data_ptr' in slice type"));
|
||
}
|
||
else if (TYPE_CODE (type) == TYPE_CODE_PTR)
|
||
base_type = TYPE_TARGET_TYPE (type);
|
||
else
|
||
error (_("Cannot subscript non-array type"));
|
||
|
||
struct type *new_type;
|
||
if (want_slice)
|
||
{
|
||
if (rust_slice_type_p (type))
|
||
new_type = type;
|
||
else
|
||
{
|
||
struct type *usize
|
||
= language_lookup_primitive_type (exp->language_defn,
|
||
exp->gdbarch,
|
||
"usize");
|
||
new_type = rust_slice_type ("&[*gdb*]", base_type, usize);
|
||
}
|
||
}
|
||
else
|
||
new_type = base_type;
|
||
|
||
return value_zero (new_type, VALUE_LVAL (lhs));
|
||
}
|
||
else
|
||
{
|
||
LONGEST low_bound;
|
||
struct value *base;
|
||
|
||
if (TYPE_CODE (type) == TYPE_CODE_ARRAY)
|
||
{
|
||
base = lhs;
|
||
if (!get_array_bounds (type, &low_bound, &high_bound))
|
||
error (_("Can't compute array bounds"));
|
||
if (low_bound != 0)
|
||
error (_("Found array with non-zero lower bound"));
|
||
++high_bound;
|
||
}
|
||
else if (rust_slice_type_p (type))
|
||
{
|
||
struct value *len;
|
||
|
||
base = value_struct_elt (&lhs, NULL, "data_ptr", NULL, "slice");
|
||
len = value_struct_elt (&lhs, NULL, "length", NULL, "slice");
|
||
low_bound = 0;
|
||
high_bound = value_as_long (len);
|
||
}
|
||
else if (TYPE_CODE (type) == TYPE_CODE_PTR)
|
||
{
|
||
base = lhs;
|
||
low_bound = 0;
|
||
high_bound = LONGEST_MAX;
|
||
}
|
||
else
|
||
error (_("Cannot subscript non-array type"));
|
||
|
||
if (want_slice
|
||
&& (kind == BOTH_BOUND_DEFAULT || kind == LOW_BOUND_DEFAULT))
|
||
low = low_bound;
|
||
if (low < 0)
|
||
error (_("Index less than zero"));
|
||
if (low > high_bound)
|
||
error (_("Index greater than length"));
|
||
|
||
result = value_subscript (base, low);
|
||
}
|
||
|
||
if (for_addr)
|
||
{
|
||
if (want_slice)
|
||
{
|
||
struct type *usize, *slice;
|
||
CORE_ADDR addr;
|
||
struct value *addrval, *tem;
|
||
|
||
if (kind == BOTH_BOUND_DEFAULT || kind == HIGH_BOUND_DEFAULT)
|
||
high = high_bound;
|
||
if (high < 0)
|
||
error (_("High index less than zero"));
|
||
if (low > high)
|
||
error (_("Low index greater than high index"));
|
||
if (high > high_bound)
|
||
error (_("High index greater than length"));
|
||
|
||
usize = language_lookup_primitive_type (exp->language_defn,
|
||
exp->gdbarch,
|
||
"usize");
|
||
const char *new_name = ((type != nullptr
|
||
&& rust_slice_type_p (type))
|
||
? TYPE_NAME (type) : "&[*gdb*]");
|
||
|
||
slice = rust_slice_type (new_name, value_type (result), usize);
|
||
|
||
addrval = value_allocate_space_in_inferior (TYPE_LENGTH (slice));
|
||
addr = value_as_long (addrval);
|
||
tem = value_at_lazy (slice, addr);
|
||
|
||
value_assign (value_field (tem, 0), value_addr (result));
|
||
value_assign (value_field (tem, 1),
|
||
value_from_longest (usize, high - low));
|
||
|
||
result = value_at_lazy (slice, addr);
|
||
}
|
||
else
|
||
result = value_addr (result);
|
||
}
|
||
|
||
return result;
|
||
}
|
||
|
||
/* evaluate_exp implementation for Rust. */
|
||
|
||
static struct value *
|
||
rust_evaluate_subexp (struct type *expect_type, struct expression *exp,
|
||
int *pos, enum noside noside)
|
||
{
|
||
struct value *result;
|
||
|
||
switch (exp->elts[*pos].opcode)
|
||
{
|
||
case UNOP_IND:
|
||
{
|
||
if (noside != EVAL_NORMAL)
|
||
result = evaluate_subexp_standard (expect_type, exp, pos, noside);
|
||
else
|
||
{
|
||
++*pos;
|
||
struct value *value = evaluate_subexp (expect_type, exp, pos,
|
||
noside);
|
||
|
||
struct value *trait_ptr = rust_get_trait_object_pointer (value);
|
||
if (trait_ptr != NULL)
|
||
value = trait_ptr;
|
||
|
||
result = value_ind (value);
|
||
}
|
||
}
|
||
break;
|
||
|
||
case UNOP_COMPLEMENT:
|
||
{
|
||
struct value *value;
|
||
|
||
++*pos;
|
||
value = evaluate_subexp (NULL_TYPE, exp, pos, noside);
|
||
if (noside == EVAL_SKIP)
|
||
{
|
||
/* Preserving the type is enough. */
|
||
return value;
|
||
}
|
||
if (TYPE_CODE (value_type (value)) == TYPE_CODE_BOOL)
|
||
result = value_from_longest (value_type (value),
|
||
value_logical_not (value));
|
||
else
|
||
result = value_complement (value);
|
||
}
|
||
break;
|
||
|
||
case BINOP_SUBSCRIPT:
|
||
result = rust_subscript (exp, pos, noside, 0);
|
||
break;
|
||
|
||
case OP_FUNCALL:
|
||
result = rust_evaluate_funcall (exp, pos, noside);
|
||
break;
|
||
|
||
case OP_AGGREGATE:
|
||
{
|
||
int pc = (*pos)++;
|
||
struct type *type = exp->elts[pc + 1].type;
|
||
int arglen = longest_to_int (exp->elts[pc + 2].longconst);
|
||
int i;
|
||
CORE_ADDR addr = 0;
|
||
struct value *addrval = NULL;
|
||
|
||
*pos += 3;
|
||
|
||
if (noside == EVAL_NORMAL)
|
||
{
|
||
addrval = value_allocate_space_in_inferior (TYPE_LENGTH (type));
|
||
addr = value_as_long (addrval);
|
||
result = value_at_lazy (type, addr);
|
||
}
|
||
|
||
if (arglen > 0 && exp->elts[*pos].opcode == OP_OTHERS)
|
||
{
|
||
struct value *init;
|
||
|
||
++*pos;
|
||
init = rust_evaluate_subexp (NULL, exp, pos, noside);
|
||
if (noside == EVAL_NORMAL)
|
||
{
|
||
/* This isn't quite right but will do for the time
|
||
being, seeing that we can't implement the Copy
|
||
trait anyway. */
|
||
value_assign (result, init);
|
||
}
|
||
|
||
--arglen;
|
||
}
|
||
|
||
gdb_assert (arglen % 2 == 0);
|
||
for (i = 0; i < arglen; i += 2)
|
||
{
|
||
int len;
|
||
const char *fieldname;
|
||
struct value *value, *field;
|
||
|
||
gdb_assert (exp->elts[*pos].opcode == OP_NAME);
|
||
++*pos;
|
||
len = longest_to_int (exp->elts[*pos].longconst);
|
||
++*pos;
|
||
fieldname = &exp->elts[*pos].string;
|
||
*pos += 2 + BYTES_TO_EXP_ELEM (len + 1);
|
||
|
||
value = rust_evaluate_subexp (NULL, exp, pos, noside);
|
||
if (noside == EVAL_NORMAL)
|
||
{
|
||
field = value_struct_elt (&result, NULL, fieldname, NULL,
|
||
"structure");
|
||
value_assign (field, value);
|
||
}
|
||
}
|
||
|
||
if (noside == EVAL_SKIP)
|
||
return value_from_longest (builtin_type (exp->gdbarch)->builtin_int,
|
||
1);
|
||
else if (noside == EVAL_AVOID_SIDE_EFFECTS)
|
||
result = allocate_value (type);
|
||
else
|
||
result = value_at_lazy (type, addr);
|
||
}
|
||
break;
|
||
|
||
case OP_RUST_ARRAY:
|
||
{
|
||
int pc = (*pos)++;
|
||
int copies;
|
||
struct value *elt;
|
||
struct value *ncopies;
|
||
|
||
elt = rust_evaluate_subexp (NULL, exp, pos, noside);
|
||
ncopies = rust_evaluate_subexp (NULL, exp, pos, noside);
|
||
copies = value_as_long (ncopies);
|
||
if (copies < 0)
|
||
error (_("Array with negative number of elements"));
|
||
|
||
if (noside == EVAL_NORMAL)
|
||
{
|
||
int i;
|
||
std::vector<struct value *> eltvec (copies);
|
||
|
||
for (i = 0; i < copies; ++i)
|
||
eltvec[i] = elt;
|
||
result = value_array (0, copies - 1, eltvec.data ());
|
||
}
|
||
else
|
||
{
|
||
struct type *arraytype
|
||
= lookup_array_range_type (value_type (elt), 0, copies - 1);
|
||
result = allocate_value (arraytype);
|
||
}
|
||
}
|
||
break;
|
||
|
||
case STRUCTOP_ANONYMOUS:
|
||
{
|
||
/* Anonymous field access, i.e. foo.1. */
|
||
struct value *lhs;
|
||
int pc, field_number, nfields;
|
||
struct type *type, *variant_type;
|
||
struct disr_info disr;
|
||
|
||
pc = (*pos)++;
|
||
field_number = longest_to_int (exp->elts[pc + 1].longconst);
|
||
(*pos) += 2;
|
||
lhs = evaluate_subexp (NULL_TYPE, exp, pos, noside);
|
||
|
||
type = value_type (lhs);
|
||
/* Untagged unions can't have anonymous field access since
|
||
they can only have named fields. */
|
||
if (TYPE_CODE (type) == TYPE_CODE_UNION
|
||
&& !rust_union_is_untagged (type))
|
||
{
|
||
disr = rust_get_disr_info (type, value_contents (lhs),
|
||
value_embedded_offset (lhs),
|
||
value_address (lhs), lhs);
|
||
|
||
if (disr.is_encoded && disr.field_no == RUST_ENCODED_ENUM_HIDDEN)
|
||
{
|
||
variant_type = NULL;
|
||
nfields = 0;
|
||
}
|
||
else
|
||
{
|
||
variant_type = TYPE_FIELD_TYPE (type, disr.field_no);
|
||
nfields = TYPE_NFIELDS (variant_type);
|
||
}
|
||
|
||
if (!disr.is_encoded)
|
||
++field_number;
|
||
|
||
if (field_number >= nfields || field_number < 0)
|
||
error(_("Cannot access field %d of variant %s, \
|
||
there are only %d fields"),
|
||
disr.is_encoded ? field_number : field_number - 1,
|
||
disr.name.c_str (),
|
||
disr.is_encoded ? nfields : nfields - 1);
|
||
|
||
if (!(disr.is_encoded
|
||
? rust_tuple_struct_type_p (variant_type)
|
||
: rust_tuple_variant_type_p (variant_type)))
|
||
error(_("Variant %s is not a tuple variant"), disr.name.c_str ());
|
||
|
||
result = value_primitive_field (lhs, 0, field_number,
|
||
variant_type);
|
||
}
|
||
else if (TYPE_CODE (type) == TYPE_CODE_STRUCT)
|
||
{
|
||
/* Tuples and tuple structs */
|
||
nfields = TYPE_NFIELDS(type);
|
||
|
||
if (field_number >= nfields || field_number < 0)
|
||
error(_("Cannot access field %d of %s, there are only %d fields"),
|
||
field_number, TYPE_TAG_NAME (type), nfields);
|
||
|
||
/* Tuples are tuple structs too. */
|
||
if (!rust_tuple_struct_type_p (type))
|
||
error(_("Attempting to access anonymous field %d of %s, which is \
|
||
not a tuple, tuple struct, or tuple-like variant"),
|
||
field_number, TYPE_TAG_NAME (type));
|
||
|
||
result = value_primitive_field (lhs, 0, field_number, type);
|
||
}
|
||
else
|
||
error(_("Anonymous field access is only allowed on tuples, \
|
||
tuple structs, and tuple-like enum variants"));
|
||
}
|
||
break;
|
||
|
||
case STRUCTOP_STRUCT:
|
||
{
|
||
struct value *lhs;
|
||
struct type *type;
|
||
int tem, pc;
|
||
|
||
pc = (*pos)++;
|
||
tem = longest_to_int (exp->elts[pc + 1].longconst);
|
||
(*pos) += 3 + BYTES_TO_EXP_ELEM (tem + 1);
|
||
lhs = evaluate_subexp (NULL_TYPE, exp, pos, noside);
|
||
|
||
const char *field_name = &exp->elts[pc + 2].string;
|
||
type = value_type (lhs);
|
||
if (TYPE_CODE (type) == TYPE_CODE_UNION
|
||
&& !rust_union_is_untagged (type))
|
||
{
|
||
int i, start;
|
||
struct disr_info disr;
|
||
struct type *variant_type;
|
||
|
||
disr = rust_get_disr_info (type, value_contents (lhs),
|
||
value_embedded_offset (lhs),
|
||
value_address (lhs), lhs);
|
||
|
||
if (disr.is_encoded && disr.field_no == RUST_ENCODED_ENUM_HIDDEN)
|
||
error(_("Could not find field %s of struct variant %s"),
|
||
field_name, disr.name.c_str ());
|
||
|
||
variant_type = TYPE_FIELD_TYPE (type, disr.field_no);
|
||
|
||
if (variant_type == NULL
|
||
|| (disr.is_encoded
|
||
? rust_tuple_struct_type_p (variant_type)
|
||
: rust_tuple_variant_type_p (variant_type)))
|
||
error(_("Attempting to access named field %s of tuple variant %s, \
|
||
which has only anonymous fields"),
|
||
field_name, disr.name.c_str ());
|
||
|
||
start = disr.is_encoded ? 0 : 1;
|
||
for (i = start; i < TYPE_NFIELDS (variant_type); i++)
|
||
{
|
||
if (strcmp (TYPE_FIELD_NAME (variant_type, i),
|
||
field_name) == 0) {
|
||
result = value_primitive_field (lhs, 0, i, variant_type);
|
||
break;
|
||
}
|
||
}
|
||
|
||
if (i == TYPE_NFIELDS (variant_type))
|
||
/* We didn't find it. */
|
||
error(_("Could not find field %s of struct variant %s"),
|
||
field_name, disr.name.c_str ());
|
||
}
|
||
else
|
||
{
|
||
result = value_struct_elt (&lhs, NULL, field_name, NULL,
|
||
"structure");
|
||
if (noside == EVAL_AVOID_SIDE_EFFECTS)
|
||
result = value_zero (value_type (result), VALUE_LVAL (result));
|
||
}
|
||
}
|
||
break;
|
||
|
||
case OP_RANGE:
|
||
result = rust_range (exp, pos, noside);
|
||
break;
|
||
|
||
case UNOP_ADDR:
|
||
/* We might have &array[range], in which case we need to make a
|
||
slice. */
|
||
if (exp->elts[*pos + 1].opcode == BINOP_SUBSCRIPT)
|
||
{
|
||
++*pos;
|
||
result = rust_subscript (exp, pos, noside, 1);
|
||
break;
|
||
}
|
||
/* Fall through. */
|
||
default:
|
||
result = evaluate_subexp_standard (expect_type, exp, pos, noside);
|
||
break;
|
||
}
|
||
|
||
return result;
|
||
}
|
||
|
||
/* operator_length implementation for Rust. */
|
||
|
||
static void
|
||
rust_operator_length (const struct expression *exp, int pc, int *oplenp,
|
||
int *argsp)
|
||
{
|
||
int oplen = 1;
|
||
int args = 0;
|
||
|
||
switch (exp->elts[pc - 1].opcode)
|
||
{
|
||
case OP_AGGREGATE:
|
||
/* We handle aggregate as a type and argument count. The first
|
||
argument might be OP_OTHERS. After that the arguments
|
||
alternate: first an OP_NAME, then an expression. */
|
||
oplen = 4;
|
||
args = longest_to_int (exp->elts[pc - 2].longconst);
|
||
break;
|
||
|
||
case OP_OTHERS:
|
||
oplen = 1;
|
||
args = 1;
|
||
break;
|
||
|
||
case STRUCTOP_ANONYMOUS:
|
||
oplen = 3;
|
||
args = 1;
|
||
break;
|
||
|
||
case OP_RUST_ARRAY:
|
||
oplen = 1;
|
||
args = 2;
|
||
break;
|
||
|
||
default:
|
||
operator_length_standard (exp, pc, oplenp, argsp);
|
||
return;
|
||
}
|
||
|
||
*oplenp = oplen;
|
||
*argsp = args;
|
||
}
|
||
|
||
/* op_name implementation for Rust. */
|
||
|
||
static const char *
|
||
rust_op_name (enum exp_opcode opcode)
|
||
{
|
||
switch (opcode)
|
||
{
|
||
case OP_AGGREGATE:
|
||
return "OP_AGGREGATE";
|
||
case OP_OTHERS:
|
||
return "OP_OTHERS";
|
||
default:
|
||
return op_name_standard (opcode);
|
||
}
|
||
}
|
||
|
||
/* dump_subexp_body implementation for Rust. */
|
||
|
||
static int
|
||
rust_dump_subexp_body (struct expression *exp, struct ui_file *stream,
|
||
int elt)
|
||
{
|
||
switch (exp->elts[elt].opcode)
|
||
{
|
||
case OP_AGGREGATE:
|
||
{
|
||
int length = longest_to_int (exp->elts[elt + 2].longconst);
|
||
int i;
|
||
|
||
fprintf_filtered (stream, "Type @");
|
||
gdb_print_host_address (exp->elts[elt + 1].type, stream);
|
||
fprintf_filtered (stream, " (");
|
||
type_print (exp->elts[elt + 1].type, NULL, stream, 0);
|
||
fprintf_filtered (stream, "), length %d", length);
|
||
|
||
elt += 4;
|
||
for (i = 0; i < length; ++i)
|
||
elt = dump_subexp (exp, stream, elt);
|
||
}
|
||
break;
|
||
|
||
case OP_STRING:
|
||
case OP_NAME:
|
||
{
|
||
LONGEST len = exp->elts[elt + 1].longconst;
|
||
|
||
fprintf_filtered (stream, "%s: %s",
|
||
(exp->elts[elt].opcode == OP_STRING
|
||
? "string" : "name"),
|
||
&exp->elts[elt + 2].string);
|
||
elt += 4 + BYTES_TO_EXP_ELEM (len + 1);
|
||
}
|
||
break;
|
||
|
||
case OP_OTHERS:
|
||
elt = dump_subexp (exp, stream, elt + 1);
|
||
break;
|
||
|
||
case STRUCTOP_ANONYMOUS:
|
||
{
|
||
int field_number;
|
||
|
||
field_number = longest_to_int (exp->elts[elt + 1].longconst);
|
||
|
||
fprintf_filtered (stream, "Field number: %d", field_number);
|
||
elt = dump_subexp (exp, stream, elt + 3);
|
||
}
|
||
break;
|
||
|
||
case OP_RUST_ARRAY:
|
||
++elt;
|
||
break;
|
||
|
||
default:
|
||
elt = dump_subexp_body_standard (exp, stream, elt);
|
||
break;
|
||
}
|
||
|
||
return elt;
|
||
}
|
||
|
||
/* print_subexp implementation for Rust. */
|
||
|
||
static void
|
||
rust_print_subexp (struct expression *exp, int *pos, struct ui_file *stream,
|
||
enum precedence prec)
|
||
{
|
||
switch (exp->elts[*pos].opcode)
|
||
{
|
||
case OP_AGGREGATE:
|
||
{
|
||
int length = longest_to_int (exp->elts[*pos + 2].longconst);
|
||
int i;
|
||
|
||
type_print (exp->elts[*pos + 1].type, "", stream, 0);
|
||
fputs_filtered (" { ", stream);
|
||
|
||
*pos += 4;
|
||
for (i = 0; i < length; ++i)
|
||
{
|
||
rust_print_subexp (exp, pos, stream, prec);
|
||
fputs_filtered (", ", stream);
|
||
}
|
||
fputs_filtered (" }", stream);
|
||
}
|
||
break;
|
||
|
||
case OP_NAME:
|
||
{
|
||
LONGEST len = exp->elts[*pos + 1].longconst;
|
||
|
||
fputs_filtered (&exp->elts[*pos + 2].string, stream);
|
||
*pos += 4 + BYTES_TO_EXP_ELEM (len + 1);
|
||
}
|
||
break;
|
||
|
||
case OP_OTHERS:
|
||
{
|
||
fputs_filtered ("<<others>> (", stream);
|
||
++*pos;
|
||
rust_print_subexp (exp, pos, stream, prec);
|
||
fputs_filtered (")", stream);
|
||
}
|
||
break;
|
||
|
||
case STRUCTOP_ANONYMOUS:
|
||
{
|
||
int tem = longest_to_int (exp->elts[*pos + 1].longconst);
|
||
|
||
(*pos) += 3;
|
||
print_subexp (exp, pos, stream, PREC_SUFFIX);
|
||
fprintf_filtered (stream, ".%d", tem);
|
||
}
|
||
break;
|
||
|
||
case OP_RUST_ARRAY:
|
||
++*pos;
|
||
fprintf_filtered (stream, "[");
|
||
rust_print_subexp (exp, pos, stream, prec);
|
||
fprintf_filtered (stream, "; ");
|
||
rust_print_subexp (exp, pos, stream, prec);
|
||
fprintf_filtered (stream, "]");
|
||
break;
|
||
|
||
default:
|
||
print_subexp_standard (exp, pos, stream, prec);
|
||
break;
|
||
}
|
||
}
|
||
|
||
/* operator_check implementation for Rust. */
|
||
|
||
static int
|
||
rust_operator_check (struct expression *exp, int pos,
|
||
int (*objfile_func) (struct objfile *objfile,
|
||
void *data),
|
||
void *data)
|
||
{
|
||
switch (exp->elts[pos].opcode)
|
||
{
|
||
case OP_AGGREGATE:
|
||
{
|
||
struct type *type = exp->elts[pos + 1].type;
|
||
struct objfile *objfile = TYPE_OBJFILE (type);
|
||
|
||
if (objfile != NULL && (*objfile_func) (objfile, data))
|
||
return 1;
|
||
}
|
||
break;
|
||
|
||
case OP_OTHERS:
|
||
case OP_NAME:
|
||
case OP_RUST_ARRAY:
|
||
break;
|
||
|
||
default:
|
||
return operator_check_standard (exp, pos, objfile_func, data);
|
||
}
|
||
|
||
return 0;
|
||
}
|
||
|
||
|
||
|
||
/* Implementation of la_lookup_symbol_nonlocal for Rust. */
|
||
|
||
static struct block_symbol
|
||
rust_lookup_symbol_nonlocal (const struct language_defn *langdef,
|
||
const char *name,
|
||
const struct block *block,
|
||
const domain_enum domain)
|
||
{
|
||
struct block_symbol result = {NULL, NULL};
|
||
|
||
if (symbol_lookup_debug)
|
||
{
|
||
fprintf_unfiltered (gdb_stdlog,
|
||
"rust_lookup_symbol_non_local"
|
||
" (%s, %s (scope %s), %s)\n",
|
||
name, host_address_to_string (block),
|
||
block_scope (block), domain_name (domain));
|
||
}
|
||
|
||
/* Look up bare names in the block's scope. */
|
||
if (name[cp_find_first_component (name)] == '\0')
|
||
{
|
||
const char *scope = block_scope (block);
|
||
|
||
if (scope[0] != '\0')
|
||
{
|
||
std::string scopedname = std::string (scope) + "::" + name;
|
||
|
||
result = lookup_symbol_in_static_block (scopedname.c_str (), block,
|
||
domain);
|
||
if (result.symbol == NULL)
|
||
result = lookup_global_symbol (scopedname.c_str (), block, domain);
|
||
}
|
||
}
|
||
return result;
|
||
}
|
||
|
||
|
||
|
||
/* la_sniff_from_mangled_name for Rust. */
|
||
|
||
static int
|
||
rust_sniff_from_mangled_name (const char *mangled, char **demangled)
|
||
{
|
||
*demangled = gdb_demangle (mangled, DMGL_PARAMS | DMGL_ANSI);
|
||
return *demangled != NULL;
|
||
}
|
||
|
||
|
||
|
||
/* la_watch_location_expression for Rust. */
|
||
|
||
static gdb::unique_xmalloc_ptr<char>
|
||
rust_watch_location_expression (struct type *type, CORE_ADDR addr)
|
||
{
|
||
type = check_typedef (TYPE_TARGET_TYPE (check_typedef (type)));
|
||
std::string name = type_to_string (type);
|
||
return gdb::unique_xmalloc_ptr<char>
|
||
(xstrprintf ("*(%s as *mut %s)", core_addr_to_string (addr),
|
||
name.c_str ()));
|
||
}
|
||
|
||
|
||
|
||
static const struct exp_descriptor exp_descriptor_rust =
|
||
{
|
||
rust_print_subexp,
|
||
rust_operator_length,
|
||
rust_operator_check,
|
||
rust_op_name,
|
||
rust_dump_subexp_body,
|
||
rust_evaluate_subexp
|
||
};
|
||
|
||
static const char *rust_extensions[] =
|
||
{
|
||
".rs", NULL
|
||
};
|
||
|
||
extern const struct language_defn rust_language_defn =
|
||
{
|
||
"rust",
|
||
"Rust",
|
||
language_rust,
|
||
range_check_on,
|
||
case_sensitive_on,
|
||
array_row_major,
|
||
macro_expansion_no,
|
||
rust_extensions,
|
||
&exp_descriptor_rust,
|
||
rust_parse,
|
||
rustyyerror,
|
||
null_post_parser,
|
||
rust_printchar, /* Print a character constant */
|
||
rust_printstr, /* Function to print string constant */
|
||
rust_emitchar, /* Print a single char */
|
||
rust_print_type, /* Print a type using appropriate syntax */
|
||
rust_print_typedef, /* Print a typedef using appropriate syntax */
|
||
rust_val_print, /* Print a value using appropriate syntax */
|
||
c_value_print, /* Print a top-level value */
|
||
default_read_var_value, /* la_read_var_value */
|
||
NULL, /* Language specific skip_trampoline */
|
||
NULL, /* name_of_this */
|
||
rust_lookup_symbol_nonlocal, /* lookup_symbol_nonlocal */
|
||
basic_lookup_transparent_type,/* lookup_transparent_type */
|
||
gdb_demangle, /* Language specific symbol demangler */
|
||
rust_sniff_from_mangled_name,
|
||
NULL, /* Language specific
|
||
class_name_from_physname */
|
||
c_op_print_tab, /* expression operators for printing */
|
||
1, /* c-style arrays */
|
||
0, /* String lower bound */
|
||
default_word_break_characters,
|
||
default_collect_symbol_completion_matches,
|
||
rust_language_arch_info,
|
||
default_print_array_index,
|
||
default_pass_by_reference,
|
||
c_get_string,
|
||
rust_watch_location_expression,
|
||
NULL, /* la_get_symbol_name_matcher */
|
||
iterate_over_symbols,
|
||
default_search_name_hash,
|
||
&default_varobj_ops,
|
||
NULL,
|
||
NULL,
|
||
LANG_MAGIC
|
||
};
|