1 /* Shared code to pre-read a stab (dbx-style), when building a psymtab.
2 Copyright 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994
3 Free Software Foundation, Inc.
5 This file is part of GDB.
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2 of the License, or
10 (at your option) any later version.
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
21 /* The following need to be defined:
22 SET_NAMESTRING() --Set namestring to name of symbol.
23 CUR_SYMBOL_TYPE --Type code of current symbol.
24 CUR_SYMBOL_VALUE --Value field of current symbol. May be adjusted here.
27 /* End of macro definitions, now let's handle them symbols! */
29 switch (CUR_SYMBOL_TYPE
)
33 * Standard, external, non-debugger, symbols
37 case N_NBTEXT
| N_EXT
:
38 CUR_SYMBOL_VALUE
+= ANOFFSET (section_offsets
, SECT_OFF_TEXT
);
42 case N_NBDATA
| N_EXT
:
43 CUR_SYMBOL_VALUE
+= ANOFFSET (section_offsets
, SECT_OFF_DATA
);
49 case N_SETV
| N_EXT
: /* FIXME, is this in BSS? */
50 CUR_SYMBOL_VALUE
+= ANOFFSET (section_offsets
, SECT_OFF_BSS
);
59 record_minimal_symbol (namestring
, CUR_SYMBOL_VALUE
,
60 CUR_SYMBOL_TYPE
, objfile
); /* Always */
61 #endif /* DBXREAD_ONLY */
64 /* Standard, local, non-debugger, symbols */
68 /* We need to be able to deal with both N_FN or N_TEXT,
69 because we have no way of knowing whether the sys-supplied ld
70 or GNU ld was used to make the executable. Sequents throw
71 in another wrinkle -- they renumbered N_FN. */
77 CUR_SYMBOL_VALUE
+= ANOFFSET (section_offsets
, SECT_OFF_TEXT
);
79 if ((namestring
[0] == '-' && namestring
[1] == 'l')
80 || (namestring
[(nsl
= strlen (namestring
)) - 1] == 'o'
81 && namestring
[nsl
- 2] == '.')
82 #ifdef GDB_TARGET_IS_HPPA
83 /* some cooperation from gcc to get around ld stupidity */
84 || (namestring
[0] == 'e' && STREQ (namestring
, "end_file."))
88 #ifndef GDB_TARGET_IS_HPPA
89 if (objfile
-> ei
.entry_point
< CUR_SYMBOL_VALUE
&&
90 objfile
-> ei
.entry_point
>= last_o_file_start
)
92 objfile
-> ei
.entry_file_lowpc
= last_o_file_start
;
93 objfile
-> ei
.entry_file_highpc
= CUR_SYMBOL_VALUE
;
96 if (past_first_source_file
&& pst
97 /* The gould NP1 uses low values for .o and -l symbols
98 which are not the address. */
99 && CUR_SYMBOL_VALUE
>= pst
->textlow
)
101 END_PSYMTAB (pst
, psymtab_include_list
, includes_used
,
102 symnum
* symbol_size
, CUR_SYMBOL_VALUE
,
103 dependency_list
, dependencies_used
);
104 pst
= (struct partial_symtab
*) 0;
106 dependencies_used
= 0;
109 past_first_source_file
= 1;
110 last_o_file_start
= CUR_SYMBOL_VALUE
;
114 #endif /* DBXREAD_ONLY */
118 CUR_SYMBOL_VALUE
+= ANOFFSET (section_offsets
, SECT_OFF_DATA
);
123 if (CUR_SYMBOL_VALUE
!= 0) {
124 /* This is a "Fortran COMMON" symbol. See if the target
125 environment knows where it has been relocated to. */
130 if (target_lookup_symbol (namestring
, &reladdr
)) {
131 continue; /* Error in lookup; ignore symbol for now. */
133 CUR_SYMBOL_TYPE
^= (N_BSS
^N_UNDF
); /* Define it as a bss-symbol */
134 CUR_SYMBOL_VALUE
= reladdr
;
137 #endif /* DBXREAD_ONLY */
138 continue; /* Just undefined, not COMMON */
142 if (processing_acc_compilation
&& bufp
->n_strx
== 1) {
143 /* Deal with relative offsets in the string table
144 used in ELF+STAB under Solaris. If we want to use the
145 n_strx field, which contains the name of the file,
146 we must adjust file_string_table_offset *before* calling
148 past_first_source_file
= 1;
149 file_string_table_offset
= next_file_string_table_offset
;
150 next_file_string_table_offset
=
151 file_string_table_offset
+ bufp
->n_value
;
152 if (next_file_string_table_offset
< file_string_table_offset
)
153 error ("string table offset backs up at %d", symnum
);
154 /* FIXME -- replace error() with complaint. */
157 #endif /* DBXREAD_ONLY */
160 /* Lots of symbol types we can just ignore. */
167 /* Keep going . . .*/
170 * Special symbol types for GNU
191 static int prev_so_symnum
= -10;
192 static int first_so_symnum
;
195 valu
= CUR_SYMBOL_VALUE
+ ANOFFSET (section_offsets
, SECT_OFF_TEXT
);
197 past_first_source_file
= 1;
199 if (prev_so_symnum
!= symnum
- 1)
200 { /* Here if prev stab wasn't N_SO */
201 first_so_symnum
= symnum
;
205 END_PSYMTAB (pst
, psymtab_include_list
, includes_used
,
206 symnum
* symbol_size
, valu
,
207 dependency_list
, dependencies_used
);
208 pst
= (struct partial_symtab
*) 0;
210 dependencies_used
= 0;
214 prev_so_symnum
= symnum
;
216 /* End the current partial symtab and start a new one */
220 /* Some compilers (including gcc) emit a pair of initial N_SOs.
221 The first one is a directory name; the second the file name.
222 If pst exists, is empty, and has a filename ending in '/',
223 we assume the previous N_SO was a directory name. */
225 p
= strrchr (namestring
, '/');
226 if (p
&& *(p
+1) == '\000')
227 continue; /* Simply ignore directory name SOs */
229 /* Some other compilers (C++ ones in particular) emit useless
230 SOs for non-existant .c files. We ignore all subsequent SOs that
231 immediately follow the first. */
234 pst
= START_PSYMTAB (objfile
, section_offsets
,
236 first_so_symnum
* symbol_size
,
237 objfile
-> global_psymbols
.next
,
238 objfile
-> static_psymbols
.next
);
245 enum language tmp_language
;
246 /* Add this bincl to the bincl_list for future EXCLs. No
247 need to save the string; it'll be around until
248 read_dbx_symtab function returns */
252 tmp_language
= deduce_language_from_filename (namestring
);
254 /* Only change the psymtab's language if we've learned
255 something useful (eg. tmp_language is not language_unknown).
256 In addition, to match what start_subfile does, never change
258 if (tmp_language
!= language_unknown
259 && (tmp_language
!= language_c
260 || psymtab_language
!= language_cplus
))
261 psymtab_language
= tmp_language
;
263 add_bincl_to_list (pst
, namestring
, CUR_SYMBOL_VALUE
);
265 /* Mark down an include file in the current psymtab */
267 goto record_include_file
;
269 #else /* DBXREAD_ONLY */
276 enum language tmp_language
;
277 /* Mark down an include file in the current psymtab */
281 tmp_language
= deduce_language_from_filename (namestring
);
283 /* Only change the psymtab's language if we've learned
284 something useful (eg. tmp_language is not language_unknown).
285 In addition, to match what start_subfile does, never change
287 if (tmp_language
!= language_unknown
288 && (tmp_language
!= language_c
289 || psymtab_language
!= language_cplus
))
290 psymtab_language
= tmp_language
;
292 /* In C++, one may expect the same filename to come round many
293 times, when code is coming alternately from the main file
294 and from inline functions in other files. So I check to see
295 if this is a file we've seen before -- either the main
296 source file, or a previously included file.
298 This seems to be a lot of time to be spending on N_SOL, but
299 things like "break c-exp.y:435" need to work (I
300 suppose the psymtab_include_list could be hashed or put
301 in a binary tree, if profiling shows this is a major hog). */
302 if (pst
&& STREQ (namestring
, pst
->filename
))
306 for (i
= 0; i
< includes_used
; i
++)
307 if (STREQ (namestring
, psymtab_include_list
[i
]))
320 psymtab_include_list
[includes_used
++] = namestring
;
321 if (includes_used
>= includes_allocated
)
323 char **orig
= psymtab_include_list
;
325 psymtab_include_list
= (char **)
326 alloca ((includes_allocated
*= 2) *
328 memcpy ((PTR
)psymtab_include_list
, (PTR
)orig
,
329 includes_used
* sizeof (char *));
333 case N_LSYM
: /* Typedef or automatic variable. */
334 case N_STSYM
: /* Data seg var -- static */
335 case N_LCSYM
: /* BSS " */
336 case N_ROSYM
: /* Read-only data seg var -- static. */
337 case N_NBSTS
: /* Gould nobase. */
338 case N_NBLCS
: /* symbols. */
340 case N_GSYM
: /* Global (extern) variable; can be
341 data or bss (sigh FIXME). */
343 /* Following may probably be ignored; I'll leave them here
344 for now (until I do Pascal and Modula 2 extensions). */
346 case N_PC
: /* I may or may not need this; I
348 case N_M2C
: /* I suspect that I can ignore this here. */
349 case N_SCOPE
: /* Same. */
353 p
= (char *) strchr (namestring
, ':');
355 continue; /* Not a debugging symbol. */
359 /* Main processing section for debugging symbols which
360 the initial read through the symbol tables needs to worry
361 about. If we reach this point, the symbol which we are
362 considering is definitely one we are interested in.
363 p must also contain the (valid) index into the namestring
364 which indicates the debugging type symbol. */
369 CUR_SYMBOL_VALUE
+= ANOFFSET (section_offsets
, SECT_OFF_DATA
);
370 ADD_PSYMBOL_ADDR_TO_LIST (namestring
, p
- namestring
,
371 VAR_NAMESPACE
, LOC_STATIC
,
372 objfile
->static_psymbols
,
374 psymtab_language
, objfile
);
377 CUR_SYMBOL_VALUE
+= ANOFFSET (section_offsets
, SECT_OFF_DATA
);
378 /* The addresses in these entries are reported to be
379 wrong. See the code that reads 'G's for symtabs. */
380 ADD_PSYMBOL_ADDR_TO_LIST (namestring
, p
- namestring
,
381 VAR_NAMESPACE
, LOC_STATIC
,
382 objfile
->global_psymbols
,
384 psymtab_language
, objfile
);
388 if (p
!= namestring
) /* a name is there, not just :T... */
390 ADD_PSYMBOL_TO_LIST (namestring
, p
- namestring
,
391 STRUCT_NAMESPACE
, LOC_TYPEDEF
,
392 objfile
->static_psymbols
,
394 psymtab_language
, objfile
);
397 /* Also a typedef with the same name. */
398 ADD_PSYMBOL_TO_LIST (namestring
, p
- namestring
,
399 VAR_NAMESPACE
, LOC_TYPEDEF
,
400 objfile
->static_psymbols
,
401 CUR_SYMBOL_VALUE
, psymtab_language
,
405 /* The semantics of C++ state that "struct foo { ... }"
406 also defines a typedef for "foo". Unfortuantely, cfront
407 never makes the typedef when translating from C++ to C.
408 We make the typedef here so that "ptype foo" works as
409 expected for cfront translated code. */
410 else if (psymtab_language
== language_cplus
)
412 /* Also a typedef with the same name. */
413 ADD_PSYMBOL_TO_LIST (namestring
, p
- namestring
,
414 VAR_NAMESPACE
, LOC_TYPEDEF
,
415 objfile
->static_psymbols
,
416 CUR_SYMBOL_VALUE
, psymtab_language
,
422 if (p
!= namestring
) /* a name is there, not just :T... */
424 ADD_PSYMBOL_TO_LIST (namestring
, p
- namestring
,
425 VAR_NAMESPACE
, LOC_TYPEDEF
,
426 objfile
->static_psymbols
,
428 psymtab_language
, objfile
);
431 /* If this is an enumerated type, we need to
432 add all the enum constants to the partial symbol
433 table. This does not cover enums without names, e.g.
434 "enum {a, b} c;" in C, but fortunately those are
435 rare. There is no way for GDB to find those from the
436 enum type without spending too much time on it. Thus
437 to solve this problem, the compiler needs to put out the
438 enum in a nameless type. GCC2 does this. */
440 /* We are looking for something of the form
441 <name> ":" ("t" | "T") [<number> "="] "e"
442 {<constant> ":" <value> ","} ";". */
444 /* Skip over the colon and the 't' or 'T'. */
446 /* This type may be given a number. Also, numbers can come
447 in pairs like (0,26). Skip over it. */
448 while ((*p
>= '0' && *p
<= '9')
449 || *p
== '(' || *p
== ',' || *p
== ')'
455 /* We have found an enumerated type. */
456 /* According to comments in read_enum_type
457 a comma could end it instead of a semicolon.
458 I don't know where that happens.
460 while (*p
&& *p
!= ';' && *p
!= ',')
464 /* Check for and handle cretinous dbx symbol name
466 if (*p
== '\\' || (*p
== '?' && p
[1] == '\0'))
467 p
= next_symbol_text ();
469 /* Point to the character after the name
470 of the enum constant. */
471 for (q
= p
; *q
&& *q
!= ':'; q
++)
473 /* Note that the value doesn't matter for
474 enum constants in psymtabs, just in symtabs. */
475 ADD_PSYMBOL_TO_LIST (p
, q
- p
,
476 VAR_NAMESPACE
, LOC_CONST
,
477 objfile
->static_psymbols
, 0,
478 psymtab_language
, objfile
);
479 /* Point past the name. */
481 /* Skip over the value. */
482 while (*p
&& *p
!= ',')
484 /* Advance past the comma. */
491 /* Constant, e.g. from "const" in Pascal. */
492 ADD_PSYMBOL_TO_LIST (namestring
, p
- namestring
,
493 VAR_NAMESPACE
, LOC_CONST
,
494 objfile
->static_psymbols
, CUR_SYMBOL_VALUE
,
495 psymtab_language
, objfile
);
499 CUR_SYMBOL_VALUE
+= ANOFFSET (section_offsets
, SECT_OFF_TEXT
);
501 /* Kludges for ELF/STABS with Sun ACC */
502 last_function_name
= namestring
;
503 if (pst
&& pst
->textlow
== 0)
504 pst
->textlow
= CUR_SYMBOL_VALUE
;
506 if (startup_file_end
== 0)
507 startup_file_end
= CUR_SYMBOL_VALUE
;
510 #endif /* DBXREAD_ONLY */
511 ADD_PSYMBOL_TO_LIST (namestring
, p
- namestring
,
512 VAR_NAMESPACE
, LOC_BLOCK
,
513 objfile
->static_psymbols
, CUR_SYMBOL_VALUE
,
514 psymtab_language
, objfile
);
517 /* Global functions were ignored here, but now they
518 are put into the global psymtab like one would expect.
519 They're also in the minimal symbol table. */
521 CUR_SYMBOL_VALUE
+= ANOFFSET (section_offsets
, SECT_OFF_TEXT
);
523 /* Kludges for ELF/STABS with Sun ACC */
524 last_function_name
= namestring
;
525 if (pst
&& pst
->textlow
== 0)
526 pst
->textlow
= CUR_SYMBOL_VALUE
;
528 if (startup_file_end
== 0)
529 startup_file_end
= CUR_SYMBOL_VALUE
;
532 #endif /* DBXREAD_ONLY */
533 ADD_PSYMBOL_TO_LIST (namestring
, p
- namestring
,
534 VAR_NAMESPACE
, LOC_BLOCK
,
535 objfile
->global_psymbols
, CUR_SYMBOL_VALUE
,
536 psymtab_language
, objfile
);
539 /* Two things show up here (hopefully); static symbols of
540 local scope (static used inside braces) or extensions
541 of structure symbols. We can ignore both. */
557 /* It is a C++ nested symbol. We don't need to record it
558 (I don't think); if we try to look up foo::bar::baz,
559 then symbols for the symtab containing foo should get
561 /* Someone says sun cc puts out symbols like
562 /foo/baz/maclib::/usr/local/bin/maclib,
563 which would get here with a symbol type of ':'. */
567 /* Unexpected symbol descriptor. The second and subsequent stabs
568 of a continued stab can show up here. The question is
569 whether they ever can mimic a normal stab--it would be
570 nice if not, since we certainly don't want to spend the
571 time searching to the end of every string looking for
574 complain (&unknown_symchar_complaint
, p
[1]);
576 /* Ignore it; perhaps it is an extension that we don't
586 /* Find the corresponding bincl and mark that psymtab on the
587 psymtab dependency list */
589 struct partial_symtab
*needed_pst
=
590 find_corresponding_bincl_psymtab (namestring
, CUR_SYMBOL_VALUE
);
592 /* If this include file was defined earlier in this file,
594 if (needed_pst
== pst
) continue;
601 for (i
= 0; i
< dependencies_used
; i
++)
602 if (dependency_list
[i
] == needed_pst
)
608 /* If it's already in the list, skip the rest. */
611 dependency_list
[dependencies_used
++] = needed_pst
;
612 if (dependencies_used
>= dependencies_allocated
)
614 struct partial_symtab
**orig
= dependency_list
;
616 (struct partial_symtab
**)
617 alloca ((dependencies_allocated
*= 2)
618 * sizeof (struct partial_symtab
*));
619 memcpy ((PTR
)dependency_list
, (PTR
)orig
,
621 * sizeof (struct partial_symtab
*)));
623 fprintf_unfiltered (gdb_stderr
, "Had to reallocate dependency list.\n");
624 fprintf_unfiltered (gdb_stderr
, "New dependencies allocated: %d\n",
625 dependencies_allocated
);
630 error ("Invalid symbol data: \"repeated\" header file not previously seen, at symtab pos %d.",
633 #endif /* DBXREAD_ONLY */
638 HANDLE_RBRAC(CUR_SYMBOL_VALUE
);
644 case N_SSYM
: /* Claim: Structure or union element.
645 Hopefully, I can ignore this. */
646 case N_ENTRY
: /* Alternate entry point; can ignore. */
647 case N_MAIN
: /* Can definitely ignore this. */
648 case N_CATCH
: /* These are GNU C++ extensions */
649 case N_EHDECL
: /* that can safely be ignored here. */
659 case N_NSYMS
: /* Ultrix 4.0: symbol count */
660 case N_DEFD
: /* GNU Modula-2 */
662 case N_OBJ
: /* useless types from Solaris */
665 /* These symbols aren't interesting; don't worry about them */
670 /* If we haven't found it yet, ignore it. It's probably some
671 new type we don't know about yet. */
672 complain (&unknown_symtype_complaint
,
673 local_hex_string (CUR_SYMBOL_TYPE
));