1991-03-28 17:26:26 +01:00
|
|
|
|
/* Read coff symbol tables and convert to internal format, for GDB.
|
1991-09-28 03:35:29 +02:00
|
|
|
|
Contributed by David D. Johnson, Brown University (ddj@cs.brown.edu).
|
1991-12-24 00:16:58 +01:00
|
|
|
|
Copyright 1987, 1988, 1989, 1990, 1991 Free Software Foundation, Inc.
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
|
|
|
|
This file is part of GDB.
|
|
|
|
|
|
1991-06-04 09:31:55 +02:00
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
1991-03-28 17:26:26 +01:00
|
|
|
|
it under the terms of the GNU General Public License as published by
|
1991-06-04 09:31:55 +02:00
|
|
|
|
the Free Software Foundation; either version 2 of the License, or
|
|
|
|
|
(at your option) any later version.
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
1991-06-04 09:31:55 +02:00
|
|
|
|
This program is distributed in the hope that it will be useful,
|
1991-03-28 17:26:26 +01:00
|
|
|
|
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
|
1991-06-04 09:31:55 +02:00
|
|
|
|
along with this program; if not, write to the Free Software
|
|
|
|
|
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
|
|
|
|
#include "defs.h"
|
|
|
|
|
#include "symtab.h"
|
1992-03-15 02:09:14 +01:00
|
|
|
|
#include "gdbtypes.h"
|
1991-03-28 17:26:26 +01:00
|
|
|
|
#include "breakpoint.h"
|
|
|
|
|
#include "bfd.h"
|
|
|
|
|
#include "symfile.h"
|
1992-03-15 02:09:14 +01:00
|
|
|
|
#include "buildsym.h"
|
1991-03-28 17:26:26 +01:00
|
|
|
|
#include <obstack.h>
|
1992-03-15 02:09:14 +01:00
|
|
|
|
|
1991-03-28 17:26:26 +01:00
|
|
|
|
#include <string.h>
|
|
|
|
|
|
1991-12-01 07:47:23 +01:00
|
|
|
|
#include "coff/internal.h" /* Internal format of COFF symbols in BFD */
|
1991-05-02 05:39:15 +02:00
|
|
|
|
#include "libcoff.h" /* FIXME secret internal data from BFD */
|
|
|
|
|
|
1991-04-19 23:48:55 +02:00
|
|
|
|
/* 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
|
1991-04-20 02:41:55 +02:00
|
|
|
|
said to prevent core dumps if we try to operate on Michael Bloom
|
|
|
|
|
dbx-in-coff file. */
|
1991-04-19 23:48:55 +02:00
|
|
|
|
|
|
|
|
|
#define SDB_TYPE(type) (BTYPE(type) | (type & N_TMASK))
|
|
|
|
|
|
1991-09-28 03:35:29 +02:00
|
|
|
|
/*
|
|
|
|
|
* Convert from an sdb register number to an internal gdb register number.
|
|
|
|
|
* This should be defined in tm.h, if REGISTER_NAMES is not set up
|
|
|
|
|
* to map one to one onto the sdb register numbers.
|
|
|
|
|
*/
|
|
|
|
|
#ifndef SDB_REG_TO_REGNUM
|
|
|
|
|
# define SDB_REG_TO_REGNUM(value) (value)
|
|
|
|
|
#endif
|
|
|
|
|
|
1991-03-28 17:26:26 +01:00
|
|
|
|
/* 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 cur_src_start_addr;
|
|
|
|
|
static CORE_ADDR cur_src_end_addr;
|
|
|
|
|
|
|
|
|
|
/* Core address of the end of the first object file. */
|
|
|
|
|
static CORE_ADDR first_object_file_end;
|
|
|
|
|
|
|
|
|
|
/* The addresses of the symbol table stream and number of symbols
|
|
|
|
|
of the object file we are reading (as copied into core). */
|
|
|
|
|
|
|
|
|
|
static FILE *nlist_stream_global;
|
|
|
|
|
static int nlist_nsyms_global;
|
|
|
|
|
|
|
|
|
|
/* Vector of line number information. */
|
|
|
|
|
|
|
|
|
|
static struct linetable *line_vector;
|
|
|
|
|
|
|
|
|
|
/* Index of next entry to go in line_vector_index. */
|
|
|
|
|
|
|
|
|
|
static int line_vector_index;
|
|
|
|
|
|
|
|
|
|
/* Last line number recorded in the line vector. */
|
|
|
|
|
|
|
|
|
|
static int prev_line_number;
|
|
|
|
|
|
|
|
|
|
/* Number of elements allocated for line_vector currently. */
|
|
|
|
|
|
|
|
|
|
static int line_vector_length;
|
|
|
|
|
|
1991-09-28 03:35:29 +02:00
|
|
|
|
/* 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 ../internalcoff.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;
|
|
|
|
|
|
|
|
|
|
|
1991-03-28 17:26:26 +01:00
|
|
|
|
/* 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];
|
|
|
|
|
|
|
|
|
|
/* Record the symbols defined for each context in a list.
|
|
|
|
|
We don't create a struct block for the context until we
|
|
|
|
|
know how long to make it. */
|
|
|
|
|
|
1992-03-15 02:09:14 +01:00
|
|
|
|
struct coff_pending
|
1991-03-28 17:26:26 +01:00
|
|
|
|
{
|
1992-03-15 02:09:14 +01:00
|
|
|
|
struct coff_pending *next;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
struct symbol *symbol;
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
/* Here are the three lists that symbols are put on. */
|
|
|
|
|
|
1992-03-15 02:09:14 +01:00
|
|
|
|
struct coff_pending *coff_file_symbols; /* static at top level, and types */
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
1992-03-15 02:09:14 +01:00
|
|
|
|
struct coff_pending *coff_global_symbols; /* global functions and variables */
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
1992-03-15 02:09:14 +01:00
|
|
|
|
struct coff_pending *coff_local_symbols; /* everything local to lexical context */
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
|
|
|
|
/* List of unclosed lexical contexts
|
|
|
|
|
(that will become blocks, eventually). */
|
|
|
|
|
|
1992-03-15 02:09:14 +01:00
|
|
|
|
struct coff_context_stack
|
1991-03-28 17:26:26 +01:00
|
|
|
|
{
|
1992-03-15 02:09:14 +01:00
|
|
|
|
struct coff_context_stack *next;
|
|
|
|
|
struct coff_pending *locals;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
struct pending_block *old_blocks;
|
|
|
|
|
struct symbol *name;
|
|
|
|
|
CORE_ADDR start_addr;
|
|
|
|
|
int depth;
|
|
|
|
|
};
|
|
|
|
|
|
1992-03-15 02:09:14 +01:00
|
|
|
|
struct coff_context_stack *coff_context_stack;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
|
|
|
|
/* Nonzero if within a function (so symbols should be local,
|
|
|
|
|
if nothing says specifically). */
|
|
|
|
|
|
|
|
|
|
int within_function;
|
|
|
|
|
|
1991-09-28 03:35:29 +02:00
|
|
|
|
#if 0
|
|
|
|
|
/* The type of the function we are currently reading in. This is
|
|
|
|
|
used by define_symbol to record the type of arguments to a function. */
|
|
|
|
|
|
|
|
|
|
struct type *in_function_type;
|
|
|
|
|
#endif
|
|
|
|
|
|
1991-03-28 17:26:26 +01:00
|
|
|
|
struct pending_block *pending_blocks;
|
|
|
|
|
|
|
|
|
|
extern CORE_ADDR startup_file_start; /* From blockframe.c */
|
|
|
|
|
extern CORE_ADDR startup_file_end; /* From blockframe.c */
|
|
|
|
|
|
|
|
|
|
/* Complaints about various problems in the file being read */
|
|
|
|
|
|
|
|
|
|
struct complaint ef_complaint =
|
|
|
|
|
{"Unmatched .ef symbol(s) ignored starting at symnum %d", 0, 0};
|
|
|
|
|
|
1991-12-24 00:16:58 +01:00
|
|
|
|
struct complaint bf_no_aux_complaint =
|
|
|
|
|
{"`.bf' symbol %d has no aux entry", 0, 0};
|
|
|
|
|
|
|
|
|
|
struct complaint ef_no_aux_complaint =
|
|
|
|
|
{"`.ef' symbol %d has no aux entry", 0, 0};
|
1991-11-07 02:27:46 +01:00
|
|
|
|
|
1991-05-02 05:39:15 +02:00
|
|
|
|
struct complaint lineno_complaint =
|
|
|
|
|
{"Line number pointer %d lower than start of line numbers", 0, 0};
|
|
|
|
|
|
1991-12-24 00:16:58 +01:00
|
|
|
|
struct complaint unexpected_type_complaint =
|
|
|
|
|
{"Unexpected type for symbol %s", 0, 0};
|
|
|
|
|
|
|
|
|
|
struct complaint bad_sclass_complaint =
|
|
|
|
|
{"Bad n_sclass for symbol %s", 0, 0};
|
1992-03-15 02:09:14 +01:00
|
|
|
|
|
|
|
|
|
/* 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 */
|
|
|
|
|
long c_value;
|
|
|
|
|
int c_sclass;
|
|
|
|
|
int c_secnum;
|
|
|
|
|
unsigned int c_type;
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
static struct type *
|
|
|
|
|
coff_read_struct_type PARAMS ((int, int, int));
|
|
|
|
|
|
|
|
|
|
static struct type *
|
|
|
|
|
decode_base_type PARAMS ((struct coff_symbol *, unsigned int,
|
|
|
|
|
union internal_auxent *));
|
|
|
|
|
|
|
|
|
|
static struct type *
|
|
|
|
|
decode_type PARAMS ((struct coff_symbol *, unsigned int,
|
|
|
|
|
union internal_auxent *));
|
|
|
|
|
|
|
|
|
|
static struct type *
|
|
|
|
|
decode_function_type PARAMS ((struct coff_symbol *, unsigned int,
|
|
|
|
|
union internal_auxent *));
|
|
|
|
|
|
|
|
|
|
static struct type *
|
|
|
|
|
coff_read_enum_type PARAMS ((int, int, int));
|
|
|
|
|
|
|
|
|
|
static struct blockvector *
|
|
|
|
|
make_blockvector PARAMS ((struct objfile *));
|
|
|
|
|
|
|
|
|
|
static struct symbol *
|
|
|
|
|
process_coff_symbol PARAMS ((struct coff_symbol *, union internal_auxent *,
|
|
|
|
|
struct objfile *));
|
|
|
|
|
|
|
|
|
|
static PTR
|
|
|
|
|
patch_opaque_types PARAMS ((struct objfile *, struct symtab *, PTR, PTR, PTR));
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
patch_type PARAMS ((struct type *, struct type *));
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
enter_linenos PARAMS ((long, int, int));
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
init_lineno PARAMS ((int, long, int));
|
|
|
|
|
|
|
|
|
|
static char *
|
|
|
|
|
getfilename PARAMS ((union internal_auxent *));
|
|
|
|
|
|
|
|
|
|
static char *
|
|
|
|
|
getsymname PARAMS ((struct internal_syment *));
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
free_stringtab PARAMS ((void));
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
init_stringtab PARAMS ((int, long));
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
read_one_sym PARAMS ((struct coff_symbol *, struct internal_syment *,
|
|
|
|
|
union internal_auxent *));
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
read_coff_symtab PARAMS ((int, int, struct objfile *));
|
|
|
|
|
|
|
|
|
|
static void
|
* coffread.c, mipsread.c, xcoffread.c, coffread.c, dbxread.c,
elfread.c (coff_symfile_finish): Add function, prototype, and
add to the xxxx_sym_fns struct for each file type. Also reformat
the xxxx_sym_fns vector to a standard format and add comments.
* coffread.c, mipsread.c, xcoffread.c, coffread.c, dbxread.c,
elfread.c (xxx_symfile_new_init, xxx_symfile_init, xxx_symfile_read):
Pass pointer to struct objfile rather than pointer to sym_fns.
Change references inside each function accordingly. Allocate any
symbol file specific info in the per-objfile memory region.
* dbxread.c (free_and_init_header_files): Break function into
free_header_files(), called from dbx_symfile_finish(), and
init_header_files(), called from dbx_new_init().
* dbxread.c (dbx_new_init): Move deallocation things to new
dbx_symfile_finish function.
* elfread.c (elf_new_init): Call buildsym_new_init().
* objfiles.c (free_objfile): Call the appropriate symfile_finish()
routine for the objfile before deallocating other stuff.
* sparc-tdep.c (get_longjmp_target): Cast target_read_memory arg.
* symfile.h: Move struct sym_fns to before struct objfile def.
Add sym_finish function pointer and change prototypes of other
function pointers to reflect passing struct objfile pointer rather
than struct sym_fns pointer.
* symfile.c: Remove now obsolete symtab_fns pointer.
* symfile.c (symfile_init): Renamed to find_sym_fns, and now only
locates the correct sym_fns struct for the given objfile.
* symfile.c (syms_from_objfile, symbol_file_add): Restructured
for better support of mapped symbol tables.
* symfile.c (symbol_file_command): Remove obsolete code using
symfile_fns.
* symfile.h: Remove duplicate declarations for symfile_objfile,
entry_point, and object_files.
* target.c (target_info): Compare symfile_objfile to NULL.
* xcoffread.c (aixcoff_new_init): Move deallocation stuff to
aixcoff_symfile_finish().
1992-03-19 22:57:15 +01:00
|
|
|
|
find_linenos PARAMS ((bfd *, sec_ptr, PTR));
|
1992-03-15 02:09:14 +01:00
|
|
|
|
|
|
|
|
|
static void
|
* coffread.c, mipsread.c, xcoffread.c, coffread.c, dbxread.c,
elfread.c (coff_symfile_finish): Add function, prototype, and
add to the xxxx_sym_fns struct for each file type. Also reformat
the xxxx_sym_fns vector to a standard format and add comments.
* coffread.c, mipsread.c, xcoffread.c, coffread.c, dbxread.c,
elfread.c (xxx_symfile_new_init, xxx_symfile_init, xxx_symfile_read):
Pass pointer to struct objfile rather than pointer to sym_fns.
Change references inside each function accordingly. Allocate any
symbol file specific info in the per-objfile memory region.
* dbxread.c (free_and_init_header_files): Break function into
free_header_files(), called from dbx_symfile_finish(), and
init_header_files(), called from dbx_new_init().
* dbxread.c (dbx_new_init): Move deallocation things to new
dbx_symfile_finish function.
* elfread.c (elf_new_init): Call buildsym_new_init().
* objfiles.c (free_objfile): Call the appropriate symfile_finish()
routine for the objfile before deallocating other stuff.
* sparc-tdep.c (get_longjmp_target): Cast target_read_memory arg.
* symfile.h: Move struct sym_fns to before struct objfile def.
Add sym_finish function pointer and change prototypes of other
function pointers to reflect passing struct objfile pointer rather
than struct sym_fns pointer.
* symfile.c: Remove now obsolete symtab_fns pointer.
* symfile.c (symfile_init): Renamed to find_sym_fns, and now only
locates the correct sym_fns struct for the given objfile.
* symfile.c (syms_from_objfile, symbol_file_add): Restructured
for better support of mapped symbol tables.
* symfile.c (symbol_file_command): Remove obsolete code using
symfile_fns.
* symfile.h: Remove duplicate declarations for symfile_objfile,
entry_point, and object_files.
* target.c (target_info): Compare symfile_objfile to NULL.
* xcoffread.c (aixcoff_new_init): Move deallocation stuff to
aixcoff_symfile_finish().
1992-03-19 22:57:15 +01:00
|
|
|
|
coff_symfile_init PARAMS ((struct objfile *));
|
1992-03-15 02:09:14 +01:00
|
|
|
|
|
|
|
|
|
static void
|
* coffread.c, mipsread.c, xcoffread.c, coffread.c, dbxread.c,
elfread.c (coff_symfile_finish): Add function, prototype, and
add to the xxxx_sym_fns struct for each file type. Also reformat
the xxxx_sym_fns vector to a standard format and add comments.
* coffread.c, mipsread.c, xcoffread.c, coffread.c, dbxread.c,
elfread.c (xxx_symfile_new_init, xxx_symfile_init, xxx_symfile_read):
Pass pointer to struct objfile rather than pointer to sym_fns.
Change references inside each function accordingly. Allocate any
symbol file specific info in the per-objfile memory region.
* dbxread.c (free_and_init_header_files): Break function into
free_header_files(), called from dbx_symfile_finish(), and
init_header_files(), called from dbx_new_init().
* dbxread.c (dbx_new_init): Move deallocation things to new
dbx_symfile_finish function.
* elfread.c (elf_new_init): Call buildsym_new_init().
* objfiles.c (free_objfile): Call the appropriate symfile_finish()
routine for the objfile before deallocating other stuff.
* sparc-tdep.c (get_longjmp_target): Cast target_read_memory arg.
* symfile.h: Move struct sym_fns to before struct objfile def.
Add sym_finish function pointer and change prototypes of other
function pointers to reflect passing struct objfile pointer rather
than struct sym_fns pointer.
* symfile.c: Remove now obsolete symtab_fns pointer.
* symfile.c (symfile_init): Renamed to find_sym_fns, and now only
locates the correct sym_fns struct for the given objfile.
* symfile.c (syms_from_objfile, symbol_file_add): Restructured
for better support of mapped symbol tables.
* symfile.c (symbol_file_command): Remove obsolete code using
symfile_fns.
* symfile.h: Remove duplicate declarations for symfile_objfile,
entry_point, and object_files.
* target.c (target_info): Compare symfile_objfile to NULL.
* xcoffread.c (aixcoff_new_init): Move deallocation stuff to
aixcoff_symfile_finish().
1992-03-19 22:57:15 +01:00
|
|
|
|
coff_new_init PARAMS ((struct objfile *));
|
1992-03-15 02:09:14 +01:00
|
|
|
|
|
|
|
|
|
static void
|
* coffread.c, mipsread.c, xcoffread.c, coffread.c, dbxread.c,
elfread.c (coff_symfile_finish): Add function, prototype, and
add to the xxxx_sym_fns struct for each file type. Also reformat
the xxxx_sym_fns vector to a standard format and add comments.
* coffread.c, mipsread.c, xcoffread.c, coffread.c, dbxread.c,
elfread.c (xxx_symfile_new_init, xxx_symfile_init, xxx_symfile_read):
Pass pointer to struct objfile rather than pointer to sym_fns.
Change references inside each function accordingly. Allocate any
symbol file specific info in the per-objfile memory region.
* dbxread.c (free_and_init_header_files): Break function into
free_header_files(), called from dbx_symfile_finish(), and
init_header_files(), called from dbx_new_init().
* dbxread.c (dbx_new_init): Move deallocation things to new
dbx_symfile_finish function.
* elfread.c (elf_new_init): Call buildsym_new_init().
* objfiles.c (free_objfile): Call the appropriate symfile_finish()
routine for the objfile before deallocating other stuff.
* sparc-tdep.c (get_longjmp_target): Cast target_read_memory arg.
* symfile.h: Move struct sym_fns to before struct objfile def.
Add sym_finish function pointer and change prototypes of other
function pointers to reflect passing struct objfile pointer rather
than struct sym_fns pointer.
* symfile.c: Remove now obsolete symtab_fns pointer.
* symfile.c (symfile_init): Renamed to find_sym_fns, and now only
locates the correct sym_fns struct for the given objfile.
* symfile.c (syms_from_objfile, symbol_file_add): Restructured
for better support of mapped symbol tables.
* symfile.c (symbol_file_command): Remove obsolete code using
symfile_fns.
* symfile.h: Remove duplicate declarations for symfile_objfile,
entry_point, and object_files.
* target.c (target_info): Compare symfile_objfile to NULL.
* xcoffread.c (aixcoff_new_init): Move deallocation stuff to
aixcoff_symfile_finish().
1992-03-19 22:57:15 +01:00
|
|
|
|
coff_symfile_read PARAMS ((struct objfile *, CORE_ADDR, int));
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
coff_symfile_finish PARAMS ((struct objfile *));
|
1992-03-15 02:09:14 +01:00
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
record_minimal_symbol PARAMS ((char *, CORE_ADDR));
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
coff_end_symtab PARAMS ((struct objfile *));
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
complete_symtab PARAMS ((char *, CORE_ADDR, unsigned int));
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
coff_start_symtab PARAMS ((void));
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
coff_record_line PARAMS ((int, CORE_ADDR));
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
coff_finish_block PARAMS ((struct symbol *, struct coff_pending **,
|
|
|
|
|
struct pending_block *, CORE_ADDR, CORE_ADDR,
|
|
|
|
|
struct objfile *));
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
coff_add_symbol_to_list PARAMS ((struct symbol *, struct coff_pending **));
|
|
|
|
|
|
|
|
|
|
static struct type *
|
|
|
|
|
coff_alloc_type PARAMS ((int));
|
|
|
|
|
|
|
|
|
|
static struct type **
|
|
|
|
|
coff_lookup_type PARAMS ((int));
|
|
|
|
|
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
|
|
|
|
/* 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 (index)
|
|
|
|
|
register int index;
|
|
|
|
|
{
|
|
|
|
|
if (index >= type_vector_length)
|
|
|
|
|
{
|
|
|
|
|
int old_vector_length = type_vector_length;
|
|
|
|
|
|
|
|
|
|
type_vector_length *= 2;
|
|
|
|
|
if (type_vector_length < index) {
|
|
|
|
|
type_vector_length = index * 2;
|
|
|
|
|
}
|
1991-10-26 00:10:12 +01:00
|
|
|
|
type_vector = (struct type **)
|
1992-03-15 02:09:14 +01:00
|
|
|
|
xrealloc ((char *) type_vector,
|
|
|
|
|
type_vector_length * sizeof (struct type *));
|
1991-10-26 00:10:12 +01:00
|
|
|
|
bzero (&type_vector[old_vector_length],
|
1991-03-28 17:26:26 +01:00
|
|
|
|
(type_vector_length - old_vector_length) * sizeof(struct type *));
|
|
|
|
|
}
|
1991-10-26 00:10:12 +01:00
|
|
|
|
return &type_vector[index];
|
1991-03-28 17:26:26 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* 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 (index)
|
|
|
|
|
int index;
|
|
|
|
|
{
|
|
|
|
|
register struct type **type_addr = coff_lookup_type (index);
|
|
|
|
|
register 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. */
|
1992-03-15 02:09:14 +01:00
|
|
|
|
if (type == NULL)
|
1991-03-28 17:26:26 +01:00
|
|
|
|
{
|
1992-03-15 02:09:14 +01:00
|
|
|
|
type = alloc_type (current_objfile);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
*type_addr = type;
|
|
|
|
|
}
|
|
|
|
|
return type;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* maintain the lists of symbols and blocks */
|
|
|
|
|
|
|
|
|
|
/* Add a symbol to one of the lists of symbols. */
|
|
|
|
|
static void
|
1992-03-15 02:09:14 +01:00
|
|
|
|
coff_add_symbol_to_list (symbol, listhead)
|
1991-03-28 17:26:26 +01:00
|
|
|
|
struct symbol *symbol;
|
1992-03-15 02:09:14 +01:00
|
|
|
|
struct coff_pending **listhead;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
{
|
1992-03-15 02:09:14 +01:00
|
|
|
|
register struct coff_pending *link
|
|
|
|
|
= (struct coff_pending *) xmalloc (sizeof (struct coff_pending));
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
|
|
|
|
link->next = *listhead;
|
|
|
|
|
link->symbol = symbol;
|
|
|
|
|
*listhead = link;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Take one of the lists of symbols and make a block from it.
|
|
|
|
|
Put the block on the list of pending blocks. */
|
|
|
|
|
|
|
|
|
|
static void
|
1992-03-15 02:09:14 +01:00
|
|
|
|
coff_finish_block (symbol, listhead, old_blocks, start, end, objfile)
|
1991-03-28 17:26:26 +01:00
|
|
|
|
struct symbol *symbol;
|
1992-03-15 02:09:14 +01:00
|
|
|
|
struct coff_pending **listhead;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
struct pending_block *old_blocks;
|
|
|
|
|
CORE_ADDR start, end;
|
1992-03-15 02:09:14 +01:00
|
|
|
|
struct objfile *objfile;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
{
|
1992-03-15 02:09:14 +01:00
|
|
|
|
register struct coff_pending *next, *next1;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
register struct block *block;
|
|
|
|
|
register struct pending_block *pblock;
|
|
|
|
|
struct pending_block *opblock;
|
|
|
|
|
register int i;
|
|
|
|
|
|
|
|
|
|
/* Count the length of the list of symbols. */
|
|
|
|
|
|
|
|
|
|
for (next = *listhead, i = 0; next; next = next->next, i++);
|
|
|
|
|
|
|
|
|
|
block = (struct block *)
|
1992-03-15 02:09:14 +01:00
|
|
|
|
obstack_alloc (&objfile->symbol_obstack, sizeof (struct block) + (i - 1) * sizeof (struct symbol *));
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
|
|
|
|
/* Copy the symbols into the block. */
|
|
|
|
|
|
|
|
|
|
BLOCK_NSYMS (block) = i;
|
|
|
|
|
for (next = *listhead; next; next = next->next)
|
|
|
|
|
BLOCK_SYM (block, --i) = next->symbol;
|
|
|
|
|
|
|
|
|
|
BLOCK_START (block) = start;
|
|
|
|
|
BLOCK_END (block) = end;
|
|
|
|
|
BLOCK_SUPERBLOCK (block) = 0; /* Filled in when containing block is made */
|
|
|
|
|
|
|
|
|
|
/* Put the block in as the value of the symbol that names it. */
|
|
|
|
|
|
|
|
|
|
if (symbol)
|
|
|
|
|
{
|
|
|
|
|
SYMBOL_BLOCK_VALUE (symbol) = block;
|
|
|
|
|
BLOCK_FUNCTION (block) = symbol;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
BLOCK_FUNCTION (block) = 0;
|
|
|
|
|
|
|
|
|
|
/* Now free the links of the list, and empty the list. */
|
|
|
|
|
|
|
|
|
|
for (next = *listhead; next; next = next1)
|
|
|
|
|
{
|
|
|
|
|
next1 = next->next;
|
|
|
|
|
free (next);
|
|
|
|
|
}
|
|
|
|
|
*listhead = 0;
|
|
|
|
|
|
|
|
|
|
/* Install this block as the superblock
|
|
|
|
|
of all blocks made since the start of this scope
|
|
|
|
|
that don't have superblocks yet. */
|
|
|
|
|
|
|
|
|
|
opblock = 0;
|
|
|
|
|
for (pblock = pending_blocks; pblock != old_blocks; pblock = pblock->next)
|
|
|
|
|
{
|
|
|
|
|
if (BLOCK_SUPERBLOCK (pblock->block) == 0)
|
|
|
|
|
BLOCK_SUPERBLOCK (pblock->block) = block;
|
|
|
|
|
opblock = pblock;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Record this block on the list of all blocks in the file.
|
|
|
|
|
Put it after opblock, or at the beginning if opblock is 0.
|
|
|
|
|
This puts the block in the list after all its subblocks. */
|
|
|
|
|
|
|
|
|
|
pblock = (struct pending_block *) xmalloc (sizeof (struct pending_block));
|
|
|
|
|
pblock->block = block;
|
|
|
|
|
if (opblock)
|
|
|
|
|
{
|
|
|
|
|
pblock->next = opblock->next;
|
|
|
|
|
opblock->next = pblock;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
pblock->next = pending_blocks;
|
|
|
|
|
pending_blocks = pblock;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static struct blockvector *
|
1992-03-15 02:09:14 +01:00
|
|
|
|
make_blockvector (objfile)
|
|
|
|
|
struct objfile *objfile;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
{
|
|
|
|
|
register struct pending_block *next, *next1;
|
|
|
|
|
register struct blockvector *blockvector;
|
|
|
|
|
register int i;
|
|
|
|
|
|
|
|
|
|
/* Count the length of the list of blocks. */
|
|
|
|
|
|
|
|
|
|
for (next = pending_blocks, i = 0; next; next = next->next, i++);
|
|
|
|
|
|
|
|
|
|
blockvector = (struct blockvector *)
|
1992-03-15 02:09:14 +01:00
|
|
|
|
obstack_alloc (&objfile->symbol_obstack, sizeof (struct blockvector) + (i - 1) * sizeof (struct block *));
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
|
|
|
|
/* Copy the blocks into the blockvector.
|
|
|
|
|
This is done in reverse order, which happens to put
|
|
|
|
|
the blocks into the proper order (ascending starting address).
|
1992-03-15 02:09:14 +01:00
|
|
|
|
coff_finish_block has hair to insert each block into the list
|
1991-03-28 17:26:26 +01:00
|
|
|
|
after its subblocks in order to make sure this is true. */
|
|
|
|
|
|
|
|
|
|
BLOCKVECTOR_NBLOCKS (blockvector) = i;
|
|
|
|
|
for (next = pending_blocks; next; next = next->next)
|
|
|
|
|
BLOCKVECTOR_BLOCK (blockvector, --i) = next->block;
|
|
|
|
|
|
|
|
|
|
/* Now free the links of the list, and empty the list. */
|
|
|
|
|
|
|
|
|
|
for (next = pending_blocks; next; next = next1)
|
|
|
|
|
{
|
|
|
|
|
next1 = next->next;
|
|
|
|
|
free (next);
|
|
|
|
|
}
|
|
|
|
|
pending_blocks = 0;
|
|
|
|
|
|
|
|
|
|
return blockvector;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Manage the vector of line numbers. */
|
|
|
|
|
|
1991-05-02 06:28:42 +02:00
|
|
|
|
static void
|
1992-03-15 02:09:14 +01:00
|
|
|
|
coff_record_line (line, pc)
|
1991-03-28 17:26:26 +01:00
|
|
|
|
int line;
|
|
|
|
|
CORE_ADDR pc;
|
|
|
|
|
{
|
|
|
|
|
struct linetable_entry *e;
|
|
|
|
|
/* Make sure line vector is big enough. */
|
|
|
|
|
|
|
|
|
|
if (line_vector_index + 2 >= line_vector_length)
|
|
|
|
|
{
|
|
|
|
|
line_vector_length *= 2;
|
|
|
|
|
line_vector = (struct linetable *)
|
1992-03-15 02:09:14 +01:00
|
|
|
|
xrealloc ((char *) line_vector, sizeof (struct linetable)
|
1991-03-28 17:26:26 +01:00
|
|
|
|
+ (line_vector_length
|
|
|
|
|
* sizeof (struct linetable_entry)));
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
e = line_vector->item + line_vector_index++;
|
|
|
|
|
e->line = line; e->pc = pc;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* 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
|
1992-03-15 02:09:14 +01:00
|
|
|
|
coff_start_symtab ()
|
1991-03-28 17:26:26 +01:00
|
|
|
|
{
|
1992-03-15 02:09:14 +01:00
|
|
|
|
coff_file_symbols = 0;
|
|
|
|
|
coff_global_symbols = 0;
|
|
|
|
|
coff_context_stack = 0;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
within_function = 0;
|
|
|
|
|
last_source_file = 0;
|
|
|
|
|
|
1991-09-11 03:49:50 +02:00
|
|
|
|
/* Initialize the source file line number information for this file. */
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
1991-09-11 03:49:50 +02:00
|
|
|
|
if (line_vector) /* Unlikely, but maybe possible? */
|
|
|
|
|
free (line_vector);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
line_vector_index = 0;
|
|
|
|
|
line_vector_length = 1000;
|
|
|
|
|
prev_line_number = -2; /* Force first line number to be explicit */
|
|
|
|
|
line_vector = (struct linetable *)
|
|
|
|
|
xmalloc (sizeof (struct linetable)
|
|
|
|
|
+ line_vector_length * sizeof (struct linetable_entry));
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* 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 (name, start_addr, size)
|
|
|
|
|
char *name;
|
|
|
|
|
CORE_ADDR start_addr;
|
|
|
|
|
unsigned int size;
|
|
|
|
|
{
|
|
|
|
|
last_source_file = savestring (name, strlen (name));
|
|
|
|
|
cur_src_start_addr = start_addr;
|
|
|
|
|
cur_src_end_addr = start_addr + size;
|
|
|
|
|
|
|
|
|
|
if (entry_point < cur_src_end_addr
|
|
|
|
|
&& entry_point >= cur_src_start_addr)
|
|
|
|
|
{
|
|
|
|
|
startup_file_start = cur_src_start_addr;
|
|
|
|
|
startup_file_end = cur_src_end_addr;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* 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
|
1992-03-15 02:09:14 +01:00
|
|
|
|
coff_end_symtab (objfile)
|
1991-11-09 11:50:07 +01:00
|
|
|
|
struct objfile *objfile;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
{
|
|
|
|
|
register struct symtab *symtab;
|
1992-03-15 02:09:14 +01:00
|
|
|
|
register struct coff_context_stack *cstk;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
register struct blockvector *blockvector;
|
|
|
|
|
register struct linetable *lv;
|
|
|
|
|
|
|
|
|
|
/* Finish the lexical context of the last function in the file. */
|
|
|
|
|
|
1992-03-15 02:09:14 +01:00
|
|
|
|
if (coff_context_stack)
|
1991-03-28 17:26:26 +01:00
|
|
|
|
{
|
1992-03-15 02:09:14 +01:00
|
|
|
|
cstk = coff_context_stack;
|
|
|
|
|
coff_context_stack = 0;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
/* Make a block for the local symbols within. */
|
1992-03-15 02:09:14 +01:00
|
|
|
|
coff_finish_block (cstk->name, &coff_local_symbols, cstk->old_blocks,
|
|
|
|
|
cstk->start_addr, cur_src_end_addr, objfile);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
free (cstk);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Ignore a file that has no functions with real debugging info. */
|
1992-03-15 02:09:14 +01:00
|
|
|
|
if (pending_blocks == 0 && coff_file_symbols == 0 && coff_global_symbols == 0)
|
1991-03-28 17:26:26 +01:00
|
|
|
|
{
|
|
|
|
|
free (line_vector);
|
|
|
|
|
line_vector = 0;
|
|
|
|
|
line_vector_length = -1;
|
|
|
|
|
last_source_file = 0;
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
1991-04-14 00:29:36 +02:00
|
|
|
|
/* Create the two top-level blocks for this file (STATIC_BLOCK and
|
|
|
|
|
GLOBAL_BLOCK). */
|
1992-03-15 02:09:14 +01:00
|
|
|
|
coff_finish_block (0, &coff_file_symbols, 0, cur_src_start_addr, cur_src_end_addr, objfile);
|
|
|
|
|
coff_finish_block (0, &coff_global_symbols, 0, cur_src_start_addr, cur_src_end_addr, objfile);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
|
|
|
|
/* Create the blockvector that points to all the file's blocks. */
|
1992-03-15 02:09:14 +01:00
|
|
|
|
blockvector = make_blockvector (objfile);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
|
|
|
|
/* Now create the symtab object for this source file. */
|
1991-11-09 11:50:07 +01:00
|
|
|
|
symtab = allocate_symtab (last_source_file, objfile);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
|
|
|
|
/* Fill in its components. */
|
|
|
|
|
symtab->blockvector = blockvector;
|
|
|
|
|
symtab->free_code = free_linetable;
|
1991-09-28 03:35:29 +02:00
|
|
|
|
symtab->free_ptr = 0;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
symtab->filename = last_source_file;
|
1991-04-21 07:17:05 +02:00
|
|
|
|
symtab->dirname = NULL;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
lv = line_vector;
|
|
|
|
|
lv->nitems = line_vector_index;
|
|
|
|
|
symtab->linetable = (struct linetable *)
|
1992-03-15 02:09:14 +01:00
|
|
|
|
xrealloc ((char *) lv, (sizeof (struct linetable)
|
1991-03-28 17:26:26 +01:00
|
|
|
|
+ lv->nitems * sizeof (struct linetable_entry)));
|
1991-04-21 07:17:05 +02:00
|
|
|
|
|
1991-04-14 00:29:36 +02:00
|
|
|
|
free_named_symtabs (symtab->filename);
|
|
|
|
|
|
1991-03-28 17:26:26 +01:00
|
|
|
|
/* Reinitialize for beginning of new file. */
|
|
|
|
|
line_vector = 0;
|
|
|
|
|
line_vector_length = -1;
|
|
|
|
|
last_source_file = 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
1992-03-15 02:09:14 +01:00
|
|
|
|
record_minimal_symbol (name, address)
|
1991-03-28 17:26:26 +01:00
|
|
|
|
char *name;
|
|
|
|
|
CORE_ADDR address;
|
|
|
|
|
{
|
1992-03-15 02:09:14 +01:00
|
|
|
|
/* We don't want TDESC entry points in the minimal symbol table */
|
1991-03-28 17:26:26 +01:00
|
|
|
|
if (name[0] == '@') return;
|
1991-11-19 00:52:12 +01:00
|
|
|
|
|
1992-03-15 02:09:14 +01:00
|
|
|
|
/* mst_text isn't true, but apparently COFF doesn't tell us what it really
|
|
|
|
|
is, so this guess is more useful than mst_unknown. */
|
|
|
|
|
prim_record_minimal_symbol (savestring (name, strlen (name)),
|
1991-03-28 17:26:26 +01:00
|
|
|
|
address,
|
1992-03-15 02:09:14 +01:00
|
|
|
|
(int)mst_text);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* coff_symfile_init ()
|
|
|
|
|
is the coff-specific initialization routine for reading symbols.
|
|
|
|
|
It is passed a struct sym_fns 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). */
|
|
|
|
|
|
|
|
|
|
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 */
|
|
|
|
|
};
|
|
|
|
|
|
1991-09-28 03:35:29 +02:00
|
|
|
|
static int text_bfd_scnum;
|
|
|
|
|
|
1991-10-04 07:46:30 +01:00
|
|
|
|
static void
|
* coffread.c, mipsread.c, xcoffread.c, coffread.c, dbxread.c,
elfread.c (coff_symfile_finish): Add function, prototype, and
add to the xxxx_sym_fns struct for each file type. Also reformat
the xxxx_sym_fns vector to a standard format and add comments.
* coffread.c, mipsread.c, xcoffread.c, coffread.c, dbxread.c,
elfread.c (xxx_symfile_new_init, xxx_symfile_init, xxx_symfile_read):
Pass pointer to struct objfile rather than pointer to sym_fns.
Change references inside each function accordingly. Allocate any
symbol file specific info in the per-objfile memory region.
* dbxread.c (free_and_init_header_files): Break function into
free_header_files(), called from dbx_symfile_finish(), and
init_header_files(), called from dbx_new_init().
* dbxread.c (dbx_new_init): Move deallocation things to new
dbx_symfile_finish function.
* elfread.c (elf_new_init): Call buildsym_new_init().
* objfiles.c (free_objfile): Call the appropriate symfile_finish()
routine for the objfile before deallocating other stuff.
* sparc-tdep.c (get_longjmp_target): Cast target_read_memory arg.
* symfile.h: Move struct sym_fns to before struct objfile def.
Add sym_finish function pointer and change prototypes of other
function pointers to reflect passing struct objfile pointer rather
than struct sym_fns pointer.
* symfile.c: Remove now obsolete symtab_fns pointer.
* symfile.c (symfile_init): Renamed to find_sym_fns, and now only
locates the correct sym_fns struct for the given objfile.
* symfile.c (syms_from_objfile, symbol_file_add): Restructured
for better support of mapped symbol tables.
* symfile.c (symbol_file_command): Remove obsolete code using
symfile_fns.
* symfile.h: Remove duplicate declarations for symfile_objfile,
entry_point, and object_files.
* target.c (target_info): Compare symfile_objfile to NULL.
* xcoffread.c (aixcoff_new_init): Move deallocation stuff to
aixcoff_symfile_finish().
1992-03-19 22:57:15 +01:00
|
|
|
|
coff_symfile_init (objfile)
|
|
|
|
|
struct objfile *objfile;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
{
|
1991-09-28 03:35:29 +02:00
|
|
|
|
asection *section;
|
* coffread.c, mipsread.c, xcoffread.c, coffread.c, dbxread.c,
elfread.c (coff_symfile_finish): Add function, prototype, and
add to the xxxx_sym_fns struct for each file type. Also reformat
the xxxx_sym_fns vector to a standard format and add comments.
* coffread.c, mipsread.c, xcoffread.c, coffread.c, dbxread.c,
elfread.c (xxx_symfile_new_init, xxx_symfile_init, xxx_symfile_read):
Pass pointer to struct objfile rather than pointer to sym_fns.
Change references inside each function accordingly. Allocate any
symbol file specific info in the per-objfile memory region.
* dbxread.c (free_and_init_header_files): Break function into
free_header_files(), called from dbx_symfile_finish(), and
init_header_files(), called from dbx_new_init().
* dbxread.c (dbx_new_init): Move deallocation things to new
dbx_symfile_finish function.
* elfread.c (elf_new_init): Call buildsym_new_init().
* objfiles.c (free_objfile): Call the appropriate symfile_finish()
routine for the objfile before deallocating other stuff.
* sparc-tdep.c (get_longjmp_target): Cast target_read_memory arg.
* symfile.h: Move struct sym_fns to before struct objfile def.
Add sym_finish function pointer and change prototypes of other
function pointers to reflect passing struct objfile pointer rather
than struct sym_fns pointer.
* symfile.c: Remove now obsolete symtab_fns pointer.
* symfile.c (symfile_init): Renamed to find_sym_fns, and now only
locates the correct sym_fns struct for the given objfile.
* symfile.c (syms_from_objfile, symbol_file_add): Restructured
for better support of mapped symbol tables.
* symfile.c (symbol_file_command): Remove obsolete code using
symfile_fns.
* symfile.h: Remove duplicate declarations for symfile_objfile,
entry_point, and object_files.
* target.c (target_info): Compare symfile_objfile to NULL.
* xcoffread.c (aixcoff_new_init): Move deallocation stuff to
aixcoff_symfile_finish().
1992-03-19 22:57:15 +01:00
|
|
|
|
bfd *abfd = objfile->obfd;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
|
|
|
|
/* Allocate struct to keep track of the symfile */
|
* coffread.c, mipsread.c, xcoffread.c, coffread.c, dbxread.c,
elfread.c (coff_symfile_finish): Add function, prototype, and
add to the xxxx_sym_fns struct for each file type. Also reformat
the xxxx_sym_fns vector to a standard format and add comments.
* coffread.c, mipsread.c, xcoffread.c, coffread.c, dbxread.c,
elfread.c (xxx_symfile_new_init, xxx_symfile_init, xxx_symfile_read):
Pass pointer to struct objfile rather than pointer to sym_fns.
Change references inside each function accordingly. Allocate any
symbol file specific info in the per-objfile memory region.
* dbxread.c (free_and_init_header_files): Break function into
free_header_files(), called from dbx_symfile_finish(), and
init_header_files(), called from dbx_new_init().
* dbxread.c (dbx_new_init): Move deallocation things to new
dbx_symfile_finish function.
* elfread.c (elf_new_init): Call buildsym_new_init().
* objfiles.c (free_objfile): Call the appropriate symfile_finish()
routine for the objfile before deallocating other stuff.
* sparc-tdep.c (get_longjmp_target): Cast target_read_memory arg.
* symfile.h: Move struct sym_fns to before struct objfile def.
Add sym_finish function pointer and change prototypes of other
function pointers to reflect passing struct objfile pointer rather
than struct sym_fns pointer.
* symfile.c: Remove now obsolete symtab_fns pointer.
* symfile.c (symfile_init): Renamed to find_sym_fns, and now only
locates the correct sym_fns struct for the given objfile.
* symfile.c (syms_from_objfile, symbol_file_add): Restructured
for better support of mapped symbol tables.
* symfile.c (symbol_file_command): Remove obsolete code using
symfile_fns.
* symfile.h: Remove duplicate declarations for symfile_objfile,
entry_point, and object_files.
* target.c (target_info): Compare symfile_objfile to NULL.
* xcoffread.c (aixcoff_new_init): Move deallocation stuff to
aixcoff_symfile_finish().
1992-03-19 22:57:15 +01:00
|
|
|
|
objfile -> sym_private = xmmalloc (objfile -> md,
|
|
|
|
|
sizeof (struct coff_symfile_info));
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
|
|
|
|
/* Save startup file's range of PC addresses to help blockframe.c
|
|
|
|
|
decide where the bottom of the stack is. */
|
|
|
|
|
if (bfd_get_file_flags (abfd) & EXEC_P)
|
|
|
|
|
{
|
|
|
|
|
/* Executable file -- record its entry point so we'll recognize
|
|
|
|
|
the startup file because it contains the entry point. */
|
|
|
|
|
entry_point = bfd_get_start_address (abfd);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
/* Examination of non-executable.o files. Short-circuit this stuff. */
|
|
|
|
|
/* ~0 will not be in any file, we hope. */
|
|
|
|
|
entry_point = ~0;
|
|
|
|
|
/* set the startup file to be an empty range. */
|
|
|
|
|
startup_file_start = 0;
|
|
|
|
|
startup_file_end = 0;
|
|
|
|
|
}
|
1991-09-28 03:35:29 +02:00
|
|
|
|
/* Save the section number for the text section */
|
|
|
|
|
if (section = bfd_get_section_by_name(abfd,".text"))
|
|
|
|
|
text_bfd_scnum = section->index;
|
|
|
|
|
else
|
|
|
|
|
text_bfd_scnum = -1;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* 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. */
|
|
|
|
|
|
1991-05-02 06:28:42 +02:00
|
|
|
|
/* ARGSUSED */
|
1991-03-28 17:26:26 +01:00
|
|
|
|
static void
|
|
|
|
|
find_linenos (abfd, asect, vpinfo)
|
|
|
|
|
bfd *abfd;
|
|
|
|
|
sec_ptr asect;
|
1992-03-15 02:09:14 +01:00
|
|
|
|
PTR vpinfo;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
{
|
|
|
|
|
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;
|
1991-09-28 03:35:29 +02:00
|
|
|
|
size = count * local_linesz;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
|
|
|
|
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;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
1991-05-02 06:28:42 +02:00
|
|
|
|
/* The BFD for this file -- only good while we're actively reading
|
|
|
|
|
symbols into a psymtab or a symtab. */
|
|
|
|
|
|
|
|
|
|
static bfd *symfile_bfd;
|
|
|
|
|
|
1991-03-28 17:26:26 +01:00
|
|
|
|
/* Read a symbol file, after initialization by coff_symfile_init. */
|
|
|
|
|
/* FIXME! Addr and Mainline are not used yet -- this will not work for
|
|
|
|
|
shared libraries or add_file! */
|
|
|
|
|
|
1991-08-23 00:50:50 +02:00
|
|
|
|
/* ARGSUSED */
|
1991-10-04 07:46:30 +01:00
|
|
|
|
static void
|
* coffread.c, mipsread.c, xcoffread.c, coffread.c, dbxread.c,
elfread.c (coff_symfile_finish): Add function, prototype, and
add to the xxxx_sym_fns struct for each file type. Also reformat
the xxxx_sym_fns vector to a standard format and add comments.
* coffread.c, mipsread.c, xcoffread.c, coffread.c, dbxread.c,
elfread.c (xxx_symfile_new_init, xxx_symfile_init, xxx_symfile_read):
Pass pointer to struct objfile rather than pointer to sym_fns.
Change references inside each function accordingly. Allocate any
symbol file specific info in the per-objfile memory region.
* dbxread.c (free_and_init_header_files): Break function into
free_header_files(), called from dbx_symfile_finish(), and
init_header_files(), called from dbx_new_init().
* dbxread.c (dbx_new_init): Move deallocation things to new
dbx_symfile_finish function.
* elfread.c (elf_new_init): Call buildsym_new_init().
* objfiles.c (free_objfile): Call the appropriate symfile_finish()
routine for the objfile before deallocating other stuff.
* sparc-tdep.c (get_longjmp_target): Cast target_read_memory arg.
* symfile.h: Move struct sym_fns to before struct objfile def.
Add sym_finish function pointer and change prototypes of other
function pointers to reflect passing struct objfile pointer rather
than struct sym_fns pointer.
* symfile.c: Remove now obsolete symtab_fns pointer.
* symfile.c (symfile_init): Renamed to find_sym_fns, and now only
locates the correct sym_fns struct for the given objfile.
* symfile.c (syms_from_objfile, symbol_file_add): Restructured
for better support of mapped symbol tables.
* symfile.c (symbol_file_command): Remove obsolete code using
symfile_fns.
* symfile.h: Remove duplicate declarations for symfile_objfile,
entry_point, and object_files.
* target.c (target_info): Compare symfile_objfile to NULL.
* xcoffread.c (aixcoff_new_init): Move deallocation stuff to
aixcoff_symfile_finish().
1992-03-19 22:57:15 +01:00
|
|
|
|
coff_symfile_read (objfile, addr, mainline)
|
|
|
|
|
struct objfile *objfile;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
CORE_ADDR addr;
|
|
|
|
|
int mainline;
|
|
|
|
|
{
|
* coffread.c, mipsread.c, xcoffread.c, coffread.c, dbxread.c,
elfread.c (coff_symfile_finish): Add function, prototype, and
add to the xxxx_sym_fns struct for each file type. Also reformat
the xxxx_sym_fns vector to a standard format and add comments.
* coffread.c, mipsread.c, xcoffread.c, coffread.c, dbxread.c,
elfread.c (xxx_symfile_new_init, xxx_symfile_init, xxx_symfile_read):
Pass pointer to struct objfile rather than pointer to sym_fns.
Change references inside each function accordingly. Allocate any
symbol file specific info in the per-objfile memory region.
* dbxread.c (free_and_init_header_files): Break function into
free_header_files(), called from dbx_symfile_finish(), and
init_header_files(), called from dbx_new_init().
* dbxread.c (dbx_new_init): Move deallocation things to new
dbx_symfile_finish function.
* elfread.c (elf_new_init): Call buildsym_new_init().
* objfiles.c (free_objfile): Call the appropriate symfile_finish()
routine for the objfile before deallocating other stuff.
* sparc-tdep.c (get_longjmp_target): Cast target_read_memory arg.
* symfile.h: Move struct sym_fns to before struct objfile def.
Add sym_finish function pointer and change prototypes of other
function pointers to reflect passing struct objfile pointer rather
than struct sym_fns pointer.
* symfile.c: Remove now obsolete symtab_fns pointer.
* symfile.c (symfile_init): Renamed to find_sym_fns, and now only
locates the correct sym_fns struct for the given objfile.
* symfile.c (syms_from_objfile, symbol_file_add): Restructured
for better support of mapped symbol tables.
* symfile.c (symbol_file_command): Remove obsolete code using
symfile_fns.
* symfile.h: Remove duplicate declarations for symfile_objfile,
entry_point, and object_files.
* target.c (target_info): Compare symfile_objfile to NULL.
* xcoffread.c (aixcoff_new_init): Move deallocation stuff to
aixcoff_symfile_finish().
1992-03-19 22:57:15 +01:00
|
|
|
|
struct coff_symfile_info *info;
|
|
|
|
|
bfd *abfd = objfile->obfd;
|
1991-09-28 03:35:29 +02:00
|
|
|
|
coff_data_type *cdata = coff_data (abfd);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
char *name = bfd_get_filename (abfd);
|
|
|
|
|
int desc;
|
|
|
|
|
register int val;
|
|
|
|
|
int num_symbols;
|
|
|
|
|
int symtab_offset;
|
|
|
|
|
int stringtab_offset;
|
|
|
|
|
|
* coffread.c, mipsread.c, xcoffread.c, coffread.c, dbxread.c,
elfread.c (coff_symfile_finish): Add function, prototype, and
add to the xxxx_sym_fns struct for each file type. Also reformat
the xxxx_sym_fns vector to a standard format and add comments.
* coffread.c, mipsread.c, xcoffread.c, coffread.c, dbxread.c,
elfread.c (xxx_symfile_new_init, xxx_symfile_init, xxx_symfile_read):
Pass pointer to struct objfile rather than pointer to sym_fns.
Change references inside each function accordingly. Allocate any
symbol file specific info in the per-objfile memory region.
* dbxread.c (free_and_init_header_files): Break function into
free_header_files(), called from dbx_symfile_finish(), and
init_header_files(), called from dbx_new_init().
* dbxread.c (dbx_new_init): Move deallocation things to new
dbx_symfile_finish function.
* elfread.c (elf_new_init): Call buildsym_new_init().
* objfiles.c (free_objfile): Call the appropriate symfile_finish()
routine for the objfile before deallocating other stuff.
* sparc-tdep.c (get_longjmp_target): Cast target_read_memory arg.
* symfile.h: Move struct sym_fns to before struct objfile def.
Add sym_finish function pointer and change prototypes of other
function pointers to reflect passing struct objfile pointer rather
than struct sym_fns pointer.
* symfile.c: Remove now obsolete symtab_fns pointer.
* symfile.c (symfile_init): Renamed to find_sym_fns, and now only
locates the correct sym_fns struct for the given objfile.
* symfile.c (syms_from_objfile, symbol_file_add): Restructured
for better support of mapped symbol tables.
* symfile.c (symbol_file_command): Remove obsolete code using
symfile_fns.
* symfile.h: Remove duplicate declarations for symfile_objfile,
entry_point, and object_files.
* target.c (target_info): Compare symfile_objfile to NULL.
* xcoffread.c (aixcoff_new_init): Move deallocation stuff to
aixcoff_symfile_finish().
1992-03-19 22:57:15 +01:00
|
|
|
|
info = (struct coff_symfile_info *) objfile -> sym_private;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
symfile_bfd = abfd; /* Kludge for swap routines */
|
|
|
|
|
|
|
|
|
|
/* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
|
1991-09-28 03:35:29 +02:00
|
|
|
|
desc = fileno ((FILE *)(abfd->iostream)); /* File descriptor */
|
1991-03-28 17:26:26 +01:00
|
|
|
|
num_symbols = bfd_get_symcount (abfd); /* How many syms */
|
1991-09-28 03:35:29 +02:00
|
|
|
|
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_linesz = cdata->local_linesz;
|
|
|
|
|
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;
|
|
|
|
|
make_cleanup (free_current_contents, &temp_sym);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
/* End of warning */
|
|
|
|
|
|
|
|
|
|
/* Read the line number table, all at once. */
|
|
|
|
|
info->min_lineno_offset = 0;
|
|
|
|
|
info->max_lineno_offset = 0;
|
|
|
|
|
bfd_map_over_sections (abfd, find_linenos, info);
|
|
|
|
|
|
|
|
|
|
val = init_lineno (desc, info->min_lineno_offset,
|
|
|
|
|
info->max_lineno_offset - info->min_lineno_offset);
|
|
|
|
|
if (val < 0)
|
|
|
|
|
error ("\"%s\": error reading line numbers\n", name);
|
|
|
|
|
|
|
|
|
|
/* Now read the string table, all at once. */
|
|
|
|
|
|
|
|
|
|
val = init_stringtab (desc, stringtab_offset);
|
|
|
|
|
if (val < 0)
|
1991-11-09 11:50:07 +01:00
|
|
|
|
error ("\"%s\": can't get string table", name);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
make_cleanup (free_stringtab, 0);
|
|
|
|
|
|
|
|
|
|
/* Position to read the symbol table. Do not read it all at once. */
|
|
|
|
|
val = lseek (desc, (long)symtab_offset, 0);
|
|
|
|
|
if (val < 0)
|
|
|
|
|
perror_with_name (name);
|
|
|
|
|
|
1992-03-15 02:09:14 +01:00
|
|
|
|
init_minimal_symbol_collection ();
|
|
|
|
|
make_cleanup (discard_minimal_symbols, 0);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
|
|
|
|
/* Now that the executable file is positioned at symbol table,
|
|
|
|
|
process it and define symbols accordingly. */
|
|
|
|
|
|
* coffread.c, mipsread.c, xcoffread.c, coffread.c, dbxread.c,
elfread.c (coff_symfile_finish): Add function, prototype, and
add to the xxxx_sym_fns struct for each file type. Also reformat
the xxxx_sym_fns vector to a standard format and add comments.
* coffread.c, mipsread.c, xcoffread.c, coffread.c, dbxread.c,
elfread.c (xxx_symfile_new_init, xxx_symfile_init, xxx_symfile_read):
Pass pointer to struct objfile rather than pointer to sym_fns.
Change references inside each function accordingly. Allocate any
symbol file specific info in the per-objfile memory region.
* dbxread.c (free_and_init_header_files): Break function into
free_header_files(), called from dbx_symfile_finish(), and
init_header_files(), called from dbx_new_init().
* dbxread.c (dbx_new_init): Move deallocation things to new
dbx_symfile_finish function.
* elfread.c (elf_new_init): Call buildsym_new_init().
* objfiles.c (free_objfile): Call the appropriate symfile_finish()
routine for the objfile before deallocating other stuff.
* sparc-tdep.c (get_longjmp_target): Cast target_read_memory arg.
* symfile.h: Move struct sym_fns to before struct objfile def.
Add sym_finish function pointer and change prototypes of other
function pointers to reflect passing struct objfile pointer rather
than struct sym_fns pointer.
* symfile.c: Remove now obsolete symtab_fns pointer.
* symfile.c (symfile_init): Renamed to find_sym_fns, and now only
locates the correct sym_fns struct for the given objfile.
* symfile.c (syms_from_objfile, symbol_file_add): Restructured
for better support of mapped symbol tables.
* symfile.c (symbol_file_command): Remove obsolete code using
symfile_fns.
* symfile.h: Remove duplicate declarations for symfile_objfile,
entry_point, and object_files.
* target.c (target_info): Compare symfile_objfile to NULL.
* xcoffread.c (aixcoff_new_init): Move deallocation stuff to
aixcoff_symfile_finish().
1992-03-19 22:57:15 +01:00
|
|
|
|
read_coff_symtab (desc, num_symbols, objfile);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
1992-03-15 02:09:14 +01:00
|
|
|
|
iterate_over_symtabs (patch_opaque_types, (PTR) NULL, (PTR) NULL,
|
|
|
|
|
(PTR) NULL);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
|
|
|
|
/* Sort symbols alphabetically within each block. */
|
|
|
|
|
|
|
|
|
|
sort_all_symtab_syms ();
|
|
|
|
|
|
1992-03-15 02:09:14 +01:00
|
|
|
|
/* Install any minimal symbols that have been collected as the current
|
|
|
|
|
minimal symbols for this objfile. */
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
* coffread.c, mipsread.c, xcoffread.c, coffread.c, dbxread.c,
elfread.c (coff_symfile_finish): Add function, prototype, and
add to the xxxx_sym_fns struct for each file type. Also reformat
the xxxx_sym_fns vector to a standard format and add comments.
* coffread.c, mipsread.c, xcoffread.c, coffread.c, dbxread.c,
elfread.c (xxx_symfile_new_init, xxx_symfile_init, xxx_symfile_read):
Pass pointer to struct objfile rather than pointer to sym_fns.
Change references inside each function accordingly. Allocate any
symbol file specific info in the per-objfile memory region.
* dbxread.c (free_and_init_header_files): Break function into
free_header_files(), called from dbx_symfile_finish(), and
init_header_files(), called from dbx_new_init().
* dbxread.c (dbx_new_init): Move deallocation things to new
dbx_symfile_finish function.
* elfread.c (elf_new_init): Call buildsym_new_init().
* objfiles.c (free_objfile): Call the appropriate symfile_finish()
routine for the objfile before deallocating other stuff.
* sparc-tdep.c (get_longjmp_target): Cast target_read_memory arg.
* symfile.h: Move struct sym_fns to before struct objfile def.
Add sym_finish function pointer and change prototypes of other
function pointers to reflect passing struct objfile pointer rather
than struct sym_fns pointer.
* symfile.c: Remove now obsolete symtab_fns pointer.
* symfile.c (symfile_init): Renamed to find_sym_fns, and now only
locates the correct sym_fns struct for the given objfile.
* symfile.c (syms_from_objfile, symbol_file_add): Restructured
for better support of mapped symbol tables.
* symfile.c (symbol_file_command): Remove obsolete code using
symfile_fns.
* symfile.h: Remove duplicate declarations for symfile_objfile,
entry_point, and object_files.
* target.c (target_info): Compare symfile_objfile to NULL.
* xcoffread.c (aixcoff_new_init): Move deallocation stuff to
aixcoff_symfile_finish().
1992-03-19 22:57:15 +01:00
|
|
|
|
install_minimal_symbols (objfile);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
}
|
|
|
|
|
|
1991-10-04 07:46:30 +01:00
|
|
|
|
static void
|
* coffread.c, mipsread.c, xcoffread.c, coffread.c, dbxread.c,
elfread.c (coff_symfile_finish): Add function, prototype, and
add to the xxxx_sym_fns struct for each file type. Also reformat
the xxxx_sym_fns vector to a standard format and add comments.
* coffread.c, mipsread.c, xcoffread.c, coffread.c, dbxread.c,
elfread.c (xxx_symfile_new_init, xxx_symfile_init, xxx_symfile_read):
Pass pointer to struct objfile rather than pointer to sym_fns.
Change references inside each function accordingly. Allocate any
symbol file specific info in the per-objfile memory region.
* dbxread.c (free_and_init_header_files): Break function into
free_header_files(), called from dbx_symfile_finish(), and
init_header_files(), called from dbx_new_init().
* dbxread.c (dbx_new_init): Move deallocation things to new
dbx_symfile_finish function.
* elfread.c (elf_new_init): Call buildsym_new_init().
* objfiles.c (free_objfile): Call the appropriate symfile_finish()
routine for the objfile before deallocating other stuff.
* sparc-tdep.c (get_longjmp_target): Cast target_read_memory arg.
* symfile.h: Move struct sym_fns to before struct objfile def.
Add sym_finish function pointer and change prototypes of other
function pointers to reflect passing struct objfile pointer rather
than struct sym_fns pointer.
* symfile.c: Remove now obsolete symtab_fns pointer.
* symfile.c (symfile_init): Renamed to find_sym_fns, and now only
locates the correct sym_fns struct for the given objfile.
* symfile.c (syms_from_objfile, symbol_file_add): Restructured
for better support of mapped symbol tables.
* symfile.c (symbol_file_command): Remove obsolete code using
symfile_fns.
* symfile.h: Remove duplicate declarations for symfile_objfile,
entry_point, and object_files.
* target.c (target_info): Compare symfile_objfile to NULL.
* xcoffread.c (aixcoff_new_init): Move deallocation stuff to
aixcoff_symfile_finish().
1992-03-19 22:57:15 +01:00
|
|
|
|
coff_new_init (objfile)
|
|
|
|
|
struct objfile *objfile;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
{
|
1991-11-09 11:50:07 +01:00
|
|
|
|
/* Nothin' to do */
|
1991-03-28 17:26:26 +01:00
|
|
|
|
}
|
* coffread.c, mipsread.c, xcoffread.c, coffread.c, dbxread.c,
elfread.c (coff_symfile_finish): Add function, prototype, and
add to the xxxx_sym_fns struct for each file type. Also reformat
the xxxx_sym_fns vector to a standard format and add comments.
* coffread.c, mipsread.c, xcoffread.c, coffread.c, dbxread.c,
elfread.c (xxx_symfile_new_init, xxx_symfile_init, xxx_symfile_read):
Pass pointer to struct objfile rather than pointer to sym_fns.
Change references inside each function accordingly. Allocate any
symbol file specific info in the per-objfile memory region.
* dbxread.c (free_and_init_header_files): Break function into
free_header_files(), called from dbx_symfile_finish(), and
init_header_files(), called from dbx_new_init().
* dbxread.c (dbx_new_init): Move deallocation things to new
dbx_symfile_finish function.
* elfread.c (elf_new_init): Call buildsym_new_init().
* objfiles.c (free_objfile): Call the appropriate symfile_finish()
routine for the objfile before deallocating other stuff.
* sparc-tdep.c (get_longjmp_target): Cast target_read_memory arg.
* symfile.h: Move struct sym_fns to before struct objfile def.
Add sym_finish function pointer and change prototypes of other
function pointers to reflect passing struct objfile pointer rather
than struct sym_fns pointer.
* symfile.c: Remove now obsolete symtab_fns pointer.
* symfile.c (symfile_init): Renamed to find_sym_fns, and now only
locates the correct sym_fns struct for the given objfile.
* symfile.c (syms_from_objfile, symbol_file_add): Restructured
for better support of mapped symbol tables.
* symfile.c (symbol_file_command): Remove obsolete code using
symfile_fns.
* symfile.h: Remove duplicate declarations for symfile_objfile,
entry_point, and object_files.
* target.c (target_info): Compare symfile_objfile to NULL.
* xcoffread.c (aixcoff_new_init): Move deallocation stuff to
aixcoff_symfile_finish().
1992-03-19 22:57:15 +01:00
|
|
|
|
|
|
|
|
|
/* 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 (objfile)
|
|
|
|
|
struct objfile *objfile;
|
|
|
|
|
{
|
|
|
|
|
if (objfile -> sym_private != NULL)
|
|
|
|
|
{
|
|
|
|
|
mfree (objfile -> md, objfile -> sym_private);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
|
|
|
|
/* 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
|
1991-11-09 11:50:07 +01:00
|
|
|
|
read_coff_symtab (desc, nsyms, objfile)
|
1991-03-28 17:26:26 +01:00
|
|
|
|
int desc;
|
|
|
|
|
int nsyms;
|
1991-11-09 11:50:07 +01:00
|
|
|
|
struct objfile *objfile;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
{
|
|
|
|
|
int newfd; /* Avoid multiple closes on same desc */
|
|
|
|
|
FILE *stream;
|
1992-03-15 02:09:14 +01:00
|
|
|
|
register struct coff_context_stack *new;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
struct coff_symbol coff_symbol;
|
|
|
|
|
register struct coff_symbol *cs = &coff_symbol;
|
1991-05-29 02:13:44 +02:00
|
|
|
|
static struct internal_syment main_sym;
|
|
|
|
|
static union internal_auxent main_aux;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
struct coff_symbol fcn_cs_saved;
|
1991-05-29 02:13:44 +02:00
|
|
|
|
static struct internal_syment fcn_sym_saved;
|
|
|
|
|
static union internal_auxent fcn_aux_saved;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
|
|
|
|
/* A .file is open. */
|
|
|
|
|
int in_source_file = 0;
|
|
|
|
|
int num_object_files = 0;
|
|
|
|
|
int next_file_symnum = -1;
|
|
|
|
|
|
|
|
|
|
/* Name of the current file. */
|
|
|
|
|
char *filestring = "";
|
|
|
|
|
int depth;
|
|
|
|
|
int fcn_first_line;
|
|
|
|
|
int fcn_last_line;
|
|
|
|
|
int fcn_start_addr;
|
|
|
|
|
long fcn_line_ptr;
|
|
|
|
|
struct cleanup *old_chain;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
newfd = dup (desc);
|
|
|
|
|
if (newfd == -1)
|
|
|
|
|
fatal ("Too many open files");
|
|
|
|
|
stream = fdopen (newfd, "r");
|
|
|
|
|
|
1991-11-09 11:50:07 +01:00
|
|
|
|
/* These cleanups will be discarded below if we succeed. */
|
|
|
|
|
old_chain = make_cleanup (free_objfile, objfile);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
make_cleanup (fclose, stream);
|
1991-11-09 11:50:07 +01:00
|
|
|
|
|
1992-03-15 02:09:14 +01:00
|
|
|
|
current_objfile = objfile;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
nlist_stream_global = stream;
|
|
|
|
|
nlist_nsyms_global = nsyms;
|
|
|
|
|
last_source_file = 0;
|
|
|
|
|
bzero (opaque_type_chain, sizeof opaque_type_chain);
|
|
|
|
|
|
1991-09-11 03:49:50 +02:00
|
|
|
|
if (type_vector) /* Get rid of previous one */
|
|
|
|
|
free (type_vector);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
type_vector_length = 160;
|
1991-10-26 00:10:12 +01:00
|
|
|
|
type_vector = (struct type **)
|
|
|
|
|
xmalloc (type_vector_length * sizeof (struct type *));
|
|
|
|
|
bzero (type_vector, type_vector_length * sizeof (struct type *));
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
1992-03-15 02:09:14 +01:00
|
|
|
|
coff_start_symtab ();
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
|
|
|
|
symnum = 0;
|
|
|
|
|
while (symnum < nsyms)
|
|
|
|
|
{
|
|
|
|
|
QUIT; /* Make this command interruptable. */
|
|
|
|
|
read_one_sym (cs, &main_sym, &main_aux);
|
|
|
|
|
|
|
|
|
|
#ifdef SEM
|
|
|
|
|
temp_sem_val = cs->c_name[0] << 24 | cs->c_name[1] << 16 |
|
|
|
|
|
cs->c_name[2] << 8 | cs->c_name[3];
|
|
|
|
|
if (int_sem_val == temp_sem_val)
|
|
|
|
|
last_coffsem = (int) strtol (cs->c_name+4, (char **) NULL, 10);
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
if (cs->c_symnum == next_file_symnum && cs->c_sclass != C_FILE)
|
|
|
|
|
{
|
|
|
|
|
if (last_source_file)
|
1992-03-15 02:09:14 +01:00
|
|
|
|
coff_end_symtab (objfile);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
1992-03-15 02:09:14 +01:00
|
|
|
|
coff_start_symtab ();
|
1991-03-28 17:26:26 +01:00
|
|
|
|
complete_symtab ("_globals_", 0, first_object_file_end);
|
|
|
|
|
/* done with all files, everything from here on out is globals */
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Special case for file with type declarations only, no text. */
|
1991-04-19 23:48:55 +02:00
|
|
|
|
if (!last_source_file && SDB_TYPE (cs->c_type)
|
|
|
|
|
&& cs->c_secnum == N_DEBUG)
|
1991-03-28 17:26:26 +01:00
|
|
|
|
complete_symtab (filestring, 0, 0);
|
|
|
|
|
|
|
|
|
|
/* Typedefs should not be treated as symbol definitions. */
|
|
|
|
|
if (ISFCN (cs->c_type) && cs->c_sclass != C_TPDEF)
|
|
|
|
|
{
|
1992-03-15 02:09:14 +01:00
|
|
|
|
/* record as a minimal symbol. if we get '.bf' next,
|
1991-03-28 17:26:26 +01:00
|
|
|
|
* then we undo this step
|
|
|
|
|
*/
|
1992-03-15 02:09:14 +01:00
|
|
|
|
record_minimal_symbol (cs->c_name, cs->c_value);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
|
|
|
|
fcn_line_ptr = main_aux.x_sym.x_fcnary.x_fcn.x_lnnoptr;
|
|
|
|
|
fcn_start_addr = cs->c_value;
|
|
|
|
|
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:
|
1991-12-24 00:16:58 +01:00
|
|
|
|
complain (&bad_sclass_complaint, cs->c_name);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
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;
|
|
|
|
|
filestring = getfilename (&main_aux);
|
|
|
|
|
/*
|
|
|
|
|
* Complete symbol table for last object file
|
|
|
|
|
* containing debugging information.
|
|
|
|
|
*/
|
|
|
|
|
if (last_source_file)
|
|
|
|
|
{
|
1992-03-15 02:09:14 +01:00
|
|
|
|
coff_end_symtab (objfile);
|
|
|
|
|
coff_start_symtab ();
|
1991-03-28 17:26:26 +01:00
|
|
|
|
}
|
|
|
|
|
in_source_file = 1;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case C_STAT:
|
|
|
|
|
if (cs->c_name[0] == '.') {
|
1991-09-28 03:35:29 +02:00
|
|
|
|
if (strcmp (cs->c_name, ".text") == 0) {
|
|
|
|
|
/* FIXME: don't wire in ".text" as section name
|
|
|
|
|
or symbol name! */
|
1991-03-28 17:26:26 +01:00
|
|
|
|
if (++num_object_files == 1) {
|
|
|
|
|
/* last address of startup file */
|
|
|
|
|
first_object_file_end = cs->c_value +
|
|
|
|
|
main_aux.x_scn.x_scnlen;
|
|
|
|
|
}
|
|
|
|
|
/* 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,
|
|
|
|
|
main_aux.x_scn.x_scnlen);
|
|
|
|
|
in_source_file = 0;
|
|
|
|
|
}
|
|
|
|
|
/* flush rest of '.' symbols */
|
|
|
|
|
break;
|
|
|
|
|
}
|
1991-04-19 23:48:55 +02:00
|
|
|
|
else if (!SDB_TYPE (cs->c_type)
|
1991-03-28 17:26:26 +01:00
|
|
|
|
&& cs->c_name[0] == 'L'
|
|
|
|
|
&& (strncmp (cs->c_name, "LI%", 3) == 0
|
1991-04-19 23:48:55 +02:00
|
|
|
|
|| strncmp (cs->c_name, "LF%", 3) == 0
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|| 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))
|
|
|
|
|
/* 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_EXT:
|
1991-04-19 23:48:55 +02:00
|
|
|
|
if (!SDB_TYPE (cs->c_type)) {
|
1991-09-28 03:35:29 +02:00
|
|
|
|
/* FIXME: This is BOGUS Will Robinson!
|
|
|
|
|
Coff should provide the SEC_CODE flag for executable sections,
|
|
|
|
|
then if we could look up sections by section number we
|
|
|
|
|
could see if the flags indicate SEC_CODE. If so, then
|
1992-03-15 02:09:14 +01:00
|
|
|
|
record this symbol as a function in the minimal symbol table.
|
|
|
|
|
But why are absolute syms recorded as functions, anyway? */
|
1991-09-28 03:35:29 +02:00
|
|
|
|
if (cs->c_secnum <= text_bfd_scnum+1) {/* text or abs */
|
1992-03-15 02:09:14 +01:00
|
|
|
|
record_minimal_symbol (cs->c_name, cs->c_value);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
break;
|
|
|
|
|
} else {
|
|
|
|
|
cs->c_type = T_INT;
|
|
|
|
|
}
|
|
|
|
|
}
|
1992-03-15 02:09:14 +01:00
|
|
|
|
(void) process_coff_symbol (cs, &main_aux, objfile);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
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 '{' } */
|
1991-11-07 02:27:46 +01:00
|
|
|
|
if (cs->c_naux != 1)
|
1992-03-15 02:09:14 +01:00
|
|
|
|
complain (&bf_no_aux_complaint, (char *) cs->c_symnum);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
fcn_first_line = main_aux.x_sym.x_misc.x_lnsz.x_lnno;
|
|
|
|
|
|
1992-03-15 02:09:14 +01:00
|
|
|
|
new = (struct coff_context_stack *)
|
|
|
|
|
xmalloc (sizeof (struct coff_context_stack));
|
1991-03-28 17:26:26 +01:00
|
|
|
|
new->depth = depth = 0;
|
|
|
|
|
new->next = 0;
|
1992-03-15 02:09:14 +01:00
|
|
|
|
coff_context_stack = new;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
new->locals = 0;
|
|
|
|
|
new->old_blocks = pending_blocks;
|
|
|
|
|
new->start_addr = fcn_start_addr;
|
|
|
|
|
fcn_cs_saved.c_name = getsymname (&fcn_sym_saved);
|
|
|
|
|
new->name = process_coff_symbol (&fcn_cs_saved,
|
1992-03-15 02:09:14 +01:00
|
|
|
|
&fcn_aux_saved, objfile);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
}
|
|
|
|
|
else if (strcmp (cs->c_name, ".ef") == 0)
|
|
|
|
|
{
|
|
|
|
|
/* 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 '}' */
|
1992-03-15 02:09:14 +01:00
|
|
|
|
new = coff_context_stack;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
if (new == 0)
|
|
|
|
|
{
|
1992-03-15 02:09:14 +01:00
|
|
|
|
complain (&ef_complaint, (char *) cs->c_symnum);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
within_function = 0;
|
|
|
|
|
break;
|
|
|
|
|
}
|
1991-11-07 02:27:46 +01:00
|
|
|
|
if (cs->c_naux != 1) {
|
1992-03-15 02:09:14 +01:00
|
|
|
|
complain (&ef_no_aux_complaint, (char *) cs->c_symnum);
|
1991-11-07 02:27:46 +01:00
|
|
|
|
fcn_last_line = 0x7FFFFFFF;
|
|
|
|
|
} else {
|
|
|
|
|
fcn_last_line = main_aux.x_sym.x_misc.x_lnsz.x_lnno;
|
|
|
|
|
}
|
1991-03-28 17:26:26 +01:00
|
|
|
|
enter_linenos (fcn_line_ptr, fcn_first_line, fcn_last_line);
|
|
|
|
|
|
1992-03-15 02:09:14 +01:00
|
|
|
|
coff_finish_block (new->name, &coff_local_symbols, new->old_blocks,
|
1991-03-28 17:26:26 +01:00
|
|
|
|
new->start_addr,
|
|
|
|
|
#if defined (FUNCTION_EPILOGUE_SIZE)
|
|
|
|
|
/* This macro should be defined only on
|
|
|
|
|
machines where the
|
|
|
|
|
fcn_aux_saved.x_sym.x_misc.x_fsize
|
|
|
|
|
field is always zero.
|
|
|
|
|
So use the .bf record information that
|
|
|
|
|
points to the epilogue and add the size
|
|
|
|
|
of the epilogue. */
|
1992-03-15 02:09:14 +01:00
|
|
|
|
cs->c_value + FUNCTION_EPILOGUE_SIZE,
|
1991-03-28 17:26:26 +01:00
|
|
|
|
#else
|
|
|
|
|
fcn_cs_saved.c_value +
|
1992-03-15 02:09:14 +01:00
|
|
|
|
fcn_aux_saved.x_sym.x_misc.x_fsize,
|
1991-03-28 17:26:26 +01:00
|
|
|
|
#endif
|
1992-03-15 02:09:14 +01:00
|
|
|
|
objfile
|
1991-03-28 17:26:26 +01:00
|
|
|
|
);
|
1992-03-15 02:09:14 +01:00
|
|
|
|
coff_context_stack = 0;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
within_function = 0;
|
|
|
|
|
free (new);
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case C_BLOCK:
|
|
|
|
|
if (strcmp (cs->c_name, ".bb") == 0)
|
|
|
|
|
{
|
1992-03-15 02:09:14 +01:00
|
|
|
|
new = (struct coff_context_stack *)
|
|
|
|
|
xmalloc (sizeof (struct coff_context_stack));
|
1991-03-28 17:26:26 +01:00
|
|
|
|
depth++;
|
|
|
|
|
new->depth = depth;
|
1992-03-15 02:09:14 +01:00
|
|
|
|
new->next = coff_context_stack;
|
|
|
|
|
coff_context_stack = new;
|
|
|
|
|
new->locals = coff_local_symbols;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
new->old_blocks = pending_blocks;
|
|
|
|
|
new->start_addr = cs->c_value;
|
|
|
|
|
new->name = 0;
|
1992-03-15 02:09:14 +01:00
|
|
|
|
coff_local_symbols = 0;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
}
|
|
|
|
|
else if (strcmp (cs->c_name, ".eb") == 0)
|
|
|
|
|
{
|
1992-03-15 02:09:14 +01:00
|
|
|
|
new = coff_context_stack;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
if (new == 0 || depth != new->depth)
|
|
|
|
|
error ("Invalid symbol data: .bb/.eb symbol mismatch at symbol %d.",
|
|
|
|
|
symnum);
|
1992-03-15 02:09:14 +01:00
|
|
|
|
if (coff_local_symbols && coff_context_stack->next)
|
1991-03-28 17:26:26 +01:00
|
|
|
|
{
|
|
|
|
|
/* Make a block for the local symbols within. */
|
1992-03-15 02:09:14 +01:00
|
|
|
|
coff_finish_block (0, &coff_local_symbols, new->old_blocks,
|
|
|
|
|
new->start_addr, cs->c_value, objfile);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
}
|
|
|
|
|
depth--;
|
1992-03-15 02:09:14 +01:00
|
|
|
|
coff_local_symbols = new->locals;
|
|
|
|
|
coff_context_stack = new->next;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
free (new);
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
default:
|
1992-03-15 02:09:14 +01:00
|
|
|
|
(void) process_coff_symbol (cs, &main_aux, objfile);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (last_source_file)
|
1992-03-15 02:09:14 +01:00
|
|
|
|
coff_end_symtab (objfile);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
fclose (stream);
|
|
|
|
|
discard_cleanups (old_chain);
|
1992-03-15 02:09:14 +01:00
|
|
|
|
current_objfile = NULL;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Routines for reading headers and symbols from executable. */
|
|
|
|
|
|
|
|
|
|
#ifdef FIXME
|
|
|
|
|
/* Move these XXXMAGIC symbol defns into BFD! */
|
|
|
|
|
|
|
|
|
|
/* Read COFF file header, check magic number,
|
|
|
|
|
and return number of symbols. */
|
|
|
|
|
read_file_hdr (chan, file_hdr)
|
|
|
|
|
int chan;
|
|
|
|
|
FILHDR *file_hdr;
|
|
|
|
|
{
|
|
|
|
|
lseek (chan, 0L, 0);
|
|
|
|
|
if (myread (chan, (char *)file_hdr, FILHSZ) < 0)
|
|
|
|
|
return -1;
|
|
|
|
|
|
|
|
|
|
switch (file_hdr->f_magic)
|
|
|
|
|
{
|
|
|
|
|
#ifdef MC68MAGIC
|
|
|
|
|
case MC68MAGIC:
|
|
|
|
|
#endif
|
|
|
|
|
#ifdef NS32GMAGIC
|
|
|
|
|
case NS32GMAGIC:
|
|
|
|
|
case NS32SMAGIC:
|
|
|
|
|
#endif
|
|
|
|
|
#ifdef I386MAGIC
|
|
|
|
|
case I386MAGIC:
|
|
|
|
|
#endif
|
|
|
|
|
#ifdef CLIPPERMAGIC
|
|
|
|
|
case CLIPPERMAGIC:
|
|
|
|
|
#endif
|
|
|
|
|
#if defined (MC68KWRMAGIC) \
|
|
|
|
|
&& (!defined (MC68MAGIC) || MC68KWRMAGIC != MC68MAGIC)
|
|
|
|
|
case MC68KWRMAGIC:
|
|
|
|
|
#endif
|
|
|
|
|
#ifdef MC68KROMAGIC
|
|
|
|
|
case MC68KROMAGIC:
|
|
|
|
|
case MC68KPGMAGIC:
|
|
|
|
|
#endif
|
|
|
|
|
#ifdef MC88DGMAGIC
|
|
|
|
|
case MC88DGMAGIC:
|
|
|
|
|
#endif
|
|
|
|
|
#ifdef MC88MAGIC
|
|
|
|
|
case MC88MAGIC:
|
|
|
|
|
#endif
|
|
|
|
|
#ifdef I960ROMAGIC
|
|
|
|
|
case I960ROMAGIC: /* Intel 960 */
|
|
|
|
|
#endif
|
|
|
|
|
#ifdef I960RWMAGIC
|
|
|
|
|
case I960RWMAGIC: /* Intel 960 */
|
|
|
|
|
#endif
|
|
|
|
|
return file_hdr->f_nsyms;
|
|
|
|
|
|
|
|
|
|
default:
|
|
|
|
|
#ifdef BADMAG
|
|
|
|
|
if (BADMAG(file_hdr))
|
|
|
|
|
return -1;
|
|
|
|
|
else
|
|
|
|
|
return file_hdr->f_nsyms;
|
|
|
|
|
#else
|
|
|
|
|
return -1;
|
|
|
|
|
#endif
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
1991-05-29 02:13:44 +02:00
|
|
|
|
/* 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. */
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
read_one_sym (cs, sym, aux)
|
|
|
|
|
register struct coff_symbol *cs;
|
1991-05-29 02:13:44 +02:00
|
|
|
|
register struct internal_syment *sym;
|
|
|
|
|
register union internal_auxent *aux;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
{
|
|
|
|
|
int i;
|
|
|
|
|
|
|
|
|
|
cs->c_symnum = symnum;
|
1991-09-28 03:35:29 +02:00
|
|
|
|
fread (temp_sym, local_symesz, 1, nlist_stream_global);
|
|
|
|
|
bfd_coff_swap_sym_in (symfile_bfd, temp_sym, (char *)sym);
|
1991-11-07 02:27:46 +01:00
|
|
|
|
cs->c_naux = sym->n_numaux & 0xff;
|
|
|
|
|
if (cs->c_naux >= 1)
|
1991-03-28 17:26:26 +01:00
|
|
|
|
{
|
1991-09-28 03:35:29 +02:00
|
|
|
|
fread (temp_aux, local_auxesz, 1, nlist_stream_global);
|
|
|
|
|
bfd_coff_swap_aux_in (symfile_bfd, temp_aux, sym->n_type, sym->n_sclass,
|
|
|
|
|
(char *)aux);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
/* If more than one aux entry, read past it (only the first aux
|
|
|
|
|
is important). */
|
1991-11-07 02:27:46 +01:00
|
|
|
|
for (i = 1; i < cs->c_naux; i++)
|
1991-09-28 03:35:29 +02:00
|
|
|
|
fread (temp_aux, local_auxesz, 1, nlist_stream_global);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
}
|
|
|
|
|
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;
|
1991-04-19 23:48:55 +02:00
|
|
|
|
if (!SDB_TYPE (cs->c_type))
|
|
|
|
|
cs->c_type = 0;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
1991-11-07 02:27:46 +01:00
|
|
|
|
symnum += 1 + cs->c_naux;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Support for string table handling */
|
|
|
|
|
|
|
|
|
|
static char *stringtab = NULL;
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
init_stringtab (chan, offset)
|
|
|
|
|
int chan;
|
|
|
|
|
long offset;
|
|
|
|
|
{
|
|
|
|
|
long length;
|
|
|
|
|
int val;
|
|
|
|
|
unsigned char lengthbuf[4];
|
|
|
|
|
|
|
|
|
|
if (stringtab)
|
|
|
|
|
{
|
|
|
|
|
free (stringtab);
|
|
|
|
|
stringtab = NULL;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (lseek (chan, offset, 0) < 0)
|
|
|
|
|
return -1;
|
|
|
|
|
|
|
|
|
|
val = myread (chan, (char *)lengthbuf, sizeof lengthbuf);
|
1991-05-29 02:13:44 +02:00
|
|
|
|
length = bfd_h_get_32 (symfile_bfd, lengthbuf);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
|
|
|
|
/* 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 length || length < sizeof length)
|
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
|
|
stringtab = (char *) xmalloc (length);
|
|
|
|
|
if (stringtab == NULL)
|
|
|
|
|
return -1;
|
|
|
|
|
|
|
|
|
|
bcopy (&length, stringtab, sizeof length);
|
|
|
|
|
if (length == sizeof length) /* Empty table -- just the count */
|
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
|
|
val = myread (chan, stringtab + sizeof length, length - sizeof length);
|
|
|
|
|
if (val != length - sizeof length || stringtab[length - 1] != '\0')
|
|
|
|
|
return -1;
|
|
|
|
|
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
free_stringtab ()
|
|
|
|
|
{
|
|
|
|
|
if (stringtab)
|
|
|
|
|
free (stringtab);
|
|
|
|
|
stringtab = NULL;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static char *
|
|
|
|
|
getsymname (symbol_entry)
|
1991-05-29 02:13:44 +02:00
|
|
|
|
struct internal_syment *symbol_entry;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
{
|
|
|
|
|
static char buffer[SYMNMLEN+1];
|
|
|
|
|
char *result;
|
|
|
|
|
|
1991-05-29 02:13:44 +02:00
|
|
|
|
if (symbol_entry->_n._n_n._n_zeroes == 0)
|
1991-03-28 17:26:26 +01:00
|
|
|
|
{
|
1991-05-29 02:13:44 +02:00
|
|
|
|
result = stringtab + symbol_entry->_n._n_n._n_offset;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
1991-05-29 02:13:44 +02:00
|
|
|
|
strncpy (buffer, symbol_entry->_n._n_name, SYMNMLEN);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
buffer[SYMNMLEN] = '\0';
|
|
|
|
|
result = buffer;
|
|
|
|
|
}
|
|
|
|
|
return result;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static char *
|
|
|
|
|
getfilename (aux_entry)
|
1991-05-29 02:13:44 +02:00
|
|
|
|
union internal_auxent *aux_entry;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
{
|
|
|
|
|
static char buffer[BUFSIZ];
|
|
|
|
|
register char *temp;
|
|
|
|
|
char *result;
|
|
|
|
|
|
|
|
|
|
#ifndef COFF_NO_LONG_FILE_NAMES
|
1991-05-03 08:02:03 +02:00
|
|
|
|
#if defined (x_zeroes)
|
|
|
|
|
/* Data General. */
|
|
|
|
|
if (aux_entry->x_zeroes == 0)
|
|
|
|
|
strcpy (buffer, stringtab + aux_entry->x_offset);
|
|
|
|
|
#else /* no x_zeroes */
|
1991-03-28 17:26:26 +01:00
|
|
|
|
if (aux_entry->x_file.x_n.x_zeroes == 0)
|
|
|
|
|
strcpy (buffer, stringtab + aux_entry->x_file.x_n.x_offset);
|
1991-05-03 08:02:03 +02:00
|
|
|
|
#endif /* no x_zeroes */
|
1991-03-28 17:26:26 +01:00
|
|
|
|
else
|
|
|
|
|
#endif /* COFF_NO_LONG_FILE_NAMES */
|
|
|
|
|
{
|
|
|
|
|
#if defined (x_name)
|
|
|
|
|
/* Data General. */
|
|
|
|
|
strncpy (buffer, aux_entry->x_name, FILNMLEN);
|
|
|
|
|
#else
|
|
|
|
|
strncpy (buffer, aux_entry->x_file.x_fname, FILNMLEN);
|
|
|
|
|
#endif
|
|
|
|
|
buffer[FILNMLEN] = '\0';
|
|
|
|
|
}
|
|
|
|
|
result = buffer;
|
1992-03-15 02:09:14 +01:00
|
|
|
|
if ((temp = strrchr (result, '/')) != NULL)
|
1991-03-28 17:26:26 +01:00
|
|
|
|
result = temp + 1;
|
|
|
|
|
return (result);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Support for line number handling */
|
|
|
|
|
static char *linetab = NULL;
|
|
|
|
|
static long linetab_offset;
|
|
|
|
|
static unsigned long linetab_size;
|
|
|
|
|
|
1991-05-29 02:13:44 +02:00
|
|
|
|
/* 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. */
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
init_lineno (chan, offset, size)
|
|
|
|
|
int chan;
|
|
|
|
|
long offset;
|
|
|
|
|
int size;
|
|
|
|
|
{
|
|
|
|
|
int val;
|
|
|
|
|
|
1991-08-23 00:50:50 +02:00
|
|
|
|
linetab_offset = offset;
|
|
|
|
|
linetab_size = size;
|
|
|
|
|
|
|
|
|
|
if (size == 0)
|
|
|
|
|
return 0;
|
|
|
|
|
|
1991-03-28 17:26:26 +01:00
|
|
|
|
if (lseek (chan, offset, 0) < 0)
|
|
|
|
|
return -1;
|
|
|
|
|
|
1991-11-07 02:27:46 +01:00
|
|
|
|
/* Allocate the desired table, plus a sentinel */
|
|
|
|
|
linetab = (char *) xmalloc (size + local_linesz);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
|
|
|
|
val = myread (chan, linetab, size);
|
|
|
|
|
if (val != size)
|
|
|
|
|
return -1;
|
|
|
|
|
|
1991-11-07 02:27:46 +01:00
|
|
|
|
/* Terminate it with an all-zero sentinel record */
|
|
|
|
|
bzero (linetab + size, local_linesz);
|
|
|
|
|
|
1991-03-28 17:26:26 +01:00
|
|
|
|
make_cleanup (free, linetab); /* Be sure it gets de-allocated. */
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#if !defined (L_LNNO32)
|
|
|
|
|
#define L_LNNO32(lp) ((lp)->l_lnno)
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
enter_linenos (file_offset, first_line, last_line)
|
|
|
|
|
long file_offset;
|
|
|
|
|
register int first_line;
|
|
|
|
|
register int last_line;
|
|
|
|
|
{
|
|
|
|
|
register char *rawptr;
|
1991-05-29 02:13:44 +02:00
|
|
|
|
struct internal_lineno lptr;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
|
|
|
|
if (file_offset < linetab_offset)
|
|
|
|
|
{
|
1992-03-15 02:09:14 +01:00
|
|
|
|
complain (&lineno_complaint, (char *) file_offset);
|
1991-05-02 05:39:15 +02:00
|
|
|
|
if (file_offset > linetab_size) /* Too big to be an offset? */
|
|
|
|
|
return;
|
|
|
|
|
file_offset += linetab_offset; /* Try reading at that linetab offset */
|
1991-03-28 17:26:26 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
rawptr = &linetab[file_offset - linetab_offset];
|
|
|
|
|
|
|
|
|
|
/* skip first line entry for each function */
|
1991-09-28 03:35:29 +02:00
|
|
|
|
rawptr += local_linesz;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
/* line numbers start at one for the first line of the function */
|
|
|
|
|
first_line--;
|
|
|
|
|
|
1991-05-29 02:13:44 +02:00
|
|
|
|
for (;;) {
|
1991-09-28 03:35:29 +02:00
|
|
|
|
bfd_coff_swap_lineno_in (symfile_bfd, rawptr, &lptr);
|
|
|
|
|
rawptr += local_linesz;
|
1991-11-07 02:27:46 +01:00
|
|
|
|
/* The next function, or the sentinel, will have L_LNNO32 zero; we exit. */
|
1991-05-29 02:13:44 +02:00
|
|
|
|
if (L_LNNO32 (&lptr) && L_LNNO32 (&lptr) <= last_line)
|
1992-03-15 02:09:14 +01:00
|
|
|
|
coff_record_line (first_line + L_LNNO32 (&lptr), lptr.l_addr.l_paddr);
|
1991-05-29 02:13:44 +02:00
|
|
|
|
else
|
|
|
|
|
break;
|
|
|
|
|
}
|
1991-03-28 17:26:26 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
patch_type (type, real_type)
|
|
|
|
|
struct type *type;
|
|
|
|
|
struct type *real_type;
|
|
|
|
|
{
|
|
|
|
|
register struct type *target = TYPE_TARGET_TYPE (type);
|
|
|
|
|
register 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 *)
|
1992-03-15 02:09:14 +01:00
|
|
|
|
obstack_alloc (¤t_objfile -> type_obstack, field_size);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
|
|
|
|
bcopy (TYPE_FIELDS (real_target), TYPE_FIELDS (target), field_size);
|
|
|
|
|
|
|
|
|
|
if (TYPE_NAME (real_target))
|
|
|
|
|
{
|
|
|
|
|
if (TYPE_NAME (target))
|
|
|
|
|
free (TYPE_NAME (target));
|
1991-11-12 18:50:14 +01:00
|
|
|
|
TYPE_NAME (target) = concat (TYPE_NAME (real_target), NULL);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
1991-12-24 00:16:58 +01:00
|
|
|
|
/* Patch up all appropriate typedef symbols in the opaque_type_chains
|
1992-03-15 02:09:14 +01:00
|
|
|
|
so that they can be used to print out opaque data structures properly.
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
1992-03-15 02:09:14 +01:00
|
|
|
|
This is called via iterate_over_symtabs, and thus simply returns NULL
|
|
|
|
|
for each time it is called, to indicate that the iteration should
|
|
|
|
|
continue. */
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
1992-03-15 02:09:14 +01:00
|
|
|
|
/* ARGSUSED */
|
|
|
|
|
static PTR
|
|
|
|
|
patch_opaque_types (objfile, s, arg1, arg2, arg3)
|
|
|
|
|
struct objfile *objfile;
|
|
|
|
|
struct symtab *s;
|
|
|
|
|
PTR arg1;
|
|
|
|
|
PTR arg2;
|
|
|
|
|
PTR arg3;
|
|
|
|
|
{
|
|
|
|
|
register struct block *b;
|
|
|
|
|
register int i;
|
|
|
|
|
register struct symbol *real_sym;
|
|
|
|
|
|
|
|
|
|
/* Go through the per-file symbols only */
|
|
|
|
|
b = BLOCKVECTOR_BLOCK (BLOCKVECTOR (s), STATIC_BLOCK);
|
|
|
|
|
for (i = BLOCK_NSYMS (b) - 1; i >= 0; i--)
|
1991-03-28 17:26:26 +01:00
|
|
|
|
{
|
1992-03-15 02:09:14 +01:00
|
|
|
|
/* 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. */
|
|
|
|
|
real_sym = BLOCK_SYM (b, i);
|
|
|
|
|
if (SYMBOL_CLASS (real_sym) == LOC_TYPEDEF &&
|
|
|
|
|
SYMBOL_NAMESPACE (real_sym) == VAR_NAMESPACE &&
|
|
|
|
|
TYPE_CODE (SYMBOL_TYPE (real_sym)) == TYPE_CODE_PTR &&
|
|
|
|
|
TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (real_sym))) != 0)
|
1991-03-28 17:26:26 +01:00
|
|
|
|
{
|
1992-03-15 02:09:14 +01:00
|
|
|
|
register char *name = SYMBOL_NAME (real_sym);
|
|
|
|
|
register int hash = hashname (name);
|
|
|
|
|
register struct symbol *sym, *prev;
|
|
|
|
|
|
|
|
|
|
prev = 0;
|
|
|
|
|
for (sym = opaque_type_chain[hash]; sym;)
|
1991-03-28 17:26:26 +01:00
|
|
|
|
{
|
1992-03-15 02:09:14 +01:00
|
|
|
|
if (name[0] == SYMBOL_NAME (sym)[0] &&
|
|
|
|
|
!strcmp (name + 1, SYMBOL_NAME (sym) + 1))
|
1991-03-28 17:26:26 +01:00
|
|
|
|
{
|
1992-03-15 02:09:14 +01:00
|
|
|
|
if (prev)
|
1991-03-28 17:26:26 +01:00
|
|
|
|
{
|
1992-03-15 02:09:14 +01:00
|
|
|
|
SYMBOL_VALUE_CHAIN (prev) = SYMBOL_VALUE_CHAIN (sym);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
1992-03-15 02:09:14 +01:00
|
|
|
|
opaque_type_chain[hash] = SYMBOL_VALUE_CHAIN (sym);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
}
|
1992-03-15 02:09:14 +01:00
|
|
|
|
|
|
|
|
|
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);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
1992-03-15 02:09:14 +01:00
|
|
|
|
return (NULL);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static struct symbol *
|
1992-03-15 02:09:14 +01:00
|
|
|
|
process_coff_symbol (cs, aux, objfile)
|
1991-03-28 17:26:26 +01:00
|
|
|
|
register struct coff_symbol *cs;
|
1991-05-29 02:13:44 +02:00
|
|
|
|
register union internal_auxent *aux;
|
1992-03-15 02:09:14 +01:00
|
|
|
|
struct objfile *objfile;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
{
|
|
|
|
|
register struct symbol *sym
|
1992-03-15 02:09:14 +01:00
|
|
|
|
= (struct symbol *) obstack_alloc (&objfile->symbol_obstack, sizeof (struct symbol));
|
1991-03-28 17:26:26 +01:00
|
|
|
|
char *name;
|
|
|
|
|
#ifdef NAMES_HAVE_UNDERSCORE
|
|
|
|
|
int offset = 1;
|
|
|
|
|
#else
|
|
|
|
|
int offset = 0;
|
|
|
|
|
#endif
|
1992-03-15 02:09:14 +01:00
|
|
|
|
struct type *temptype;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
|
|
|
|
bzero (sym, sizeof (struct symbol));
|
|
|
|
|
name = cs->c_name;
|
|
|
|
|
name = (name[0] == '_' ? name + offset : name);
|
1992-03-15 02:09:14 +01:00
|
|
|
|
SYMBOL_NAME (sym) = obstack_copy0 (&objfile->symbol_obstack, name, strlen (name));
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
|
|
|
|
/* default assumptions */
|
|
|
|
|
SYMBOL_VALUE (sym) = cs->c_value;
|
|
|
|
|
SYMBOL_NAMESPACE (sym) = VAR_NAMESPACE;
|
|
|
|
|
|
|
|
|
|
if (ISFCN (cs->c_type))
|
|
|
|
|
{
|
1991-09-28 03:35:29 +02:00
|
|
|
|
#if 0
|
|
|
|
|
/* FIXME: This has NOT been tested. The DBX version has.. */
|
|
|
|
|
/* Generate a template for the type of this function. The
|
|
|
|
|
types of the arguments will be added as we read the symbol
|
|
|
|
|
table. */
|
|
|
|
|
struct type *new = (struct type *)
|
1992-03-15 02:09:14 +01:00
|
|
|
|
obstack_alloc (&objfile->symbol_obstack, sizeof (struct type));
|
1991-09-28 03:35:29 +02:00
|
|
|
|
|
|
|
|
|
bcopy(lookup_function_type (decode_function_type (cs, cs->c_type, aux)),
|
|
|
|
|
new, sizeof(struct type));
|
|
|
|
|
SYMBOL_TYPE (sym) = new;
|
|
|
|
|
in_function_type = SYMBOL_TYPE(sym);
|
|
|
|
|
#else
|
|
|
|
|
SYMBOL_TYPE(sym) =
|
|
|
|
|
lookup_function_type (decode_function_type (cs, cs->c_type, aux));
|
|
|
|
|
#endif
|
|
|
|
|
|
1991-03-28 17:26:26 +01:00
|
|
|
|
SYMBOL_CLASS (sym) = LOC_BLOCK;
|
|
|
|
|
if (cs->c_sclass == C_STAT)
|
1992-03-15 02:09:14 +01:00
|
|
|
|
coff_add_symbol_to_list (sym, &coff_file_symbols);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
else if (cs->c_sclass == C_EXT)
|
1992-03-15 02:09:14 +01:00
|
|
|
|
coff_add_symbol_to_list (sym, &coff_global_symbols);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
}
|
|
|
|
|
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;
|
1992-03-15 02:09:14 +01:00
|
|
|
|
coff_add_symbol_to_list (sym, &coff_local_symbols);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case C_EXT:
|
|
|
|
|
SYMBOL_CLASS (sym) = LOC_STATIC;
|
|
|
|
|
SYMBOL_VALUE_ADDRESS (sym) = (CORE_ADDR) cs->c_value;
|
1992-03-15 02:09:14 +01:00
|
|
|
|
coff_add_symbol_to_list (sym, &coff_global_symbols);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case C_STAT:
|
|
|
|
|
SYMBOL_CLASS (sym) = LOC_STATIC;
|
|
|
|
|
SYMBOL_VALUE_ADDRESS (sym) = (CORE_ADDR) cs->c_value;
|
|
|
|
|
if (within_function) {
|
|
|
|
|
/* Static symbol of local scope */
|
1992-03-15 02:09:14 +01:00
|
|
|
|
coff_add_symbol_to_list (sym, &coff_local_symbols);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
}
|
|
|
|
|
else {
|
|
|
|
|
/* Static symbol at top level of file */
|
1992-03-15 02:09:14 +01:00
|
|
|
|
coff_add_symbol_to_list (sym, &coff_file_symbols);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
1991-09-28 03:35:29 +02:00
|
|
|
|
#ifdef C_GLBLREG /* AMD coff */
|
|
|
|
|
case C_GLBLREG:
|
|
|
|
|
#endif
|
1991-03-28 17:26:26 +01:00
|
|
|
|
case C_REG:
|
|
|
|
|
SYMBOL_CLASS (sym) = LOC_REGISTER;
|
1991-09-28 03:35:29 +02:00
|
|
|
|
SYMBOL_VALUE (sym) = SDB_REG_TO_REGNUM(cs->c_value);
|
1992-03-15 02:09:14 +01:00
|
|
|
|
coff_add_symbol_to_list (sym, &coff_local_symbols);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case C_LABEL:
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case C_ARG:
|
|
|
|
|
SYMBOL_CLASS (sym) = LOC_ARG;
|
1991-09-28 03:35:29 +02:00
|
|
|
|
#if 0
|
1991-12-24 00:16:58 +01:00
|
|
|
|
/* FIXME: This has not been tested. */
|
1991-09-28 03:35:29 +02:00
|
|
|
|
/* Add parameter to function. */
|
|
|
|
|
add_param_to_type(&in_function_type,sym);
|
|
|
|
|
#endif
|
1992-03-15 02:09:14 +01:00
|
|
|
|
coff_add_symbol_to_list (sym, &coff_local_symbols);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
#if !defined (BELIEVE_PCC_PROMOTION)
|
|
|
|
|
/* If PCC says a parameter is a short or a char,
|
|
|
|
|
it is really an int. */
|
1992-03-15 02:09:14 +01:00
|
|
|
|
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;
|
|
|
|
|
}
|
1991-03-28 17:26:26 +01:00
|
|
|
|
#endif
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case C_REGPARM:
|
|
|
|
|
SYMBOL_CLASS (sym) = LOC_REGPARM;
|
1991-09-28 03:35:29 +02:00
|
|
|
|
SYMBOL_VALUE (sym) = SDB_REG_TO_REGNUM(cs->c_value);
|
1992-03-15 02:09:14 +01:00
|
|
|
|
coff_add_symbol_to_list (sym, &coff_local_symbols);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
#if !defined (BELIEVE_PCC_PROMOTION)
|
|
|
|
|
/* If PCC says a parameter is a short or a char,
|
|
|
|
|
it is really an int. */
|
1992-03-15 02:09:14 +01:00
|
|
|
|
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;
|
|
|
|
|
}
|
1991-03-28 17:26:26 +01:00
|
|
|
|
#endif
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case C_TPDEF:
|
|
|
|
|
SYMBOL_CLASS (sym) = LOC_TYPEDEF;
|
|
|
|
|
SYMBOL_NAMESPACE (sym) = VAR_NAMESPACE;
|
|
|
|
|
|
|
|
|
|
/* If type has no name, give it one */
|
1992-03-15 02:09:14 +01:00
|
|
|
|
if (TYPE_NAME (SYMBOL_TYPE (sym)) == 0)
|
|
|
|
|
TYPE_NAME (SYMBOL_TYPE (sym)) = concat (SYMBOL_NAME (sym), NULL);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
|
|
|
|
/* Keep track of any type which points to empty structured type,
|
|
|
|
|
so it can be filled from a definition from another file */
|
|
|
|
|
if (TYPE_CODE (SYMBOL_TYPE (sym)) == TYPE_CODE_PTR &&
|
|
|
|
|
TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym))) == 0)
|
|
|
|
|
{
|
|
|
|
|
register int i = hashname (SYMBOL_NAME (sym));
|
|
|
|
|
|
|
|
|
|
SYMBOL_VALUE_CHAIN (sym) = opaque_type_chain[i];
|
|
|
|
|
opaque_type_chain[i] = sym;
|
|
|
|
|
}
|
1992-03-15 02:09:14 +01:00
|
|
|
|
coff_add_symbol_to_list (sym, &coff_file_symbols);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case C_STRTAG:
|
|
|
|
|
case C_UNTAG:
|
|
|
|
|
case C_ENTAG:
|
|
|
|
|
SYMBOL_CLASS (sym) = LOC_TYPEDEF;
|
|
|
|
|
SYMBOL_NAMESPACE (sym) = STRUCT_NAMESPACE;
|
1992-03-15 02:09:14 +01:00
|
|
|
|
if (TYPE_NAME (SYMBOL_TYPE (sym)) == 0)
|
1991-03-28 17:26:26 +01:00
|
|
|
|
TYPE_NAME (SYMBOL_TYPE (sym))
|
|
|
|
|
= concat ("",
|
|
|
|
|
(cs->c_sclass == C_ENTAG
|
|
|
|
|
? "enum "
|
|
|
|
|
: (cs->c_sclass == C_STRTAG
|
|
|
|
|
? "struct " : "union ")),
|
1991-11-12 18:50:14 +01:00
|
|
|
|
SYMBOL_NAME (sym), NULL);
|
1992-03-15 02:09:14 +01:00
|
|
|
|
coff_add_symbol_to_list (sym, &coff_file_symbols);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
default:
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
return sym;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Decode a coff type specifier;
|
|
|
|
|
return the type that is meant. */
|
|
|
|
|
|
|
|
|
|
static
|
|
|
|
|
struct type *
|
|
|
|
|
decode_type (cs, c_type, aux)
|
|
|
|
|
register struct coff_symbol *cs;
|
|
|
|
|
unsigned int c_type;
|
1991-05-29 02:13:44 +02:00
|
|
|
|
register union internal_auxent *aux;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
{
|
|
|
|
|
register 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;
|
|
|
|
|
register unsigned short *dim;
|
|
|
|
|
struct type *base_type;
|
|
|
|
|
|
|
|
|
|
/* Define an array type. */
|
|
|
|
|
/* auxent refers to array, not base type */
|
1991-07-05 02:04:59 +02:00
|
|
|
|
if (aux->x_sym.x_tagndx.l == 0)
|
1991-11-07 02:27:46 +01:00
|
|
|
|
cs->c_naux = 0;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
|
|
|
|
/* 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;
|
|
|
|
|
|
|
|
|
|
type = (struct type *)
|
1992-03-15 02:09:14 +01:00
|
|
|
|
obstack_alloc (¤t_objfile -> type_obstack,
|
|
|
|
|
sizeof (struct type));
|
1991-03-28 17:26:26 +01:00
|
|
|
|
bzero (type, sizeof (struct type));
|
1992-03-15 02:09:14 +01:00
|
|
|
|
TYPE_OBJFILE (type) = current_objfile;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
|
|
|
|
base_type = decode_type (cs, new_c_type, aux);
|
|
|
|
|
|
|
|
|
|
TYPE_CODE (type) = TYPE_CODE_ARRAY;
|
|
|
|
|
TYPE_TARGET_TYPE (type) = base_type;
|
|
|
|
|
TYPE_LENGTH (type) = n * TYPE_LENGTH (base_type);
|
|
|
|
|
}
|
|
|
|
|
return type;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Reference to existing type */
|
1991-11-07 02:27:46 +01:00
|
|
|
|
if (cs->c_naux > 0 && aux->x_sym.x_tagndx.l != 0)
|
1991-03-28 17:26:26 +01:00
|
|
|
|
{
|
1991-09-11 03:49:50 +02:00
|
|
|
|
type = coff_alloc_type (aux->x_sym.x_tagndx.l);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
return type;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return decode_base_type (cs, BTYPE (c_type), aux);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Decode a coff type specifier for function definition;
|
|
|
|
|
return the type that the function returns. */
|
|
|
|
|
|
|
|
|
|
static
|
|
|
|
|
struct type *
|
|
|
|
|
decode_function_type (cs, c_type, aux)
|
|
|
|
|
register struct coff_symbol *cs;
|
|
|
|
|
unsigned int c_type;
|
1991-05-29 02:13:44 +02:00
|
|
|
|
register union internal_auxent *aux;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
{
|
1991-07-05 02:04:59 +02:00
|
|
|
|
if (aux->x_sym.x_tagndx.l == 0)
|
1991-11-07 02:27:46 +01:00
|
|
|
|
cs->c_naux = 0; /* auxent refers to function, not base type */
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
|
|
|
|
return decode_type (cs, DECREF (c_type), aux);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* basic C types */
|
|
|
|
|
|
|
|
|
|
static
|
|
|
|
|
struct type *
|
|
|
|
|
decode_base_type (cs, c_type, aux)
|
|
|
|
|
register struct coff_symbol *cs;
|
|
|
|
|
unsigned int c_type;
|
1991-05-29 02:13:44 +02:00
|
|
|
|
register union internal_auxent *aux;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
{
|
|
|
|
|
struct type *type;
|
|
|
|
|
|
|
|
|
|
switch (c_type)
|
|
|
|
|
{
|
|
|
|
|
case T_NULL:
|
|
|
|
|
/* shows up with "void (*foo)();" structure members */
|
1992-03-15 02:09:14 +01:00
|
|
|
|
return lookup_fundamental_type (current_objfile, FT_VOID);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
1991-05-03 08:02:03 +02:00
|
|
|
|
#if 0
|
|
|
|
|
/* DGUX actually defines both T_ARG and T_VOID to the same value. */
|
1991-03-28 17:26:26 +01:00
|
|
|
|
#ifdef T_ARG
|
|
|
|
|
case T_ARG:
|
|
|
|
|
/* Shows up in DGUX, I think. Not sure where. */
|
1992-03-15 02:09:14 +01:00
|
|
|
|
return lookup_fundamental_type (current_objfile, FT_VOID); /* shouldn't show up here */
|
1991-03-28 17:26:26 +01:00
|
|
|
|
#endif
|
1991-05-03 08:02:03 +02:00
|
|
|
|
#endif /* 0 */
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
|
|
|
|
#ifdef T_VOID
|
|
|
|
|
case T_VOID:
|
|
|
|
|
/* Intel 960 COFF has this symbol and meaning. */
|
1992-03-15 02:09:14 +01:00
|
|
|
|
return lookup_fundamental_type (current_objfile, FT_VOID);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
case T_CHAR:
|
1992-03-15 02:09:14 +01:00
|
|
|
|
return lookup_fundamental_type (current_objfile, FT_CHAR);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
|
|
|
|
case T_SHORT:
|
1992-03-15 02:09:14 +01:00
|
|
|
|
return lookup_fundamental_type (current_objfile, FT_SHORT);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
|
|
|
|
case T_INT:
|
1992-03-15 02:09:14 +01:00
|
|
|
|
return lookup_fundamental_type (current_objfile, FT_INTEGER);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
|
|
|
|
case T_LONG:
|
1992-03-15 02:09:14 +01:00
|
|
|
|
return lookup_fundamental_type (current_objfile, FT_LONG);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
|
|
|
|
case T_FLOAT:
|
1992-03-15 02:09:14 +01:00
|
|
|
|
return lookup_fundamental_type (current_objfile, FT_FLOAT);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
|
|
|
|
case T_DOUBLE:
|
1992-03-15 02:09:14 +01:00
|
|
|
|
return lookup_fundamental_type (current_objfile, FT_DBL_PREC_FLOAT);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
|
|
|
|
case T_STRUCT:
|
1991-11-07 02:27:46 +01:00
|
|
|
|
if (cs->c_naux != 1)
|
1991-03-28 17:26:26 +01:00
|
|
|
|
{
|
|
|
|
|
/* anonymous structure type */
|
|
|
|
|
type = coff_alloc_type (cs->c_symnum);
|
|
|
|
|
TYPE_CODE (type) = TYPE_CODE_STRUCT;
|
1991-11-12 18:50:14 +01:00
|
|
|
|
TYPE_NAME (type) = concat ("struct ", "<opaque>", NULL);
|
1992-02-20 06:25:34 +01:00
|
|
|
|
INIT_CPLUS_SPECIFIC(type);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
TYPE_LENGTH (type) = 0;
|
|
|
|
|
TYPE_FIELDS (type) = 0;
|
|
|
|
|
TYPE_NFIELDS (type) = 0;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
1992-03-15 02:09:14 +01:00
|
|
|
|
type = coff_read_struct_type (cs->c_symnum,
|
1991-03-28 17:26:26 +01:00
|
|
|
|
aux->x_sym.x_misc.x_lnsz.x_size,
|
1992-02-20 06:25:34 +01:00
|
|
|
|
aux->x_sym.x_fcnary.x_fcn.x_endndx.l);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
}
|
|
|
|
|
return type;
|
|
|
|
|
|
|
|
|
|
case T_UNION:
|
1991-11-07 02:27:46 +01:00
|
|
|
|
if (cs->c_naux != 1)
|
1991-03-28 17:26:26 +01:00
|
|
|
|
{
|
|
|
|
|
/* anonymous union type */
|
|
|
|
|
type = coff_alloc_type (cs->c_symnum);
|
1991-11-12 18:50:14 +01:00
|
|
|
|
TYPE_NAME (type) = concat ("union ", "<opaque>", NULL);
|
1992-02-20 06:25:34 +01:00
|
|
|
|
INIT_CPLUS_SPECIFIC(type);
|
1991-11-27 10:43:59 +01:00
|
|
|
|
TYPE_LENGTH (type) = 0;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
TYPE_LENGTH (type) = 0;
|
|
|
|
|
TYPE_FIELDS (type) = 0;
|
|
|
|
|
TYPE_NFIELDS (type) = 0;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
1992-03-15 02:09:14 +01:00
|
|
|
|
type = coff_read_struct_type (cs->c_symnum,
|
1991-03-28 17:26:26 +01:00
|
|
|
|
aux->x_sym.x_misc.x_lnsz.x_size,
|
1992-02-20 06:25:34 +01:00
|
|
|
|
aux->x_sym.x_fcnary.x_fcn.x_endndx.l);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
}
|
|
|
|
|
TYPE_CODE (type) = TYPE_CODE_UNION;
|
|
|
|
|
return type;
|
|
|
|
|
|
|
|
|
|
case T_ENUM:
|
1992-03-15 02:09:14 +01:00
|
|
|
|
return coff_read_enum_type (cs->c_symnum,
|
1991-03-28 17:26:26 +01:00
|
|
|
|
aux->x_sym.x_misc.x_lnsz.x_size,
|
1992-02-20 06:25:34 +01:00
|
|
|
|
aux->x_sym.x_fcnary.x_fcn.x_endndx.l);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
|
|
|
|
case T_MOE:
|
|
|
|
|
/* shouldn't show up here */
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case T_UCHAR:
|
1992-03-15 02:09:14 +01:00
|
|
|
|
return lookup_fundamental_type (current_objfile, FT_UNSIGNED_CHAR);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
|
|
|
|
case T_USHORT:
|
1992-03-15 02:09:14 +01:00
|
|
|
|
return lookup_fundamental_type (current_objfile, FT_UNSIGNED_SHORT);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
|
|
|
|
case T_UINT:
|
1992-03-15 02:09:14 +01:00
|
|
|
|
return lookup_fundamental_type (current_objfile, FT_UNSIGNED_INTEGER);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
|
|
|
|
case T_ULONG:
|
1992-03-15 02:09:14 +01:00
|
|
|
|
return lookup_fundamental_type (current_objfile, FT_UNSIGNED_LONG);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
}
|
1991-12-24 00:16:58 +01:00
|
|
|
|
complain (&unexpected_type_complaint, cs->c_name);
|
1992-03-15 02:09:14 +01:00
|
|
|
|
return lookup_fundamental_type (current_objfile, FT_VOID);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* 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 *
|
1992-03-15 02:09:14 +01:00
|
|
|
|
coff_read_struct_type (index, length, lastsym)
|
1991-03-28 17:26:26 +01:00
|
|
|
|
int index;
|
|
|
|
|
int length;
|
|
|
|
|
int lastsym;
|
|
|
|
|
{
|
|
|
|
|
struct nextfield
|
|
|
|
|
{
|
|
|
|
|
struct nextfield *next;
|
|
|
|
|
struct field field;
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
register struct type *type;
|
|
|
|
|
register struct nextfield *list = 0;
|
|
|
|
|
struct nextfield *new;
|
|
|
|
|
int nfields = 0;
|
|
|
|
|
register int n;
|
|
|
|
|
char *name;
|
|
|
|
|
#ifdef NAMES_HAVE_UNDERSCORE
|
|
|
|
|
int offset = 1;
|
|
|
|
|
#else
|
|
|
|
|
int offset = 0;
|
|
|
|
|
#endif
|
|
|
|
|
struct coff_symbol member_sym;
|
|
|
|
|
register struct coff_symbol *ms = &member_sym;
|
1991-05-29 02:13:44 +02:00
|
|
|
|
struct internal_syment sub_sym;
|
|
|
|
|
union internal_auxent sub_aux;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
int done = 0;
|
|
|
|
|
|
|
|
|
|
type = coff_alloc_type (index);
|
|
|
|
|
TYPE_CODE (type) = TYPE_CODE_STRUCT;
|
1992-02-20 06:25:34 +01:00
|
|
|
|
INIT_CPLUS_SPECIFIC(type);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
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 = (name[0] == '_' ? name + offset : name);
|
|
|
|
|
|
|
|
|
|
switch (ms->c_sclass)
|
|
|
|
|
{
|
|
|
|
|
case C_MOS:
|
|
|
|
|
case C_MOU:
|
|
|
|
|
|
|
|
|
|
/* Get space to record the next field's data. */
|
|
|
|
|
new = (struct nextfield *) alloca (sizeof (struct nextfield));
|
|
|
|
|
new->next = list;
|
|
|
|
|
list = new;
|
|
|
|
|
|
|
|
|
|
/* Save the data. */
|
|
|
|
|
list->field.name = savestring (name, strlen (name));
|
|
|
|
|
list->field.type = decode_type (ms, ms->c_type, &sub_aux);
|
|
|
|
|
list->field.bitpos = 8 * ms->c_value;
|
|
|
|
|
list->field.bitsize = 0;
|
|
|
|
|
nfields++;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case C_FIELD:
|
|
|
|
|
|
|
|
|
|
/* Get space to record the next field's data. */
|
|
|
|
|
new = (struct nextfield *) alloca (sizeof (struct nextfield));
|
|
|
|
|
new->next = list;
|
|
|
|
|
list = new;
|
|
|
|
|
|
|
|
|
|
/* Save the data. */
|
|
|
|
|
list->field.name = savestring (name, strlen (name));
|
|
|
|
|
list->field.type = decode_type (ms, ms->c_type, &sub_aux);
|
|
|
|
|
list->field.bitpos = ms->c_value;
|
|
|
|
|
list->field.bitsize = 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 *)
|
1992-03-15 02:09:14 +01:00
|
|
|
|
obstack_alloc (¤t_objfile -> type_obstack,
|
|
|
|
|
sizeof (struct field) * nfields);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
|
|
|
|
/* 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. */
|
1991-05-02 06:28:42 +02:00
|
|
|
|
/* Currently assumes it's sizeof (int) and doesn't use length. */
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
1991-08-23 00:50:50 +02:00
|
|
|
|
/* ARGSUSED */
|
1991-03-28 17:26:26 +01:00
|
|
|
|
static struct type *
|
1992-03-15 02:09:14 +01:00
|
|
|
|
coff_read_enum_type (index, length, lastsym)
|
1991-03-28 17:26:26 +01:00
|
|
|
|
int index;
|
|
|
|
|
int length;
|
|
|
|
|
int lastsym;
|
|
|
|
|
{
|
|
|
|
|
register struct symbol *sym;
|
|
|
|
|
register struct type *type;
|
|
|
|
|
int nsyms = 0;
|
|
|
|
|
int done = 0;
|
1992-03-15 02:09:14 +01:00
|
|
|
|
struct coff_pending **symlist;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
struct coff_symbol member_sym;
|
|
|
|
|
register struct coff_symbol *ms = &member_sym;
|
1991-05-29 02:13:44 +02:00
|
|
|
|
struct internal_syment sub_sym;
|
|
|
|
|
union internal_auxent sub_aux;
|
1992-03-15 02:09:14 +01:00
|
|
|
|
struct coff_pending *osyms, *syms;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
register int n;
|
|
|
|
|
char *name;
|
|
|
|
|
#ifdef NAMES_HAVE_UNDERSCORE
|
|
|
|
|
int offset = 1;
|
|
|
|
|
#else
|
|
|
|
|
int offset = 0;
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
type = coff_alloc_type (index);
|
|
|
|
|
if (within_function)
|
1992-03-15 02:09:14 +01:00
|
|
|
|
symlist = &coff_local_symbols;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
else
|
1992-03-15 02:09:14 +01:00
|
|
|
|
symlist = &coff_file_symbols;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
osyms = *symlist;
|
|
|
|
|
|
|
|
|
|
while (!done && symnum < lastsym && symnum < nlist_nsyms_global)
|
|
|
|
|
{
|
|
|
|
|
read_one_sym (ms, &sub_sym, &sub_aux);
|
|
|
|
|
name = ms->c_name;
|
|
|
|
|
name = (name[0] == '_' ? name + offset : name);
|
|
|
|
|
|
|
|
|
|
switch (ms->c_sclass)
|
|
|
|
|
{
|
|
|
|
|
case C_MOE:
|
|
|
|
|
sym = (struct symbol *) xmalloc (sizeof (struct symbol));
|
|
|
|
|
bzero (sym, sizeof (struct symbol));
|
|
|
|
|
|
|
|
|
|
SYMBOL_NAME (sym) = savestring (name, strlen (name));
|
|
|
|
|
SYMBOL_CLASS (sym) = LOC_CONST;
|
|
|
|
|
SYMBOL_NAMESPACE (sym) = VAR_NAMESPACE;
|
|
|
|
|
SYMBOL_VALUE (sym) = ms->c_value;
|
1992-03-15 02:09:14 +01:00
|
|
|
|
coff_add_symbol_to_list (sym, symlist);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
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. */
|
|
|
|
|
|
1992-02-20 06:25:34 +01:00
|
|
|
|
TYPE_LENGTH (type) = TARGET_INT_BIT / TARGET_CHAR_BIT;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
TYPE_CODE (type) = TYPE_CODE_ENUM;
|
|
|
|
|
TYPE_NFIELDS (type) = nsyms;
|
|
|
|
|
TYPE_FIELDS (type) = (struct field *)
|
1992-03-15 02:09:14 +01:00
|
|
|
|
obstack_alloc (¤t_objfile -> type_obstack,
|
|
|
|
|
sizeof (struct field) * nsyms);
|
1991-03-28 17:26:26 +01:00
|
|
|
|
|
|
|
|
|
/* 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. */
|
|
|
|
|
|
|
|
|
|
for (syms = *symlist, n = nsyms; syms != osyms; syms = syms->next)
|
|
|
|
|
{
|
|
|
|
|
SYMBOL_TYPE (syms->symbol) = type;
|
|
|
|
|
TYPE_FIELD_NAME (type, --n) = SYMBOL_NAME (syms->symbol);
|
|
|
|
|
TYPE_FIELD_VALUE (type, n) = 0;
|
|
|
|
|
TYPE_FIELD_BITPOS (type, n) = SYMBOL_VALUE (syms->symbol);
|
|
|
|
|
TYPE_FIELD_BITSIZE (type, n) = 0;
|
|
|
|
|
}
|
1991-09-28 03:35:29 +02:00
|
|
|
|
/* Is this Modula-2's BOOLEAN type? Flag it as such if so. */
|
|
|
|
|
if(TYPE_NFIELDS(type) == 2 &&
|
|
|
|
|
((!strcmp(TYPE_FIELD_NAME(type,0),"TRUE") &&
|
|
|
|
|
!strcmp(TYPE_FIELD_NAME(type,1),"FALSE")) ||
|
|
|
|
|
(!strcmp(TYPE_FIELD_NAME(type,1),"TRUE") &&
|
|
|
|
|
!strcmp(TYPE_FIELD_NAME(type,0),"FALSE"))))
|
|
|
|
|
TYPE_CODE(type) = TYPE_CODE_BOOL;
|
1991-03-28 17:26:26 +01:00
|
|
|
|
return type;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Register our ability to parse symbols for coff BFD files */
|
|
|
|
|
|
|
|
|
|
static struct sym_fns coff_sym_fns =
|
|
|
|
|
{
|
* coffread.c, mipsread.c, xcoffread.c, coffread.c, dbxread.c,
elfread.c (coff_symfile_finish): Add function, prototype, and
add to the xxxx_sym_fns struct for each file type. Also reformat
the xxxx_sym_fns vector to a standard format and add comments.
* coffread.c, mipsread.c, xcoffread.c, coffread.c, dbxread.c,
elfread.c (xxx_symfile_new_init, xxx_symfile_init, xxx_symfile_read):
Pass pointer to struct objfile rather than pointer to sym_fns.
Change references inside each function accordingly. Allocate any
symbol file specific info in the per-objfile memory region.
* dbxread.c (free_and_init_header_files): Break function into
free_header_files(), called from dbx_symfile_finish(), and
init_header_files(), called from dbx_new_init().
* dbxread.c (dbx_new_init): Move deallocation things to new
dbx_symfile_finish function.
* elfread.c (elf_new_init): Call buildsym_new_init().
* objfiles.c (free_objfile): Call the appropriate symfile_finish()
routine for the objfile before deallocating other stuff.
* sparc-tdep.c (get_longjmp_target): Cast target_read_memory arg.
* symfile.h: Move struct sym_fns to before struct objfile def.
Add sym_finish function pointer and change prototypes of other
function pointers to reflect passing struct objfile pointer rather
than struct sym_fns pointer.
* symfile.c: Remove now obsolete symtab_fns pointer.
* symfile.c (symfile_init): Renamed to find_sym_fns, and now only
locates the correct sym_fns struct for the given objfile.
* symfile.c (syms_from_objfile, symbol_file_add): Restructured
for better support of mapped symbol tables.
* symfile.c (symbol_file_command): Remove obsolete code using
symfile_fns.
* symfile.h: Remove duplicate declarations for symfile_objfile,
entry_point, and object_files.
* target.c (target_info): Compare symfile_objfile to NULL.
* xcoffread.c (aixcoff_new_init): Move deallocation stuff to
aixcoff_symfile_finish().
1992-03-19 22:57:15 +01:00
|
|
|
|
"coff", /* sym_name: name or name prefix of BFD target type */
|
|
|
|
|
4, /* sym_namelen: number of significant sym_name chars */
|
|
|
|
|
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 */
|
|
|
|
|
coff_symfile_finish, /* sym_finish: finished with file, cleanup */
|
|
|
|
|
NULL /* next: pointer to next struct sym_fns */
|
1991-03-28 17:26:26 +01:00
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
_initialize_coffread ()
|
|
|
|
|
{
|
|
|
|
|
add_symtab_fns(&coff_sym_fns);
|
|
|
|
|
}
|