mirror of
https://sourceware.org/git/binutils-gdb.git
synced 2024-12-15 04:31:49 +08:00
9a3c826307
Note: I needed to split this patch in two, otherwise it's too big for the mailing list. This patch adds explicit casts to situations where a void pointer is assigned to a pointer to the "real" type. Building in C++ mode requires those assignments to use an explicit cast. This includes, for example: - callback arguments (cleanups, comparison functions, ...) - data attached to some object (objfile, program space, etc) in the form of a void pointer - "user data" passed to some function This patch comes from the commit "(mostly) auto-generated patch to insert casts needed for C++", taken from Pedro's C++ branch. Only files built on x86 with --enable-targets=all are modified, so the native files for other arches will need to be dealt with separately. I built-tested this with --enable-targets=all and reg-tested. To my surprise, a test case (selftest.exp) had to be adjusted. Here's the ChangeLog entry. Again, this was relatively quick to make despite the length, thanks to David Malcom's script, although I don't believe it's very useful information in that particular case... gdb/ChangeLog: * aarch64-tdep.c (aarch64_make_prologue_cache): Add cast(s). (aarch64_make_stub_cache): Likewise. (value_of_aarch64_user_reg): Likewise. * ada-lang.c (ada_inferior_data_cleanup): Likewise. (get_ada_inferior_data): Likewise. (get_ada_pspace_data): Likewise. (ada_pspace_data_cleanup): Likewise. (ada_complete_symbol_matcher): Likewise. (ada_exc_search_name_matches): Likewise. * ada-tasks.c (get_ada_tasks_pspace_data): Likewise. (get_ada_tasks_inferior_data): Likewise. * addrmap.c (addrmap_mutable_foreach_worker): Likewise. (splay_obstack_alloc): Likewise. (splay_obstack_free): Likewise. * alpha-linux-tdep.c (alpha_linux_supply_gregset): Likewise. (alpha_linux_collect_gregset): Likewise. (alpha_linux_supply_fpregset): Likewise. (alpha_linux_collect_fpregset): Likewise. * alpha-mdebug-tdep.c (alpha_mdebug_frame_unwind_cache): Likewise. * alpha-tdep.c (alpha_lds): Likewise. (alpha_sts): Likewise. (alpha_sigtramp_frame_unwind_cache): Likewise. (alpha_heuristic_frame_unwind_cache): Likewise. (alpha_supply_int_regs): Likewise. (alpha_fill_int_regs): Likewise. (alpha_supply_fp_regs): Likewise. (alpha_fill_fp_regs): Likewise. * alphanbsd-tdep.c (alphanbsd_supply_fpregset): Likewise. (alphanbsd_aout_supply_gregset): Likewise. (alphanbsd_supply_gregset): Likewise. * amd64-linux-tdep.c (amd64_linux_init_abi): Likewise. (amd64_x32_linux_init_abi): Likewise. * amd64-nat.c (amd64_supply_native_gregset): Likewise. (amd64_collect_native_gregset): Likewise. * amd64-tdep.c (amd64_frame_cache): Likewise. (amd64_sigtramp_frame_cache): Likewise. (amd64_epilogue_frame_cache): Likewise. (amd64_supply_fxsave): Likewise. (amd64_supply_xsave): Likewise. (amd64_collect_fxsave): Likewise. (amd64_collect_xsave): Likewise. * amd64-windows-tdep.c (amd64_windows_frame_cache): Likewise. * amd64obsd-tdep.c (amd64obsd_trapframe_cache): Likewise. * arm-linux-tdep.c (arm_linux_supply_gregset): Likewise. (arm_linux_collect_gregset): Likewise. (arm_linux_supply_nwfpe): Likewise. (arm_linux_collect_nwfpe): Likewise. (arm_linux_supply_vfp): Likewise. (arm_linux_collect_vfp): Likewise. * arm-tdep.c (arm_find_mapping_symbol): Likewise. (arm_prologue_unwind_stop_reason): Likewise. (arm_prologue_this_id): Likewise. (arm_prologue_prev_register): Likewise. (arm_exidx_data_free): Likewise. (arm_find_exidx_entry): Likewise. (arm_stub_this_id): Likewise. (arm_m_exception_this_id): Likewise. (arm_m_exception_prev_register): Likewise. (arm_normal_frame_base): Likewise. (gdb_print_insn_arm): Likewise. (arm_objfile_data_free): Likewise. (arm_record_special_symbol): Likewise. (value_of_arm_user_reg): Likewise. * armbsd-tdep.c (armbsd_supply_fpregset): Likewise. (armbsd_supply_gregset): Likewise. * auto-load.c (auto_load_pspace_data_cleanup): Likewise. (get_auto_load_pspace_data): Likewise. (hash_loaded_script_entry): Likewise. (eq_loaded_script_entry): Likewise. (clear_section_scripts): Likewise. (collect_matching_scripts): Likewise. * auxv.c (auxv_inferior_data_cleanup): Likewise. (get_auxv_inferior_data): Likewise. * avr-tdep.c (avr_frame_unwind_cache): Likewise. * ax-general.c (do_free_agent_expr_cleanup): Likewise. * bfd-target.c (target_bfd_xfer_partial): Likewise. (target_bfd_xclose): Likewise. (target_bfd_get_section_table): Likewise. * bfin-tdep.c (bfin_frame_cache): Likewise. * block.c (find_block_in_blockvector): Likewise. (call_site_for_pc): Likewise. (block_find_non_opaque_type_preferred): Likewise. * break-catch-sig.c (signal_catchpoint_insert_location): Likewise. (signal_catchpoint_remove_location): Likewise. (signal_catchpoint_breakpoint_hit): Likewise. (signal_catchpoint_print_one): Likewise. (signal_catchpoint_print_mention): Likewise. (signal_catchpoint_print_recreate): Likewise. * break-catch-syscall.c (get_catch_syscall_inferior_data): Likewise. * breakpoint.c (do_cleanup_counted_command_line): Likewise. (bp_location_compare_addrs): Likewise. (get_first_locp_gte_addr): Likewise. (check_tracepoint_command): Likewise. (do_map_commands_command): Likewise. (get_breakpoint_objfile_data): Likewise. (free_breakpoint_probes): Likewise. (do_captured_breakpoint_query): Likewise. (compare_breakpoints): Likewise. (bp_location_compare): Likewise. (bpstat_remove_breakpoint_callback): Likewise. (do_delete_breakpoint_cleanup): Likewise. * bsd-uthread.c (bsd_uthread_set_supply_uthread): Likewise. (bsd_uthread_set_collect_uthread): Likewise. (bsd_uthread_activate): Likewise. (bsd_uthread_fetch_registers): Likewise. (bsd_uthread_store_registers): Likewise. * btrace.c (check_xml_btrace_version): Likewise. (parse_xml_btrace_block): Likewise. (parse_xml_btrace_pt_config_cpu): Likewise. (parse_xml_btrace_pt_raw): Likewise. (parse_xml_btrace_pt): Likewise. (parse_xml_btrace_conf_bts): Likewise. (parse_xml_btrace_conf_pt): Likewise. (do_btrace_data_cleanup): Likewise. * c-typeprint.c (find_typedef_for_canonicalize): Likewise. * charset.c (cleanup_iconv): Likewise. (do_cleanup_iterator): Likewise. * cli-out.c (cli_uiout_dtor): Likewise. (cli_table_begin): Likewise. (cli_table_body): Likewise. (cli_table_end): Likewise. (cli_table_header): Likewise. (cli_begin): Likewise. (cli_end): Likewise. (cli_field_int): Likewise. (cli_field_skip): Likewise. (cli_field_string): Likewise. (cli_field_fmt): Likewise. (cli_spaces): Likewise. (cli_text): Likewise. (cli_message): Likewise. (cli_wrap_hint): Likewise. (cli_flush): Likewise. (cli_redirect): Likewise. (out_field_fmt): Likewise. (field_separator): Likewise. (cli_out_set_stream): Likewise. * cli/cli-cmds.c (compare_symtabs): Likewise. * cli/cli-dump.c (call_dump_func): Likewise. (restore_section_callback): Likewise. * cli/cli-script.c (clear_hook_in_cleanup): Likewise. (do_restore_user_call_depth): Likewise. (do_free_command_lines_cleanup): Likewise. * coff-pe-read.c (get_section_vmas): Likewise. (pe_as16): Likewise. (pe_as32): Likewise. * coffread.c (coff_symfile_read): Likewise. * common/agent.c (agent_look_up_symbols): Likewise. * common/filestuff.c (do_close_cleanup): Likewise. * common/format.c (free_format_pieces_cleanup): Likewise. * common/vec.c (vec_o_reserve): Likewise. * compile/compile-c-support.c (print_one_macro): Likewise. * compile/compile-c-symbols.c (hash_symbol_error): Likewise. (eq_symbol_error): Likewise. (del_symbol_error): Likewise. (error_symbol_once): Likewise. (gcc_convert_symbol): Likewise. (gcc_symbol_address): Likewise. (hash_symname): Likewise. (eq_symname): Likewise. * compile/compile-c-types.c (hash_type_map_instance): Likewise. (eq_type_map_instance): Likewise. (insert_type): Likewise. (convert_type): Likewise. * compile/compile-object-load.c (munmap_listp_free_cleanup): Likewise. (setup_sections): Likewise. (link_hash_table_free): Likewise. (copy_sections): Likewise. * compile/compile-object-run.c (do_module_cleanup): Likewise. * compile/compile.c (compile_print_value): Likewise. (do_rmdir): Likewise. (cleanup_compile_instance): Likewise. (cleanup_unlink_file): Likewise. * completer.c (free_completion_tracker): Likewise. * corelow.c (add_to_spuid_list): Likewise. * cp-namespace.c (reset_directive_searched): Likewise. * cp-support.c (reset_directive_searched): Likewise. * cris-tdep.c (cris_sigtramp_frame_unwind_cache): Likewise. (cris_frame_unwind_cache): Likewise. * d-lang.c (builtin_d_type): Likewise. * d-namespace.c (reset_directive_searched): Likewise. * dbxread.c (dbx_free_symfile_info): Likewise. (do_free_bincl_list_cleanup): Likewise. * disasm.c (hash_dis_line_entry): Likewise. (eq_dis_line_entry): Likewise. (dis_asm_print_address): Likewise. (fprintf_disasm): Likewise. (do_ui_file_delete): Likewise. * doublest.c (convert_floatformat_to_doublest): Likewise. * dummy-frame.c (pop_dummy_frame_bpt): Likewise. (dummy_frame_prev_register): Likewise. (dummy_frame_this_id): Likewise. * dwarf2-frame-tailcall.c (cache_hash): Likewise. (cache_eq): Likewise. (cache_find): Likewise. (tailcall_frame_this_id): Likewise. (dwarf2_tailcall_prev_register_first): Likewise. (tailcall_frame_prev_register): Likewise. (tailcall_frame_dealloc_cache): Likewise. (tailcall_frame_prev_arch): Likewise. * dwarf2-frame.c (dwarf2_frame_state_free): Likewise. (dwarf2_frame_set_init_reg): Likewise. (dwarf2_frame_init_reg): Likewise. (dwarf2_frame_set_signal_frame_p): Likewise. (dwarf2_frame_signal_frame_p): Likewise. (dwarf2_frame_set_adjust_regnum): Likewise. (dwarf2_frame_adjust_regnum): Likewise. (clear_pointer_cleanup): Likewise. (dwarf2_frame_cache): Likewise. (find_cie): Likewise. (dwarf2_frame_find_fde): Likewise. * dwarf2expr.c (dwarf_expr_address_type): Likewise. (free_dwarf_expr_context_cleanup): Likewise. * dwarf2loc.c (locexpr_find_frame_base_location): Likewise. (locexpr_get_frame_base): Likewise. (loclist_find_frame_base_location): Likewise. (loclist_get_frame_base): Likewise. (dwarf_expr_dwarf_call): Likewise. (dwarf_expr_get_base_type): Likewise. (dwarf_expr_push_dwarf_reg_entry_value): Likewise. (dwarf_expr_get_obj_addr): Likewise. (entry_data_value_coerce_ref): Likewise. (entry_data_value_copy_closure): Likewise. (entry_data_value_free_closure): Likewise. (get_frame_address_in_block_wrapper): Likewise. (dwarf2_evaluate_property): Likewise. (dwarf2_compile_property_to_c): Likewise. (needs_frame_read_addr_from_reg): Likewise. (needs_frame_get_reg_value): Likewise. (needs_frame_frame_base): Likewise. (needs_frame_frame_cfa): Likewise. (needs_frame_tls_address): Likewise. (needs_frame_dwarf_call): Likewise. (needs_dwarf_reg_entry_value): Likewise. (get_ax_pc): Likewise. (locexpr_read_variable): Likewise. (locexpr_read_variable_at_entry): Likewise. (locexpr_read_needs_frame): Likewise. (locexpr_describe_location): Likewise. (locexpr_tracepoint_var_ref): Likewise. (locexpr_generate_c_location): Likewise. (loclist_read_variable): Likewise. (loclist_read_variable_at_entry): Likewise. (loclist_describe_location): Likewise. (loclist_tracepoint_var_ref): Likewise. (loclist_generate_c_location): Likewise. * dwarf2read.c (line_header_hash_voidp): Likewise. (line_header_eq_voidp): Likewise. (dwarf2_has_info): Likewise. (dwarf2_get_section_info): Likewise. (locate_dwz_sections): Likewise. (hash_file_name_entry): Likewise. (eq_file_name_entry): Likewise. (delete_file_name_entry): Likewise. (dw2_setup): Likewise. (dw2_get_file_names_reader): Likewise. (dw2_find_pc_sect_compunit_symtab): Likewise. (hash_signatured_type): Likewise. (eq_signatured_type): Likewise. (add_signatured_type_cu_to_table): Likewise. (create_debug_types_hash_table): Likewise. (lookup_dwo_signatured_type): Likewise. (lookup_dwp_signatured_type): Likewise. (lookup_signatured_type): Likewise. (hash_type_unit_group): Likewise. (eq_type_unit_group): Likewise. (get_type_unit_group): Likewise. (process_psymtab_comp_unit_reader): Likewise. (sort_tu_by_abbrev_offset): Likewise. (process_skeletonless_type_unit): Likewise. (psymtabs_addrmap_cleanup): Likewise. (dwarf2_read_symtab): Likewise. (psymtab_to_symtab_1): Likewise. (die_hash): Likewise. (die_eq): Likewise. (load_full_comp_unit_reader): Likewise. (reset_die_in_process): Likewise. (free_cu_line_header): Likewise. (handle_DW_AT_stmt_list): Likewise. (hash_dwo_file): Likewise. (eq_dwo_file): Likewise. (hash_dwo_unit): Likewise. (eq_dwo_unit): Likewise. (create_dwo_cu_reader): Likewise. (create_dwo_unit_in_dwp_v1): Likewise. (create_dwo_unit_in_dwp_v2): Likewise. (lookup_dwo_unit_in_dwp): Likewise. (dwarf2_locate_dwo_sections): Likewise. (dwarf2_locate_common_dwp_sections): Likewise. (dwarf2_locate_v2_dwp_sections): Likewise. (hash_dwp_loaded_cutus): Likewise. (eq_dwp_loaded_cutus): Likewise. (lookup_dwo_cutu): Likewise. (abbrev_table_free_cleanup): Likewise. (dwarf2_free_abbrev_table): Likewise. (find_partial_die_in_comp_unit): Likewise. (free_line_header_voidp): Likewise. (follow_die_offset): Likewise. (follow_die_sig_1): Likewise. (free_heap_comp_unit): Likewise. (free_stack_comp_unit): Likewise. (dwarf2_free_objfile): Likewise. (per_cu_offset_and_type_hash): Likewise. (per_cu_offset_and_type_eq): Likewise. (get_die_type_at_offset): Likewise. (partial_die_hash): Likewise. (partial_die_eq): Likewise. (dwarf2_per_objfile_free): Likewise. (hash_strtab_entry): Likewise. (eq_strtab_entry): Likewise. (add_string): Likewise. (hash_symtab_entry): Likewise. (eq_symtab_entry): Likewise. (delete_symtab_entry): Likewise. (cleanup_mapped_symtab): Likewise. (add_indices_to_cpool): Likewise. (hash_psymtab_cu_index): Likewise. (eq_psymtab_cu_index): Likewise. (add_address_entry_worker): Likewise. (unlink_if_set): Likewise. (write_one_signatured_type): Likewise. (save_gdb_index_command): Likewise. * elfread.c (elf_symtab_read): Likewise. (elf_gnu_ifunc_cache_hash): Likewise. (elf_gnu_ifunc_cache_eq): Likewise. (elf_gnu_ifunc_record_cache): Likewise. (elf_gnu_ifunc_resolve_by_cache): Likewise. (elf_get_probes): Likewise. (probe_key_free): Likewise. * f-lang.c (builtin_f_type): Likewise. * frame-base.c (frame_base_append_sniffer): Likewise. (frame_base_set_default): Likewise. (frame_base_find_by_frame): Likewise. * frame-unwind.c (frame_unwind_prepend_unwinder): Likewise. (frame_unwind_append_unwinder): Likewise. (frame_unwind_find_by_frame): Likewise. * frame.c (frame_addr_hash): Likewise. (frame_addr_hash_eq): Likewise. (frame_stash_find): Likewise. (do_frame_register_read): Likewise. (unwind_to_current_frame): Likewise. (frame_cleanup_after_sniffer): Likewise. * frv-linux-tdep.c (frv_linux_sigtramp_frame_cache): Likewise. * frv-tdep.c (frv_frame_unwind_cache): Likewise. * ft32-tdep.c (ft32_frame_cache): Likewise. * gcore.c (do_bfd_delete_cleanup): Likewise. (gcore_create_callback): Likewise. * gdb_bfd.c (hash_bfd): Likewise. (eq_bfd): Likewise. (gdb_bfd_open): Likewise. (free_one_bfd_section): Likewise. (gdb_bfd_ref): Likewise. (gdb_bfd_unref): Likewise. (get_section_descriptor): Likewise. (gdb_bfd_map_section): Likewise. (gdb_bfd_crc): Likewise. (gdb_bfd_mark_parent): Likewise. (gdb_bfd_record_inclusion): Likewise. (gdb_bfd_requires_relocations): Likewise. (print_one_bfd): Likewise. * gdbtypes.c (type_pair_hash): Likewise. (type_pair_eq): Likewise. (builtin_type): Likewise. (objfile_type): Likewise. * gnu-v3-abi.c (vtable_ptrdiff_type): Likewise. (vtable_address_point_offset): Likewise. (gnuv3_get_vtable): Likewise. (hash_value_and_voffset): Likewise. (eq_value_and_voffset): Likewise. (compare_value_and_voffset): Likewise. (compute_vtable_size): Likewise. (gnuv3_get_typeid_type): Likewise. * go-lang.c (builtin_go_type): Likewise. * guile/scm-block.c (bkscm_hash_block_smob): Likewise. (bkscm_eq_block_smob): Likewise. (bkscm_objfile_block_map): Likewise. (bkscm_del_objfile_blocks): Likewise. * guile/scm-breakpoint.c (bpscm_build_bp_list): Likewise. * guile/scm-disasm.c (gdbscm_disasm_read_memory_worker): Likewise. (gdbscm_disasm_print_address): Likewise. * guile/scm-frame.c (frscm_hash_frame_smob): Likewise. (frscm_eq_frame_smob): Likewise. (frscm_inferior_frame_map): Likewise. (frscm_del_inferior_frames): Likewise. * guile/scm-gsmob.c (gdbscm_add_objfile_ref): Likewise. * guile/scm-objfile.c (ofscm_handle_objfile_deleted): Likewise. (ofscm_objfile_smob_from_objfile): Likewise. * guile/scm-ports.c (ioscm_write): Likewise. (ioscm_file_port_delete): Likewise. (ioscm_file_port_rewind): Likewise. (ioscm_file_port_put): Likewise. (ioscm_file_port_write): Likewise. * guile/scm-progspace.c (psscm_handle_pspace_deleted): Likewise. (psscm_pspace_smob_from_pspace): Likewise. * guile/scm-safe-call.c (scscm_recording_pre_unwind_handler): Likewise. (scscm_recording_unwind_handler): Likewise. (gdbscm_with_catch): Likewise. (scscm_call_0_body): Likewise. (scscm_call_1_body): Likewise. (scscm_call_2_body): Likewise. (scscm_call_3_body): Likewise. (scscm_call_4_body): Likewise. (scscm_apply_1_body): Likewise. (scscm_eval_scheme_string): Likewise. (gdbscm_safe_eval_string): Likewise. (scscm_source_scheme_script): Likewise. (gdbscm_safe_source_script): Likewise. * guile/scm-string.c (gdbscm_call_scm_to_stringn): Likewise. (gdbscm_call_scm_from_stringn): Likewise. * guile/scm-symbol.c (syscm_hash_symbol_smob): Likewise. (syscm_eq_symbol_smob): Likewise. (syscm_get_symbol_map): Likewise. (syscm_del_objfile_symbols): Likewise. * guile/scm-symtab.c (stscm_hash_symtab_smob): Likewise. (stscm_eq_symtab_smob): Likewise. (stscm_objfile_symtab_map): Likewise. (stscm_del_objfile_symtabs): Likewise. * guile/scm-type.c (tyscm_hash_type_smob): Likewise. (tyscm_eq_type_smob): Likewise. (tyscm_type_map): Likewise. (tyscm_copy_type_recursive): Likewise. (save_objfile_types): Likewise. * guile/scm-utils.c (extract_arg): Likewise. * h8300-tdep.c (h8300_frame_cache): Likewise. * hppa-linux-tdep.c (hppa_linux_sigtramp_frame_unwind_cache): Likewise. * hppa-tdep.c (compare_unwind_entries): Likewise. (find_unwind_entry): Likewise. (hppa_frame_cache): Likewise. (hppa_stub_frame_unwind_cache): Likewise. * hppanbsd-tdep.c (hppanbsd_supply_gregset): Likewise. * hppaobsd-tdep.c (hppaobsd_supply_gregset): Likewise. (hppaobsd_supply_fpregset): Likewise. * i386-cygwin-tdep.c (core_process_module_section): Likewise. * i386-linux-tdep.c (i386_linux_init_abi): Likewise. * i386-tdep.c (i386_frame_cache): Likewise. (i386_epilogue_frame_cache): Likewise. (i386_sigtramp_frame_cache): Likewise. (i386_supply_gregset): Likewise. (i386_collect_gregset): Likewise. (i386_gdbarch_init): Likewise. * i386obsd-tdep.c (i386obsd_aout_supply_regset): Likewise. (i386obsd_trapframe_cache): Likewise. * i387-tdep.c (i387_supply_fsave): Likewise. (i387_collect_fsave): Likewise. (i387_supply_fxsave): Likewise. (i387_collect_fxsave): Likewise. (i387_supply_xsave): Likewise. (i387_collect_xsave): Likewise. * ia64-tdep.c (ia64_frame_cache): Likewise. (ia64_sigtramp_frame_cache): Likewise. * infcmd.c (attach_command_continuation): Likewise. (attach_command_continuation_free_args): Likewise. * inferior.c (restore_inferior): Likewise. (delete_thread_of_inferior): Likewise. * inflow.c (inflow_inferior_data_cleanup): Likewise. (get_inflow_inferior_data): Likewise. (inflow_inferior_exit): Likewise. * infrun.c (displaced_step_clear_cleanup): Likewise. (restore_current_uiout_cleanup): Likewise. (release_stop_context_cleanup): Likewise. (do_restore_infcall_suspend_state_cleanup): Likewise. (do_restore_infcall_control_state_cleanup): Likewise. (restore_inferior_ptid): Likewise. * inline-frame.c (block_starting_point_at): Likewise. * iq2000-tdep.c (iq2000_frame_cache): Likewise. * jit.c (get_jit_objfile_data): Likewise. (get_jit_program_space_data): Likewise. (jit_object_close_impl): Likewise. (jit_find_objf_with_entry_addr): Likewise. (jit_breakpoint_deleted): Likewise. (jit_unwind_reg_set_impl): Likewise. (jit_unwind_reg_get_impl): Likewise. (jit_dealloc_cache): Likewise. (jit_frame_sniffer): Likewise. (jit_frame_prev_register): Likewise. (jit_prepend_unwinder): Likewise. (jit_inferior_exit_hook): Likewise. (free_objfile_data): Likewise. * jv-lang.c (jv_per_objfile_free): Likewise. (get_dynamics_objfile): Likewise. (get_java_class_symtab): Likewise. (builtin_java_type): Likewise. * language.c (language_string_char_type): Likewise. (language_bool_type): Likewise. (language_lookup_primitive_type): Likewise. (language_lookup_primitive_type_as_symbol): Likewise. * linespec.c (hash_address_entry): Likewise. (eq_address_entry): Likewise. (iterate_inline_only): Likewise. (iterate_name_matcher): Likewise. (decode_line_2_compare_items): Likewise. (collect_one_symbol): Likewise. (compare_symbols): Likewise. (compare_msymbols): Likewise. (add_symtabs_to_list): Likewise. (collect_symbols): Likewise. (compare_msyms): Likewise. (add_minsym): Likewise. (cleanup_linespec_result): Likewise. * linux-fork.c (inferior_call_waitpid_cleanup): Likewise. * linux-nat.c (delete_lwp_cleanup): Likewise. (count_events_callback): Likewise. (select_event_lwp_callback): Likewise. (resume_stopped_resumed_lwps): Likewise. * linux-tdep.c (get_linux_gdbarch_data): Likewise. (invalidate_linux_cache_inf): Likewise. (get_linux_inferior_data): Likewise. (linux_find_memory_regions_thunk): Likewise. (linux_make_mappings_callback): Likewise. (linux_corefile_thread_callback): Likewise. (find_mapping_size): Likewise. * linux-thread-db.c (find_new_threads_callback): Likewise. * lm32-tdep.c (lm32_frame_cache): Likewise. * m2-lang.c (builtin_m2_type): Likewise. * m32c-tdep.c (m32c_analyze_frame_prologue): Likewise. * m32r-linux-tdep.c (m32r_linux_sigtramp_frame_cache): Likewise. (m32r_linux_supply_gregset): Likewise. (m32r_linux_collect_gregset): Likewise. * m32r-tdep.c (m32r_frame_unwind_cache): Likewise. * m68hc11-tdep.c (m68hc11_frame_unwind_cache): Likewise. * m68k-tdep.c (m68k_frame_cache): Likewise. * m68kbsd-tdep.c (m68kbsd_supply_fpregset): Likewise. (m68kbsd_supply_gregset): Likewise. * m68klinux-tdep.c (m68k_linux_sigtramp_frame_cache): Likewise. * m88k-tdep.c (m88k_frame_cache): Likewise. (m88k_supply_gregset): Likewise. gdb/gdbserver/ChangeLog: * dll.c (match_dll): Add cast(s). (unloaded_dll): Likewise. * linux-low.c (second_thread_of_pid_p): Likewise. (delete_lwp_callback): Likewise. (count_events_callback): Likewise. (select_event_lwp_callback): Likewise. (linux_set_resume_request): Likewise. * server.c (accumulate_file_name_length): Likewise. (emit_dll_description): Likewise. (handle_qxfer_threads_worker): Likewise. (visit_actioned_threads): Likewise. * thread-db.c (any_thread_of): Likewise. * tracepoint.c (same_process_p): Likewise. (match_blocktype): Likewise. (build_traceframe_info_xml): Likewise. gdb/testsuite/ChangeLog: * gdb.gdb/selftest.exp (do_steps_and_nexts): Adjust expected source line.
773 lines
20 KiB
C
773 lines
20 KiB
C
/* Convert symbols from GDB to GCC
|
||
|
||
Copyright (C) 2014-2015 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 "compile-internal.h"
|
||
#include "symtab.h"
|
||
#include "parser-defs.h"
|
||
#include "block.h"
|
||
#include "objfiles.h"
|
||
#include "compile.h"
|
||
#include "value.h"
|
||
#include "exceptions.h"
|
||
#include "gdbtypes.h"
|
||
#include "dwarf2loc.h"
|
||
|
||
|
||
|
||
/* Object of this type are stored in the compiler's symbol_err_map. */
|
||
|
||
struct symbol_error
|
||
{
|
||
/* The symbol. */
|
||
|
||
const struct symbol *sym;
|
||
|
||
/* The error message to emit. This is malloc'd and owned by the
|
||
hash table. */
|
||
|
||
char *message;
|
||
};
|
||
|
||
/* Hash function for struct symbol_error. */
|
||
|
||
static hashval_t
|
||
hash_symbol_error (const void *a)
|
||
{
|
||
const struct symbol_error *se = (const struct symbol_error *) a;
|
||
|
||
return htab_hash_pointer (se->sym);
|
||
}
|
||
|
||
/* Equality function for struct symbol_error. */
|
||
|
||
static int
|
||
eq_symbol_error (const void *a, const void *b)
|
||
{
|
||
const struct symbol_error *sea = (const struct symbol_error *) a;
|
||
const struct symbol_error *seb = (const struct symbol_error *) b;
|
||
|
||
return sea->sym == seb->sym;
|
||
}
|
||
|
||
/* Deletion function for struct symbol_error. */
|
||
|
||
static void
|
||
del_symbol_error (void *a)
|
||
{
|
||
struct symbol_error *se = (struct symbol_error *) a;
|
||
|
||
xfree (se->message);
|
||
xfree (se);
|
||
}
|
||
|
||
/* Associate SYMBOL with some error text. */
|
||
|
||
static void
|
||
insert_symbol_error (htab_t hash, const struct symbol *sym, const char *text)
|
||
{
|
||
struct symbol_error e;
|
||
void **slot;
|
||
|
||
e.sym = sym;
|
||
slot = htab_find_slot (hash, &e, INSERT);
|
||
if (*slot == NULL)
|
||
{
|
||
struct symbol_error *e = XNEW (struct symbol_error);
|
||
|
||
e->sym = sym;
|
||
e->message = xstrdup (text);
|
||
*slot = e;
|
||
}
|
||
}
|
||
|
||
/* Emit the error message corresponding to SYM, if one exists, and
|
||
arrange for it not to be emitted again. */
|
||
|
||
static void
|
||
error_symbol_once (struct compile_c_instance *context,
|
||
const struct symbol *sym)
|
||
{
|
||
struct symbol_error search;
|
||
struct symbol_error *err;
|
||
char *message;
|
||
|
||
if (context->symbol_err_map == NULL)
|
||
return;
|
||
|
||
search.sym = sym;
|
||
err = (struct symbol_error *) htab_find (context->symbol_err_map, &search);
|
||
if (err == NULL || err->message == NULL)
|
||
return;
|
||
|
||
message = err->message;
|
||
err->message = NULL;
|
||
make_cleanup (xfree, message);
|
||
error (_("%s"), message);
|
||
}
|
||
|
||
|
||
|
||
/* Compute the name of the pointer representing a local symbol's
|
||
address. */
|
||
|
||
static char *
|
||
symbol_substitution_name (struct symbol *sym)
|
||
{
|
||
return concat ("__", SYMBOL_NATURAL_NAME (sym), "_ptr", (char *) NULL);
|
||
}
|
||
|
||
/* Convert a given symbol, SYM, to the compiler's representation.
|
||
CONTEXT is the compiler instance. IS_GLOBAL is true if the
|
||
symbol came from the global scope. IS_LOCAL is true if the symbol
|
||
came from a local scope. (Note that the two are not strictly
|
||
inverses because the symbol might have come from the static
|
||
scope.) */
|
||
|
||
static void
|
||
convert_one_symbol (struct compile_c_instance *context,
|
||
struct block_symbol sym,
|
||
int is_global,
|
||
int is_local)
|
||
{
|
||
gcc_type sym_type;
|
||
const char *filename = symbol_symtab (sym.symbol)->filename;
|
||
unsigned short line = SYMBOL_LINE (sym.symbol);
|
||
|
||
error_symbol_once (context, sym.symbol);
|
||
|
||
if (SYMBOL_CLASS (sym.symbol) == LOC_LABEL)
|
||
sym_type = 0;
|
||
else
|
||
sym_type = convert_type (context, SYMBOL_TYPE (sym.symbol));
|
||
|
||
if (SYMBOL_DOMAIN (sym.symbol) == STRUCT_DOMAIN)
|
||
{
|
||
/* Binding a tag, so we don't need to build a decl. */
|
||
C_CTX (context)->c_ops->tagbind (C_CTX (context),
|
||
SYMBOL_NATURAL_NAME (sym.symbol),
|
||
sym_type, filename, line);
|
||
}
|
||
else
|
||
{
|
||
gcc_decl decl;
|
||
enum gcc_c_symbol_kind kind;
|
||
CORE_ADDR addr = 0;
|
||
char *symbol_name = NULL;
|
||
|
||
switch (SYMBOL_CLASS (sym.symbol))
|
||
{
|
||
case LOC_TYPEDEF:
|
||
kind = GCC_C_SYMBOL_TYPEDEF;
|
||
break;
|
||
|
||
case LOC_LABEL:
|
||
kind = GCC_C_SYMBOL_LABEL;
|
||
addr = SYMBOL_VALUE_ADDRESS (sym.symbol);
|
||
break;
|
||
|
||
case LOC_BLOCK:
|
||
kind = GCC_C_SYMBOL_FUNCTION;
|
||
addr = BLOCK_START (SYMBOL_BLOCK_VALUE (sym.symbol));
|
||
if (is_global && TYPE_GNU_IFUNC (SYMBOL_TYPE (sym.symbol)))
|
||
addr = gnu_ifunc_resolve_addr (target_gdbarch (), addr);
|
||
break;
|
||
|
||
case LOC_CONST:
|
||
if (TYPE_CODE (SYMBOL_TYPE (sym.symbol)) == TYPE_CODE_ENUM)
|
||
{
|
||
/* Already handled by convert_enum. */
|
||
return;
|
||
}
|
||
C_CTX (context)->c_ops->build_constant
|
||
(C_CTX (context),
|
||
sym_type, SYMBOL_NATURAL_NAME (sym.symbol),
|
||
SYMBOL_VALUE (sym.symbol),
|
||
filename, line);
|
||
return;
|
||
|
||
case LOC_CONST_BYTES:
|
||
error (_("Unsupported LOC_CONST_BYTES for symbol \"%s\"."),
|
||
SYMBOL_PRINT_NAME (sym.symbol));
|
||
|
||
case LOC_UNDEF:
|
||
internal_error (__FILE__, __LINE__, _("LOC_UNDEF found for \"%s\"."),
|
||
SYMBOL_PRINT_NAME (sym.symbol));
|
||
|
||
case LOC_COMMON_BLOCK:
|
||
error (_("Fortran common block is unsupported for compilation "
|
||
"evaluaton of symbol \"%s\"."),
|
||
SYMBOL_PRINT_NAME (sym.symbol));
|
||
|
||
case LOC_OPTIMIZED_OUT:
|
||
error (_("Symbol \"%s\" cannot be used for compilation evaluation "
|
||
"as it is optimized out."),
|
||
SYMBOL_PRINT_NAME (sym.symbol));
|
||
|
||
case LOC_COMPUTED:
|
||
if (is_local)
|
||
goto substitution;
|
||
/* Probably TLS here. */
|
||
warning (_("Symbol \"%s\" is thread-local and currently can only "
|
||
"be referenced from the current thread in "
|
||
"compiled code."),
|
||
SYMBOL_PRINT_NAME (sym.symbol));
|
||
/* FALLTHROUGH */
|
||
case LOC_UNRESOLVED:
|
||
/* 'symbol_name' cannot be used here as that one is used only for
|
||
local variables from compile_dwarf_expr_to_c.
|
||
Global variables can be accessed by GCC only by their address, not
|
||
by their name. */
|
||
{
|
||
struct value *val;
|
||
struct frame_info *frame = NULL;
|
||
|
||
if (symbol_read_needs_frame (sym.symbol))
|
||
{
|
||
frame = get_selected_frame (NULL);
|
||
if (frame == NULL)
|
||
error (_("Symbol \"%s\" cannot be used because "
|
||
"there is no selected frame"),
|
||
SYMBOL_PRINT_NAME (sym.symbol));
|
||
}
|
||
|
||
val = read_var_value (sym.symbol, sym.block, frame);
|
||
if (VALUE_LVAL (val) != lval_memory)
|
||
error (_("Symbol \"%s\" cannot be used for compilation "
|
||
"evaluation as its address has not been found."),
|
||
SYMBOL_PRINT_NAME (sym.symbol));
|
||
|
||
kind = GCC_C_SYMBOL_VARIABLE;
|
||
addr = value_address (val);
|
||
}
|
||
break;
|
||
|
||
|
||
case LOC_REGISTER:
|
||
case LOC_ARG:
|
||
case LOC_REF_ARG:
|
||
case LOC_REGPARM_ADDR:
|
||
case LOC_LOCAL:
|
||
substitution:
|
||
kind = GCC_C_SYMBOL_VARIABLE;
|
||
symbol_name = symbol_substitution_name (sym.symbol);
|
||
break;
|
||
|
||
case LOC_STATIC:
|
||
kind = GCC_C_SYMBOL_VARIABLE;
|
||
addr = SYMBOL_VALUE_ADDRESS (sym.symbol);
|
||
break;
|
||
|
||
case LOC_FINAL_VALUE:
|
||
default:
|
||
gdb_assert_not_reached ("Unreachable case in convert_one_symbol.");
|
||
|
||
}
|
||
|
||
/* Don't emit local variable decls for a raw expression. */
|
||
if (context->base.scope != COMPILE_I_RAW_SCOPE
|
||
|| symbol_name == NULL)
|
||
{
|
||
decl = C_CTX (context)->c_ops->build_decl
|
||
(C_CTX (context),
|
||
SYMBOL_NATURAL_NAME (sym.symbol),
|
||
kind,
|
||
sym_type,
|
||
symbol_name, addr,
|
||
filename, line);
|
||
|
||
C_CTX (context)->c_ops->bind (C_CTX (context), decl, is_global);
|
||
}
|
||
|
||
xfree (symbol_name);
|
||
}
|
||
}
|
||
|
||
/* Convert a full symbol to its gcc form. CONTEXT is the compiler to
|
||
use, IDENTIFIER is the name of the symbol, SYM is the symbol
|
||
itself, and DOMAIN is the domain which was searched. */
|
||
|
||
static void
|
||
convert_symbol_sym (struct compile_c_instance *context, const char *identifier,
|
||
struct block_symbol sym, domain_enum domain)
|
||
{
|
||
const struct block *static_block;
|
||
int is_local_symbol;
|
||
|
||
/* If we found a symbol and it is not in the static or global
|
||
scope, then we should first convert any static or global scope
|
||
symbol of the same name. This lets this unusual case work:
|
||
|
||
int x; // Global.
|
||
int func(void)
|
||
{
|
||
int x;
|
||
// At this spot, evaluate "extern int x; x"
|
||
}
|
||
*/
|
||
|
||
static_block = block_static_block (sym.block);
|
||
/* STATIC_BLOCK is NULL if FOUND_BLOCK is the global block. */
|
||
is_local_symbol = (sym.block != static_block && static_block != NULL);
|
||
if (is_local_symbol)
|
||
{
|
||
struct block_symbol global_sym;
|
||
|
||
global_sym = lookup_symbol (identifier, NULL, domain, NULL);
|
||
/* If the outer symbol is in the static block, we ignore it, as
|
||
it cannot be referenced. */
|
||
if (global_sym.symbol != NULL
|
||
&& global_sym.block != block_static_block (global_sym.block))
|
||
{
|
||
if (compile_debug)
|
||
fprintf_unfiltered (gdb_stdlog,
|
||
"gcc_convert_symbol \"%s\": global symbol\n",
|
||
identifier);
|
||
convert_one_symbol (context, global_sym, 1, 0);
|
||
}
|
||
}
|
||
|
||
if (compile_debug)
|
||
fprintf_unfiltered (gdb_stdlog,
|
||
"gcc_convert_symbol \"%s\": local symbol\n",
|
||
identifier);
|
||
convert_one_symbol (context, sym, 0, is_local_symbol);
|
||
}
|
||
|
||
/* Convert a minimal symbol to its gcc form. CONTEXT is the compiler
|
||
to use and BMSYM is the minimal symbol to convert. */
|
||
|
||
static void
|
||
convert_symbol_bmsym (struct compile_c_instance *context,
|
||
struct bound_minimal_symbol bmsym)
|
||
{
|
||
struct minimal_symbol *msym = bmsym.minsym;
|
||
struct objfile *objfile = bmsym.objfile;
|
||
struct type *type;
|
||
enum gcc_c_symbol_kind kind;
|
||
gcc_type sym_type;
|
||
gcc_decl decl;
|
||
CORE_ADDR addr;
|
||
|
||
addr = MSYMBOL_VALUE_ADDRESS (objfile, msym);
|
||
|
||
/* Conversion copied from write_exp_msymbol. */
|
||
switch (MSYMBOL_TYPE (msym))
|
||
{
|
||
case mst_text:
|
||
case mst_file_text:
|
||
case mst_solib_trampoline:
|
||
type = objfile_type (objfile)->nodebug_text_symbol;
|
||
kind = GCC_C_SYMBOL_FUNCTION;
|
||
break;
|
||
|
||
case mst_text_gnu_ifunc:
|
||
/* nodebug_text_gnu_ifunc_symbol would cause:
|
||
function return type cannot be function */
|
||
type = objfile_type (objfile)->nodebug_text_symbol;
|
||
kind = GCC_C_SYMBOL_FUNCTION;
|
||
addr = gnu_ifunc_resolve_addr (target_gdbarch (), addr);
|
||
break;
|
||
|
||
case mst_data:
|
||
case mst_file_data:
|
||
case mst_bss:
|
||
case mst_file_bss:
|
||
type = objfile_type (objfile)->nodebug_data_symbol;
|
||
kind = GCC_C_SYMBOL_VARIABLE;
|
||
break;
|
||
|
||
case mst_slot_got_plt:
|
||
type = objfile_type (objfile)->nodebug_got_plt_symbol;
|
||
kind = GCC_C_SYMBOL_FUNCTION;
|
||
break;
|
||
|
||
default:
|
||
type = objfile_type (objfile)->nodebug_unknown_symbol;
|
||
kind = GCC_C_SYMBOL_VARIABLE;
|
||
break;
|
||
}
|
||
|
||
sym_type = convert_type (context, type);
|
||
decl = C_CTX (context)->c_ops->build_decl (C_CTX (context),
|
||
MSYMBOL_NATURAL_NAME (msym),
|
||
kind, sym_type, NULL, addr,
|
||
NULL, 0);
|
||
C_CTX (context)->c_ops->bind (C_CTX (context), decl, 1 /* is_global */);
|
||
}
|
||
|
||
/* See compile-internal.h. */
|
||
|
||
void
|
||
gcc_convert_symbol (void *datum,
|
||
struct gcc_c_context *gcc_context,
|
||
enum gcc_c_oracle_request request,
|
||
const char *identifier)
|
||
{
|
||
struct compile_c_instance *context = (struct compile_c_instance *) datum;
|
||
domain_enum domain;
|
||
int found = 0;
|
||
|
||
switch (request)
|
||
{
|
||
case GCC_C_ORACLE_SYMBOL:
|
||
domain = VAR_DOMAIN;
|
||
break;
|
||
case GCC_C_ORACLE_TAG:
|
||
domain = STRUCT_DOMAIN;
|
||
break;
|
||
case GCC_C_ORACLE_LABEL:
|
||
domain = LABEL_DOMAIN;
|
||
break;
|
||
default:
|
||
gdb_assert_not_reached ("Unrecognized oracle request.");
|
||
}
|
||
|
||
/* We can't allow exceptions to escape out of this callback. Safest
|
||
is to simply emit a gcc error. */
|
||
TRY
|
||
{
|
||
struct block_symbol sym;
|
||
|
||
sym = lookup_symbol (identifier, context->base.block, domain, NULL);
|
||
if (sym.symbol != NULL)
|
||
{
|
||
convert_symbol_sym (context, identifier, sym, domain);
|
||
found = 1;
|
||
}
|
||
else if (domain == VAR_DOMAIN)
|
||
{
|
||
struct bound_minimal_symbol bmsym;
|
||
|
||
bmsym = lookup_minimal_symbol (identifier, NULL, NULL);
|
||
if (bmsym.minsym != NULL)
|
||
{
|
||
convert_symbol_bmsym (context, bmsym);
|
||
found = 1;
|
||
}
|
||
}
|
||
}
|
||
|
||
CATCH (e, RETURN_MASK_ALL)
|
||
{
|
||
C_CTX (context)->c_ops->error (C_CTX (context), e.message);
|
||
}
|
||
END_CATCH
|
||
|
||
if (compile_debug && !found)
|
||
fprintf_unfiltered (gdb_stdlog,
|
||
"gcc_convert_symbol \"%s\": lookup_symbol failed\n",
|
||
identifier);
|
||
return;
|
||
}
|
||
|
||
/* See compile-internal.h. */
|
||
|
||
gcc_address
|
||
gcc_symbol_address (void *datum, struct gcc_c_context *gcc_context,
|
||
const char *identifier)
|
||
{
|
||
struct compile_c_instance *context = (struct compile_c_instance *) datum;
|
||
gcc_address result = 0;
|
||
int found = 0;
|
||
|
||
/* We can't allow exceptions to escape out of this callback. Safest
|
||
is to simply emit a gcc error. */
|
||
TRY
|
||
{
|
||
struct symbol *sym;
|
||
|
||
/* We only need global functions here. */
|
||
sym = lookup_symbol (identifier, NULL, VAR_DOMAIN, NULL).symbol;
|
||
if (sym != NULL && SYMBOL_CLASS (sym) == LOC_BLOCK)
|
||
{
|
||
if (compile_debug)
|
||
fprintf_unfiltered (gdb_stdlog,
|
||
"gcc_symbol_address \"%s\": full symbol\n",
|
||
identifier);
|
||
result = BLOCK_START (SYMBOL_BLOCK_VALUE (sym));
|
||
if (TYPE_GNU_IFUNC (SYMBOL_TYPE (sym)))
|
||
result = gnu_ifunc_resolve_addr (target_gdbarch (), result);
|
||
found = 1;
|
||
}
|
||
else
|
||
{
|
||
struct bound_minimal_symbol msym;
|
||
|
||
msym = lookup_bound_minimal_symbol (identifier);
|
||
if (msym.minsym != NULL)
|
||
{
|
||
if (compile_debug)
|
||
fprintf_unfiltered (gdb_stdlog,
|
||
"gcc_symbol_address \"%s\": minimal "
|
||
"symbol\n",
|
||
identifier);
|
||
result = BMSYMBOL_VALUE_ADDRESS (msym);
|
||
if (MSYMBOL_TYPE (msym.minsym) == mst_text_gnu_ifunc)
|
||
result = gnu_ifunc_resolve_addr (target_gdbarch (), result);
|
||
found = 1;
|
||
}
|
||
}
|
||
}
|
||
|
||
CATCH (e, RETURN_MASK_ERROR)
|
||
{
|
||
C_CTX (context)->c_ops->error (C_CTX (context), e.message);
|
||
}
|
||
END_CATCH
|
||
|
||
if (compile_debug && !found)
|
||
fprintf_unfiltered (gdb_stdlog,
|
||
"gcc_symbol_address \"%s\": failed\n",
|
||
identifier);
|
||
return result;
|
||
}
|
||
|
||
|
||
|
||
/* A hash function for symbol names. */
|
||
|
||
static hashval_t
|
||
hash_symname (const void *a)
|
||
{
|
||
const struct symbol *sym = (const struct symbol *) a;
|
||
|
||
return htab_hash_string (SYMBOL_NATURAL_NAME (sym));
|
||
}
|
||
|
||
/* A comparison function for hash tables that just looks at symbol
|
||
names. */
|
||
|
||
static int
|
||
eq_symname (const void *a, const void *b)
|
||
{
|
||
const struct symbol *syma = (const struct symbol *) a;
|
||
const struct symbol *symb = (const struct symbol *) b;
|
||
|
||
return strcmp (SYMBOL_NATURAL_NAME (syma), SYMBOL_NATURAL_NAME (symb)) == 0;
|
||
}
|
||
|
||
/* If a symbol with the same name as SYM is already in HASHTAB, return
|
||
1. Otherwise, add SYM to HASHTAB and return 0. */
|
||
|
||
static int
|
||
symbol_seen (htab_t hashtab, struct symbol *sym)
|
||
{
|
||
void **slot;
|
||
|
||
slot = htab_find_slot (hashtab, sym, INSERT);
|
||
if (*slot != NULL)
|
||
return 1;
|
||
|
||
*slot = sym;
|
||
return 0;
|
||
}
|
||
|
||
/* Generate C code to compute the length of a VLA. */
|
||
|
||
static void
|
||
generate_vla_size (struct compile_c_instance *compiler,
|
||
struct ui_file *stream,
|
||
struct gdbarch *gdbarch,
|
||
unsigned char *registers_used,
|
||
CORE_ADDR pc,
|
||
struct type *type,
|
||
struct symbol *sym)
|
||
{
|
||
type = check_typedef (type);
|
||
|
||
if (TYPE_CODE (type) == TYPE_CODE_REF)
|
||
type = check_typedef (TYPE_TARGET_TYPE (type));
|
||
|
||
switch (TYPE_CODE (type))
|
||
{
|
||
case TYPE_CODE_RANGE:
|
||
{
|
||
if (TYPE_HIGH_BOUND_KIND (type) == PROP_LOCEXPR
|
||
|| TYPE_HIGH_BOUND_KIND (type) == PROP_LOCLIST)
|
||
{
|
||
const struct dynamic_prop *prop = &TYPE_RANGE_DATA (type)->high;
|
||
char *name = c_get_range_decl_name (prop);
|
||
struct cleanup *cleanup = make_cleanup (xfree, name);
|
||
|
||
dwarf2_compile_property_to_c (stream, name,
|
||
gdbarch, registers_used,
|
||
prop, pc, sym);
|
||
do_cleanups (cleanup);
|
||
}
|
||
}
|
||
break;
|
||
|
||
case TYPE_CODE_ARRAY:
|
||
generate_vla_size (compiler, stream, gdbarch, registers_used, pc,
|
||
TYPE_INDEX_TYPE (type), sym);
|
||
generate_vla_size (compiler, stream, gdbarch, registers_used, pc,
|
||
TYPE_TARGET_TYPE (type), sym);
|
||
break;
|
||
|
||
case TYPE_CODE_UNION:
|
||
case TYPE_CODE_STRUCT:
|
||
{
|
||
int i;
|
||
|
||
for (i = 0; i < TYPE_NFIELDS (type); ++i)
|
||
if (!field_is_static (&TYPE_FIELD (type, i)))
|
||
generate_vla_size (compiler, stream, gdbarch, registers_used, pc,
|
||
TYPE_FIELD_TYPE (type, i), sym);
|
||
}
|
||
break;
|
||
}
|
||
}
|
||
|
||
/* Generate C code to compute the address of SYM. */
|
||
|
||
static void
|
||
generate_c_for_for_one_variable (struct compile_c_instance *compiler,
|
||
struct ui_file *stream,
|
||
struct gdbarch *gdbarch,
|
||
unsigned char *registers_used,
|
||
CORE_ADDR pc,
|
||
struct symbol *sym)
|
||
{
|
||
|
||
TRY
|
||
{
|
||
if (is_dynamic_type (SYMBOL_TYPE (sym)))
|
||
{
|
||
struct ui_file *size_file = mem_fileopen ();
|
||
struct cleanup *cleanup = make_cleanup_ui_file_delete (size_file);
|
||
|
||
generate_vla_size (compiler, size_file, gdbarch, registers_used, pc,
|
||
SYMBOL_TYPE (sym), sym);
|
||
ui_file_put (size_file, ui_file_write_for_put, stream);
|
||
|
||
do_cleanups (cleanup);
|
||
}
|
||
|
||
if (SYMBOL_COMPUTED_OPS (sym) != NULL)
|
||
{
|
||
char *generated_name = symbol_substitution_name (sym);
|
||
struct cleanup *cleanup = make_cleanup (xfree, generated_name);
|
||
/* We need to emit to a temporary buffer in case an error
|
||
occurs in the middle. */
|
||
struct ui_file *local_file = mem_fileopen ();
|
||
|
||
make_cleanup_ui_file_delete (local_file);
|
||
SYMBOL_COMPUTED_OPS (sym)->generate_c_location (sym, local_file,
|
||
gdbarch,
|
||
registers_used,
|
||
pc, generated_name);
|
||
ui_file_put (local_file, ui_file_write_for_put, stream);
|
||
|
||
do_cleanups (cleanup);
|
||
}
|
||
else
|
||
{
|
||
switch (SYMBOL_CLASS (sym))
|
||
{
|
||
case LOC_REGISTER:
|
||
case LOC_ARG:
|
||
case LOC_REF_ARG:
|
||
case LOC_REGPARM_ADDR:
|
||
case LOC_LOCAL:
|
||
error (_("Local symbol unhandled when generating C code."));
|
||
|
||
case LOC_COMPUTED:
|
||
gdb_assert_not_reached (_("LOC_COMPUTED variable "
|
||
"missing a method."));
|
||
|
||
default:
|
||
/* Nothing to do for all other cases, as they don't represent
|
||
local variables. */
|
||
break;
|
||
}
|
||
}
|
||
}
|
||
|
||
CATCH (e, RETURN_MASK_ERROR)
|
||
{
|
||
if (compiler->symbol_err_map == NULL)
|
||
compiler->symbol_err_map = htab_create_alloc (10,
|
||
hash_symbol_error,
|
||
eq_symbol_error,
|
||
del_symbol_error,
|
||
xcalloc,
|
||
xfree);
|
||
insert_symbol_error (compiler->symbol_err_map, sym, e.message);
|
||
}
|
||
END_CATCH
|
||
}
|
||
|
||
/* See compile-internal.h. */
|
||
|
||
unsigned char *
|
||
generate_c_for_variable_locations (struct compile_c_instance *compiler,
|
||
struct ui_file *stream,
|
||
struct gdbarch *gdbarch,
|
||
const struct block *block,
|
||
CORE_ADDR pc)
|
||
{
|
||
struct cleanup *cleanup, *outer;
|
||
htab_t symhash;
|
||
const struct block *static_block = block_static_block (block);
|
||
unsigned char *registers_used;
|
||
|
||
/* If we're already in the static or global block, there is nothing
|
||
to write. */
|
||
if (static_block == NULL || block == static_block)
|
||
return NULL;
|
||
|
||
registers_used = XCNEWVEC (unsigned char, gdbarch_num_regs (gdbarch));
|
||
outer = make_cleanup (xfree, registers_used);
|
||
|
||
/* Ensure that a given name is only entered once. This reflects the
|
||
reality of shadowing. */
|
||
symhash = htab_create_alloc (1, hash_symname, eq_symname, NULL,
|
||
xcalloc, xfree);
|
||
cleanup = make_cleanup_htab_delete (symhash);
|
||
|
||
while (1)
|
||
{
|
||
struct symbol *sym;
|
||
struct block_iterator iter;
|
||
|
||
/* Iterate over symbols in this block, generating code to
|
||
compute the location of each local variable. */
|
||
for (sym = block_iterator_first (block, &iter);
|
||
sym != NULL;
|
||
sym = block_iterator_next (&iter))
|
||
{
|
||
if (!symbol_seen (symhash, sym))
|
||
generate_c_for_for_one_variable (compiler, stream, gdbarch,
|
||
registers_used, pc, sym);
|
||
}
|
||
|
||
/* If we just finished the outermost block of a function, we're
|
||
done. */
|
||
if (BLOCK_FUNCTION (block) != NULL)
|
||
break;
|
||
block = BLOCK_SUPERBLOCK (block);
|
||
}
|
||
|
||
do_cleanups (cleanup);
|
||
discard_cleanups (outer);
|
||
return registers_used;
|
||
}
|