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, 1995, 1996
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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, 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.
25 namestring - variable pointing to the name of the stab.
26 section_offsets - variable pointing to the section offsets.
27 pst - the partial symbol table being built.
29 psymtab_include_list, includes_used, includes_allocated - list of include
30 file names (N_SOL) seen so far.
31 dependency_list, dependencies_used, dependencies_allocated - list of
32 N_EXCL stabs seen so far.
34 END_PSYMTAB -- end a partial symbol table.
35 START_PSYMTAB -- start a partial symbol table.
38 /* End of macro definitions, now let's handle them symbols! */
40 switch (CUR_SYMBOL_TYPE
)
44 * Standard, external, non-debugger, symbols
48 case N_NBTEXT
| N_EXT
:
49 CUR_SYMBOL_VALUE
+= ANOFFSET (section_offsets
, SECT_OFF_TEXT
);
53 case N_NBDATA
| N_EXT
:
54 CUR_SYMBOL_VALUE
+= ANOFFSET (section_offsets
, SECT_OFF_DATA
);
60 case N_SETV
| N_EXT
: /* FIXME, is this in BSS? */
61 CUR_SYMBOL_VALUE
+= ANOFFSET (section_offsets
, SECT_OFF_BSS
);
70 record_minimal_symbol (namestring
, CUR_SYMBOL_VALUE
,
71 CUR_SYMBOL_TYPE
, objfile
); /* Always */
72 #endif /* DBXREAD_ONLY */
75 /* Standard, local, non-debugger, symbols */
79 /* We need to be able to deal with both N_FN or N_TEXT,
80 because we have no way of knowing whether the sys-supplied ld
81 or GNU ld was used to make the executable. Sequents throw
82 in another wrinkle -- they renumbered N_FN. */
88 CUR_SYMBOL_VALUE
+= ANOFFSET (section_offsets
, SECT_OFF_TEXT
);
90 if ((namestring
[0] == '-' && namestring
[1] == 'l')
91 || (namestring
[(nsl
= strlen (namestring
)) - 1] == 'o'
92 && namestring
[nsl
- 2] == '.'))
94 if (objfile
-> ei
.entry_point
< CUR_SYMBOL_VALUE
&&
95 objfile
-> ei
.entry_point
>= last_o_file_start
)
97 objfile
-> ei
.entry_file_lowpc
= last_o_file_start
;
98 objfile
-> ei
.entry_file_highpc
= CUR_SYMBOL_VALUE
;
100 if (past_first_source_file
&& pst
101 /* The gould NP1 uses low values for .o and -l symbols
102 which are not the address. */
103 && CUR_SYMBOL_VALUE
>= pst
->textlow
)
105 END_PSYMTAB (pst
, psymtab_include_list
, includes_used
,
106 symnum
* symbol_size
,
107 CUR_SYMBOL_VALUE
> pst
->texthigh
108 ? CUR_SYMBOL_VALUE
: pst
->texthigh
,
109 dependency_list
, dependencies_used
, textlow_not_set
);
110 pst
= (struct partial_symtab
*) 0;
112 dependencies_used
= 0;
115 past_first_source_file
= 1;
116 last_o_file_start
= CUR_SYMBOL_VALUE
;
120 #endif /* DBXREAD_ONLY */
124 CUR_SYMBOL_VALUE
+= ANOFFSET (section_offsets
, SECT_OFF_DATA
);
129 if (CUR_SYMBOL_VALUE
!= 0) {
130 /* This is a "Fortran COMMON" symbol. See if the target
131 environment knows where it has been relocated to. */
136 if (target_lookup_symbol (namestring
, &reladdr
)) {
137 continue; /* Error in lookup; ignore symbol for now. */
139 CUR_SYMBOL_TYPE
^= (N_BSS
^N_UNDF
); /* Define it as a bss-symbol */
140 CUR_SYMBOL_VALUE
= reladdr
;
143 #endif /* DBXREAD_ONLY */
144 continue; /* Just undefined, not COMMON */
148 if (processing_acc_compilation
&& CUR_SYMBOL_STRX
== 1) {
149 /* Deal with relative offsets in the string table
150 used in ELF+STAB under Solaris. If we want to use the
151 n_strx field, which contains the name of the file,
152 we must adjust file_string_table_offset *before* calling
154 past_first_source_file
= 1;
155 file_string_table_offset
= next_file_string_table_offset
;
156 next_file_string_table_offset
=
157 file_string_table_offset
+ CUR_SYMBOL_VALUE
;
158 if (next_file_string_table_offset
< file_string_table_offset
)
159 error ("string table offset backs up at %d", symnum
);
160 /* FIXME -- replace error() with complaint. */
163 #endif /* DBXREAD_ONLY */
166 /* Lots of symbol types we can just ignore. */
173 /* Keep going . . .*/
176 * Special symbol types for GNU
197 static int prev_so_symnum
= -10;
198 static int first_so_symnum
;
200 int prev_textlow_not_set
;
202 valu
= CUR_SYMBOL_VALUE
+ ANOFFSET (section_offsets
, SECT_OFF_TEXT
);
204 prev_textlow_not_set
= textlow_not_set
;
206 #ifdef SOFUN_ADDRESS_MAYBE_MISSING
207 /* A zero value is probably an indication for the SunPRO 3.0
208 compiler. end_psymtab explicitly tests for zero, so
209 don't relocate it. */
211 if (CUR_SYMBOL_VALUE
== 0)
221 past_first_source_file
= 1;
223 if (prev_so_symnum
!= symnum
- 1)
224 { /* Here if prev stab wasn't N_SO */
225 first_so_symnum
= symnum
;
229 END_PSYMTAB (pst
, psymtab_include_list
, includes_used
,
230 symnum
* symbol_size
,
231 valu
> pst
->texthigh
? valu
: pst
->texthigh
,
232 dependency_list
, dependencies_used
,
233 prev_textlow_not_set
);
234 pst
= (struct partial_symtab
*) 0;
236 dependencies_used
= 0;
240 prev_so_symnum
= symnum
;
242 /* End the current partial symtab and start a new one */
246 /* Null name means end of .o file. Don't start a new one. */
247 if (*namestring
== '\000')
250 /* Some compilers (including gcc) emit a pair of initial N_SOs.
251 The first one is a directory name; the second the file name.
252 If pst exists, is empty, and has a filename ending in '/',
253 we assume the previous N_SO was a directory name. */
255 p
= strrchr (namestring
, '/');
256 if (p
&& *(p
+1) == '\000')
257 continue; /* Simply ignore directory name SOs */
259 /* Some other compilers (C++ ones in particular) emit useless
260 SOs for non-existant .c files. We ignore all subsequent SOs that
261 immediately follow the first. */
264 pst
= START_PSYMTAB (objfile
, section_offsets
,
266 first_so_symnum
* symbol_size
,
267 objfile
-> global_psymbols
.next
,
268 objfile
-> static_psymbols
.next
);
275 enum language tmp_language
;
276 /* Add this bincl to the bincl_list for future EXCLs. No
277 need to save the string; it'll be around until
278 read_dbx_symtab function returns */
282 tmp_language
= deduce_language_from_filename (namestring
);
284 /* Only change the psymtab's language if we've learned
285 something useful (eg. tmp_language is not language_unknown).
286 In addition, to match what start_subfile does, never change
288 if (tmp_language
!= language_unknown
289 && (tmp_language
!= language_c
290 || psymtab_language
!= language_cplus
))
291 psymtab_language
= tmp_language
;
295 /* FIXME: we should not get here without a PST to work on.
296 Attempt to recover. */
297 complain (&unclaimed_bincl_complaint
, namestring
, symnum
);
300 add_bincl_to_list (pst
, namestring
, CUR_SYMBOL_VALUE
);
302 /* Mark down an include file in the current psymtab */
304 goto record_include_file
;
306 #else /* DBXREAD_ONLY */
313 enum language tmp_language
;
314 /* Mark down an include file in the current psymtab */
318 tmp_language
= deduce_language_from_filename (namestring
);
320 /* Only change the psymtab's language if we've learned
321 something useful (eg. tmp_language is not language_unknown).
322 In addition, to match what start_subfile does, never change
324 if (tmp_language
!= language_unknown
325 && (tmp_language
!= language_c
326 || psymtab_language
!= language_cplus
))
327 psymtab_language
= tmp_language
;
329 /* In C++, one may expect the same filename to come round many
330 times, when code is coming alternately from the main file
331 and from inline functions in other files. So I check to see
332 if this is a file we've seen before -- either the main
333 source file, or a previously included file.
335 This seems to be a lot of time to be spending on N_SOL, but
336 things like "break c-exp.y:435" need to work (I
337 suppose the psymtab_include_list could be hashed or put
338 in a binary tree, if profiling shows this is a major hog). */
339 if (pst
&& STREQ (namestring
, pst
->filename
))
343 for (i
= 0; i
< includes_used
; i
++)
344 if (STREQ (namestring
, psymtab_include_list
[i
]))
357 psymtab_include_list
[includes_used
++] = namestring
;
358 if (includes_used
>= includes_allocated
)
360 char **orig
= psymtab_include_list
;
362 psymtab_include_list
= (char **)
363 alloca ((includes_allocated
*= 2) *
365 memcpy ((PTR
)psymtab_include_list
, (PTR
)orig
,
366 includes_used
* sizeof (char *));
370 case N_LSYM
: /* Typedef or automatic variable. */
371 case N_STSYM
: /* Data seg var -- static */
372 case N_LCSYM
: /* BSS " */
373 case N_ROSYM
: /* Read-only data seg var -- static. */
374 case N_NBSTS
: /* Gould nobase. */
375 case N_NBLCS
: /* symbols. */
377 case N_GSYM
: /* Global (extern) variable; can be
378 data or bss (sigh FIXME). */
380 /* Following may probably be ignored; I'll leave them here
381 for now (until I do Pascal and Modula 2 extensions). */
383 case N_PC
: /* I may or may not need this; I
385 case N_M2C
: /* I suspect that I can ignore this here. */
386 case N_SCOPE
: /* Same. */
391 /* See if this is an end of function stab. */
392 if (CUR_SYMBOL_TYPE
== N_FUN
&& *namestring
== '\000')
396 /* It's value is the size (in bytes) of the function for
397 function relative stabs, or the address of the function's
398 end for old style stabs. */
399 valu
= CUR_SYMBOL_VALUE
+ last_function_start
;
400 if (pst
->texthigh
== 0 || valu
> pst
->texthigh
)
401 pst
->texthigh
= valu
;
406 p
= (char *) strchr (namestring
, ':');
408 continue; /* Not a debugging symbol. */
412 /* Main processing section for debugging symbols which
413 the initial read through the symbol tables needs to worry
414 about. If we reach this point, the symbol which we are
415 considering is definitely one we are interested in.
416 p must also contain the (valid) index into the namestring
417 which indicates the debugging type symbol. */
422 CUR_SYMBOL_VALUE
+= ANOFFSET (section_offsets
, SECT_OFF_DATA
);
423 #ifdef STATIC_TRANSFORM_NAME
424 namestring
= STATIC_TRANSFORM_NAME (namestring
);
426 add_psymbol_to_list (namestring
, p
- namestring
,
427 VAR_NAMESPACE
, LOC_STATIC
,
428 &objfile
->static_psymbols
,
430 psymtab_language
, objfile
);
433 CUR_SYMBOL_VALUE
+= ANOFFSET (section_offsets
, SECT_OFF_DATA
);
434 /* The addresses in these entries are reported to be
435 wrong. See the code that reads 'G's for symtabs. */
436 add_psymbol_to_list (namestring
, p
- namestring
,
437 VAR_NAMESPACE
, LOC_STATIC
,
438 &objfile
->global_psymbols
,
440 psymtab_language
, objfile
);
444 if (p
!= namestring
) /* a name is there, not just :T... */
446 add_psymbol_to_list (namestring
, p
- namestring
,
447 STRUCT_NAMESPACE
, LOC_TYPEDEF
,
448 &objfile
->static_psymbols
,
450 psymtab_language
, objfile
);
453 /* Also a typedef with the same name. */
454 add_psymbol_to_list (namestring
, p
- namestring
,
455 VAR_NAMESPACE
, LOC_TYPEDEF
,
456 &objfile
->static_psymbols
,
458 psymtab_language
, objfile
);
461 /* The semantics of C++ state that "struct foo { ... }"
462 also defines a typedef for "foo". Unfortuantely, cfront
463 never makes the typedef when translating from C++ to C.
464 We make the typedef here so that "ptype foo" works as
465 expected for cfront translated code. */
466 else if (psymtab_language
== language_cplus
)
468 /* Also a typedef with the same name. */
469 add_psymbol_to_list (namestring
, p
- namestring
,
470 VAR_NAMESPACE
, LOC_TYPEDEF
,
471 &objfile
->static_psymbols
,
473 psymtab_language
, objfile
);
478 if (p
!= namestring
) /* a name is there, not just :T... */
480 add_psymbol_to_list (namestring
, p
- namestring
,
481 VAR_NAMESPACE
, LOC_TYPEDEF
,
482 &objfile
->static_psymbols
,
484 psymtab_language
, objfile
);
487 /* If this is an enumerated type, we need to
488 add all the enum constants to the partial symbol
489 table. This does not cover enums without names, e.g.
490 "enum {a, b} c;" in C, but fortunately those are
491 rare. There is no way for GDB to find those from the
492 enum type without spending too much time on it. Thus
493 to solve this problem, the compiler needs to put out the
494 enum in a nameless type. GCC2 does this. */
496 /* We are looking for something of the form
497 <name> ":" ("t" | "T") [<number> "="] "e"
498 {<constant> ":" <value> ","} ";". */
500 /* Skip over the colon and the 't' or 'T'. */
502 /* This type may be given a number. Also, numbers can come
503 in pairs like (0,26). Skip over it. */
504 while ((*p
>= '0' && *p
<= '9')
505 || *p
== '(' || *p
== ',' || *p
== ')'
511 /* The aix4 compiler emits extra crud before the members. */
514 /* Skip over the type (?). */
518 /* Skip over the colon. */
522 /* We have found an enumerated type. */
523 /* According to comments in read_enum_type
524 a comma could end it instead of a semicolon.
525 I don't know where that happens.
527 while (*p
&& *p
!= ';' && *p
!= ',')
531 /* Check for and handle cretinous dbx symbol name
533 if (*p
== '\\' || (*p
== '?' && p
[1] == '\0'))
534 p
= next_symbol_text (objfile
);
536 /* Point to the character after the name
537 of the enum constant. */
538 for (q
= p
; *q
&& *q
!= ':'; q
++)
540 /* Note that the value doesn't matter for
541 enum constants in psymtabs, just in symtabs. */
542 add_psymbol_to_list (p
, q
- p
,
543 VAR_NAMESPACE
, LOC_CONST
,
544 &objfile
->static_psymbols
, 0,
545 0, psymtab_language
, objfile
);
546 /* Point past the name. */
548 /* Skip over the value. */
549 while (*p
&& *p
!= ',')
551 /* Advance past the comma. */
558 /* Constant, e.g. from "const" in Pascal. */
559 add_psymbol_to_list (namestring
, p
- namestring
,
560 VAR_NAMESPACE
, LOC_CONST
,
561 &objfile
->static_psymbols
, CUR_SYMBOL_VALUE
,
562 0, psymtab_language
, objfile
);
566 CUR_SYMBOL_VALUE
+= ANOFFSET (section_offsets
, SECT_OFF_TEXT
);
568 /* Keep track of the start of the last function so we
569 can handle end of function symbols. */
570 last_function_start
= CUR_SYMBOL_VALUE
;
571 /* Kludges for ELF/STABS with Sun ACC */
572 last_function_name
= namestring
;
573 #ifdef SOFUN_ADDRESS_MAYBE_MISSING
574 /* Do not fix textlow==0 for .o or NLM files, as 0 is a legit
575 value for the bottom of the text seg in those cases. */
576 if (pst
&& textlow_not_set
)
579 find_stab_function_addr (namestring
, pst
, objfile
);
584 if (startup_file_end
== 0)
585 startup_file_end
= CUR_SYMBOL_VALUE
;
589 /* In reordered executables this function may lie outside
590 the bounds created by N_SO symbols. If that's the case
591 use the address of this function as the low bound for
592 the partial symbol table. */
594 || (CUR_SYMBOL_VALUE
< pst
->textlow
596 != ANOFFSET (section_offsets
, SECT_OFF_TEXT
)))
598 pst
->textlow
= CUR_SYMBOL_VALUE
;
601 #endif /* DBXREAD_ONLY */
602 add_psymbol_to_list (namestring
, p
- namestring
,
603 VAR_NAMESPACE
, LOC_BLOCK
,
604 &objfile
->static_psymbols
, CUR_SYMBOL_VALUE
,
605 0, psymtab_language
, objfile
);
608 /* Global functions were ignored here, but now they
609 are put into the global psymtab like one would expect.
610 They're also in the minimal symbol table. */
612 CUR_SYMBOL_VALUE
+= ANOFFSET (section_offsets
, SECT_OFF_TEXT
);
614 /* Keep track of the start of the last function so we
615 can handle end of function symbols. */
616 last_function_start
= CUR_SYMBOL_VALUE
;
617 /* Kludges for ELF/STABS with Sun ACC */
618 last_function_name
= namestring
;
619 #ifdef SOFUN_ADDRESS_MAYBE_MISSING
620 /* Do not fix textlow==0 for .o or NLM files, as 0 is a legit
621 value for the bottom of the text seg in those cases. */
622 if (pst
&& textlow_not_set
)
625 find_stab_function_addr (namestring
, pst
, objfile
);
630 if (startup_file_end
== 0)
631 startup_file_end
= CUR_SYMBOL_VALUE
;
634 /* In reordered executables this function may lie outside
635 the bounds created by N_SO symbols. If that's the case
636 use the address of this function as the low bound for
637 the partial symbol table. */
639 || (CUR_SYMBOL_VALUE
< pst
->textlow
641 != ANOFFSET (section_offsets
, SECT_OFF_TEXT
)))
643 pst
->textlow
= CUR_SYMBOL_VALUE
;
646 #endif /* DBXREAD_ONLY */
647 add_psymbol_to_list (namestring
, p
- namestring
,
648 VAR_NAMESPACE
, LOC_BLOCK
,
649 &objfile
->global_psymbols
, CUR_SYMBOL_VALUE
,
650 0, psymtab_language
, objfile
);
653 /* Two things show up here (hopefully); static symbols of
654 local scope (static used inside braces) or extensions
655 of structure symbols. We can ignore both. */
669 case '#': /* for symbol identification (used in live ranges) */
670 /* added to support cfront stabs strings */
671 case 'Z': /* for definition continuations */
672 case 'P': /* for prototypes */
676 /* It is a C++ nested symbol. We don't need to record it
677 (I don't think); if we try to look up foo::bar::baz,
678 then symbols for the symtab containing foo should get
680 /* Someone says sun cc puts out symbols like
681 /foo/baz/maclib::/usr/local/bin/maclib,
682 which would get here with a symbol type of ':'. */
686 /* Unexpected symbol descriptor. The second and subsequent stabs
687 of a continued stab can show up here. The question is
688 whether they ever can mimic a normal stab--it would be
689 nice if not, since we certainly don't want to spend the
690 time searching to the end of every string looking for
693 complain (&unknown_symchar_complaint
, p
[1]);
695 /* Ignore it; perhaps it is an extension that we don't
705 /* Find the corresponding bincl and mark that psymtab on the
706 psymtab dependency list */
708 struct partial_symtab
*needed_pst
=
709 find_corresponding_bincl_psymtab (namestring
, CUR_SYMBOL_VALUE
);
711 /* If this include file was defined earlier in this file,
713 if (needed_pst
== pst
) continue;
720 for (i
= 0; i
< dependencies_used
; i
++)
721 if (dependency_list
[i
] == needed_pst
)
727 /* If it's already in the list, skip the rest. */
730 dependency_list
[dependencies_used
++] = needed_pst
;
731 if (dependencies_used
>= dependencies_allocated
)
733 struct partial_symtab
**orig
= dependency_list
;
735 (struct partial_symtab
**)
736 alloca ((dependencies_allocated
*= 2)
737 * sizeof (struct partial_symtab
*));
738 memcpy ((PTR
)dependency_list
, (PTR
)orig
,
740 * sizeof (struct partial_symtab
*)));
742 fprintf_unfiltered (gdb_stderr
, "Had to reallocate dependency list.\n");
743 fprintf_unfiltered (gdb_stderr
, "New dependencies allocated: %d\n",
744 dependencies_allocated
);
749 #endif /* DBXREAD_ONLY */
753 #ifdef SOFUN_ADDRESS_MAYBE_MISSING
754 /* Solaris 2 end of module, finish current partial symbol table.
755 END_PSYMTAB will set pst->texthigh to the proper value, which
756 is necessary if a module compiled without debugging info
757 follows this module. */
760 END_PSYMTAB (pst
, psymtab_include_list
, includes_used
,
761 symnum
* symbol_size
,
763 dependency_list
, dependencies_used
, textlow_not_set
);
764 pst
= (struct partial_symtab
*) 0;
766 dependencies_used
= 0;
773 HANDLE_RBRAC(CUR_SYMBOL_VALUE
);
779 case N_SSYM
: /* Claim: Structure or union element.
780 Hopefully, I can ignore this. */
781 case N_ENTRY
: /* Alternate entry point; can ignore. */
782 case N_MAIN
: /* Can definitely ignore this. */
783 case N_CATCH
: /* These are GNU C++ extensions */
784 case N_EHDECL
: /* that can safely be ignored here. */
794 case N_NSYMS
: /* Ultrix 4.0: symbol count */
795 case N_DEFD
: /* GNU Modula-2 */
797 case N_OBJ
: /* useless types from Solaris */
799 /* These symbols aren't interesting; don't worry about them */
804 /* If we haven't found it yet, ignore it. It's probably some
805 new type we don't know about yet. */
806 complain (&unknown_symtype_complaint
,
807 local_hex_string (CUR_SYMBOL_TYPE
));