1 /* Build symbol tables in GDB's internal format.
2 Copyright (C) 1986-1991 Free Software Foundation, Inc.
4 This file is part of GDB.
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2 of the License, or
9 (at your option) any later version.
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with this program; if not, write to the Free Software
18 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
20 /* This module provides definitions used for creating and adding to
21 the symbol table. These routines are called from various symbol-
22 file-reading routines.
24 They originated in dbxread.c of gdb-4.2, and were split out to
25 make xcoffread.c more maintainable by sharing code.
27 Variables declared in this file can be defined by #define-ing
28 the name EXTERN to null. It is used to declare variables that
29 are normally extern, but which get defined in a single module
30 using this technique. */
36 extern void add_symbol_to_list ();
37 struct symbol *find_symbol_in_list ();
38 extern void read_type_number ();
39 extern struct type *read_type ();
40 extern struct type *read_range_type ();
41 extern struct type *read_enum_type ();
42 extern struct type *read_struct_type ();
43 extern struct type *read_array_type ();
44 extern struct type **read_args ();
45 extern struct type **dbx_lookup_type ();
46 extern long read_number ();
47 extern void finish_block ();
48 extern struct blockvector *make_blockvector ();
49 extern void add_undefined_type ();
50 extern void really_free_pendings ();
51 extern void start_subfile ();
52 extern void push_subfile ();
53 extern char *pop_subfile ();
54 extern struct symtab *end_symtab ();
55 extern void scan_file_globals ();
56 extern void buildsym_new_init ();
57 extern void buildsym_init ();
58 extern struct context_stack *push_context ();
59 extern void record_line ();
60 extern void start_symtab ();
61 extern struct symbol *define_symbol ();
62 extern struct partial_symtab *start_psymtab ();
63 extern void end_psymtab();
66 /* Convert stab register number (from `r' declaration) to a gdb REGNUM. */
68 #ifndef STAB_REG_TO_REGNUM
69 #define STAB_REG_TO_REGNUM(VALUE) (VALUE)
72 /* Name of source file whose symbol data we are now processing.
73 This comes from a symbol of type N_SO. */
75 EXTERN char *last_source_file;
77 /* Core address of start of text of current source file.
78 This too comes from the N_SO symbol. */
80 EXTERN CORE_ADDR last_source_start_addr;
82 /* The list of sub-source-files within the current individual compilation.
83 Each file gets its own symtab with its own linetable and associated info,
84 but they all share one blockvector. */
91 struct linetable *line_vector;
92 int line_vector_length;
95 EXTERN struct subfile *subfiles;
97 EXTERN struct subfile *current_subfile;
99 /* Global variable which, when set, indicates that we are processing a
100 .o file compiled with gcc */
102 EXTERN unsigned char processing_gcc_compilation;
104 /* Count symbols as they are processed, for error messages. */
106 EXTERN unsigned int symnum;
108 /* Vector of types defined so far, indexed by their dbx type numbers.
109 (In newer sun systems, dbx uses a pair of numbers in parens,
110 as in "(SUBFILENUM,NUMWITHINSUBFILE)". Then these numbers must be
111 translated through the type_translations hash table to get
112 the index into the type vector.) */
114 EXTERN struct type **type_vector;
116 /* Number of elements allocated for type_vector currently. */
118 EXTERN int type_vector_length;
120 /* Hash table of global symbols whose values are not known yet.
121 They are chained thru the SYMBOL_VALUE_CHAIN, since we don't
122 have the correct data for that slot yet. */
123 /* The use of the LOC_BLOCK code in this chain is nonstandard--
124 it refers to a FORTRAN common block rather than the usual meaning. */
127 EXTERN struct symbol *global_sym_chain[HASHSIZE];
129 /* Record the symbols defined for each context in a list.
130 We don't create a struct block for the context until we
131 know how long to make it. */
133 #define PENDINGSIZE 100
137 struct pending *next;
139 struct symbol *symbol[PENDINGSIZE];
142 /* List of free `struct pending' structures for reuse. */
143 EXTERN struct pending *free_pendings;
145 /* Here are the three lists that symbols are put on. */
147 EXTERN struct pending *file_symbols; /* static at top level, and types */
149 EXTERN struct pending *global_symbols; /* global functions and variables */
151 EXTERN struct pending *local_symbols; /* everything local to lexic context */
153 /* Kludge for xcoffread.c */
154 struct pending_stabs {
159 EXTERN struct pending_stabs *global_stabs;
160 EXTERN struct pending_stabs *file_stabs;
162 /* List of symbols declared since the last BCOMM. This list is a tail
163 of local_symbols. When ECOMM is seen, the symbols on the list
164 are noted so their proper addresses can be filled in later,
165 using the common block base address gotten from the assembler
168 EXTERN struct pending *common_block;
169 EXTERN int common_block_i;
171 /* Stack representing unclosed lexical contexts
172 (that will become blocks, eventually). */
176 struct pending *locals; /* Outer locals at the time we entered */
177 struct pending_block *old_blocks; /* Pointer into blocklist as of entry */
178 struct symbol *name; /* Name of function, if any, defining context*/
179 CORE_ADDR start_addr; /* PC where this context starts */
180 CORE_ADDR end_addr; /* Temp slot for exception handling. */
181 int depth; /* For error-checking matching push/pop */
184 EXTERN struct context_stack *context_stack;
186 /* Index of first unused entry in context stack. */
187 EXTERN int context_stack_depth;
189 /* Currently allocated size of context stack. */
191 EXTERN int context_stack_size;
193 /* Macro "function" for popping contexts from the stack. Pushing is done
194 by a real function, push_context. This returns a pointer to a struct
197 #define pop_context() \
198 (&context_stack[--context_stack_depth]);
200 /* Nonzero if within a function (so symbols should be local,
201 if nothing says specifically). */
203 EXTERN int within_function;
205 /* List of blocks already made (lexical contexts already closed).
206 This is used at the end to make the blockvector. */
210 struct pending_block *next;
214 EXTERN struct pending_block *pending_blocks;
216 extern CORE_ADDR startup_file_start; /* From blockframe.c */
217 extern CORE_ADDR startup_file_end; /* From blockframe.c */
219 /* Global variable which, when set, indicates that we are processing a
220 .o file compiled with gcc */
222 EXTERN unsigned char processing_gcc_compilation;
224 /* The type code that process_one_symbol saw on its previous invocation.
225 Used to detect pairs of N_SO symbols. */
227 EXTERN int previous_stab_code;
229 /* Setup a define to deal cleanly with the underscore problem */
231 #ifdef NAMES_HAVE_UNDERSCORE
232 #define HASH_OFFSET 1
234 #define HASH_OFFSET 0
237 /* Support for Sun changes to dbx symbol format */
239 /* For each identified header file, we have a table of types defined
242 header_files maps header file names to their type tables.
243 It is a vector of n_header_files elements.
244 Each element describes one header file.
245 It contains a vector of types.
247 Sometimes it can happen that the same header file produces
248 different results when included in different places.
249 This can result from conditionals or from different
250 things done before including the file.
251 When this happens, there are multiple entries for the file in this table,
252 one entry for each distinct set of results.
253 The entries are distinguished by the INSTANCE field.
254 The INSTANCE field appears in the N_BINCL and N_EXCL symbol table and is
255 used to match header-file references to their corresponding data. */
259 char *name; /* Name of header file */
260 int instance; /* Numeric code distinguishing instances
261 of one header file that produced
262 different results when included.
263 It comes from the N_BINCL or N_EXCL. */
264 struct type **vector; /* Pointer to vector of types */
265 int length; /* Allocated length (# elts) of that vector */
268 EXTERN struct header_file *header_files;
270 EXTERN int n_header_files;
272 EXTERN int n_allocated_header_files;
274 /* Within each object file, various header files are assigned numbers.
275 A type is defined or referred to with a pair of numbers
276 (FILENUM,TYPENUM) where FILENUM is the number of the header file
277 and TYPENUM is the number within that header file.
278 TYPENUM is the index within the vector of types for that header file.
280 FILENUM == 1 is special; it refers to the main source of the object file,
281 and not to any header file. FILENUM != 1 is interpreted by looking it up
282 in the following table, which contains indices in header_files. */
284 EXTERN int *this_object_header_files;
286 EXTERN int n_this_object_header_files;
288 EXTERN int n_allocated_this_object_header_files;
290 /* When a header file is getting special overriding definitions
291 for one source file, record here the header_files index
292 of its normal definition vector.
293 At other times, this is -1. */
295 EXTERN int header_file_prev_index;
299 struct subfile_stack *next;
304 EXTERN struct subfile_stack *subfile_stack;