* Makefile.in (VERSION): Bump to 4.6.2.

* Makefile.in (SFILES_MAINDIR):  Add stabsread.c
	* Makefile.in (OBS):  Add stabsread.o
	* Makefile.in (stabsread.o):  Add build rule.
	* stabsread.c, stabsread.h:  New files.
	* buildsym.c:  Split out stabs specific support to stabsread.c.
	* buildsym.h:  Split out stabs specific support to stabsread.h.
	* dbxread.c (stabsread.h):  Include
	* dbxread.c (dbx_new_init):  Call stabsread_new_init.
	* dbxread.c (dbx_psymtab_to_symtab_1):  Call stabsread_init.
	* dbxread.c (read_ofile_symtab):  Call end_stabs.
	* dbxread.c (process_one_symbol):  Call end_stabs and start_stabs.
	* dbxread.c (elfstab_build_psymtabs):  Call stabsread_new_init.
	* dwarfread.c (psymtab_to_symtab_1):  Call buildsym_init, add
	really_free_pendings to cleanups.
	* elfread.c (elf_new_init):  Call stabsread_new_init.
	* gdbtypes.c:  Small changes to maintenance commands.
	* mipsread.c (stabsread.h):  Include.
	* mipsread.c (psymtab_to_symtab_1):  Call end_stabs.
	* xcoffread.c (stabsread.h):  Include.
	* xcoffread.c (global_stabs):  Remove redundant def.
	* xcoffread.c (read_xcoff_symtab):  Call start_stabs and end_stabs.
This commit is contained in:
Fred Fish 1992-07-28 04:22:18 +00:00
parent 9e2b3581cb
commit d07734e31f
9 changed files with 3540 additions and 3196 deletions

View File

@ -183,6 +183,8 @@ source.c
sparc-pinsn.c
sparc-tdep.c
sparc-xdep.c
stabsread.c
stabsread.h
stack.c
standalone.c
stuff.c

File diff suppressed because it is too large Load Diff

View File

@ -33,22 +33,18 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
using this technique. */
#ifndef EXTERN
#define EXTERN extern
#define EXTERN extern
#endif
/* Convert stab register number (from `r' declaration) to a gdb REGNUM. */
#define HASHSIZE 127 /* Size of things hashed via hashname() */
#ifndef STAB_REG_TO_REGNUM
#define STAB_REG_TO_REGNUM(VALUE) (VALUE)
#endif
/* Name of source file whose symbol data we are now processing.
This comes from a symbol of type N_SO. */
This comes from a symbol of type N_SO. */
EXTERN char *last_source_file;
/* Core address of start of text of current source file.
This too comes from the N_SO symbol. */
This too comes from the N_SO symbol. */
EXTERN CORE_ADDR last_source_start_addr;
@ -75,33 +71,13 @@ EXTERN struct subfile *current_subfile;
EXTERN unsigned char processing_gcc_compilation;
/* When set, we are processing a .o file compiled by sun acc */
EXTERN unsigned char processing_acc_compilation;
/* Count symbols as they are processed, for error messages. */
EXTERN unsigned int symnum;
/* Vector of types defined so far, indexed by their dbx type numbers.
(In newer sun systems, dbx uses a pair of numbers in parens,
as in "(SUBFILENUM,NUMWITHINSUBFILE)". Then these numbers must be
translated through the type_translations hash table to get
the index into the type vector.) */
EXTERN struct type **type_vector;
/* Number of elements allocated for type_vector currently. */
EXTERN int type_vector_length;
/* Hash table of global symbols whose values are not known yet.
They are chained thru the SYMBOL_VALUE_CHAIN, since we don't
have the correct data for that slot yet. */
/* The use of the LOC_BLOCK code in this chain is nonstandard--
it refers to a FORTRAN common block rather than the usual meaning. */
#define HASHSIZE 127
EXTERN struct symbol *global_sym_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. */
@ -116,6 +92,7 @@ struct pending
};
/* List of free `struct pending' structures for reuse. */
EXTERN struct pending *free_pendings;
/* Here are the three lists that symbols are put on. */
@ -126,39 +103,41 @@ EXTERN struct pending *global_symbols; /* global functions and variables */
EXTERN struct pending *local_symbols; /* everything local to lexic context */
/* Kludge for xcoffread.c */
struct pending_stabs {
int count, length;
char *stab[1];
};
EXTERN struct pending_stabs *global_stabs;
/* List of symbols declared since the last BCOMM. This list is a tail
of local_symbols. When ECOMM is seen, the symbols on the list
are noted so their proper addresses can be filled in later,
using the common block base address gotten from the assembler
stabs. */
EXTERN struct pending *common_block;
EXTERN int common_block_i;
/* Stack representing unclosed lexical contexts
(that will become blocks, eventually). */
struct context_stack
{
struct pending *locals; /* Outer locals at the time we entered */
struct pending_block *old_blocks; /* Pointer into blocklist as of entry */
struct symbol *name; /* Name of function, if any, defining context*/
CORE_ADDR start_addr; /* PC where this context starts */
CORE_ADDR end_addr; /* Temp slot for exception handling. */
int depth; /* For error-checking matching push/pop */
/* Outer locals at the time we entered */
struct pending *locals;
/* Pointer into blocklist as of entry */
struct pending_block *old_blocks;
/* Name of function, if any, defining context*/
struct symbol *name;
/* PC where this context starts */
CORE_ADDR start_addr;
/* Temp slot for exception handling. */
CORE_ADDR end_addr;
/* For error-checking matching push/pop */
int depth;
};
EXTERN struct context_stack *context_stack;
/* Index of first unused entry in context stack. */
EXTERN int context_stack_depth;
/* Currently allocated size of context stack. */
@ -169,8 +148,7 @@ EXTERN int context_stack_size;
by a real function, push_context. This returns a pointer to a struct
context_stack. */
#define pop_context() \
(&context_stack[--context_stack_depth]);
#define pop_context() (&context_stack[--context_stack_depth]);
/* Nonzero if within a function (so symbols should be local,
if nothing says specifically). */
@ -188,77 +166,7 @@ struct pending_block
EXTERN struct pending_block *pending_blocks;
/* Global variable which, when set, indicates that we are processing a
.o file compiled with gcc */
EXTERN unsigned char processing_gcc_compilation;
/* The type code that process_one_symbol saw on its previous invocation.
Used to detect pairs of N_SO symbols. */
EXTERN int previous_stab_code;
/* Setup a define to deal cleanly with the underscore problem */
#ifdef NAMES_HAVE_UNDERSCORE
#define HASH_OFFSET 1
#else
#define HASH_OFFSET 0
#endif
/* Support for Sun changes to dbx symbol format */
/* For each identified header file, we have a table of types defined
in that header file.
header_files maps header file names to their type tables.
It is a vector of n_header_files elements.
Each element describes one header file.
It contains a vector of types.
Sometimes it can happen that the same header file produces
different results when included in different places.
This can result from conditionals or from different
things done before including the file.
When this happens, there are multiple entries for the file in this table,
one entry for each distinct set of results.
The entries are distinguished by the INSTANCE field.
The INSTANCE field appears in the N_BINCL and N_EXCL symbol table and is
used to match header-file references to their corresponding data. */
struct header_file
{
char *name; /* Name of header file */
int instance; /* Numeric code distinguishing instances
of one header file that produced
different results when included.
It comes from the N_BINCL or N_EXCL. */
struct type **vector; /* Pointer to vector of types */
int length; /* Allocated length (# elts) of that vector */
};
EXTERN struct header_file *header_files;
EXTERN int n_header_files;
EXTERN int n_allocated_header_files;
/* Within each object file, various header files are assigned numbers.
A type is defined or referred to with a pair of numbers
(FILENUM,TYPENUM) where FILENUM is the number of the header file
and TYPENUM is the number within that header file.
TYPENUM is the index within the vector of types for that header file.
FILENUM == 1 is special; it refers to the main source of the object file,
and not to any header file. FILENUM != 1 is interpreted by looking it up
in the following table, which contains indices in header_files. */
EXTERN int *this_object_header_files;
EXTERN int n_this_object_header_files;
EXTERN int n_allocated_this_object_header_files;
struct subfile_stack
{
struct subfile_stack *next;
@ -267,40 +175,41 @@ struct subfile_stack
EXTERN struct subfile_stack *subfile_stack;
extern struct complaint unknown_symtype_complaint;
#define next_symbol_text() (*next_symbol_text_func)()
/* Function to invoke get the next symbol. Return the symbol name. */
EXTERN char *(*next_symbol_text_func) PARAMS ((void));
/* Vector of types defined so far, indexed by their type numbers.
Used for both stabs and coff.
(In newer sun systems, dbx uses a pair of numbers in parens,
as in "(SUBFILENUM,NUMWITHINSUBFILE)". Then these numbers must be
translated through the type_translations hash table to get
the index into the type vector.) */
EXTERN struct type **type_vector;
/* Number of elements allocated for type_vector currently. */
EXTERN int type_vector_length;
/* Initial size of type vector. Is realloc'd larger if needed,
and realloc'd down to the size actually used, when completed. */
#define INITIAL_TYPE_VECTOR_LENGTH 160
extern void
add_symbol_to_list PARAMS ((struct symbol *, struct pending **));
extern struct symbol *
find_symbol_in_list PARAMS ((struct pending *, char *, int));
extern void
read_type_number PARAMS ((char **, int *));
extern struct type *
read_type PARAMS ((char **, struct objfile *));
extern struct type **
dbx_lookup_type PARAMS ((int [2]));
extern long
read_number PARAMS ((char **, int));
extern void
finish_block PARAMS ((struct symbol *, struct pending **,
struct pending_block *, CORE_ADDR, CORE_ADDR,
struct objfile *));
extern void
add_undefined_type PARAMS ((struct type *));
extern void
really_free_pendings PARAMS ((int foo));
@ -314,7 +223,7 @@ extern char *
pop_subfile PARAMS ((void));
extern struct symtab *
end_symtab PARAMS ((CORE_ADDR, int, int,struct objfile *));
end_symtab PARAMS ((CORE_ADDR, int, int, struct objfile *));
extern void
scan_file_globals PARAMS ((struct objfile *));
@ -334,13 +243,10 @@ record_line PARAMS ((struct subfile *, int, CORE_ADDR));
extern void
start_symtab PARAMS ((char *, char *, CORE_ADDR));
extern struct symbol *
define_symbol PARAMS ((unsigned int, char *, int, int, struct objfile *));
extern struct partial_symtab *
start_psymtab PARAMS ((struct objfile *, struct section_offsets *, char *,
CORE_ADDR, int,
struct partial_symbol *, struct partial_symbol *));
CORE_ADDR, int, struct partial_symbol *,
struct partial_symbol *));
extern void
end_psymtab PARAMS ((struct partial_symtab *, char **, int, int, CORE_ADDR,
@ -352,4 +258,6 @@ process_one_symbol PARAMS ((int, int, CORE_ADDR, char *,
extern int
hashname PARAMS ((char *));
#undef EXTERN
#endif /* defined (BUILDSYM_H) */

View File

@ -2073,6 +2073,7 @@ psymtab_to_symtab_1 (pst)
struct partial_symtab *pst;
{
int i;
struct cleanup *old_chain;
if (pst != NULL)
{
@ -2105,6 +2106,8 @@ psymtab_to_symtab_1 (pst)
}
if (DBLENGTH (pst)) /* Otherwise it's a dummy */
{
buildsym_init ();
old_chain = make_cleanup (really_free_pendings, 0);
pst -> symtab = read_ofile_symtab (pst);
if (info_verbose)
{
@ -2113,6 +2116,7 @@ psymtab_to_symtab_1 (pst)
fflush (stdout);
}
sort_symtab_syms (pst -> symtab);
do_cleanups (old_chain);
}
pst -> readin = 1;
}

View File

@ -542,6 +542,7 @@ static void
elf_new_init (ignore)
struct objfile *ignore;
{
stabsread_new_init ();
buildsym_new_init ();
}

View File

@ -1222,7 +1222,7 @@ dump_fn_fieldlists (type, spaces)
TYPE_FN_FIELD_PROTECTED (f, overload_idx));
printfi_filtered (spaces + 8, "is_stub %d\n",
TYPE_FN_FIELD_STUB (f, overload_idx));
printfi_filtered (spaces + 8, "voffset %d\n",
printfi_filtered (spaces + 8, "voffset %u\n",
TYPE_FN_FIELD_VOFFSET (f, overload_idx));
}
}
@ -1235,8 +1235,6 @@ print_cplus_stuff (type, spaces)
{
int bitno;
printfi_filtered (spaces, "cplus_stuff 0x%x\n",
TYPE_CPLUS_SPECIFIC (type));
printfi_filtered (spaces, "n_baseclasses %d\n",
TYPE_N_BASECLASSES (type));
printfi_filtered (spaces, "nfn_fields %d\n",
@ -1245,7 +1243,7 @@ print_cplus_stuff (type, spaces)
TYPE_NFN_FIELDS_TOTAL (type));
if (TYPE_N_BASECLASSES (type) > 0)
{
printfi_filtered (spaces, "virtual_field_bits %d 0x%x",
printfi_filtered (spaces, "virtual_field_bits (%d bits at *0x%x)",
TYPE_N_BASECLASSES (type),
TYPE_FIELD_VIRTUAL_BITS (type));
print_bit_vector (TYPE_FIELD_VIRTUAL_BITS (type),
@ -1256,7 +1254,7 @@ print_cplus_stuff (type, spaces)
{
if (TYPE_FIELD_PRIVATE_BITS (type) != NULL)
{
printfi_filtered (spaces, "private_field_bits %d 0x%x",
printfi_filtered (spaces, "private_field_bits (%d bits at *0x%x)",
TYPE_NFIELDS (type),
TYPE_FIELD_PRIVATE_BITS (type));
print_bit_vector (TYPE_FIELD_PRIVATE_BITS (type),
@ -1265,7 +1263,7 @@ print_cplus_stuff (type, spaces)
}
if (TYPE_FIELD_PROTECTED_BITS (type) != NULL)
{
printfi_filtered (spaces, "protected_field_bits %d 0x%x",
printfi_filtered (spaces, "protected_field_bits (%d bits at *0x%x)",
TYPE_NFIELDS (type),
TYPE_FIELD_PROTECTED_BITS (type));
print_bit_vector (TYPE_FIELD_PROTECTED_BITS (type),
@ -1415,8 +1413,24 @@ recursive_dump_type (type, spaces)
break;
case TYPE_CODE_STRUCT:
printfi_filtered (spaces, "cplus_stuff 0x%x\n",
TYPE_CPLUS_SPECIFIC (type));
print_cplus_stuff (type, spaces);
break;
default:
/* We have to pick one of the union types to be able print and test
the value. Pick cplus_struct_type, even though we know it isn't
any particular one. */
printfi_filtered (spaces, "type_specific 0x%x",
TYPE_CPLUS_SPECIFIC (type));
if (TYPE_CPLUS_SPECIFIC (type) != NULL)
{
printf_filtered (" (unknown data form)");
}
printf_filtered ("\n");
break;
}
}

3004
gdb/stabsread.c Normal file

File diff suppressed because it is too large Load Diff

196
gdb/stabsread.h Normal file
View File

@ -0,0 +1,196 @@
/* Include file for stabs debugging format support functions.
Copyright (C) 1986-1992 Free Software Foundation, Inc.
This file is part of GDB.
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
/* Definitions, prototypes, etc for stabs debugging format support
functions.
Variables declared in this file can be defined by #define-ing
the name EXTERN to null. It is used to declare variables that
are normally extern, but which get defined in a single module
using this technique. */
#ifndef EXTERN
#define EXTERN extern
#endif
/* Convert stab register number (from `r' declaration) to a gdb REGNUM. */
#ifndef STAB_REG_TO_REGNUM
#define STAB_REG_TO_REGNUM(VALUE) (VALUE)
#endif
/* Hash table of global symbols whose values are not known yet.
They are chained thru the SYMBOL_VALUE_CHAIN, since we don't
have the correct data for that slot yet.
The use of the LOC_BLOCK code in this chain is nonstandard--
it refers to a FORTRAN common block rather than the usual meaning. */
EXTERN struct symbol *global_sym_chain[HASHSIZE];
/* Kludge for xcoffread.c */
struct pending_stabs
{
int count;
int length;
char *stab[1];
};
EXTERN struct pending_stabs *global_stabs;
/* List of symbols declared since the last BCOMM. This list is a tail
of local_symbols. When ECOMM is seen, the symbols on the list
are noted so their proper addresses can be filled in later,
using the common block base address gotten from the assembler
stabs. */
EXTERN struct pending *common_block;
EXTERN int common_block_i;
/* The type code that process_one_symbol saw on its previous invocation.
Used to detect pairs of N_SO symbols. */
EXTERN int previous_stab_code;
/* Setup a define to deal cleanly with the underscore problem */
#ifdef NAMES_HAVE_UNDERSCORE
#define HASH_OFFSET 1
#else
#define HASH_OFFSET 0
#endif
/* Support for Sun changes to dbx symbol format */
/* For each identified header file, we have a table of types defined
in that header file.
header_files maps header file names to their type tables.
It is a vector of n_header_files elements.
Each element describes one header file.
It contains a vector of types.
Sometimes it can happen that the same header file produces
different results when included in different places.
This can result from conditionals or from different
things done before including the file.
When this happens, there are multiple entries for the file in this table,
one entry for each distinct set of results.
The entries are distinguished by the INSTANCE field.
The INSTANCE field appears in the N_BINCL and N_EXCL symbol table and is
used to match header-file references to their corresponding data. */
struct header_file
{
/* Name of header file */
char *name;
/* Numeric code distinguishing instances of one header file that produced
different results when included. It comes from the N_BINCL or N_EXCL. */
int instance;
/* Pointer to vector of types */
struct type **vector;
/* Allocated length (# elts) of that vector */
int length;
};
EXTERN struct header_file *header_files;
EXTERN int n_header_files;
EXTERN int n_allocated_header_files;
/* Within each object file, various header files are assigned numbers.
A type is defined or referred to with a pair of numbers
(FILENUM,TYPENUM) where FILENUM is the number of the header file
and TYPENUM is the number within that header file.
TYPENUM is the index within the vector of types for that header file.
FILENUM == 1 is special; it refers to the main source of the object file,
and not to any header file. FILENUM != 1 is interpreted by looking it up
in the following table, which contains indices in header_files. */
EXTERN int *this_object_header_files;
EXTERN int n_this_object_header_files;
EXTERN int n_allocated_this_object_header_files;
extern struct complaint unknown_symtype_complaint;
extern void
read_type_number PARAMS ((char **, int *));
extern struct type *
read_type PARAMS ((char **, struct objfile *));
extern void
cleanup_undefined_types PARAMS ((void));
extern struct type **
dbx_lookup_type PARAMS ((int [2]));
extern long
read_number PARAMS ((char **, int));
extern void
add_undefined_type PARAMS ((struct type *));
extern struct symbol *
define_symbol PARAMS ((unsigned int, char *, int, int, struct objfile *));
extern struct partial_symtab *
start_psymtab PARAMS ((struct objfile *, struct section_offsets *, char *,
CORE_ADDR, int, struct partial_symbol *,
struct partial_symbol *));
extern void
end_psymtab PARAMS ((struct partial_symtab *, char **, int, int, CORE_ADDR,
struct partial_symtab **, int));
extern void
process_one_symbol PARAMS ((int, int, CORE_ADDR, char *,
struct section_offsets *, struct objfile *));
extern void
stabsread_init PARAMS ((void));
extern void
stabsread_new_init PARAMS ((void));
extern void
start_stabs PARAMS ((void));
extern void
end_stabs PARAMS ((void));
extern void
finish_global_stabs PARAMS ((struct objfile *objfile));
#undef EXTERN

View File

@ -45,6 +45,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
#include "symfile.h"
#include "objfiles.h"
#include "buildsym.h"
#include "stabsread.h"
#include "gdb-stabs.h"
#include "coff/internal.h" /* FIXME, internal data from BFD */
@ -114,9 +115,6 @@ static char *symtbl;
#define INITIAL_STABVECTOR_LENGTH 40
struct pending_stabs *global_stabs;
/* Nonzero if within a function (so symbols should be local,
if nothing says specifically). */
@ -1040,11 +1038,12 @@ read_xcoff_symtab (objfile, nsyms)
N_BTSHFT = coff_data (abfd)->local_n_btshft;
local_symesz = coff_data (abfd)->local_symesz;
last_source_file = 0;
last_source_file = NULL;
last_csect_name = 0;
last_csect_val = 0;
misc_func_recorded = 0;
start_stabs ();
start_symtab (filestring, (char *)NULL, file_start_addr);
symnum = 0;
first_object_file_end = 0;
@ -1126,8 +1125,12 @@ read_xcoff_symtab (objfile, nsyms)
if (cs->c_symnum == next_file_symnum && cs->c_sclass != C_FILE) {
if (last_source_file)
end_symtab (cur_src_end_addr, 1, 0, objfile);
{
end_symtab (cur_src_end_addr, 1, 0, objfile);
end_stabs ();
}
start_stabs ();
start_symtab ("_globals_", (char *)NULL, (CORE_ADDR)0);
cur_src_end_addr = first_object_file_end;
/* done with all files, everything from here on is globals */
@ -1191,6 +1194,8 @@ read_xcoff_symtab (objfile, nsyms)
complete_symtab (filestring, file_start_addr);
cur_src_end_addr = file_end_addr;
end_symtab (file_end_addr, 1, 0, objfile);
end_stabs ();
start_stabs ();
start_symtab ((char *)NULL, (char *)NULL, (CORE_ADDR)0);
}
@ -1366,13 +1371,15 @@ function_entry_point:
/* complete symbol table for last object file containing
debugging information. */
/* Whether or not there was a csect in the previous file, we have
to call `end_symtab' and `start_symtab' to reset type_vector,
/* Whether or not there was a csect in the previous file, we have to call
`end_stabs' and `start_stabs' to reset type_vector,
line_vector, etc. structures. */
complete_symtab (filestring, file_start_addr);
cur_src_end_addr = file_end_addr;
end_symtab (file_end_addr, 1, 0, objfile);
end_stabs ();
start_stabs ();
start_symtab (cs->c_name, (char *)NULL, (CORE_ADDR)0);
last_csect_name = 0;
@ -1582,7 +1589,10 @@ function_entry_point:
} /* while */
if (last_source_file)
end_symtab (cur_src_end_addr, 1, 0, objfile);
{
end_symtab (cur_src_end_addr, 1, 0, objfile);
end_stabs ();
}
free (symtbl);
current_objfile = NULL;