#include "defs.h"
#include "symtab.h"
#include "gdbtypes.h"
#include "demangle.h"
#include "breakpoint.h"
#include "bfd.h"
#include "gdb_obstack.h"
#include "gdb_string.h"
#include <ctype.h>
#include "coff/internal.h"
#include "libcoff.h"
#include "objfiles.h"
#include "buildsym.h"
#include "gdb-stabs.h"
#include "stabsread.h"
#include "complaints.h"
#include "target.h"
#include "gdb_assert.h"
#include "block.h"
#include "dictionary.h"
#include "coff-pe-read.h"
extern void _initialize_coffread (void);
struct coff_symfile_info
{
file_ptr min_lineno_offset;
file_ptr max_lineno_offset;
CORE_ADDR textaddr;
unsigned int textsize;
struct stab_section_list *stabsects;
asection *stabstrsect;
char *stabstrdata;
};
#define EXTERNAL_NAME(string, abfd) \
(string[0] == bfd_get_symbol_leading_char(abfd)? string+1: string)
#define SDB_TYPE(type) (BTYPE(type) | (type & N_TMASK))
static CORE_ADDR current_source_start_addr;
static CORE_ADDR current_source_end_addr;
static bfd *nlist_bfd_global;
static int nlist_nsyms_global;
static char *temp_sym;
static char *temp_aux;
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
static unsigned local_linesz;
static unsigned local_symesz;
static unsigned local_auxesz;
static int pe_file;
static struct symbol *opaque_type_chain[HASHSIZE];
struct coff_symbol
{
char *c_name;
int c_symnum;
int c_naux;
long c_value;
int c_sclass;
int c_secnum;
unsigned int c_type;
};
extern void stabsread_clear_cache (void);
static struct type *coff_read_struct_type (int, int, int);
static struct type *decode_base_type (struct coff_symbol *,
unsigned int, union internal_auxent *);
static struct type *decode_type (struct coff_symbol *, unsigned int,
union internal_auxent *);
static struct type *decode_function_type (struct coff_symbol *,
unsigned int,
union internal_auxent *);
static struct type *coff_read_enum_type (int, int, int);
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 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 *);
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 (DEPRECATED_STREQ (name, ".text"))
{
csi->textaddr = bfd_section_vma (abfd, sectp);
csi->textsize += bfd_section_size (abfd, sectp);
}
else if (strncmp (name, ".text", sizeof ".text" - 1) == 0)
{
csi->textsize += bfd_section_size (abfd, sectp);
}
else if (DEPRECATED_STREQ (name, ".stabstr"))
{
csi->stabstrsect = sectp;
}
else if (strncmp (name, ".stab", sizeof ".stab" - 1) == 0)
{
const char *s;
for (s = name + sizeof ".stab" - 1; *s != '\0'; s++)
if (!isdigit (*s))
break;
if (*s == '\0')
{
struct stab_section_list *n, **pn;
n = ((struct stab_section_list *)
xmalloc (sizeof (struct stab_section_list)));
n->section = sectp;
n->next = NULL;
for (pn = &csi->stabsects; *pn != NULL; pn = &(*pn)->next)
;
*pn = n;
make_cleanup (xfree, n);
}
}
}
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;
}
static int
cs_to_section (struct coff_symbol *cs, struct objfile *objfile)
{
asection *sect = NULL;
struct find_targ_sec_arg args;
int off = SECT_OFF_TEXT (objfile);
args.targ_index = cs->c_secnum;
args.resultp = §
bfd_map_over_sections (objfile->obfd, find_targ_sec, &args);
if (sect != NULL)
{
if (bfd_get_section_flags (abfd, sect) & SEC_CODE)
off = SECT_OFF_TEXT (objfile);
else if (bfd_get_section_flags (abfd, sect) & SEC_LOAD)
off = SECT_OFF_DATA (objfile);
else
off = sect->index;
}
return off;
}
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 (objfile->obfd, sect);
return addr;
}
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 >= 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];
}
static struct type *
coff_alloc_type (int index)
{
struct type **type_addr = coff_lookup_type (index);
struct type *type = *type_addr;
if (type == NULL)
{
type = alloc_type (current_objfile);
*type_addr = type;
}
return type;
}
static void
coff_start_symtab (char *name)
{
start_symtab (
savestring (name, strlen (name)),
NULL,
0);
record_debugformat ("COFF");
}
static void
complete_symtab (char *name, CORE_ADDR start_addr, unsigned int size)
{
if (last_source_file != NULL)
xfree (last_source_file);
last_source_file = savestring (name, strlen (name));
current_source_start_addr = start_addr;
current_source_end_addr = start_addr + size;
}
static void
coff_end_symtab (struct objfile *objfile)
{
struct symtab *symtab;
last_source_start_addr = current_source_start_addr;
symtab = end_symtab (current_source_end_addr, objfile, SECT_OFF_TEXT (objfile));
if (symtab != NULL)
free_named_symtabs (symtab->filename);
last_source_file = NULL;
}
static void
record_minimal_symbol (char *name, CORE_ADDR address,
enum minimal_symbol_type type, struct objfile *objfile)
{
if (name[0] == '@')
return;
prim_record_minimal_symbol (name, address, type, objfile);
}
static void
coff_symfile_init (struct objfile *objfile)
{
objfile->deprecated_sym_stab_info = (struct dbx_symfile_info *)
xmalloc (sizeof (struct dbx_symfile_info));
memset (objfile->deprecated_sym_stab_info, 0,
sizeof (struct dbx_symfile_info));
objfile->deprecated_sym_private = xmalloc (sizeof (struct coff_symfile_info));
memset (objfile->deprecated_sym_private, 0, sizeof (struct coff_symfile_info));
objfile->flags |= OBJF_REORDERED;
init_entry_point_info (objfile);
}
static void
find_linenos (bfd *abfd, struct bfd_section *asect, void *vpinfo)
{
struct coff_symfile_info *info;
int size, count;
file_ptr offset, maxoff;
count = asect->lineno_count;
if (count == 0)
return;
size = count * local_linesz;
info = (struct coff_symfile_info *) vpinfo;
offset = asect->line_filepos;
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;
}
static bfd *symfile_bfd;
static void
coff_symfile_read (struct objfile *objfile, int mainline)
{
struct coff_symfile_info *info;
struct dbx_symfile_info *dbxinfo;
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->deprecated_sym_private;
dbxinfo = objfile->deprecated_sym_stab_info;
symfile_bfd = abfd;
num_symbols = bfd_get_symcount (abfd);
symtab_offset = cdata->sym_filepos;
stringtab_offset = symtab_offset +
num_symbols * cdata->local_symesz;
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;
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);
pe_file =
strncmp (bfd_get_target (objfile->obfd), "pe", 2) == 0
|| strncmp (bfd_get_target (objfile->obfd), "epoc-pe", 7) == 0;
info->min_lineno_offset = 0;
info->max_lineno_offset = 0;
if (num_symbols > 0)
{
bfd_map_over_sections (abfd, find_linenos, (void *) info);
make_cleanup (free_linetab_cleanup, 0 );
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);
}
make_cleanup (free_stringtab_cleanup, 0 );
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 ();
coff_symtab_read ((long) symtab_offset, num_symbols, objfile);
install_minimal_symbols (objfile);
do_cleanups (cleanup_minimal_symbols);
if (mainline)
{
init_psymbol_list (objfile, 0);
mainline = 0;
}
bfd_map_over_sections (abfd, coff_locate_sections, (void *) info);
if (info->stabsects)
{
if (!info->stabstrsect)
{
error (_("The debugging information in `%s' is corrupted.\n"
"The file has a `.stabs' section, but no `.stabstr' section."),
name);
}
bfd_seek (abfd, abfd->where, 0);
stabstrsize = bfd_section_size (abfd, info->stabstrsect);
coffstab_build_psymtabs (objfile,
mainline,
info->textaddr, info->textsize,
info->stabsects,
info->stabstrsect->filepos, stabstrsize);
}
if (dwarf2_has_info (objfile))
{
dwarf2_build_psymtabs (objfile, mainline);
}
dwarf2_build_frame_info (objfile);
do_cleanups (back_to);
}
static void
coff_new_init (struct objfile *ignore)
{
}
static void
coff_symfile_finish (struct objfile *objfile)
{
if (objfile->deprecated_sym_private != NULL)
{
xfree (objfile->deprecated_sym_private);
}
stabsread_clear_cache ();
}
static void
coff_symtab_read (long symtab_offset, unsigned int nsyms,
struct objfile *objfile)
{
struct context_stack *new;
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;
struct symtab *s;
int in_source_file = 0;
int next_file_symnum = -1;
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;
bfd_seek (objfile->obfd, 0, 0);
val = bfd_seek (objfile->obfd, (long) symtab_offset, 0);
if (val < 0)
perror_with_name (objfile->name);
current_objfile = objfile;
nlist_bfd_global = objfile->obfd;
nlist_nsyms_global = nsyms;
last_source_file = NULL;
memset (opaque_type_chain, 0, sizeof opaque_type_chain);
if (type_vector)
xfree (type_vector);
type_vector_length = 160;
type_vector = (struct type **)
xmalloc (type_vector_length * sizeof (struct type *));
memset (type_vector, 0, type_vector_length * sizeof (struct type *));
coff_start_symtab ("");
symnum = 0;
while (symnum < nsyms)
{
QUIT;
read_one_sym (cs, &main_sym, &main_aux);
if (cs->c_symnum == next_file_symnum && cs->c_sclass != C_FILE)
{
if (last_source_file)
coff_end_symtab (objfile);
coff_start_symtab ("_globals_");
complete_symtab ("_globals_", 0, 0);
}
if (!last_source_file && SDB_TYPE (cs->c_type)
&& cs->c_secnum == N_DEBUG)
complete_symtab (filestring, 0, 0);
if (ISFCN (cs->c_type) && cs->c_sclass != C_TPDEF)
{
tmpaddr = cs->c_value + objfile_text_section_offset (objfile);
record_minimal_symbol (cs->c_name, tmpaddr, mst_text, 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:
next_file_symnum = cs->c_value;
if (cs->c_naux > 0)
filestring = coff_getfilename (&main_aux);
else
filestring = "";
if (last_source_file)
{
coff_end_symtab (objfile);
coff_start_symtab (filestring);
}
in_source_file = 1;
break;
case C_LABEL:
if (within_function)
break;
case C_STAT:
case C_THUMBLABEL:
case C_THUMBSTAT:
case C_THUMBSTATFUNC:
if (cs->c_name[0] == '.')
{
if (DEPRECATED_STREQ (cs->c_name, ".text"))
{
if (in_source_file)
complete_symtab (filestring,
cs->c_value + objfile_text_section_offset (objfile),
main_aux.x_scn.x_scnlen);
in_source_file = 0;
}
break;
}
else if (!SDB_TYPE (cs->c_type)
&& cs->c_name[0] == 'L'
&& (strncmp (cs->c_name, "LI%", 3) == 0
|| strncmp (cs->c_name, "LF%", 3) == 0
|| strncmp (cs->c_name, "LC%", 3) == 0
|| strncmp (cs->c_name, "LP%", 3) == 0
|| strncmp (cs->c_name, "LPB%", 4) == 0
|| strncmp (cs->c_name, "LBB%", 4) == 0
|| strncmp (cs->c_name, "LBE%", 4) == 0
|| strncmp (cs->c_name, "LPBX%", 5) == 0))
break;
case C_THUMBEXT:
case C_THUMBEXTFUNC:
case C_EXT:
{
enum minimal_symbol_type ms_type;
int sec;
if (cs->c_secnum == N_UNDEF)
{
CORE_ADDR reladdr;
if (target_lookup_symbol (cs->c_name, &reladdr))
{
break;
}
tmpaddr = reladdr;
sec = -2;
ms_type = cs->c_sclass == C_EXT
|| cs->c_sclass == C_THUMBEXT ?
mst_bss : mst_file_bss;
}
else if (cs->c_secnum == N_ABS)
{
ms_type = mst_abs;
sec = cs_to_section (cs, objfile);
tmpaddr = cs->c_value;
}
else
{
sec = cs_to_section (cs, objfile);
tmpaddr = cs->c_value;
if (cs->c_sclass == C_EXT
|| cs->c_sclass == C_THUMBEXTFUNC
|| cs->c_sclass == C_THUMBEXT
|| (pe_file && (cs->c_sclass == C_STAT)))
tmpaddr += objfile_section_offset (objfile, sec);
if (sec == SECT_OFF_TEXT (objfile))
{
ms_type =
cs->c_sclass == C_EXT || cs->c_sclass == C_THUMBEXTFUNC
|| cs->c_sclass == C_THUMBEXT ?
mst_text : mst_file_text;
tmpaddr = SMASH_TEXT_ADDRESS (tmpaddr);
}
else if (sec == SECT_OFF_DATA (objfile))
{
ms_type =
cs->c_sclass == C_EXT || cs->c_sclass == C_THUMBEXT ?
mst_data : mst_file_data;
}
else if (sec == SECT_OFF_BSS (objfile))
{
ms_type =
cs->c_sclass == C_EXT || cs->c_sclass == C_THUMBEXT ?
mst_data : mst_file_data;
}
else
ms_type = mst_unknown;
}
if (cs->c_name[0] != '@' )
{
struct minimal_symbol *msym;
msym = prim_record_minimal_symbol_and_info
(cs->c_name, tmpaddr, ms_type, NULL,
sec, NULL, objfile);
if (msym)
COFF_MAKE_MSYMBOL_SPECIAL (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;
SYMBOL_SECTION (sym) = sec;
}
}
break;
case C_FCN:
if (DEPRECATED_STREQ (cs->c_name, ".bf"))
{
within_function = 1;
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;
depth = 0;
new = push_context (depth, fcn_start_addr);
fcn_cs_saved.c_name = getsymname (&fcn_sym_saved);
new->name =
process_coff_symbol (&fcn_cs_saved, &fcn_aux_saved, objfile);
}
else if (DEPRECATED_STREQ (cs->c_name, ".ef"))
{
if (!within_function)
error (_("Bad coff function information."));
if (context_stack_depth <= 0)
{
complaint (&symfile_complaints,
_("`.ef' symbol without matching `.bf' symbol ignored starting at symnum %d"),
cs->c_symnum);
within_function = 0;
break;
}
new = pop_context ();
if (context_stack_depth > 0 || new == 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;
}
if (fcn_last_line == 1)
record_line (current_subfile, fcn_first_line,
fcn_first_line_addr, 0, NORMAL_LT_ENTRY);
else
enter_linenos (fcn_line_ptr, fcn_first_line, fcn_last_line,
objfile);
finish_block (new->name, &local_symbols, new->old_blocks,
new->start_addr,
#if defined (FUNCTION_EPILOGUE_SIZE)
cs->c_value
+ FUNCTION_EPILOGUE_SIZE
+ objfile_text_section_offset (objfile),
#else
fcn_cs_saved.c_value
+ fcn_aux_saved.x_sym.x_misc.x_fsize
+ objfile_text_section_offset (objfile),
#endif
NULL, objfile
);
within_function = 0;
}
break;
case C_BLOCK:
if (DEPRECATED_STREQ (cs->c_name, ".bb"))
{
tmpaddr = cs->c_value;
tmpaddr += objfile_text_section_offset (objfile);
push_context (++depth, tmpaddr);
}
else if (DEPRECATED_STREQ (cs->c_name, ".eb"))
{
if (context_stack_depth <= 0)
{
complaint (&symfile_complaints,
_("`.eb' symbol without matching `.bb' symbol ignored starting at symnum %d"),
cs->c_symnum);
break;
}
new = pop_context ();
if (depth-- != new->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 + objfile_text_section_offset (objfile);
finish_block (0, &local_symbols, new->old_blocks,
new->start_addr, tmpaddr, NULL, objfile);
}
local_symbols = new->locals;
}
break;
default:
process_coff_symbol (cs, &main_aux, objfile);
break;
}
}
if ((nsyms == 0) && (pe_file))
{
read_pe_exported_syms (objfile);
}
if (last_source_file)
coff_end_symtab (objfile);
ALL_OBJFILE_SYMTABS (objfile, s)
patch_opaque_types (s);
current_objfile = NULL;
}
static void
read_one_sym (struct coff_symbol *cs,
struct internal_syment *sym,
union internal_auxent *aux)
{
int i;
cs->c_symnum = symnum;
bfd_bread (temp_sym, local_symesz, nlist_bfd_global);
bfd_coff_swap_sym_in (symfile_bfd, temp_sym, (char *) sym);
cs->c_naux = sym->n_numaux & 0xff;
if (cs->c_naux >= 1)
{
bfd_bread (temp_aux, local_auxesz, nlist_bfd_global);
bfd_coff_swap_aux_in (symfile_bfd, temp_aux, sym->n_type, sym->n_sclass,
0, cs->c_naux, (char *) aux);
for (i = 1; i < cs->c_naux; i++)
bfd_bread (temp_aux, local_auxesz, nlist_bfd_global);
}
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;
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;
}
}
}
static char *stringtab = NULL;
static int
init_stringtab (bfd *abfd, long offset)
{
long length;
int val;
unsigned char lengthbuf[4];
free_stringtab ();
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 (val != sizeof lengthbuf || length < sizeof lengthbuf)
return 0;
stringtab = (char *) xmalloc (length);
memcpy (stringtab, lengthbuf, sizeof lengthbuf);
if (length == sizeof length)
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)
{
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;
}
static char *
coff_getfilename (union internal_auxent *aux_entry)
{
static char buffer[BUFSIZ];
char *temp;
char *result;
if (aux_entry->x_file.x_n.x_zeroes == 0)
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;
if ((temp = strrchr (result, '/')) != NULL)
result = temp + 1;
return (result);
}
static char *linetab = NULL;
static long linetab_offset;
static unsigned long linetab_size;
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;
linetab = (char *) xmalloc (size + local_linesz);
val = bfd_bread (linetab, size, abfd);
if (val != size)
return -1;
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)
{
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)
return;
file_offset += linetab_offset;
}
rawptr = &linetab[file_offset - linetab_offset];
rawptr += local_linesz;
first_line--;
while (rawptr <= &linetab[0] + linetab_size)
{
bfd_coff_swap_lineno_in (symfile_bfd, rawptr, &lptr);
rawptr += local_linesz;
if (L_LNNO32 (&lptr) && L_LNNO32 (&lptr) <= last_line)
record_line (current_subfile, first_line + L_LNNO32 (&lptr),
lptr.l_addr.l_paddr
+ objfile_text_section_offset (objfile),
0, NORMAL_LT_ENTRY);
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))
{
if (TYPE_NAME (target))
xfree (TYPE_NAME (target));
TYPE_NAME (target) = concat (TYPE_NAME (real_target), (char *)NULL);
}
}
static void
patch_opaque_types (struct symtab *s)
{
struct block *b;
struct dict_iterator iter;
struct symbol *real_sym;
b = BLOCKVECTOR_BLOCK (BLOCKVECTOR (s), STATIC_BLOCK);
ALL_BLOCK_SYMBOLS (b, iter, real_sym)
{
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)
{
char *name = DEPRECATED_SYMBOL_NAME (real_sym);
int hash = hashname (name);
struct symbol *sym, *prev;
prev = 0;
for (sym = opaque_type_chain[hash]; sym;)
{
if (name[0] == DEPRECATED_SYMBOL_NAME (sym)[0] &&
strcmp (name + 1, DEPRECATED_SYMBOL_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 struct symbol *
process_coff_symbol (struct coff_symbol *cs,
union internal_auxent *aux,
struct objfile *objfile)
{
struct symbol *sym
= (struct symbol *) obstack_alloc (&objfile->objfile_obstack,
sizeof (struct symbol));
char *name;
memset (sym, 0, sizeof (struct symbol));
name = cs->c_name;
name = EXTERNAL_NAME (name, objfile->obfd);
SYMBOL_LANGUAGE (sym) = language_auto;
SYMBOL_SET_NAMES (sym, name, strlen (name), objfile);
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) += objfile_text_section_offset (objfile);
SYMBOL_TYPE (sym) =
lookup_function_type (decode_function_type (cs, cs->c_type, aux));
SYMBOL_CLASS (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);
switch (cs->c_sclass)
{
case C_NULL:
break;
case C_AUTO:
SYMBOL_CLASS (sym) = LOC_LOCAL;
add_symbol_to_list (sym, &local_symbols);
break;
case C_THUMBEXT:
case C_THUMBEXTFUNC:
case C_EXT:
SYMBOL_CLASS (sym) = LOC_STATIC;
SYMBOL_VALUE_ADDRESS (sym) = (CORE_ADDR) cs->c_value;
SYMBOL_VALUE_ADDRESS (sym) += objfile_text_section_offset (objfile);
add_symbol_to_list (sym, &global_symbols);
break;
case C_THUMBSTAT:
case C_THUMBSTATFUNC:
case C_STAT:
SYMBOL_CLASS (sym) = LOC_STATIC;
SYMBOL_VALUE_ADDRESS (sym) = (CORE_ADDR) cs->c_value;
SYMBOL_VALUE_ADDRESS (sym) += objfile_text_section_offset (objfile);
if (within_function)
{
add_symbol_to_list (sym, &local_symbols);
}
else
{
add_symbol_to_list (sym, &file_symbols);
}
break;
#ifdef C_GLBLREG
case C_GLBLREG:
#endif
case C_REG:
SYMBOL_CLASS (sym) = LOC_REGISTER;
SYMBOL_VALUE (sym) = SDB_REG_TO_REGNUM (cs->c_value);
add_symbol_to_list (sym, &local_symbols);
break;
case C_THUMBLABEL:
case C_LABEL:
break;
case C_ARG:
SYMBOL_CLASS (sym) = LOC_ARG;
add_symbol_to_list (sym, &local_symbols);
#if !defined (BELIEVE_PCC_PROMOTION)
if (TARGET_BYTE_ORDER == BFD_ENDIAN_BIG)
{
struct type *temptype;
temptype = lookup_fundamental_type (current_objfile,
FT_INTEGER);
if (TYPE_LENGTH (SYMBOL_TYPE (sym)) < TYPE_LENGTH (temptype)
&& TYPE_CODE (SYMBOL_TYPE (sym)) == TYPE_CODE_INT
&& 0 == SYMBOL_VALUE (sym) % TYPE_LENGTH (temptype))
{
SYMBOL_VALUE (sym) +=
TYPE_LENGTH (temptype)
- TYPE_LENGTH (SYMBOL_TYPE (sym));
}
}
#endif
break;
case C_REGPARM:
SYMBOL_CLASS (sym) = LOC_REGPARM;
SYMBOL_VALUE (sym) = SDB_REG_TO_REGNUM (cs->c_value);
add_symbol_to_list (sym, &local_symbols);
#if !defined (BELIEVE_PCC_PROMOTION)
{
struct type *temptype;
temptype =
lookup_fundamental_type (current_objfile, FT_INTEGER);
if (TYPE_LENGTH (SYMBOL_TYPE (sym)) < TYPE_LENGTH (temptype)
&& TYPE_CODE (SYMBOL_TYPE (sym)) == TYPE_CODE_INT)
{
SYMBOL_TYPE (sym) =
(TYPE_UNSIGNED (SYMBOL_TYPE (sym))
? lookup_fundamental_type (current_objfile,
FT_UNSIGNED_INTEGER)
: temptype);
}
}
#endif
break;
case C_TPDEF:
SYMBOL_CLASS (sym) = LOC_TYPEDEF;
SYMBOL_DOMAIN (sym) = VAR_DOMAIN;
if (TYPE_NAME (SYMBOL_TYPE (sym)) == 0)
{
if (TYPE_CODE (SYMBOL_TYPE (sym)) == TYPE_CODE_PTR
|| TYPE_CODE (SYMBOL_TYPE (sym)) == TYPE_CODE_FUNC)
{
;
}
else
TYPE_NAME (SYMBOL_TYPE (sym)) =
concat (DEPRECATED_SYMBOL_NAME (sym), (char *)NULL);
}
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 (DEPRECATED_SYMBOL_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_CLASS (sym) = LOC_TYPEDEF;
SYMBOL_DOMAIN (sym) = STRUCT_DOMAIN;
if (TYPE_TAG_NAME (SYMBOL_TYPE (sym)) == 0)
if (DEPRECATED_SYMBOL_NAME (sym) != NULL
&& *DEPRECATED_SYMBOL_NAME (sym) != '~'
&& *DEPRECATED_SYMBOL_NAME (sym) != '.')
TYPE_TAG_NAME (SYMBOL_TYPE (sym)) =
concat (DEPRECATED_SYMBOL_NAME (sym), (char *)NULL);
add_symbol_to_list (sym, &file_symbols);
break;
default:
break;
}
}
return sym;
}
static struct type *
decode_type (struct coff_symbol *cs, unsigned int c_type,
union internal_auxent *aux)
{
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);
type = lookup_pointer_type (type);
}
else if (ISFCN (c_type))
{
type = decode_type (cs, new_c_type, aux);
type = lookup_function_type (type);
}
else if (ISARY (c_type))
{
int i, n;
unsigned short *dim;
struct type *base_type, *index_type, *range_type;
if (aux->x_sym.x_tagndx.l == 0)
cs->c_naux = 0;
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);
index_type = lookup_fundamental_type (current_objfile, FT_INTEGER);
range_type =
create_range_type ((struct type *) NULL, index_type, 0, n - 1);
type =
create_array_type ((struct type *) NULL, base_type, range_type);
}
return type;
}
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);
}
}
return decode_base_type (cs, BTYPE (c_type), aux);
}
static struct type *
decode_function_type (struct coff_symbol *cs, unsigned int c_type,
union internal_auxent *aux)
{
if (aux->x_sym.x_tagndx.l == 0)
cs->c_naux = 0;
return decode_type (cs, DECREF (c_type), aux);
}
static struct type *
decode_base_type (struct coff_symbol *cs, unsigned int c_type,
union internal_auxent *aux)
{
struct type *type;
switch (c_type)
{
case T_NULL:
return lookup_fundamental_type (current_objfile, FT_VOID);
#ifdef T_VOID
case T_VOID:
return lookup_fundamental_type (current_objfile, FT_VOID);
#endif
case T_CHAR:
return lookup_fundamental_type (current_objfile, FT_CHAR);
case T_SHORT:
return lookup_fundamental_type (current_objfile, FT_SHORT);
case T_INT:
return lookup_fundamental_type (current_objfile, FT_INTEGER);
case T_LONG:
if (cs->c_sclass == C_FIELD
&& aux->x_sym.x_misc.x_lnsz.x_size > TARGET_LONG_BIT)
return lookup_fundamental_type (current_objfile, FT_LONG_LONG);
else
return lookup_fundamental_type (current_objfile, FT_LONG);
case T_FLOAT:
return lookup_fundamental_type (current_objfile, FT_FLOAT);
case T_DOUBLE:
return lookup_fundamental_type (current_objfile, FT_DBL_PREC_FLOAT);
case T_LNGDBL:
return lookup_fundamental_type (current_objfile, FT_EXT_PREC_FLOAT);
case T_STRUCT:
if (cs->c_naux != 1)
{
type = coff_alloc_type (cs->c_symnum);
TYPE_CODE (type) = TYPE_CODE_STRUCT;
TYPE_NAME (type) = NULL;
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);
}
return type;
case T_UNION:
if (cs->c_naux != 1)
{
type = coff_alloc_type (cs->c_symnum);
TYPE_NAME (type) = NULL;
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);
}
TYPE_CODE (type) = TYPE_CODE_UNION;
return type;
case T_ENUM:
if (cs->c_naux != 1)
{
type = coff_alloc_type (cs->c_symnum);
TYPE_CODE (type) = TYPE_CODE_ENUM;
TYPE_NAME (type) = NULL;
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);
}
return type;
case T_MOE:
break;
case T_UCHAR:
return lookup_fundamental_type (current_objfile, FT_UNSIGNED_CHAR);
case T_USHORT:
return lookup_fundamental_type (current_objfile, FT_UNSIGNED_SHORT);
case T_UINT:
return lookup_fundamental_type (current_objfile, FT_UNSIGNED_INTEGER);
case T_ULONG:
if (cs->c_sclass == C_FIELD
&& aux->x_sym.x_misc.x_lnsz.x_size > TARGET_LONG_BIT)
return lookup_fundamental_type (current_objfile, FT_UNSIGNED_LONG_LONG);
else
return lookup_fundamental_type (current_objfile, FT_UNSIGNED_LONG);
}
complaint (&symfile_complaints, _("Unexpected type for symbol %s"), cs->c_name);
return lookup_fundamental_type (current_objfile, FT_VOID);
}
static struct type *
coff_read_struct_type (int index, int length, int lastsym)
{
struct nextfield
{
struct nextfield *next;
struct field field;
};
struct type *type;
struct nextfield *list = 0;
struct nextfield *new;
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, current_objfile->obfd);
switch (ms->c_sclass)
{
case C_MOS:
case C_MOU:
new = (struct nextfield *) alloca (sizeof (struct nextfield));
new->next = list;
list = new;
list->field.name =
obsavestring (name,
strlen (name),
¤t_objfile->objfile_obstack);
FIELD_TYPE (list->field) = decode_type (ms, ms->c_type, &sub_aux);
FIELD_BITPOS (list->field) = 8 * ms->c_value;
FIELD_BITSIZE (list->field) = 0;
FIELD_STATIC_KIND (list->field) = 0;
nfields++;
break;
case C_FIELD:
new = (struct nextfield *) alloca (sizeof (struct nextfield));
new->next = list;
list = new;
list->field.name =
obsavestring (name,
strlen (name),
¤t_objfile->objfile_obstack);
FIELD_TYPE (list->field) = decode_type (ms, ms->c_type, &sub_aux);
FIELD_BITPOS (list->field) = ms->c_value;
FIELD_BITSIZE (list->field) = sub_aux.x_sym.x_misc.x_lnsz.x_size;
FIELD_STATIC_KIND (list->field) = 0;
nfields++;
break;
case C_EOS:
done = 1;
break;
}
}
TYPE_NFIELDS (type) = nfields;
TYPE_FIELDS (type) = (struct field *)
TYPE_ALLOC (type, sizeof (struct field) * nfields);
for (n = nfields; list; list = list->next)
TYPE_FIELD (type, --n) = list->field;
return type;
}
static struct type *
coff_read_enum_type (int index, int length, int lastsym)
{
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, current_objfile->obfd);
switch (ms->c_sclass)
{
case C_MOE:
sym = (struct symbol *) obstack_alloc
(¤t_objfile->objfile_obstack,
sizeof (struct symbol));
memset (sym, 0, sizeof (struct symbol));
DEPRECATED_SYMBOL_NAME (sym) =
obsavestring (name, strlen (name),
¤t_objfile->objfile_obstack);
SYMBOL_CLASS (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:
done = 1;
break;
}
}
if (length > 0)
TYPE_LENGTH (type) = length;
else
TYPE_LENGTH (type) = TARGET_INT_BIT / 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);
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) = DEPRECATED_SYMBOL_NAME (xsym);
TYPE_FIELD_BITPOS (type, n) = SYMBOL_VALUE (xsym);
if (SYMBOL_VALUE (xsym) < 0)
unsigned_enum = 0;
TYPE_FIELD_BITSIZE (type, n) = 0;
TYPE_FIELD_STATIC_KIND (type, n) = 0;
}
if (syms == osyms)
break;
}
if (unsigned_enum)
TYPE_FLAGS (type) |= TYPE_FLAG_UNSIGNED;
return type;
}
static struct sym_fns coff_sym_fns =
{
bfd_target_coff_flavour,
coff_new_init,
coff_symfile_init,
coff_symfile_read,
coff_symfile_finish,
default_symfile_offsets,
NULL
};
void
_initialize_coffread (void)
{
add_symtab_fns (&coff_sym_fns);
}