]>
Commit | Line | Data |
---|---|---|
d07734e3 FF |
1 | /* Include file for stabs debugging format support functions. |
2 | Copyright (C) 1986-1992 Free Software Foundation, Inc. | |
3 | ||
4 | This file is part of GDB. | |
5 | ||
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. | |
10 | ||
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. | |
15 | ||
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. */ | |
19 | ||
20 | /* Definitions, prototypes, etc for stabs debugging format support | |
21 | functions. | |
22 | ||
23 | Variables declared in this file can be defined by #define-ing | |
24 | the name EXTERN to null. It is used to declare variables that | |
25 | are normally extern, but which get defined in a single module | |
26 | using this technique. */ | |
27 | ||
28 | #ifndef EXTERN | |
29 | #define EXTERN extern | |
30 | #endif | |
31 | ||
32 | /* Convert stab register number (from `r' declaration) to a gdb REGNUM. */ | |
33 | ||
34 | #ifndef STAB_REG_TO_REGNUM | |
35 | #define STAB_REG_TO_REGNUM(VALUE) (VALUE) | |
36 | #endif | |
37 | ||
38 | /* Hash table of global symbols whose values are not known yet. | |
39 | They are chained thru the SYMBOL_VALUE_CHAIN, since we don't | |
40 | have the correct data for that slot yet. | |
41 | ||
42 | The use of the LOC_BLOCK code in this chain is nonstandard-- | |
43 | it refers to a FORTRAN common block rather than the usual meaning. */ | |
44 | ||
45 | EXTERN struct symbol *global_sym_chain[HASHSIZE]; | |
46 | ||
47 | /* Kludge for xcoffread.c */ | |
48 | ||
49 | struct pending_stabs | |
50 | { | |
51 | int count; | |
52 | int length; | |
53 | char *stab[1]; | |
54 | }; | |
55 | ||
56 | EXTERN struct pending_stabs *global_stabs; | |
57 | ||
58 | /* List of symbols declared since the last BCOMM. This list is a tail | |
59 | of local_symbols. When ECOMM is seen, the symbols on the list | |
60 | are noted so their proper addresses can be filled in later, | |
61 | using the common block base address gotten from the assembler | |
62 | stabs. */ | |
63 | ||
64 | EXTERN struct pending *common_block; | |
65 | EXTERN int common_block_i; | |
66 | ||
67 | /* The type code that process_one_symbol saw on its previous invocation. | |
68 | Used to detect pairs of N_SO symbols. */ | |
69 | ||
70 | EXTERN int previous_stab_code; | |
71 | ||
72 | /* Setup a define to deal cleanly with the underscore problem */ | |
73 | ||
74 | #ifdef NAMES_HAVE_UNDERSCORE | |
75 | #define HASH_OFFSET 1 | |
76 | #else | |
77 | #define HASH_OFFSET 0 | |
78 | #endif | |
79 | ||
80 | \f | |
81 | /* Support for Sun changes to dbx symbol format */ | |
82 | ||
83 | /* For each identified header file, we have a table of types defined | |
84 | in that header file. | |
85 | ||
86 | header_files maps header file names to their type tables. | |
87 | It is a vector of n_header_files elements. | |
88 | Each element describes one header file. | |
89 | It contains a vector of types. | |
90 | ||
91 | Sometimes it can happen that the same header file produces | |
92 | different results when included in different places. | |
93 | This can result from conditionals or from different | |
94 | things done before including the file. | |
95 | When this happens, there are multiple entries for the file in this table, | |
96 | one entry for each distinct set of results. | |
97 | The entries are distinguished by the INSTANCE field. | |
98 | The INSTANCE field appears in the N_BINCL and N_EXCL symbol table and is | |
99 | used to match header-file references to their corresponding data. */ | |
100 | ||
101 | struct header_file | |
102 | { | |
103 | ||
104 | /* Name of header file */ | |
105 | ||
106 | char *name; | |
107 | ||
108 | /* Numeric code distinguishing instances of one header file that produced | |
109 | different results when included. It comes from the N_BINCL or N_EXCL. */ | |
110 | ||
111 | int instance; | |
112 | ||
113 | /* Pointer to vector of types */ | |
114 | ||
115 | struct type **vector; | |
116 | ||
117 | /* Allocated length (# elts) of that vector */ | |
118 | ||
119 | int length; | |
120 | ||
121 | }; | |
122 | ||
123 | EXTERN struct header_file *header_files; | |
124 | ||
125 | EXTERN int n_header_files; | |
126 | ||
127 | EXTERN int n_allocated_header_files; | |
128 | ||
129 | /* Within each object file, various header files are assigned numbers. | |
130 | A type is defined or referred to with a pair of numbers | |
131 | (FILENUM,TYPENUM) where FILENUM is the number of the header file | |
132 | and TYPENUM is the number within that header file. | |
133 | TYPENUM is the index within the vector of types for that header file. | |
134 | ||
135 | FILENUM == 1 is special; it refers to the main source of the object file, | |
136 | and not to any header file. FILENUM != 1 is interpreted by looking it up | |
137 | in the following table, which contains indices in header_files. */ | |
138 | ||
139 | EXTERN int *this_object_header_files; | |
140 | ||
141 | EXTERN int n_this_object_header_files; | |
142 | ||
143 | EXTERN int n_allocated_this_object_header_files; | |
144 | ||
145 | extern struct complaint unknown_symtype_complaint; | |
146 | ||
147 | extern void | |
148 | read_type_number PARAMS ((char **, int *)); | |
149 | ||
150 | extern struct type * | |
151 | read_type PARAMS ((char **, struct objfile *)); | |
152 | ||
153 | extern void | |
154 | cleanup_undefined_types PARAMS ((void)); | |
155 | ||
156 | extern struct type ** | |
157 | dbx_lookup_type PARAMS ((int [2])); | |
158 | ||
159 | extern long | |
160 | read_number PARAMS ((char **, int)); | |
161 | ||
162 | extern void | |
163 | add_undefined_type PARAMS ((struct type *)); | |
164 | ||
165 | extern struct symbol * | |
166 | define_symbol PARAMS ((unsigned int, char *, int, int, struct objfile *)); | |
167 | ||
168 | extern struct partial_symtab * | |
169 | start_psymtab PARAMS ((struct objfile *, struct section_offsets *, char *, | |
170 | CORE_ADDR, int, struct partial_symbol *, | |
171 | struct partial_symbol *)); | |
172 | ||
173 | extern void | |
174 | end_psymtab PARAMS ((struct partial_symtab *, char **, int, int, CORE_ADDR, | |
175 | struct partial_symtab **, int)); | |
176 | ||
177 | extern void | |
178 | process_one_symbol PARAMS ((int, int, CORE_ADDR, char *, | |
179 | struct section_offsets *, struct objfile *)); | |
180 | ||
181 | extern void | |
182 | stabsread_init PARAMS ((void)); | |
183 | ||
184 | extern void | |
185 | stabsread_new_init PARAMS ((void)); | |
186 | ||
187 | extern void | |
188 | start_stabs PARAMS ((void)); | |
189 | ||
190 | extern void | |
191 | end_stabs PARAMS ((void)); | |
192 | ||
193 | extern void | |
194 | finish_global_stabs PARAMS ((struct objfile *objfile)); | |
195 | ||
196 | #undef EXTERN |