mirror of
https://sourceware.org/git/binutils-gdb.git
synced 2024-12-05 08:14:19 +08:00
870f88f755
gdb/ChangeLog: 2016-05-07 Trevor Saunders <tbsaunde+binutils@tbsaunde.org> * aarch64-linux-tdep.c (aarch64_linux_sigframe_init): Remove unused variables. * aarch64-tdep.c (aarch64_skip_prologue): Likewise. (aarch64_scan_prologue): Likewise. (aarch64_prologue_prev_register): Likewise. (aarch64_dwarf2_prev_register): Likewise. (pass_in_v): Likewise. (aarch64_push_dummy_call): Likewise. (aarch64_breakpoint_from_pc): Likewise. (aarch64_return_in_memory): Likewise. (aarch64_return_value): Likewise. (aarch64_displaced_step_b_cond): Likewise. (aarch64_displaced_step_cb): Likewise. (aarch64_displaced_step_tb): Likewise. (aarch64_gdbarch_init): Likewise. (aarch64_process_record): Likewise. * alpha-mdebug-tdep.c (alpha_mdebug_init_abi): Likewise. * alpha-tdep.c (_initialize_alpha_tdep): Likewise. * amd64-dicos-tdep.c (amd64_dicos_init_abi): Likewise. * amd64-linux-tdep.c (amd64_dtrace_parse_probe_argument): Likewise. * amd64-tdep.c (fixup_riprel): Likewise. * amd64-windows-tdep.c (amd64_windows_frame_decode_epilogue): Likewise. (amd64_windows_frame_decode_insns): Likewise. (amd64_windows_frame_cache): Likewise. (amd64_windows_frame_prev_register): Likewise. (amd64_windows_frame_this_id): Likewise. (amd64_windows_init_abi): Likewise. * arm-linux-tdep.c (arm_linux_get_syscall_number): Likewise. (arm_linux_get_next_pcs_syscall_next_pc): Likewise. * arm-symbian-tdep.c (arm_symbian_init_abi): Likewise. * arm-tdep.c (arm_make_epilogue_frame_cache): Likewise. (arm_epilogue_frame_prev_register): Likewise. (arm_record_vdata_transfer_insn): Likewise. (arm_record_exreg_ld_st_insn): Likewise. * auto-load.c (execute_script_contents): Likewise. (print_scripts): Likewise. * avr-tdep.c (avr_frame_prev_register): Likewise. (avr_push_dummy_call): Likewise. * bfin-linux-tdep.c (bfin_linux_sigframe_init): Likewise. * bfin-tdep.c (bfin_gdbarch_init): Likewise. * blockframe.c (find_pc_partial_function_gnu_ifunc): Likewise. * break-catch-throw.c (fetch_probe_arguments): Likewise. * breakpoint.c (breakpoint_xfer_memory): Likewise. (breakpoint_init_inferior): Likewise. (breakpoint_inserted_here_p): Likewise. (software_breakpoint_inserted_here_p): Likewise. (hardware_breakpoint_inserted_here_p): Likewise. (bpstat_what): Likewise. (break_range_command): Likewise. (save_breakpoints): Likewise. * coffread.c (coff_symfile_read): Likewise. * cris-tdep.c (cris_push_dummy_call): Likewise. (cris_scan_prologue): Likewise. (cris_register_size): Likewise. (_initialize_cris_tdep): Likewise. * d-exp.y: Likewise. * dbxread.c (dbx_read_symtab): Likewise. (process_one_symbol): Likewise. (coffstab_build_psymtabs): Likewise. (elfstab_build_psymtabs): Likewise. * dicos-tdep.c (dicos_init_abi): Likewise. * disasm.c (do_mixed_source_and_assembly): Likewise. (gdb_disassembly): Likewise. * dtrace-probe.c (dtrace_process_dof): Likewise. * dwarf2read.c (error_check_comp_unit_head): Likewise. (build_type_psymtabs_1): Likewise. (skip_one_die): Likewise. (process_imported_unit_die): Likewise. (dwarf2_physname): Likewise. (read_file_scope): Likewise. (setup_type_unit_groups): Likewise. (create_dwo_cu_reader): Likewise. (create_dwo_cu): Likewise. (create_dwo_unit_in_dwp_v1): Likewise. (create_dwo_unit_in_dwp_v2): Likewise. (lookup_dwo_unit_in_dwp): Likewise. (free_dwo_file): Likewise. (check_producer): Likewise. (dwarf2_add_typedef): Likewise. (dwarf2_add_member_fn): Likewise. (read_unsigned_leb128): Likewise. (read_signed_leb128): Likewise. (dwarf2_const_value): Likewise. (follow_die_sig_1): Likewise. (dwarf_decode_macro_bytes): Likewise. * extension.c (restore_active_ext_lang): Likewise. * frv-linux-tdep.c (frv_linux_sigtramp_frame_cache): Likewise. * ft32-tdep.c (ft32_analyze_prologue): Likewise. * gdbtypes.c (lookup_typename): Likewise. (resolve_dynamic_range): Likewise. (check_typedef): Likewise. * h8300-tdep.c (h8300_is_argument_spill): Likewise. (h8300_gdbarch_init): Likewise. * hppa-tdep.c (hppa32_push_dummy_call): Likewise. (hppa_frame_this_id): Likewise. (_initialize_hppa_tdep): Likewise. * hppanbsd-tdep.c (hppanbsd_sigtramp_cache_init): Likewise. * hppaobsd-tdep.c (hppaobsd_supply_fpregset): Likewise. * i386-dicos-tdep.c (i386_dicos_init_abi): Likewise. * i386-tdep.c (i386_bnd_type): Likewise. (i386_gdbarch_init): Likewise. (i386_mpx_bd_base): Likewise. * i386nbsd-tdep.c (i386nbsd_sigtramp_cache_init): Likewise. * i386obsd-tdep.c (i386obsd_elf_init_abi): Likewise. * ia64-tdep.c (examine_prologue): Likewise. (ia64_frame_cache): Likewise. (ia64_push_dummy_call): Likewise. * infcmd.c (finish_command_fsm_async_reply_reason): Likewise. (default_print_one_register_info): Likewise. * infrun.c (infrun_thread_ptid_changed): Likewise. (thread_still_needs_step_over): Likewise. (stop_all_threads): Likewise. (restart_threads): Likewise. (keep_going_stepped_thread): Likewise. * iq2000-tdep.c (iq2000_scan_prologue): Likewise. * language.c (language_init_primitive_type_symbols): Likewise. * linespec.c (add_sal_to_sals): Likewise. * linux-nat.c (status_callback): Likewise. (kill_unfollowed_fork_children): Likewise. (linux_nat_kill): Likewise. * linux-tdep.c (linux_fill_prpsinfo): Likewise. * linux-thread-db.c (thread_db_notice_clone): Likewise. (record_thread): Likewise. * location.c (string_to_event_location_basic): Likewise. * m32c-tdep.c (m32c_prev_register): Likewise. * m32r-linux-tdep.c (m32r_linux_init_abi): Likewise. * m32r-tdep.c (decode_prologue): Likewise. * m68klinux-tdep.c (m68k_linux_sigtramp_frame_cache): Likewise. * machoread.c (macho_symtab_read): Likewise. (macho_symfile_read): Likewise. (macho_symfile_offsets): Likewise. * maint.c (set_per_command_cmd): Likewise. * mi/mi-cmd-stack.c (mi_cmd_stack_list_locals): Likewise. (mi_cmd_stack_list_variables): Likewise. * mi/mi-main.c (mi_cmd_exec_run): Likewise. (output_register): Likewise. (mi_cmd_execute): Likewise. (mi_cmd_trace_define_variable): Likewise. (print_variable_or_computed): Likewise. * minsyms.c (prim_record_minimal_symbol_full): Likewise. * mn10300-tdep.c (mn10300_frame_prev_register): Likewise. * msp430-tdep.c (msp430_pseudo_register_write): Likewise. * mt-tdep.c (mt_registers_info): Likewise. * nios2-tdep.c (nios2_analyze_prologue): Likewise. (nios2_push_dummy_call): Likewise. (nios2_frame_unwind_cache): Likewise. (nios2_stub_frame_cache): Likewise. (nios2_stub_frame_sniffer): Likewise. (nios2_gdbarch_init): Likewise. * ppc-ravenscar-thread.c: Likewise. * ppcfbsd-tdep.c (ppcfbsd_sigtramp_frame_cache): Likewise. * python/py-evts.c (add_new_registry): Likewise. * python/py-finishbreakpoint.c (bpfinishpy_init): Likewise. (bpfinishpy_detect_out_scope_cb): Likewise. * python/py-framefilter.c (py_print_value): Likewise. * python/py-inferior.c (infpy_write_memory): Likewise. * python/py-infevents.c (create_inferior_call_event_object): Likewise. * python/py-infthread.c (thpy_get_ptid): Likewise. * python/py-linetable.c (ltpy_get_pcs_for_line): Likewise. (ltpy_get_all_source_lines): Likewise. (ltpy_is_valid): Likewise. (ltpy_iternext): Likewise. * python/py-symtab.c (symtab_and_line_to_sal_object): Likewise. * python/py-unwind.c (pyuw_object_attribute_to_pointer): Likewise. (unwind_infopy_str): Likewise. * python/py-varobj.c (py_varobj_get_iterator): Likewise. * ravenscar-thread.c (ravenscar_inferior_created): Likewise. * rs6000-aix-tdep.c (rs6000_push_dummy_call): Likewise. * rs6000-lynx178-tdep.c (rs6000_lynx178_push_dummy_call): Likewise. * rs6000-tdep.c (ppc_deal_with_atomic_sequence): Likewise. * s390-linux-tdep.c (s390_supply_tdb_regset): Likewise. (s390_frame_prev_register): Likewise. (s390_dwarf2_frame_init_reg): Likewise. (s390_record_vr): Likewise. (s390_process_record): Likewise. * score-tdep.c (score_push_dummy_call): Likewise. (score3_analyze_prologue): Likewise. * sh-tdep.c (sh_extract_return_value_nofpu): Likewise. * sh64-tdep.c (sh64_analyze_prologue): Likewise. (sh64_push_dummy_call): Likewise. (sh64_extract_return_value): Likewise. (sh64_do_fp_register): Likewise. * solib-aix.c (solib_aix_get_section_offsets): Likewise. * solib-darwin.c (darwin_read_exec_load_addr_from_dyld): Likewise. (darwin_solib_read_all_image_info_addr): Likewise. * solib-dsbt.c (enable_break): Likewise. * solib-frv.c (enable_break2): Likewise. (frv_fdpic_find_canonical_descriptor): Likewise. * solib-svr4.c (svr4_handle_solib_event): Likewise. * sparc-tdep.c (sparc_skip_stack_check): Likewise. * sparc64-linux-tdep.c (sparc64_linux_get_longjmp_target): Likewise. * sparcobsd-tdep.c (sparc32obsd_init_abi): Likewise. * spu-tdep.c (info_spu_dma_cmdlist): Likewise. * stack.c (read_frame_local): Likewise. * symfile.c (symbol_file_add_separate): Likewise. (remove_symbol_file_command): Likewise. * symmisc.c (maintenance_print_one_line_table): Likewise. * symtab.c (symbol_cache_flush): Likewise. (basic_lookup_transparent_type): Likewise. (sort_search_symbols_remove_dups): Likewise. * target.c (target_memory_map): Likewise. (target_detach): Likewise. (target_resume): Likewise. (acquire_fileio_fd): Likewise. (target_store_registers): Likewise. * thread.c (print_thread_info_1): Likewise. * tic6x-tdep.c (tic6x_analyze_prologue): Likewise. * tilegx-linux-tdep.c (tilegx_linux_sigframe_init): Likewise. * tilegx-tdep.c (tilegx_push_dummy_call): Likewise. (tilegx_analyze_prologue): Likewise. (tilegx_stack_frame_destroyed_p): Likewise. (tilegx_frame_cache): Likewise. * tracefile.c (trace_save): Likewise. * tracepoint.c (encode_actions_and_make_cleanup): Likewise. (start_tracing): Likewise. (print_one_static_tracepoint_marker): Likewise. * tui/tui.c (tui_enable): Likewise. * valops.c (value_struct_elt_bitpos): Likewise. (find_overload_match): Likewise. (find_oload_champ): Likewise. * value.c (value_contents_copy_raw): Likewise. * windows-tdep.c (windows_get_tlb_type): Likewise. * x86-linux-nat.c (x86_linux_enable_btrace): Likewise. * xcoffread.c (record_minimal_symbol): Likewise. (scan_xcoff_symtab): Likewise. * xtensa-tdep.c (execute_code): Likewise. (xtensa_gdbarch_init): Likewise. (_initialize_xtensa_tdep): Likewise.
2305 lines
66 KiB
C
2305 lines
66 KiB
C
/* Read coff symbol tables and convert to internal format, for GDB.
|
||
Copyright (C) 1987-2016 Free Software Foundation, Inc.
|
||
Contributed by David D. Johnson, Brown University (ddj@cs.brown.edu).
|
||
|
||
This file is part of GDB.
|
||
|
||
This program is free software; you can redistribute it and/or modify
|
||
it under the terms of the GNU General Public License as published by
|
||
the Free Software Foundation; either version 3 of the License, or
|
||
(at your option) any later version.
|
||
|
||
This program is distributed in the hope that it will be useful,
|
||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
GNU General Public License for more details.
|
||
|
||
You should have received a copy of the GNU General Public License
|
||
along with this program. If not, see <http://www.gnu.org/licenses/>. */
|
||
|
||
#include "defs.h"
|
||
#include "symtab.h"
|
||
#include "gdbtypes.h"
|
||
#include "demangle.h"
|
||
#include "breakpoint.h"
|
||
|
||
#include "bfd.h"
|
||
#include "gdb_obstack.h"
|
||
#include <ctype.h>
|
||
|
||
#include "coff/internal.h" /* Internal format of COFF symbols in BFD */
|
||
#include "libcoff.h" /* FIXME secret internal data from BFD */
|
||
#include "objfiles.h"
|
||
#include "buildsym.h"
|
||
#include "gdb-stabs.h"
|
||
#include "stabsread.h"
|
||
#include "complaints.h"
|
||
#include "target.h"
|
||
#include "block.h"
|
||
#include "dictionary.h"
|
||
|
||
#include "coff-pe-read.h"
|
||
|
||
#include "psymtab.h"
|
||
#include "build-id.h"
|
||
|
||
extern void _initialize_coffread (void);
|
||
|
||
/* Key for COFF-associated data. */
|
||
|
||
static const struct objfile_data *coff_objfile_data_key;
|
||
|
||
/* The objfile we are currently reading. */
|
||
|
||
static struct objfile *coffread_objfile;
|
||
|
||
struct coff_symfile_info
|
||
{
|
||
file_ptr min_lineno_offset; /* Where in file lowest line#s are. */
|
||
file_ptr max_lineno_offset; /* 1+last byte of line#s in file. */
|
||
|
||
CORE_ADDR textaddr; /* Addr of .text section. */
|
||
unsigned int textsize; /* Size of .text section. */
|
||
struct stab_section_list *stabsects; /* .stab sections. */
|
||
asection *stabstrsect; /* Section pointer for .stab section. */
|
||
char *stabstrdata;
|
||
};
|
||
|
||
/* Translate an external name string into a user-visible name. */
|
||
#define EXTERNAL_NAME(string, abfd) \
|
||
(string[0] == bfd_get_symbol_leading_char (abfd) \
|
||
? string + 1 : string)
|
||
|
||
/* To be an sdb debug type, type must have at least a basic or primary
|
||
derived type. Using this rather than checking against T_NULL is
|
||
said to prevent core dumps if we try to operate on Michael Bloom
|
||
dbx-in-coff file. */
|
||
|
||
#define SDB_TYPE(type) (BTYPE(type) | (type & N_TMASK))
|
||
|
||
/* Core address of start and end of text of current source file.
|
||
This comes from a ".text" symbol where x_nlinno > 0. */
|
||
|
||
static CORE_ADDR current_source_start_addr;
|
||
static CORE_ADDR current_source_end_addr;
|
||
|
||
/* The addresses of the symbol table stream and number of symbols
|
||
of the object file we are reading (as copied into core). */
|
||
|
||
static bfd *nlist_bfd_global;
|
||
static int nlist_nsyms_global;
|
||
|
||
|
||
/* Pointers to scratch storage, used for reading raw symbols and
|
||
auxents. */
|
||
|
||
static char *temp_sym;
|
||
static char *temp_aux;
|
||
|
||
/* Local variables that hold the shift and mask values for the
|
||
COFF file that we are currently reading. These come back to us
|
||
from BFD, and are referenced by their macro names, as well as
|
||
internally to the BTYPE, ISPTR, ISFCN, ISARY, ISTAG, and DECREF
|
||
macros from include/coff/internal.h . */
|
||
|
||
static unsigned local_n_btmask;
|
||
static unsigned local_n_btshft;
|
||
static unsigned local_n_tmask;
|
||
static unsigned local_n_tshift;
|
||
|
||
#define N_BTMASK local_n_btmask
|
||
#define N_BTSHFT local_n_btshft
|
||
#define N_TMASK local_n_tmask
|
||
#define N_TSHIFT local_n_tshift
|
||
|
||
/* Local variables that hold the sizes in the file of various COFF
|
||
structures. (We only need to know this to read them from the file
|
||
-- BFD will then translate the data in them, into `internal_xxx'
|
||
structs in the right byte order, alignment, etc.) */
|
||
|
||
static unsigned local_linesz;
|
||
static unsigned local_symesz;
|
||
static unsigned local_auxesz;
|
||
|
||
/* This is set if this is a PE format file. */
|
||
|
||
static int pe_file;
|
||
|
||
/* Chain of typedefs of pointers to empty struct/union types.
|
||
They are chained thru the SYMBOL_VALUE_CHAIN. */
|
||
|
||
static struct symbol *opaque_type_chain[HASHSIZE];
|
||
|
||
/* Simplified internal version of coff symbol table information. */
|
||
|
||
struct coff_symbol
|
||
{
|
||
char *c_name;
|
||
int c_symnum; /* Symbol number of this entry. */
|
||
int c_naux; /* 0 if syment only, 1 if syment +
|
||
auxent, etc. */
|
||
CORE_ADDR c_value;
|
||
int c_sclass;
|
||
int c_secnum;
|
||
unsigned int c_type;
|
||
};
|
||
|
||
/* Vector of types defined so far, indexed by their type numbers. */
|
||
|
||
static struct type **type_vector;
|
||
|
||
/* Number of elements allocated for type_vector currently. */
|
||
|
||
static int type_vector_length;
|
||
|
||
/* Initial size of type vector. Is realloc'd larger if needed, and
|
||
realloc'd down to the size actually used, when completed. */
|
||
|
||
#define INITIAL_TYPE_VECTOR_LENGTH 160
|
||
|
||
extern void stabsread_clear_cache (void);
|
||
|
||
static struct type *coff_read_struct_type (int, int, int,
|
||
struct objfile *);
|
||
|
||
static struct type *decode_base_type (struct coff_symbol *,
|
||
unsigned int,
|
||
union internal_auxent *,
|
||
struct objfile *);
|
||
|
||
static struct type *decode_type (struct coff_symbol *, unsigned int,
|
||
union internal_auxent *,
|
||
struct objfile *);
|
||
|
||
static struct type *decode_function_type (struct coff_symbol *,
|
||
unsigned int,
|
||
union internal_auxent *,
|
||
struct objfile *);
|
||
|
||
static struct type *coff_read_enum_type (int, int, int,
|
||
struct objfile *);
|
||
|
||
static struct symbol *process_coff_symbol (struct coff_symbol *,
|
||
union internal_auxent *,
|
||
struct objfile *);
|
||
|
||
static void patch_opaque_types (struct symtab *);
|
||
|
||
static void enter_linenos (long, int, int, struct objfile *);
|
||
|
||
static void free_linetab (void);
|
||
|
||
static void free_linetab_cleanup (void *ignore);
|
||
|
||
static int init_lineno (bfd *, long, int);
|
||
|
||
static char *getsymname (struct internal_syment *);
|
||
|
||
static const char *coff_getfilename (union internal_auxent *);
|
||
|
||
static void free_stringtab (void);
|
||
|
||
static void free_stringtab_cleanup (void *ignore);
|
||
|
||
static int init_stringtab (bfd *, long);
|
||
|
||
static void read_one_sym (struct coff_symbol *,
|
||
struct internal_syment *,
|
||
union internal_auxent *);
|
||
|
||
static void coff_symtab_read (long, unsigned int, struct objfile *);
|
||
|
||
/* We are called once per section from coff_symfile_read. We
|
||
need to examine each section we are passed, check to see
|
||
if it is something we are interested in processing, and
|
||
if so, stash away some access information for the section.
|
||
|
||
FIXME: The section names should not be hardwired strings (what
|
||
should they be? I don't think most object file formats have enough
|
||
section flags to specify what kind of debug section it is
|
||
-kingdon). */
|
||
|
||
static void
|
||
coff_locate_sections (bfd *abfd, asection *sectp, void *csip)
|
||
{
|
||
struct coff_symfile_info *csi;
|
||
const char *name;
|
||
|
||
csi = (struct coff_symfile_info *) csip;
|
||
name = bfd_get_section_name (abfd, sectp);
|
||
if (strcmp (name, ".text") == 0)
|
||
{
|
||
csi->textaddr = bfd_section_vma (abfd, sectp);
|
||
csi->textsize += bfd_section_size (abfd, sectp);
|
||
}
|
||
else if (startswith (name, ".text"))
|
||
{
|
||
csi->textsize += bfd_section_size (abfd, sectp);
|
||
}
|
||
else if (strcmp (name, ".stabstr") == 0)
|
||
{
|
||
csi->stabstrsect = sectp;
|
||
}
|
||
else if (startswith (name, ".stab"))
|
||
{
|
||
const char *s;
|
||
|
||
/* We can have multiple .stab sections if linked with
|
||
--split-by-reloc. */
|
||
for (s = name + sizeof ".stab" - 1; *s != '\0'; s++)
|
||
if (!isdigit (*s))
|
||
break;
|
||
if (*s == '\0')
|
||
{
|
||
struct stab_section_list *n, **pn;
|
||
|
||
n = XNEW (struct stab_section_list);
|
||
n->section = sectp;
|
||
n->next = NULL;
|
||
for (pn = &csi->stabsects; *pn != NULL; pn = &(*pn)->next)
|
||
;
|
||
*pn = n;
|
||
|
||
/* This will be run after coffstab_build_psymtabs is called
|
||
in coff_symfile_read, at which point we no longer need
|
||
the information. */
|
||
make_cleanup (xfree, n);
|
||
}
|
||
}
|
||
}
|
||
|
||
/* Return the section_offsets* that CS points to. */
|
||
static int cs_to_section (struct coff_symbol *, struct objfile *);
|
||
|
||
struct find_targ_sec_arg
|
||
{
|
||
int targ_index;
|
||
asection **resultp;
|
||
};
|
||
|
||
static void
|
||
find_targ_sec (bfd *abfd, asection *sect, void *obj)
|
||
{
|
||
struct find_targ_sec_arg *args = (struct find_targ_sec_arg *) obj;
|
||
|
||
if (sect->target_index == args->targ_index)
|
||
*args->resultp = sect;
|
||
}
|
||
|
||
/* Return the bfd_section that CS points to. */
|
||
static struct bfd_section*
|
||
cs_to_bfd_section (struct coff_symbol *cs, struct objfile *objfile)
|
||
{
|
||
asection *sect = NULL;
|
||
struct find_targ_sec_arg args;
|
||
|
||
args.targ_index = cs->c_secnum;
|
||
args.resultp = §
|
||
bfd_map_over_sections (objfile->obfd, find_targ_sec, &args);
|
||
return sect;
|
||
}
|
||
|
||
/* Return the section number (SECT_OFF_*) that CS points to. */
|
||
static int
|
||
cs_to_section (struct coff_symbol *cs, struct objfile *objfile)
|
||
{
|
||
asection *sect = cs_to_bfd_section (cs, objfile);
|
||
|
||
if (sect == NULL)
|
||
return SECT_OFF_TEXT (objfile);
|
||
return gdb_bfd_section_index (objfile->obfd, sect);
|
||
}
|
||
|
||
/* Return the address of the section of a COFF symbol. */
|
||
|
||
static CORE_ADDR cs_section_address (struct coff_symbol *, bfd *);
|
||
|
||
static CORE_ADDR
|
||
cs_section_address (struct coff_symbol *cs, bfd *abfd)
|
||
{
|
||
asection *sect = NULL;
|
||
struct find_targ_sec_arg args;
|
||
CORE_ADDR addr = 0;
|
||
|
||
args.targ_index = cs->c_secnum;
|
||
args.resultp = §
|
||
bfd_map_over_sections (abfd, find_targ_sec, &args);
|
||
if (sect != NULL)
|
||
addr = bfd_get_section_vma (abfd, sect);
|
||
return addr;
|
||
}
|
||
|
||
/* Look up a coff type-number index. Return the address of the slot
|
||
where the type for that index is stored.
|
||
The type-number is in INDEX.
|
||
|
||
This can be used for finding the type associated with that index
|
||
or for associating a new type with the index. */
|
||
|
||
static struct type **
|
||
coff_lookup_type (int index)
|
||
{
|
||
if (index >= type_vector_length)
|
||
{
|
||
int old_vector_length = type_vector_length;
|
||
|
||
type_vector_length *= 2;
|
||
if (index /* is still */ >= type_vector_length)
|
||
type_vector_length = index * 2;
|
||
|
||
type_vector = (struct type **)
|
||
xrealloc ((char *) type_vector,
|
||
type_vector_length * sizeof (struct type *));
|
||
memset (&type_vector[old_vector_length], 0,
|
||
(type_vector_length - old_vector_length) * sizeof (struct type *));
|
||
}
|
||
return &type_vector[index];
|
||
}
|
||
|
||
/* Make sure there is a type allocated for type number index
|
||
and return the type object.
|
||
This can create an empty (zeroed) type object. */
|
||
|
||
static struct type *
|
||
coff_alloc_type (int index)
|
||
{
|
||
struct type **type_addr = coff_lookup_type (index);
|
||
struct type *type = *type_addr;
|
||
|
||
/* If we are referring to a type not known at all yet,
|
||
allocate an empty type for it.
|
||
We will fill it in later if we find out how. */
|
||
if (type == NULL)
|
||
{
|
||
type = alloc_type (coffread_objfile);
|
||
*type_addr = type;
|
||
}
|
||
return type;
|
||
}
|
||
|
||
/* Start a new symtab for a new source file.
|
||
This is called when a COFF ".file" symbol is seen;
|
||
it indicates the start of data for one original source file. */
|
||
|
||
static void
|
||
coff_start_symtab (struct objfile *objfile, const char *name)
|
||
{
|
||
start_symtab (objfile,
|
||
/* We fill in the filename later. start_symtab puts this pointer
|
||
into last_source_file and we put it in subfiles->name, which
|
||
end_symtab frees; that's why it must be malloc'd. */
|
||
xstrdup (name),
|
||
/* We never know the directory name for COFF. */
|
||
NULL,
|
||
/* The start address is irrelevant, since we set
|
||
last_source_start_addr in coff_end_symtab. */
|
||
0);
|
||
record_debugformat ("COFF");
|
||
}
|
||
|
||
/* Save the vital information from when starting to read a file,
|
||
for use when closing off the current file.
|
||
NAME is the file name the symbols came from, START_ADDR is the
|
||
first text address for the file, and SIZE is the number of bytes of
|
||
text. */
|
||
|
||
static void
|
||
complete_symtab (const char *name, CORE_ADDR start_addr, unsigned int size)
|
||
{
|
||
set_last_source_file (name);
|
||
current_source_start_addr = start_addr;
|
||
current_source_end_addr = start_addr + size;
|
||
}
|
||
|
||
/* Finish the symbol definitions for one main source file, close off
|
||
all the lexical contexts for that file (creating struct block's for
|
||
them), then make the struct symtab for that file and put it in the
|
||
list of all such. */
|
||
|
||
static void
|
||
coff_end_symtab (struct objfile *objfile)
|
||
{
|
||
last_source_start_addr = current_source_start_addr;
|
||
|
||
end_symtab (current_source_end_addr, SECT_OFF_TEXT (objfile));
|
||
|
||
/* Reinitialize for beginning of new file. */
|
||
set_last_source_file (NULL);
|
||
}
|
||
|
||
/* The linker sometimes generates some non-function symbols inside
|
||
functions referencing variables imported from another DLL.
|
||
Return nonzero if the given symbol corresponds to one of them. */
|
||
|
||
static int
|
||
is_import_fixup_symbol (struct coff_symbol *cs,
|
||
enum minimal_symbol_type type)
|
||
{
|
||
/* The following is a bit of a heuristic using the characterictics
|
||
of these fixup symbols, but should work well in practice... */
|
||
int i;
|
||
|
||
/* Must be a non-static text symbol. */
|
||
if (type != mst_text)
|
||
return 0;
|
||
|
||
/* Must be a non-function symbol. */
|
||
if (ISFCN (cs->c_type))
|
||
return 0;
|
||
|
||
/* The name must start with "__fu<digits>__". */
|
||
if (!startswith (cs->c_name, "__fu"))
|
||
return 0;
|
||
if (! isdigit (cs->c_name[4]))
|
||
return 0;
|
||
for (i = 5; cs->c_name[i] != '\0' && isdigit (cs->c_name[i]); i++)
|
||
/* Nothing, just incrementing index past all digits. */;
|
||
if (cs->c_name[i] != '_' || cs->c_name[i + 1] != '_')
|
||
return 0;
|
||
|
||
return 1;
|
||
}
|
||
|
||
static struct minimal_symbol *
|
||
record_minimal_symbol (struct coff_symbol *cs, CORE_ADDR address,
|
||
enum minimal_symbol_type type, int section,
|
||
struct objfile *objfile)
|
||
{
|
||
/* We don't want TDESC entry points in the minimal symbol table. */
|
||
if (cs->c_name[0] == '@')
|
||
return NULL;
|
||
|
||
if (is_import_fixup_symbol (cs, type))
|
||
{
|
||
/* Because the value of these symbols is within a function code
|
||
range, these symbols interfere with the symbol-from-address
|
||
reverse lookup; this manifests itselfs in backtraces, or any
|
||
other commands that prints symbolic addresses. Just pretend
|
||
these symbols do not exist. */
|
||
return NULL;
|
||
}
|
||
|
||
return prim_record_minimal_symbol_and_info (cs->c_name, address,
|
||
type, section, objfile);
|
||
}
|
||
|
||
/* coff_symfile_init ()
|
||
is the coff-specific initialization routine for reading symbols.
|
||
It is passed a struct objfile which contains, among other things,
|
||
the BFD for the file whose symbols are being read, and a slot for
|
||
a pointer to "private data" which we fill with cookies and other
|
||
treats for coff_symfile_read ().
|
||
|
||
We will only be called if this is a COFF or COFF-like file. BFD
|
||
handles figuring out the format of the file, and code in symtab.c
|
||
uses BFD's determination to vector to us.
|
||
|
||
The ultimate result is a new symtab (or, FIXME, eventually a
|
||
psymtab). */
|
||
|
||
static void
|
||
coff_symfile_init (struct objfile *objfile)
|
||
{
|
||
struct dbx_symfile_info *dbx;
|
||
struct coff_symfile_info *coff;
|
||
|
||
/* Allocate struct to keep track of stab reading. */
|
||
dbx = XCNEW (struct dbx_symfile_info);
|
||
set_objfile_data (objfile, dbx_objfile_data_key, dbx);
|
||
|
||
/* Allocate struct to keep track of the symfile. */
|
||
coff = XCNEW (struct coff_symfile_info);
|
||
set_objfile_data (objfile, coff_objfile_data_key, coff);
|
||
|
||
/* COFF objects may be reordered, so set OBJF_REORDERED. If we
|
||
find this causes a significant slowdown in gdb then we could
|
||
set it in the debug symbol readers only when necessary. */
|
||
objfile->flags |= OBJF_REORDERED;
|
||
}
|
||
|
||
/* This function is called for every section; it finds the outer
|
||
limits of the line table (minimum and maximum file offset) so that
|
||
the mainline code can read the whole thing for efficiency. */
|
||
|
||
static void
|
||
find_linenos (bfd *abfd, struct bfd_section *asect, void *vpinfo)
|
||
{
|
||
struct coff_symfile_info *info;
|
||
int size, count;
|
||
file_ptr offset, maxoff;
|
||
|
||
/* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
|
||
count = asect->lineno_count;
|
||
/* End of warning. */
|
||
|
||
if (count == 0)
|
||
return;
|
||
size = count * local_linesz;
|
||
|
||
info = (struct coff_symfile_info *) vpinfo;
|
||
/* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
|
||
offset = asect->line_filepos;
|
||
/* End of warning. */
|
||
|
||
if (offset < info->min_lineno_offset || info->min_lineno_offset == 0)
|
||
info->min_lineno_offset = offset;
|
||
|
||
maxoff = offset + size;
|
||
if (maxoff > info->max_lineno_offset)
|
||
info->max_lineno_offset = maxoff;
|
||
}
|
||
|
||
|
||
/* The BFD for this file -- only good while we're actively reading
|
||
symbols into a psymtab or a symtab. */
|
||
|
||
static bfd *symfile_bfd;
|
||
|
||
/* Read a symbol file, after initialization by coff_symfile_init. */
|
||
|
||
static void
|
||
coff_symfile_read (struct objfile *objfile, int symfile_flags)
|
||
{
|
||
struct coff_symfile_info *info;
|
||
bfd *abfd = objfile->obfd;
|
||
coff_data_type *cdata = coff_data (abfd);
|
||
char *name = bfd_get_filename (abfd);
|
||
int val;
|
||
unsigned int num_symbols;
|
||
int symtab_offset;
|
||
int stringtab_offset;
|
||
struct cleanup *back_to, *cleanup_minimal_symbols;
|
||
int stabstrsize;
|
||
|
||
info = (struct coff_symfile_info *) objfile_data (objfile,
|
||
coff_objfile_data_key);
|
||
symfile_bfd = abfd; /* Kludge for swap routines. */
|
||
|
||
/* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
|
||
num_symbols = bfd_get_symcount (abfd); /* How many syms */
|
||
symtab_offset = cdata->sym_filepos; /* Symbol table file offset */
|
||
stringtab_offset = symtab_offset + /* String table file offset */
|
||
num_symbols * cdata->local_symesz;
|
||
|
||
/* Set a few file-statics that give us specific information about
|
||
the particular COFF file format we're reading. */
|
||
local_n_btmask = cdata->local_n_btmask;
|
||
local_n_btshft = cdata->local_n_btshft;
|
||
local_n_tmask = cdata->local_n_tmask;
|
||
local_n_tshift = cdata->local_n_tshift;
|
||
local_linesz = cdata->local_linesz;
|
||
local_symesz = cdata->local_symesz;
|
||
local_auxesz = cdata->local_auxesz;
|
||
|
||
/* Allocate space for raw symbol and aux entries, based on their
|
||
space requirements as reported by BFD. */
|
||
temp_sym = (char *) xmalloc
|
||
(cdata->local_symesz + cdata->local_auxesz);
|
||
temp_aux = temp_sym + cdata->local_symesz;
|
||
back_to = make_cleanup (free_current_contents, &temp_sym);
|
||
|
||
/* We need to know whether this is a PE file, because in PE files,
|
||
unlike standard COFF files, symbol values are stored as offsets
|
||
from the section address, rather than as absolute addresses.
|
||
FIXME: We should use BFD to read the symbol table, and thus avoid
|
||
this problem. */
|
||
pe_file =
|
||
startswith (bfd_get_target (objfile->obfd), "pe")
|
||
|| startswith (bfd_get_target (objfile->obfd), "epoc-pe");
|
||
|
||
/* End of warning. */
|
||
|
||
info->min_lineno_offset = 0;
|
||
info->max_lineno_offset = 0;
|
||
|
||
/* Only read line number information if we have symbols.
|
||
|
||
On Windows NT, some of the system's DLL's have sections with
|
||
PointerToLinenumbers fields that are non-zero, but point at
|
||
random places within the image file. (In the case I found,
|
||
KERNEL32.DLL's .text section has a line number info pointer that
|
||
points into the middle of the string `lib\\i386\kernel32.dll'.)
|
||
|
||
However, these DLL's also have no symbols. The line number
|
||
tables are meaningless without symbols. And in fact, GDB never
|
||
uses the line number information unless there are symbols. So we
|
||
can avoid spurious error messages (and maybe run a little
|
||
faster!) by not even reading the line number table unless we have
|
||
symbols. */
|
||
if (num_symbols > 0)
|
||
{
|
||
/* Read the line number table, all at once. */
|
||
bfd_map_over_sections (abfd, find_linenos, (void *) info);
|
||
|
||
make_cleanup (free_linetab_cleanup, 0 /*ignore*/);
|
||
val = init_lineno (abfd, info->min_lineno_offset,
|
||
info->max_lineno_offset - info->min_lineno_offset);
|
||
if (val < 0)
|
||
error (_("\"%s\": error reading line numbers."), name);
|
||
}
|
||
|
||
/* Now read the string table, all at once. */
|
||
|
||
make_cleanup (free_stringtab_cleanup, 0 /*ignore*/);
|
||
val = init_stringtab (abfd, stringtab_offset);
|
||
if (val < 0)
|
||
error (_("\"%s\": can't get string table"), name);
|
||
|
||
init_minimal_symbol_collection ();
|
||
cleanup_minimal_symbols = make_cleanup_discard_minimal_symbols ();
|
||
|
||
/* Now that the executable file is positioned at symbol table,
|
||
process it and define symbols accordingly. */
|
||
|
||
coff_symtab_read ((long) symtab_offset, num_symbols, objfile);
|
||
|
||
/* Install any minimal symbols that have been collected as the
|
||
current minimal symbols for this objfile. */
|
||
|
||
install_minimal_symbols (objfile);
|
||
|
||
if (pe_file)
|
||
{
|
||
struct minimal_symbol *msym;
|
||
|
||
ALL_OBJFILE_MSYMBOLS (objfile, msym)
|
||
{
|
||
const char *name = MSYMBOL_LINKAGE_NAME (msym);
|
||
|
||
/* If the minimal symbols whose name are prefixed by "__imp_"
|
||
or "_imp_", get rid of the prefix, and search the minimal
|
||
symbol in OBJFILE. Note that 'maintenance print msymbols'
|
||
shows that type of these "_imp_XXXX" symbols is mst_data. */
|
||
if (MSYMBOL_TYPE (msym) == mst_data)
|
||
{
|
||
const char *name1 = NULL;
|
||
|
||
if (startswith (name, "_imp_"))
|
||
name1 = name + 5;
|
||
else if (startswith (name, "__imp_"))
|
||
name1 = name + 6;
|
||
if (name1 != NULL)
|
||
{
|
||
int lead = bfd_get_symbol_leading_char (objfile->obfd);
|
||
struct bound_minimal_symbol found;
|
||
|
||
if (lead != '\0' && *name1 == lead)
|
||
name1 += 1;
|
||
|
||
found = lookup_minimal_symbol (name1, NULL, objfile);
|
||
|
||
/* If found, there are symbols named "_imp_foo" and "foo"
|
||
respectively in OBJFILE. Set the type of symbol "foo"
|
||
as 'mst_solib_trampoline'. */
|
||
if (found.minsym != NULL
|
||
&& MSYMBOL_TYPE (found.minsym) == mst_text)
|
||
MSYMBOL_TYPE (found.minsym) = mst_solib_trampoline;
|
||
}
|
||
}
|
||
}
|
||
}
|
||
|
||
/* Free the installed minimal symbol data. */
|
||
do_cleanups (cleanup_minimal_symbols);
|
||
|
||
bfd_map_over_sections (abfd, coff_locate_sections, (void *) info);
|
||
|
||
if (info->stabsects)
|
||
{
|
||
if (!info->stabstrsect)
|
||
{
|
||
error (_("The debugging information in `%s' is corrupted.\nThe "
|
||
"file has a `.stabs' section, but no `.stabstr' section."),
|
||
name);
|
||
}
|
||
|
||
/* FIXME: dubious. Why can't we use something normal like
|
||
bfd_get_section_contents? */
|
||
bfd_seek (abfd, abfd->where, 0);
|
||
|
||
stabstrsize = bfd_section_size (abfd, info->stabstrsect);
|
||
|
||
coffstab_build_psymtabs (objfile,
|
||
info->textaddr, info->textsize,
|
||
info->stabsects,
|
||
info->stabstrsect->filepos, stabstrsize);
|
||
}
|
||
if (dwarf2_has_info (objfile, NULL))
|
||
{
|
||
/* DWARF2 sections. */
|
||
dwarf2_build_psymtabs (objfile);
|
||
}
|
||
|
||
dwarf2_build_frame_info (objfile);
|
||
|
||
/* Try to add separate debug file if no symbols table found. */
|
||
if (!objfile_has_partial_symbols (objfile))
|
||
{
|
||
char *debugfile;
|
||
|
||
debugfile = find_separate_debug_file_by_buildid (objfile);
|
||
|
||
if (debugfile == NULL)
|
||
debugfile = find_separate_debug_file_by_debuglink (objfile);
|
||
make_cleanup (xfree, debugfile);
|
||
|
||
if (debugfile)
|
||
{
|
||
bfd *abfd = symfile_bfd_open (debugfile);
|
||
|
||
make_cleanup_bfd_unref (abfd);
|
||
symbol_file_add_separate (abfd, debugfile, symfile_flags, objfile);
|
||
}
|
||
}
|
||
|
||
do_cleanups (back_to);
|
||
}
|
||
|
||
static void
|
||
coff_new_init (struct objfile *ignore)
|
||
{
|
||
}
|
||
|
||
/* Perform any local cleanups required when we are done with a
|
||
particular objfile. I.E, we are in the process of discarding all
|
||
symbol information for an objfile, freeing up all memory held for
|
||
it, and unlinking the objfile struct from the global list of known
|
||
objfiles. */
|
||
|
||
static void
|
||
coff_symfile_finish (struct objfile *objfile)
|
||
{
|
||
/* Let stabs reader clean up. */
|
||
stabsread_clear_cache ();
|
||
|
||
dwarf2_free_objfile (objfile);
|
||
}
|
||
|
||
|
||
/* Given pointers to a symbol table in coff style exec file,
|
||
analyze them and create struct symtab's describing the symbols.
|
||
NSYMS is the number of symbols in the symbol table.
|
||
We read them one at a time using read_one_sym (). */
|
||
|
||
static void
|
||
coff_symtab_read (long symtab_offset, unsigned int nsyms,
|
||
struct objfile *objfile)
|
||
{
|
||
struct gdbarch *gdbarch = get_objfile_arch (objfile);
|
||
struct context_stack *newobj;
|
||
struct coff_symbol coff_symbol;
|
||
struct coff_symbol *cs = &coff_symbol;
|
||
static struct internal_syment main_sym;
|
||
static union internal_auxent main_aux;
|
||
struct coff_symbol fcn_cs_saved;
|
||
static struct internal_syment fcn_sym_saved;
|
||
static union internal_auxent fcn_aux_saved;
|
||
/* A .file is open. */
|
||
int in_source_file = 0;
|
||
int next_file_symnum = -1;
|
||
/* Name of the current file. */
|
||
const char *filestring = "";
|
||
int depth = 0;
|
||
int fcn_first_line = 0;
|
||
CORE_ADDR fcn_first_line_addr = 0;
|
||
int fcn_last_line = 0;
|
||
int fcn_start_addr = 0;
|
||
long fcn_line_ptr = 0;
|
||
int val;
|
||
CORE_ADDR tmpaddr;
|
||
struct minimal_symbol *msym;
|
||
|
||
/* Work around a stdio bug in SunOS4.1.1 (this makes me nervous....
|
||
it's hard to know I've really worked around it. The fix should
|
||
be harmless, anyway). The symptom of the bug is that the first
|
||
fread (in read_one_sym), will (in my example) actually get data
|
||
from file offset 268, when the fseek was to 264 (and ftell shows
|
||
264). This causes all hell to break loose. I was unable to
|
||
reproduce this on a short test program which operated on the same
|
||
file, performing (I think) the same sequence of operations.
|
||
|
||
It stopped happening when I put in this (former) rewind().
|
||
|
||
FIXME: Find out if this has been reported to Sun, whether it has
|
||
been fixed in a later release, etc. */
|
||
|
||
bfd_seek (objfile->obfd, 0, 0);
|
||
|
||
/* Position to read the symbol table. */
|
||
val = bfd_seek (objfile->obfd, (long) symtab_offset, 0);
|
||
if (val < 0)
|
||
perror_with_name (objfile_name (objfile));
|
||
|
||
coffread_objfile = objfile;
|
||
nlist_bfd_global = objfile->obfd;
|
||
nlist_nsyms_global = nsyms;
|
||
set_last_source_file (NULL);
|
||
memset (opaque_type_chain, 0, sizeof opaque_type_chain);
|
||
|
||
if (type_vector) /* Get rid of previous one. */
|
||
xfree (type_vector);
|
||
type_vector_length = INITIAL_TYPE_VECTOR_LENGTH;
|
||
type_vector = XCNEWVEC (struct type *, type_vector_length);
|
||
|
||
coff_start_symtab (objfile, "");
|
||
|
||
symnum = 0;
|
||
while (symnum < nsyms)
|
||
{
|
||
QUIT; /* Make this command interruptable. */
|
||
|
||
read_one_sym (cs, &main_sym, &main_aux);
|
||
|
||
if (cs->c_symnum == next_file_symnum && cs->c_sclass != C_FILE)
|
||
{
|
||
if (get_last_source_file ())
|
||
coff_end_symtab (objfile);
|
||
|
||
coff_start_symtab (objfile, "_globals_");
|
||
/* coff_start_symtab will set the language of this symtab to
|
||
language_unknown, since such a ``file name'' is not
|
||
recognized. Override that with the minimal language to
|
||
allow printing values in this symtab. */
|
||
current_subfile->language = language_minimal;
|
||
complete_symtab ("_globals_", 0, 0);
|
||
/* Done with all files, everything from here on out is
|
||
globals. */
|
||
}
|
||
|
||
/* Special case for file with type declarations only, no
|
||
text. */
|
||
if (!get_last_source_file () && SDB_TYPE (cs->c_type)
|
||
&& cs->c_secnum == N_DEBUG)
|
||
complete_symtab (filestring, 0, 0);
|
||
|
||
/* Typedefs should not be treated as symbol definitions. */
|
||
if (ISFCN (cs->c_type) && cs->c_sclass != C_TPDEF)
|
||
{
|
||
/* Record all functions -- external and static -- in
|
||
minsyms. */
|
||
int section = cs_to_section (cs, objfile);
|
||
|
||
tmpaddr = cs->c_value;
|
||
record_minimal_symbol (cs, tmpaddr, mst_text,
|
||
section, objfile);
|
||
|
||
fcn_line_ptr = main_aux.x_sym.x_fcnary.x_fcn.x_lnnoptr;
|
||
fcn_start_addr = tmpaddr;
|
||
fcn_cs_saved = *cs;
|
||
fcn_sym_saved = main_sym;
|
||
fcn_aux_saved = main_aux;
|
||
continue;
|
||
}
|
||
|
||
switch (cs->c_sclass)
|
||
{
|
||
case C_EFCN:
|
||
case C_EXTDEF:
|
||
case C_ULABEL:
|
||
case C_USTATIC:
|
||
case C_LINE:
|
||
case C_ALIAS:
|
||
case C_HIDDEN:
|
||
complaint (&symfile_complaints,
|
||
_("Bad n_sclass for symbol %s"),
|
||
cs->c_name);
|
||
break;
|
||
|
||
case C_FILE:
|
||
/* c_value field contains symnum of next .file entry in
|
||
table or symnum of first global after last .file. */
|
||
next_file_symnum = cs->c_value;
|
||
if (cs->c_naux > 0)
|
||
filestring = coff_getfilename (&main_aux);
|
||
else
|
||
filestring = "";
|
||
|
||
/* Complete symbol table for last object file
|
||
containing debugging information. */
|
||
if (get_last_source_file ())
|
||
{
|
||
coff_end_symtab (objfile);
|
||
coff_start_symtab (objfile, filestring);
|
||
}
|
||
in_source_file = 1;
|
||
break;
|
||
|
||
/* C_LABEL is used for labels and static functions.
|
||
Including it here allows gdb to see static functions when
|
||
no debug info is available. */
|
||
case C_LABEL:
|
||
/* However, labels within a function can make weird
|
||
backtraces, so filter them out (from phdm@macqel.be). */
|
||
if (within_function)
|
||
break;
|
||
case C_STAT:
|
||
case C_THUMBLABEL:
|
||
case C_THUMBSTAT:
|
||
case C_THUMBSTATFUNC:
|
||
if (cs->c_name[0] == '.')
|
||
{
|
||
if (strcmp (cs->c_name, ".text") == 0)
|
||
{
|
||
/* FIXME: don't wire in ".text" as section name or
|
||
symbol name! */
|
||
/* Check for in_source_file deals with case of a
|
||
file with debugging symbols followed by a later
|
||
file with no symbols. */
|
||
if (in_source_file)
|
||
complete_symtab (filestring,
|
||
cs->c_value + ANOFFSET (objfile->section_offsets,
|
||
SECT_OFF_TEXT (objfile)),
|
||
main_aux.x_scn.x_scnlen);
|
||
in_source_file = 0;
|
||
}
|
||
/* Flush rest of '.' symbols. */
|
||
break;
|
||
}
|
||
else if (!SDB_TYPE (cs->c_type)
|
||
&& cs->c_name[0] == 'L'
|
||
&& (startswith (cs->c_name, "LI%")
|
||
|| startswith (cs->c_name, "LF%")
|
||
|| startswith (cs->c_name, "LC%")
|
||
|| startswith (cs->c_name, "LP%")
|
||
|| startswith (cs->c_name, "LPB%")
|
||
|| startswith (cs->c_name, "LBB%")
|
||
|| startswith (cs->c_name, "LBE%")
|
||
|| startswith (cs->c_name, "LPBX%")))
|
||
/* At least on a 3b1, gcc generates swbeg and string labels
|
||
that look like this. Ignore them. */
|
||
break;
|
||
/* Fall in for static symbols that don't start with '.' */
|
||
case C_THUMBEXT:
|
||
case C_THUMBEXTFUNC:
|
||
case C_EXT:
|
||
{
|
||
/* Record it in the minimal symbols regardless of
|
||
SDB_TYPE. This parallels what we do for other debug
|
||
formats, and probably is needed to make
|
||
print_address_symbolic work right without the (now
|
||
gone) "set fast-symbolic-addr off" kludge. */
|
||
|
||
enum minimal_symbol_type ms_type;
|
||
int sec;
|
||
CORE_ADDR offset = 0;
|
||
|
||
if (cs->c_secnum == N_UNDEF)
|
||
{
|
||
/* This is a common symbol. We used to rely on
|
||
the target to tell us whether it knows where
|
||
the symbol has been relocated to, but none of
|
||
the target implementations actually provided
|
||
that operation. So we just ignore the symbol,
|
||
the same way we would do if we had a target-side
|
||
symbol lookup which returned no match. */
|
||
break;
|
||
}
|
||
else if (cs->c_secnum == N_ABS)
|
||
{
|
||
/* Use the correct minimal symbol type (and don't
|
||
relocate) for absolute values. */
|
||
ms_type = mst_abs;
|
||
sec = cs_to_section (cs, objfile);
|
||
tmpaddr = cs->c_value;
|
||
}
|
||
else
|
||
{
|
||
asection *bfd_section = cs_to_bfd_section (cs, objfile);
|
||
|
||
sec = cs_to_section (cs, objfile);
|
||
tmpaddr = cs->c_value;
|
||
/* Statics in a PE file also get relocated. */
|
||
if (cs->c_sclass == C_EXT
|
||
|| cs->c_sclass == C_THUMBEXTFUNC
|
||
|| cs->c_sclass == C_THUMBEXT
|
||
|| (pe_file && (cs->c_sclass == C_STAT)))
|
||
offset = ANOFFSET (objfile->section_offsets, sec);
|
||
|
||
if (bfd_section->flags & SEC_CODE)
|
||
{
|
||
ms_type =
|
||
cs->c_sclass == C_EXT || cs->c_sclass == C_THUMBEXTFUNC
|
||
|| cs->c_sclass == C_THUMBEXT ?
|
||
mst_text : mst_file_text;
|
||
tmpaddr = gdbarch_addr_bits_remove (gdbarch, tmpaddr);
|
||
}
|
||
else if (bfd_section->flags & SEC_ALLOC
|
||
&& bfd_section->flags & SEC_LOAD)
|
||
{
|
||
ms_type =
|
||
cs->c_sclass == C_EXT || cs->c_sclass == C_THUMBEXT
|
||
? mst_data : mst_file_data;
|
||
}
|
||
else if (bfd_section->flags & SEC_ALLOC)
|
||
{
|
||
ms_type =
|
||
cs->c_sclass == C_EXT || cs->c_sclass == C_THUMBEXT
|
||
? mst_bss : mst_file_bss;
|
||
}
|
||
else
|
||
ms_type = mst_unknown;
|
||
}
|
||
|
||
msym = record_minimal_symbol (cs, tmpaddr, ms_type,
|
||
sec, objfile);
|
||
if (msym)
|
||
gdbarch_coff_make_msymbol_special (gdbarch,
|
||
cs->c_sclass, msym);
|
||
|
||
if (SDB_TYPE (cs->c_type))
|
||
{
|
||
struct symbol *sym;
|
||
|
||
sym = process_coff_symbol
|
||
(cs, &main_aux, objfile);
|
||
SYMBOL_VALUE (sym) = tmpaddr + offset;
|
||
SYMBOL_SECTION (sym) = sec;
|
||
}
|
||
}
|
||
break;
|
||
|
||
case C_FCN:
|
||
if (strcmp (cs->c_name, ".bf") == 0)
|
||
{
|
||
within_function = 1;
|
||
|
||
/* Value contains address of first non-init type
|
||
code. */
|
||
/* main_aux.x_sym.x_misc.x_lnsz.x_lnno
|
||
contains line number of '{' }. */
|
||
if (cs->c_naux != 1)
|
||
complaint (&symfile_complaints,
|
||
_("`.bf' symbol %d has no aux entry"),
|
||
cs->c_symnum);
|
||
fcn_first_line = main_aux.x_sym.x_misc.x_lnsz.x_lnno;
|
||
fcn_first_line_addr = cs->c_value;
|
||
|
||
/* Might want to check that locals are 0 and
|
||
context_stack_depth is zero, and complain if not. */
|
||
|
||
depth = 0;
|
||
newobj = push_context (depth, fcn_start_addr);
|
||
fcn_cs_saved.c_name = getsymname (&fcn_sym_saved);
|
||
newobj->name =
|
||
process_coff_symbol (&fcn_cs_saved,
|
||
&fcn_aux_saved, objfile);
|
||
}
|
||
else if (strcmp (cs->c_name, ".ef") == 0)
|
||
{
|
||
if (!within_function)
|
||
error (_("Bad coff function information."));
|
||
/* The value of .ef is the address of epilogue code;
|
||
not useful for gdb. */
|
||
/* { main_aux.x_sym.x_misc.x_lnsz.x_lnno
|
||
contains number of lines to '}' */
|
||
|
||
if (context_stack_depth <= 0)
|
||
{ /* We attempted to pop an empty context stack. */
|
||
complaint (&symfile_complaints,
|
||
_("`.ef' symbol without matching `.bf' "
|
||
"symbol ignored starting at symnum %d"),
|
||
cs->c_symnum);
|
||
within_function = 0;
|
||
break;
|
||
}
|
||
|
||
newobj = pop_context ();
|
||
/* Stack must be empty now. */
|
||
if (context_stack_depth > 0 || newobj == NULL)
|
||
{
|
||
complaint (&symfile_complaints,
|
||
_("Unmatched .ef symbol(s) ignored "
|
||
"starting at symnum %d"),
|
||
cs->c_symnum);
|
||
within_function = 0;
|
||
break;
|
||
}
|
||
if (cs->c_naux != 1)
|
||
{
|
||
complaint (&symfile_complaints,
|
||
_("`.ef' symbol %d has no aux entry"),
|
||
cs->c_symnum);
|
||
fcn_last_line = 0x7FFFFFFF;
|
||
}
|
||
else
|
||
{
|
||
fcn_last_line = main_aux.x_sym.x_misc.x_lnsz.x_lnno;
|
||
}
|
||
/* fcn_first_line is the line number of the opening '{'.
|
||
Do not record it - because it would affect gdb's idea
|
||
of the line number of the first statement of the
|
||
function - except for one-line functions, for which
|
||
it is also the line number of all the statements and
|
||
of the closing '}', and for which we do not have any
|
||
other statement-line-number. */
|
||
if (fcn_last_line == 1)
|
||
record_line (current_subfile, fcn_first_line,
|
||
gdbarch_addr_bits_remove (gdbarch,
|
||
fcn_first_line_addr));
|
||
else
|
||
enter_linenos (fcn_line_ptr, fcn_first_line,
|
||
fcn_last_line, objfile);
|
||
|
||
finish_block (newobj->name, &local_symbols, newobj->old_blocks,
|
||
NULL, newobj->start_addr,
|
||
fcn_cs_saved.c_value
|
||
+ fcn_aux_saved.x_sym.x_misc.x_fsize
|
||
+ ANOFFSET (objfile->section_offsets,
|
||
SECT_OFF_TEXT (objfile)));
|
||
within_function = 0;
|
||
}
|
||
break;
|
||
|
||
case C_BLOCK:
|
||
if (strcmp (cs->c_name, ".bb") == 0)
|
||
{
|
||
tmpaddr = cs->c_value;
|
||
tmpaddr += ANOFFSET (objfile->section_offsets,
|
||
SECT_OFF_TEXT (objfile));
|
||
push_context (++depth, tmpaddr);
|
||
}
|
||
else if (strcmp (cs->c_name, ".eb") == 0)
|
||
{
|
||
if (context_stack_depth <= 0)
|
||
{ /* We attempted to pop an empty context stack. */
|
||
complaint (&symfile_complaints,
|
||
_("`.eb' symbol without matching `.bb' "
|
||
"symbol ignored starting at symnum %d"),
|
||
cs->c_symnum);
|
||
break;
|
||
}
|
||
|
||
newobj = pop_context ();
|
||
if (depth-- != newobj->depth)
|
||
{
|
||
complaint (&symfile_complaints,
|
||
_("Mismatched .eb symbol ignored "
|
||
"starting at symnum %d"),
|
||
symnum);
|
||
break;
|
||
}
|
||
if (local_symbols && context_stack_depth > 0)
|
||
{
|
||
tmpaddr =
|
||
cs->c_value + ANOFFSET (objfile->section_offsets,
|
||
SECT_OFF_TEXT (objfile));
|
||
/* Make a block for the local symbols within. */
|
||
finish_block (0, &local_symbols, newobj->old_blocks, NULL,
|
||
newobj->start_addr, tmpaddr);
|
||
}
|
||
/* Now pop locals of block just finished. */
|
||
local_symbols = newobj->locals;
|
||
}
|
||
break;
|
||
|
||
default:
|
||
process_coff_symbol (cs, &main_aux, objfile);
|
||
break;
|
||
}
|
||
}
|
||
|
||
if ((nsyms == 0) && (pe_file))
|
||
{
|
||
/* We've got no debugging symbols, but it's a portable
|
||
executable, so try to read the export table. */
|
||
read_pe_exported_syms (objfile);
|
||
}
|
||
|
||
if (get_last_source_file ())
|
||
coff_end_symtab (objfile);
|
||
|
||
/* Patch up any opaque types (references to types that are not defined
|
||
in the file where they are referenced, e.g. "struct foo *bar"). */
|
||
{
|
||
struct compunit_symtab *cu;
|
||
struct symtab *s;
|
||
|
||
ALL_OBJFILE_FILETABS (objfile, cu, s)
|
||
patch_opaque_types (s);
|
||
}
|
||
|
||
coffread_objfile = NULL;
|
||
}
|
||
|
||
/* Routines for reading headers and symbols from executable. */
|
||
|
||
/* Read the next symbol, swap it, and return it in both
|
||
internal_syment form, and coff_symbol form. Also return its first
|
||
auxent, if any, in internal_auxent form, and skip any other
|
||
auxents. */
|
||
|
||
static void
|
||
read_one_sym (struct coff_symbol *cs,
|
||
struct internal_syment *sym,
|
||
union internal_auxent *aux)
|
||
{
|
||
int i;
|
||
bfd_size_type bytes;
|
||
|
||
cs->c_symnum = symnum;
|
||
bytes = bfd_bread (temp_sym, local_symesz, nlist_bfd_global);
|
||
if (bytes != local_symesz)
|
||
error (_("%s: error reading symbols"), objfile_name (coffread_objfile));
|
||
bfd_coff_swap_sym_in (symfile_bfd, temp_sym, (char *) sym);
|
||
cs->c_naux = sym->n_numaux & 0xff;
|
||
if (cs->c_naux >= 1)
|
||
{
|
||
bytes = bfd_bread (temp_aux, local_auxesz, nlist_bfd_global);
|
||
if (bytes != local_auxesz)
|
||
error (_("%s: error reading symbols"), objfile_name (coffread_objfile));
|
||
bfd_coff_swap_aux_in (symfile_bfd, temp_aux,
|
||
sym->n_type, sym->n_sclass,
|
||
0, cs->c_naux, (char *) aux);
|
||
/* If more than one aux entry, read past it (only the first aux
|
||
is important). */
|
||
for (i = 1; i < cs->c_naux; i++)
|
||
{
|
||
bytes = bfd_bread (temp_aux, local_auxesz, nlist_bfd_global);
|
||
if (bytes != local_auxesz)
|
||
error (_("%s: error reading symbols"),
|
||
objfile_name (coffread_objfile));
|
||
}
|
||
}
|
||
cs->c_name = getsymname (sym);
|
||
cs->c_value = sym->n_value;
|
||
cs->c_sclass = (sym->n_sclass & 0xff);
|
||
cs->c_secnum = sym->n_scnum;
|
||
cs->c_type = (unsigned) sym->n_type;
|
||
if (!SDB_TYPE (cs->c_type))
|
||
cs->c_type = 0;
|
||
|
||
#if 0
|
||
if (cs->c_sclass & 128)
|
||
printf (_("thumb symbol %s, class 0x%x\n"), cs->c_name, cs->c_sclass);
|
||
#endif
|
||
|
||
symnum += 1 + cs->c_naux;
|
||
|
||
/* The PE file format stores symbol values as offsets within the
|
||
section, rather than as absolute addresses. We correct that
|
||
here, if the symbol has an appropriate storage class. FIXME: We
|
||
should use BFD to read the symbols, rather than duplicating the
|
||
work here. */
|
||
if (pe_file)
|
||
{
|
||
switch (cs->c_sclass)
|
||
{
|
||
case C_EXT:
|
||
case C_THUMBEXT:
|
||
case C_THUMBEXTFUNC:
|
||
case C_SECTION:
|
||
case C_NT_WEAK:
|
||
case C_STAT:
|
||
case C_THUMBSTAT:
|
||
case C_THUMBSTATFUNC:
|
||
case C_LABEL:
|
||
case C_THUMBLABEL:
|
||
case C_BLOCK:
|
||
case C_FCN:
|
||
case C_EFCN:
|
||
if (cs->c_secnum != 0)
|
||
cs->c_value += cs_section_address (cs, symfile_bfd);
|
||
break;
|
||
}
|
||
}
|
||
}
|
||
|
||
/* Support for string table handling. */
|
||
|
||
static char *stringtab = NULL;
|
||
|
||
static int
|
||
init_stringtab (bfd *abfd, long offset)
|
||
{
|
||
long length;
|
||
int val;
|
||
unsigned char lengthbuf[4];
|
||
|
||
free_stringtab ();
|
||
|
||
/* If the file is stripped, the offset might be zero, indicating no
|
||
string table. Just return with `stringtab' set to null. */
|
||
if (offset == 0)
|
||
return 0;
|
||
|
||
if (bfd_seek (abfd, offset, 0) < 0)
|
||
return -1;
|
||
|
||
val = bfd_bread ((char *) lengthbuf, sizeof lengthbuf, abfd);
|
||
length = bfd_h_get_32 (symfile_bfd, lengthbuf);
|
||
|
||
/* If no string table is needed, then the file may end immediately
|
||
after the symbols. Just return with `stringtab' set to null. */
|
||
if (val != sizeof lengthbuf || length < sizeof lengthbuf)
|
||
return 0;
|
||
|
||
stringtab = (char *) xmalloc (length);
|
||
/* This is in target format (probably not very useful, and not
|
||
currently used), not host format. */
|
||
memcpy (stringtab, lengthbuf, sizeof lengthbuf);
|
||
if (length == sizeof length) /* Empty table -- just the count. */
|
||
return 0;
|
||
|
||
val = bfd_bread (stringtab + sizeof lengthbuf,
|
||
length - sizeof lengthbuf, abfd);
|
||
if (val != length - sizeof lengthbuf || stringtab[length - 1] != '\0')
|
||
return -1;
|
||
|
||
return 0;
|
||
}
|
||
|
||
static void
|
||
free_stringtab (void)
|
||
{
|
||
if (stringtab)
|
||
xfree (stringtab);
|
||
stringtab = NULL;
|
||
}
|
||
|
||
static void
|
||
free_stringtab_cleanup (void *ignore)
|
||
{
|
||
free_stringtab ();
|
||
}
|
||
|
||
static char *
|
||
getsymname (struct internal_syment *symbol_entry)
|
||
{
|
||
static char buffer[SYMNMLEN + 1];
|
||
char *result;
|
||
|
||
if (symbol_entry->_n._n_n._n_zeroes == 0)
|
||
{
|
||
/* FIXME: Probably should be detecting corrupt symbol files by
|
||
seeing whether offset points to within the stringtab. */
|
||
result = stringtab + symbol_entry->_n._n_n._n_offset;
|
||
}
|
||
else
|
||
{
|
||
strncpy (buffer, symbol_entry->_n._n_name, SYMNMLEN);
|
||
buffer[SYMNMLEN] = '\0';
|
||
result = buffer;
|
||
}
|
||
return result;
|
||
}
|
||
|
||
/* Extract the file name from the aux entry of a C_FILE symbol.
|
||
Return only the last component of the name. Result is in static
|
||
storage and is only good for temporary use. */
|
||
|
||
static const char *
|
||
coff_getfilename (union internal_auxent *aux_entry)
|
||
{
|
||
static char buffer[BUFSIZ];
|
||
const char *result;
|
||
|
||
if (aux_entry->x_file.x_n.x_zeroes == 0)
|
||
{
|
||
if (strlen (stringtab + aux_entry->x_file.x_n.x_offset) >= BUFSIZ)
|
||
internal_error (__FILE__, __LINE__, _("coff file name too long"));
|
||
strcpy (buffer, stringtab + aux_entry->x_file.x_n.x_offset);
|
||
}
|
||
else
|
||
{
|
||
strncpy (buffer, aux_entry->x_file.x_fname, FILNMLEN);
|
||
buffer[FILNMLEN] = '\0';
|
||
}
|
||
result = buffer;
|
||
|
||
/* FIXME: We should not be throwing away the information about what
|
||
directory. It should go into dirname of the symtab, or some such
|
||
place. */
|
||
result = lbasename (result);
|
||
return (result);
|
||
}
|
||
|
||
/* Support for line number handling. */
|
||
|
||
static char *linetab = NULL;
|
||
static long linetab_offset;
|
||
static unsigned long linetab_size;
|
||
|
||
/* Read in all the line numbers for fast lookups later. Leave them in
|
||
external (unswapped) format in memory; we'll swap them as we enter
|
||
them into GDB's data structures. */
|
||
|
||
static int
|
||
init_lineno (bfd *abfd, long offset, int size)
|
||
{
|
||
int val;
|
||
|
||
linetab_offset = offset;
|
||
linetab_size = size;
|
||
|
||
free_linetab ();
|
||
|
||
if (size == 0)
|
||
return 0;
|
||
|
||
if (bfd_seek (abfd, offset, 0) < 0)
|
||
return -1;
|
||
|
||
/* Allocate the desired table, plus a sentinel. */
|
||
linetab = (char *) xmalloc (size + local_linesz);
|
||
|
||
val = bfd_bread (linetab, size, abfd);
|
||
if (val != size)
|
||
return -1;
|
||
|
||
/* Terminate it with an all-zero sentinel record. */
|
||
memset (linetab + size, 0, local_linesz);
|
||
|
||
return 0;
|
||
}
|
||
|
||
static void
|
||
free_linetab (void)
|
||
{
|
||
if (linetab)
|
||
xfree (linetab);
|
||
linetab = NULL;
|
||
}
|
||
|
||
static void
|
||
free_linetab_cleanup (void *ignore)
|
||
{
|
||
free_linetab ();
|
||
}
|
||
|
||
#if !defined (L_LNNO32)
|
||
#define L_LNNO32(lp) ((lp)->l_lnno)
|
||
#endif
|
||
|
||
static void
|
||
enter_linenos (long file_offset, int first_line,
|
||
int last_line, struct objfile *objfile)
|
||
{
|
||
struct gdbarch *gdbarch = get_objfile_arch (objfile);
|
||
char *rawptr;
|
||
struct internal_lineno lptr;
|
||
|
||
if (!linetab)
|
||
return;
|
||
if (file_offset < linetab_offset)
|
||
{
|
||
complaint (&symfile_complaints,
|
||
_("Line number pointer %ld lower than start of line numbers"),
|
||
file_offset);
|
||
if (file_offset > linetab_size) /* Too big to be an offset? */
|
||
return;
|
||
file_offset += linetab_offset; /* Try reading at that linetab
|
||
offset. */
|
||
}
|
||
|
||
rawptr = &linetab[file_offset - linetab_offset];
|
||
|
||
/* Skip first line entry for each function. */
|
||
rawptr += local_linesz;
|
||
/* Line numbers start at one for the first line of the function. */
|
||
first_line--;
|
||
|
||
/* If the line number table is full (e.g. 64K lines in COFF debug
|
||
info), the next function's L_LNNO32 might not be zero, so don't
|
||
overstep the table's end in any case. */
|
||
while (rawptr <= &linetab[0] + linetab_size)
|
||
{
|
||
bfd_coff_swap_lineno_in (symfile_bfd, rawptr, &lptr);
|
||
rawptr += local_linesz;
|
||
/* The next function, or the sentinel, will have L_LNNO32 zero;
|
||
we exit. */
|
||
if (L_LNNO32 (&lptr) && L_LNNO32 (&lptr) <= last_line)
|
||
{
|
||
CORE_ADDR addr = lptr.l_addr.l_paddr;
|
||
addr += ANOFFSET (objfile->section_offsets,
|
||
SECT_OFF_TEXT (objfile));
|
||
record_line (current_subfile,
|
||
first_line + L_LNNO32 (&lptr),
|
||
gdbarch_addr_bits_remove (gdbarch, addr));
|
||
}
|
||
else
|
||
break;
|
||
}
|
||
}
|
||
|
||
static void
|
||
patch_type (struct type *type, struct type *real_type)
|
||
{
|
||
struct type *target = TYPE_TARGET_TYPE (type);
|
||
struct type *real_target = TYPE_TARGET_TYPE (real_type);
|
||
int field_size = TYPE_NFIELDS (real_target) * sizeof (struct field);
|
||
|
||
TYPE_LENGTH (target) = TYPE_LENGTH (real_target);
|
||
TYPE_NFIELDS (target) = TYPE_NFIELDS (real_target);
|
||
TYPE_FIELDS (target) = (struct field *) TYPE_ALLOC (target,
|
||
field_size);
|
||
|
||
memcpy (TYPE_FIELDS (target),
|
||
TYPE_FIELDS (real_target),
|
||
field_size);
|
||
|
||
if (TYPE_NAME (real_target))
|
||
{
|
||
/* The previous copy of TYPE_NAME is allocated by
|
||
process_coff_symbol. */
|
||
if (TYPE_NAME (target))
|
||
xfree ((char*) TYPE_NAME (target));
|
||
TYPE_NAME (target) = xstrdup (TYPE_NAME (real_target));
|
||
}
|
||
}
|
||
|
||
/* Patch up all appropriate typedef symbols in the opaque_type_chains
|
||
so that they can be used to print out opaque data structures
|
||
properly. */
|
||
|
||
static void
|
||
patch_opaque_types (struct symtab *s)
|
||
{
|
||
struct block *b;
|
||
struct block_iterator iter;
|
||
struct symbol *real_sym;
|
||
|
||
/* Go through the per-file symbols only. */
|
||
b = BLOCKVECTOR_BLOCK (SYMTAB_BLOCKVECTOR (s), STATIC_BLOCK);
|
||
ALL_BLOCK_SYMBOLS (b, iter, real_sym)
|
||
{
|
||
/* Find completed typedefs to use to fix opaque ones.
|
||
Remove syms from the chain when their types are stored,
|
||
but search the whole chain, as there may be several syms
|
||
from different files with the same name. */
|
||
if (SYMBOL_CLASS (real_sym) == LOC_TYPEDEF
|
||
&& SYMBOL_DOMAIN (real_sym) == VAR_DOMAIN
|
||
&& TYPE_CODE (SYMBOL_TYPE (real_sym)) == TYPE_CODE_PTR
|
||
&& TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (real_sym))) != 0)
|
||
{
|
||
const char *name = SYMBOL_LINKAGE_NAME (real_sym);
|
||
int hash = hashname (name);
|
||
struct symbol *sym, *prev;
|
||
|
||
prev = 0;
|
||
for (sym = opaque_type_chain[hash]; sym;)
|
||
{
|
||
if (name[0] == SYMBOL_LINKAGE_NAME (sym)[0]
|
||
&& strcmp (name + 1, SYMBOL_LINKAGE_NAME (sym) + 1) == 0)
|
||
{
|
||
if (prev)
|
||
{
|
||
SYMBOL_VALUE_CHAIN (prev) = SYMBOL_VALUE_CHAIN (sym);
|
||
}
|
||
else
|
||
{
|
||
opaque_type_chain[hash] = SYMBOL_VALUE_CHAIN (sym);
|
||
}
|
||
|
||
patch_type (SYMBOL_TYPE (sym), SYMBOL_TYPE (real_sym));
|
||
|
||
if (prev)
|
||
{
|
||
sym = SYMBOL_VALUE_CHAIN (prev);
|
||
}
|
||
else
|
||
{
|
||
sym = opaque_type_chain[hash];
|
||
}
|
||
}
|
||
else
|
||
{
|
||
prev = sym;
|
||
sym = SYMBOL_VALUE_CHAIN (sym);
|
||
}
|
||
}
|
||
}
|
||
}
|
||
}
|
||
|
||
static int
|
||
coff_reg_to_regnum (struct symbol *sym, struct gdbarch *gdbarch)
|
||
{
|
||
return gdbarch_sdb_reg_to_regnum (gdbarch, SYMBOL_VALUE (sym));
|
||
}
|
||
|
||
static const struct symbol_register_ops coff_register_funcs = {
|
||
coff_reg_to_regnum
|
||
};
|
||
|
||
/* The "aclass" index for computed COFF symbols. */
|
||
|
||
static int coff_register_index;
|
||
|
||
static struct symbol *
|
||
process_coff_symbol (struct coff_symbol *cs,
|
||
union internal_auxent *aux,
|
||
struct objfile *objfile)
|
||
{
|
||
struct symbol *sym = allocate_symbol (objfile);
|
||
char *name;
|
||
|
||
name = cs->c_name;
|
||
name = EXTERNAL_NAME (name, objfile->obfd);
|
||
SYMBOL_SET_LANGUAGE (sym, current_subfile->language,
|
||
&objfile->objfile_obstack);
|
||
SYMBOL_SET_NAMES (sym, name, strlen (name), 1, objfile);
|
||
|
||
/* default assumptions */
|
||
SYMBOL_VALUE (sym) = cs->c_value;
|
||
SYMBOL_DOMAIN (sym) = VAR_DOMAIN;
|
||
SYMBOL_SECTION (sym) = cs_to_section (cs, objfile);
|
||
|
||
if (ISFCN (cs->c_type))
|
||
{
|
||
SYMBOL_VALUE (sym) += ANOFFSET (objfile->section_offsets,
|
||
SECT_OFF_TEXT (objfile));
|
||
SYMBOL_TYPE (sym) =
|
||
lookup_function_type (decode_function_type (cs, cs->c_type,
|
||
aux, objfile));
|
||
|
||
SYMBOL_ACLASS_INDEX (sym) = LOC_BLOCK;
|
||
if (cs->c_sclass == C_STAT || cs->c_sclass == C_THUMBSTAT
|
||
|| cs->c_sclass == C_THUMBSTATFUNC)
|
||
add_symbol_to_list (sym, &file_symbols);
|
||
else if (cs->c_sclass == C_EXT || cs->c_sclass == C_THUMBEXT
|
||
|| cs->c_sclass == C_THUMBEXTFUNC)
|
||
add_symbol_to_list (sym, &global_symbols);
|
||
}
|
||
else
|
||
{
|
||
SYMBOL_TYPE (sym) = decode_type (cs, cs->c_type, aux, objfile);
|
||
switch (cs->c_sclass)
|
||
{
|
||
case C_NULL:
|
||
break;
|
||
|
||
case C_AUTO:
|
||
SYMBOL_ACLASS_INDEX (sym) = LOC_LOCAL;
|
||
add_symbol_to_list (sym, &local_symbols);
|
||
break;
|
||
|
||
case C_THUMBEXT:
|
||
case C_THUMBEXTFUNC:
|
||
case C_EXT:
|
||
SYMBOL_ACLASS_INDEX (sym) = LOC_STATIC;
|
||
SYMBOL_VALUE_ADDRESS (sym) = (CORE_ADDR) cs->c_value;
|
||
SYMBOL_VALUE_ADDRESS (sym) += ANOFFSET (objfile->section_offsets,
|
||
SECT_OFF_TEXT (objfile));
|
||
add_symbol_to_list (sym, &global_symbols);
|
||
break;
|
||
|
||
case C_THUMBSTAT:
|
||
case C_THUMBSTATFUNC:
|
||
case C_STAT:
|
||
SYMBOL_ACLASS_INDEX (sym) = LOC_STATIC;
|
||
SYMBOL_VALUE_ADDRESS (sym) = (CORE_ADDR) cs->c_value;
|
||
SYMBOL_VALUE_ADDRESS (sym) += ANOFFSET (objfile->section_offsets,
|
||
SECT_OFF_TEXT (objfile));
|
||
if (within_function)
|
||
{
|
||
/* Static symbol of local scope. */
|
||
add_symbol_to_list (sym, &local_symbols);
|
||
}
|
||
else
|
||
{
|
||
/* Static symbol at top level of file. */
|
||
add_symbol_to_list (sym, &file_symbols);
|
||
}
|
||
break;
|
||
|
||
#ifdef C_GLBLREG /* AMD coff */
|
||
case C_GLBLREG:
|
||
#endif
|
||
case C_REG:
|
||
SYMBOL_ACLASS_INDEX (sym) = coff_register_index;
|
||
SYMBOL_VALUE (sym) = cs->c_value;
|
||
add_symbol_to_list (sym, &local_symbols);
|
||
break;
|
||
|
||
case C_THUMBLABEL:
|
||
case C_LABEL:
|
||
break;
|
||
|
||
case C_ARG:
|
||
SYMBOL_ACLASS_INDEX (sym) = LOC_ARG;
|
||
SYMBOL_IS_ARGUMENT (sym) = 1;
|
||
add_symbol_to_list (sym, &local_symbols);
|
||
break;
|
||
|
||
case C_REGPARM:
|
||
SYMBOL_ACLASS_INDEX (sym) = coff_register_index;
|
||
SYMBOL_IS_ARGUMENT (sym) = 1;
|
||
SYMBOL_VALUE (sym) = cs->c_value;
|
||
add_symbol_to_list (sym, &local_symbols);
|
||
break;
|
||
|
||
case C_TPDEF:
|
||
SYMBOL_ACLASS_INDEX (sym) = LOC_TYPEDEF;
|
||
SYMBOL_DOMAIN (sym) = VAR_DOMAIN;
|
||
|
||
/* If type has no name, give it one. */
|
||
if (TYPE_NAME (SYMBOL_TYPE (sym)) == 0)
|
||
{
|
||
if (TYPE_CODE (SYMBOL_TYPE (sym)) == TYPE_CODE_PTR
|
||
|| TYPE_CODE (SYMBOL_TYPE (sym)) == TYPE_CODE_FUNC)
|
||
{
|
||
/* If we are giving a name to a type such as
|
||
"pointer to foo" or "function returning foo", we
|
||
better not set the TYPE_NAME. If the program
|
||
contains "typedef char *caddr_t;", we don't want
|
||
all variables of type char * to print as caddr_t.
|
||
This is not just a consequence of GDB's type
|
||
management; CC and GCC (at least through version
|
||
2.4) both output variables of either type char *
|
||
or caddr_t with the type refering to the C_TPDEF
|
||
symbol for caddr_t. If a future compiler cleans
|
||
this up it GDB is not ready for it yet, but if it
|
||
becomes ready we somehow need to disable this
|
||
check (without breaking the PCC/GCC2.4 case).
|
||
|
||
Sigh.
|
||
|
||
Fortunately, this check seems not to be necessary
|
||
for anything except pointers or functions. */
|
||
;
|
||
}
|
||
else
|
||
TYPE_NAME (SYMBOL_TYPE (sym)) =
|
||
xstrdup (SYMBOL_LINKAGE_NAME (sym));
|
||
}
|
||
|
||
/* Keep track of any type which points to empty structured
|
||
type, so it can be filled from a definition from another
|
||
file. A simple forward reference (TYPE_CODE_UNDEF) is
|
||
not an empty structured type, though; the forward
|
||
references work themselves out via the magic of
|
||
coff_lookup_type. */
|
||
if (TYPE_CODE (SYMBOL_TYPE (sym)) == TYPE_CODE_PTR
|
||
&& TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym))) == 0
|
||
&& TYPE_CODE (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym)))
|
||
!= TYPE_CODE_UNDEF)
|
||
{
|
||
int i = hashname (SYMBOL_LINKAGE_NAME (sym));
|
||
|
||
SYMBOL_VALUE_CHAIN (sym) = opaque_type_chain[i];
|
||
opaque_type_chain[i] = sym;
|
||
}
|
||
add_symbol_to_list (sym, &file_symbols);
|
||
break;
|
||
|
||
case C_STRTAG:
|
||
case C_UNTAG:
|
||
case C_ENTAG:
|
||
SYMBOL_ACLASS_INDEX (sym) = LOC_TYPEDEF;
|
||
SYMBOL_DOMAIN (sym) = STRUCT_DOMAIN;
|
||
|
||
/* Some compilers try to be helpful by inventing "fake"
|
||
names for anonymous enums, structures, and unions, like
|
||
"~0fake" or ".0fake". Thanks, but no thanks... */
|
||
if (TYPE_TAG_NAME (SYMBOL_TYPE (sym)) == 0)
|
||
if (SYMBOL_LINKAGE_NAME (sym) != NULL
|
||
&& *SYMBOL_LINKAGE_NAME (sym) != '~'
|
||
&& *SYMBOL_LINKAGE_NAME (sym) != '.')
|
||
TYPE_TAG_NAME (SYMBOL_TYPE (sym)) =
|
||
concat (SYMBOL_LINKAGE_NAME (sym), (char *)NULL);
|
||
|
||
add_symbol_to_list (sym, &file_symbols);
|
||
break;
|
||
|
||
default:
|
||
break;
|
||
}
|
||
}
|
||
return sym;
|
||
}
|
||
|
||
/* Decode a coff type specifier; return the type that is meant. */
|
||
|
||
static struct type *
|
||
decode_type (struct coff_symbol *cs, unsigned int c_type,
|
||
union internal_auxent *aux, struct objfile *objfile)
|
||
{
|
||
struct type *type = 0;
|
||
unsigned int new_c_type;
|
||
|
||
if (c_type & ~N_BTMASK)
|
||
{
|
||
new_c_type = DECREF (c_type);
|
||
if (ISPTR (c_type))
|
||
{
|
||
type = decode_type (cs, new_c_type, aux, objfile);
|
||
type = lookup_pointer_type (type);
|
||
}
|
||
else if (ISFCN (c_type))
|
||
{
|
||
type = decode_type (cs, new_c_type, aux, objfile);
|
||
type = lookup_function_type (type);
|
||
}
|
||
else if (ISARY (c_type))
|
||
{
|
||
int i, n;
|
||
unsigned short *dim;
|
||
struct type *base_type, *index_type, *range_type;
|
||
|
||
/* Define an array type. */
|
||
/* auxent refers to array, not base type. */
|
||
if (aux->x_sym.x_tagndx.l == 0)
|
||
cs->c_naux = 0;
|
||
|
||
/* Shift the indices down. */
|
||
dim = &aux->x_sym.x_fcnary.x_ary.x_dimen[0];
|
||
i = 1;
|
||
n = dim[0];
|
||
for (i = 0; *dim && i < DIMNUM - 1; i++, dim++)
|
||
*dim = *(dim + 1);
|
||
*dim = 0;
|
||
|
||
base_type = decode_type (cs, new_c_type, aux, objfile);
|
||
index_type = objfile_type (objfile)->builtin_int;
|
||
range_type
|
||
= create_static_range_type ((struct type *) NULL,
|
||
index_type, 0, n - 1);
|
||
type =
|
||
create_array_type ((struct type *) NULL,
|
||
base_type, range_type);
|
||
}
|
||
return type;
|
||
}
|
||
|
||
/* Reference to existing type. This only occurs with the struct,
|
||
union, and enum types. EPI a29k coff fakes us out by producing
|
||
aux entries with a nonzero x_tagndx for definitions of structs,
|
||
unions, and enums, so we have to check the c_sclass field. SCO
|
||
3.2v4 cc gets confused with pointers to pointers to defined
|
||
structs, and generates negative x_tagndx fields. */
|
||
if (cs->c_naux > 0 && aux->x_sym.x_tagndx.l != 0)
|
||
{
|
||
if (cs->c_sclass != C_STRTAG
|
||
&& cs->c_sclass != C_UNTAG
|
||
&& cs->c_sclass != C_ENTAG
|
||
&& aux->x_sym.x_tagndx.l >= 0)
|
||
{
|
||
type = coff_alloc_type (aux->x_sym.x_tagndx.l);
|
||
return type;
|
||
}
|
||
else
|
||
{
|
||
complaint (&symfile_complaints,
|
||
_("Symbol table entry for %s has bad tagndx value"),
|
||
cs->c_name);
|
||
/* And fall through to decode_base_type... */
|
||
}
|
||
}
|
||
|
||
return decode_base_type (cs, BTYPE (c_type), aux, objfile);
|
||
}
|
||
|
||
/* Decode a coff type specifier for function definition;
|
||
return the type that the function returns. */
|
||
|
||
static struct type *
|
||
decode_function_type (struct coff_symbol *cs,
|
||
unsigned int c_type,
|
||
union internal_auxent *aux,
|
||
struct objfile *objfile)
|
||
{
|
||
if (aux->x_sym.x_tagndx.l == 0)
|
||
cs->c_naux = 0; /* auxent refers to function, not base
|
||
type. */
|
||
|
||
return decode_type (cs, DECREF (c_type), aux, objfile);
|
||
}
|
||
|
||
/* Basic C types. */
|
||
|
||
static struct type *
|
||
decode_base_type (struct coff_symbol *cs,
|
||
unsigned int c_type,
|
||
union internal_auxent *aux,
|
||
struct objfile *objfile)
|
||
{
|
||
struct gdbarch *gdbarch = get_objfile_arch (objfile);
|
||
struct type *type;
|
||
|
||
switch (c_type)
|
||
{
|
||
case T_NULL:
|
||
/* Shows up with "void (*foo)();" structure members. */
|
||
return objfile_type (objfile)->builtin_void;
|
||
|
||
#ifdef T_VOID
|
||
case T_VOID:
|
||
/* Intel 960 COFF has this symbol and meaning. */
|
||
return objfile_type (objfile)->builtin_void;
|
||
#endif
|
||
|
||
case T_CHAR:
|
||
return objfile_type (objfile)->builtin_char;
|
||
|
||
case T_SHORT:
|
||
return objfile_type (objfile)->builtin_short;
|
||
|
||
case T_INT:
|
||
return objfile_type (objfile)->builtin_int;
|
||
|
||
case T_LONG:
|
||
if (cs->c_sclass == C_FIELD
|
||
&& aux->x_sym.x_misc.x_lnsz.x_size
|
||
> gdbarch_long_bit (gdbarch))
|
||
return objfile_type (objfile)->builtin_long_long;
|
||
else
|
||
return objfile_type (objfile)->builtin_long;
|
||
|
||
case T_FLOAT:
|
||
return objfile_type (objfile)->builtin_float;
|
||
|
||
case T_DOUBLE:
|
||
return objfile_type (objfile)->builtin_double;
|
||
|
||
case T_LNGDBL:
|
||
return objfile_type (objfile)->builtin_long_double;
|
||
|
||
case T_STRUCT:
|
||
if (cs->c_naux != 1)
|
||
{
|
||
/* Anonymous structure type. */
|
||
type = coff_alloc_type (cs->c_symnum);
|
||
TYPE_CODE (type) = TYPE_CODE_STRUCT;
|
||
TYPE_NAME (type) = NULL;
|
||
/* This used to set the tag to "<opaque>". But I think
|
||
setting it to NULL is right, and the printing code can
|
||
print it as "struct {...}". */
|
||
TYPE_TAG_NAME (type) = NULL;
|
||
INIT_CPLUS_SPECIFIC (type);
|
||
TYPE_LENGTH (type) = 0;
|
||
TYPE_FIELDS (type) = 0;
|
||
TYPE_NFIELDS (type) = 0;
|
||
}
|
||
else
|
||
{
|
||
type = coff_read_struct_type (cs->c_symnum,
|
||
aux->x_sym.x_misc.x_lnsz.x_size,
|
||
aux->x_sym.x_fcnary.x_fcn.x_endndx.l,
|
||
objfile);
|
||
}
|
||
return type;
|
||
|
||
case T_UNION:
|
||
if (cs->c_naux != 1)
|
||
{
|
||
/* Anonymous union type. */
|
||
type = coff_alloc_type (cs->c_symnum);
|
||
TYPE_NAME (type) = NULL;
|
||
/* This used to set the tag to "<opaque>". But I think
|
||
setting it to NULL is right, and the printing code can
|
||
print it as "union {...}". */
|
||
TYPE_TAG_NAME (type) = NULL;
|
||
INIT_CPLUS_SPECIFIC (type);
|
||
TYPE_LENGTH (type) = 0;
|
||
TYPE_FIELDS (type) = 0;
|
||
TYPE_NFIELDS (type) = 0;
|
||
}
|
||
else
|
||
{
|
||
type = coff_read_struct_type (cs->c_symnum,
|
||
aux->x_sym.x_misc.x_lnsz.x_size,
|
||
aux->x_sym.x_fcnary.x_fcn.x_endndx.l,
|
||
objfile);
|
||
}
|
||
TYPE_CODE (type) = TYPE_CODE_UNION;
|
||
return type;
|
||
|
||
case T_ENUM:
|
||
if (cs->c_naux != 1)
|
||
{
|
||
/* Anonymous enum type. */
|
||
type = coff_alloc_type (cs->c_symnum);
|
||
TYPE_CODE (type) = TYPE_CODE_ENUM;
|
||
TYPE_NAME (type) = NULL;
|
||
/* This used to set the tag to "<opaque>". But I think
|
||
setting it to NULL is right, and the printing code can
|
||
print it as "enum {...}". */
|
||
TYPE_TAG_NAME (type) = NULL;
|
||
TYPE_LENGTH (type) = 0;
|
||
TYPE_FIELDS (type) = 0;
|
||
TYPE_NFIELDS (type) = 0;
|
||
}
|
||
else
|
||
{
|
||
type = coff_read_enum_type (cs->c_symnum,
|
||
aux->x_sym.x_misc.x_lnsz.x_size,
|
||
aux->x_sym.x_fcnary.x_fcn.x_endndx.l,
|
||
objfile);
|
||
}
|
||
return type;
|
||
|
||
case T_MOE:
|
||
/* Shouldn't show up here. */
|
||
break;
|
||
|
||
case T_UCHAR:
|
||
return objfile_type (objfile)->builtin_unsigned_char;
|
||
|
||
case T_USHORT:
|
||
return objfile_type (objfile)->builtin_unsigned_short;
|
||
|
||
case T_UINT:
|
||
return objfile_type (objfile)->builtin_unsigned_int;
|
||
|
||
case T_ULONG:
|
||
if (cs->c_sclass == C_FIELD
|
||
&& aux->x_sym.x_misc.x_lnsz.x_size
|
||
> gdbarch_long_bit (gdbarch))
|
||
return objfile_type (objfile)->builtin_unsigned_long_long;
|
||
else
|
||
return objfile_type (objfile)->builtin_unsigned_long;
|
||
}
|
||
complaint (&symfile_complaints,
|
||
_("Unexpected type for symbol %s"), cs->c_name);
|
||
return objfile_type (objfile)->builtin_void;
|
||
}
|
||
|
||
/* This page contains subroutines of read_type. */
|
||
|
||
/* Read the description of a structure (or union type) and return an
|
||
object describing the type. */
|
||
|
||
static struct type *
|
||
coff_read_struct_type (int index, int length, int lastsym,
|
||
struct objfile *objfile)
|
||
{
|
||
struct nextfield
|
||
{
|
||
struct nextfield *next;
|
||
struct field field;
|
||
};
|
||
|
||
struct type *type;
|
||
struct nextfield *list = 0;
|
||
struct nextfield *newobj;
|
||
int nfields = 0;
|
||
int n;
|
||
char *name;
|
||
struct coff_symbol member_sym;
|
||
struct coff_symbol *ms = &member_sym;
|
||
struct internal_syment sub_sym;
|
||
union internal_auxent sub_aux;
|
||
int done = 0;
|
||
|
||
type = coff_alloc_type (index);
|
||
TYPE_CODE (type) = TYPE_CODE_STRUCT;
|
||
INIT_CPLUS_SPECIFIC (type);
|
||
TYPE_LENGTH (type) = length;
|
||
|
||
while (!done && symnum < lastsym && symnum < nlist_nsyms_global)
|
||
{
|
||
read_one_sym (ms, &sub_sym, &sub_aux);
|
||
name = ms->c_name;
|
||
name = EXTERNAL_NAME (name, objfile->obfd);
|
||
|
||
switch (ms->c_sclass)
|
||
{
|
||
case C_MOS:
|
||
case C_MOU:
|
||
|
||
/* Get space to record the next field's data. */
|
||
newobj = XALLOCA (struct nextfield);
|
||
newobj->next = list;
|
||
list = newobj;
|
||
|
||
/* Save the data. */
|
||
list->field.name
|
||
= (const char *) obstack_copy0 (&objfile->objfile_obstack,
|
||
name, strlen (name));
|
||
FIELD_TYPE (list->field) = decode_type (ms, ms->c_type,
|
||
&sub_aux, objfile);
|
||
SET_FIELD_BITPOS (list->field, 8 * ms->c_value);
|
||
FIELD_BITSIZE (list->field) = 0;
|
||
nfields++;
|
||
break;
|
||
|
||
case C_FIELD:
|
||
|
||
/* Get space to record the next field's data. */
|
||
newobj = XALLOCA (struct nextfield);
|
||
newobj->next = list;
|
||
list = newobj;
|
||
|
||
/* Save the data. */
|
||
list->field.name
|
||
= (const char *) obstack_copy0 (&objfile->objfile_obstack,
|
||
name, strlen (name));
|
||
FIELD_TYPE (list->field) = decode_type (ms, ms->c_type,
|
||
&sub_aux, objfile);
|
||
SET_FIELD_BITPOS (list->field, ms->c_value);
|
||
FIELD_BITSIZE (list->field) = sub_aux.x_sym.x_misc.x_lnsz.x_size;
|
||
nfields++;
|
||
break;
|
||
|
||
case C_EOS:
|
||
done = 1;
|
||
break;
|
||
}
|
||
}
|
||
/* Now create the vector of fields, and record how big it is. */
|
||
|
||
TYPE_NFIELDS (type) = nfields;
|
||
TYPE_FIELDS (type) = (struct field *)
|
||
TYPE_ALLOC (type, sizeof (struct field) * nfields);
|
||
|
||
/* Copy the saved-up fields into the field vector. */
|
||
|
||
for (n = nfields; list; list = list->next)
|
||
TYPE_FIELD (type, --n) = list->field;
|
||
|
||
return type;
|
||
}
|
||
|
||
/* Read a definition of an enumeration type,
|
||
and create and return a suitable type object.
|
||
Also defines the symbols that represent the values of the type. */
|
||
|
||
static struct type *
|
||
coff_read_enum_type (int index, int length, int lastsym,
|
||
struct objfile *objfile)
|
||
{
|
||
struct gdbarch *gdbarch = get_objfile_arch (objfile);
|
||
struct symbol *sym;
|
||
struct type *type;
|
||
int nsyms = 0;
|
||
int done = 0;
|
||
struct pending **symlist;
|
||
struct coff_symbol member_sym;
|
||
struct coff_symbol *ms = &member_sym;
|
||
struct internal_syment sub_sym;
|
||
union internal_auxent sub_aux;
|
||
struct pending *osyms, *syms;
|
||
int o_nsyms;
|
||
int n;
|
||
char *name;
|
||
int unsigned_enum = 1;
|
||
|
||
type = coff_alloc_type (index);
|
||
if (within_function)
|
||
symlist = &local_symbols;
|
||
else
|
||
symlist = &file_symbols;
|
||
osyms = *symlist;
|
||
o_nsyms = osyms ? osyms->nsyms : 0;
|
||
|
||
while (!done && symnum < lastsym && symnum < nlist_nsyms_global)
|
||
{
|
||
read_one_sym (ms, &sub_sym, &sub_aux);
|
||
name = ms->c_name;
|
||
name = EXTERNAL_NAME (name, objfile->obfd);
|
||
|
||
switch (ms->c_sclass)
|
||
{
|
||
case C_MOE:
|
||
sym = allocate_symbol (objfile);
|
||
|
||
name = (char *) obstack_copy0 (&objfile->objfile_obstack, name,
|
||
strlen (name));
|
||
SYMBOL_SET_LINKAGE_NAME (sym, name);
|
||
SYMBOL_ACLASS_INDEX (sym) = LOC_CONST;
|
||
SYMBOL_DOMAIN (sym) = VAR_DOMAIN;
|
||
SYMBOL_VALUE (sym) = ms->c_value;
|
||
add_symbol_to_list (sym, symlist);
|
||
nsyms++;
|
||
break;
|
||
|
||
case C_EOS:
|
||
/* Sometimes the linker (on 386/ix 2.0.2 at least) screws
|
||
up the count of how many symbols to read. So stop
|
||
on .eos. */
|
||
done = 1;
|
||
break;
|
||
}
|
||
}
|
||
|
||
/* Now fill in the fields of the type-structure. */
|
||
|
||
if (length > 0)
|
||
TYPE_LENGTH (type) = length;
|
||
else /* Assume ints. */
|
||
TYPE_LENGTH (type) = gdbarch_int_bit (gdbarch) / TARGET_CHAR_BIT;
|
||
TYPE_CODE (type) = TYPE_CODE_ENUM;
|
||
TYPE_NFIELDS (type) = nsyms;
|
||
TYPE_FIELDS (type) = (struct field *)
|
||
TYPE_ALLOC (type, sizeof (struct field) * nsyms);
|
||
|
||
/* Find the symbols for the values and put them into the type.
|
||
The symbols can be found in the symlist that we put them on
|
||
to cause them to be defined. osyms contains the old value
|
||
of that symlist; everything up to there was defined by us. */
|
||
/* Note that we preserve the order of the enum constants, so
|
||
that in something like "enum {FOO, LAST_THING=FOO}" we print
|
||
FOO, not LAST_THING. */
|
||
|
||
for (syms = *symlist, n = 0; syms; syms = syms->next)
|
||
{
|
||
int j = 0;
|
||
|
||
if (syms == osyms)
|
||
j = o_nsyms;
|
||
for (; j < syms->nsyms; j++, n++)
|
||
{
|
||
struct symbol *xsym = syms->symbol[j];
|
||
|
||
SYMBOL_TYPE (xsym) = type;
|
||
TYPE_FIELD_NAME (type, n) = SYMBOL_LINKAGE_NAME (xsym);
|
||
SET_FIELD_ENUMVAL (TYPE_FIELD (type, n), SYMBOL_VALUE (xsym));
|
||
if (SYMBOL_VALUE (xsym) < 0)
|
||
unsigned_enum = 0;
|
||
TYPE_FIELD_BITSIZE (type, n) = 0;
|
||
}
|
||
if (syms == osyms)
|
||
break;
|
||
}
|
||
|
||
if (unsigned_enum)
|
||
TYPE_UNSIGNED (type) = 1;
|
||
|
||
return type;
|
||
}
|
||
|
||
/* Register our ability to parse symbols for coff BFD files. */
|
||
|
||
static const struct sym_fns coff_sym_fns =
|
||
{
|
||
coff_new_init, /* sym_new_init: init anything gbl to
|
||
entire symtab */
|
||
coff_symfile_init, /* sym_init: read initial info, setup
|
||
for sym_read() */
|
||
coff_symfile_read, /* sym_read: read a symbol file into
|
||
symtab */
|
||
NULL, /* sym_read_psymbols */
|
||
coff_symfile_finish, /* sym_finish: finished with file,
|
||
cleanup */
|
||
default_symfile_offsets, /* sym_offsets: xlate external to
|
||
internal form */
|
||
default_symfile_segments, /* sym_segments: Get segment
|
||
information from a file */
|
||
NULL, /* sym_read_linetable */
|
||
|
||
default_symfile_relocate, /* sym_relocate: Relocate a debug
|
||
section. */
|
||
NULL, /* sym_probe_fns */
|
||
&psym_functions
|
||
};
|
||
|
||
/* Free the per-objfile COFF data. */
|
||
|
||
static void
|
||
coff_free_info (struct objfile *objfile, void *arg)
|
||
{
|
||
xfree (arg);
|
||
}
|
||
|
||
void
|
||
_initialize_coffread (void)
|
||
{
|
||
add_symtab_fns (bfd_target_coff_flavour, &coff_sym_fns);
|
||
|
||
coff_objfile_data_key = register_objfile_data_with_cleanup (NULL,
|
||
coff_free_info);
|
||
|
||
coff_register_index
|
||
= register_symbol_register_impl (LOC_REGISTER, &coff_register_funcs);
|
||
}
|