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 /* Null name means end of .o file. Don't start a new one. */
221 if (*namestring
== '\000')
224 /* Some compilers (including gcc) emit a pair of initial N_SOs.
225 The first one is a directory name; the second the file name.
226 If pst exists, is empty, and has a filename ending in '/',
227 we assume the previous N_SO was a directory name. */
229 p
= strrchr (namestring
, '/');
230 if (p
&& *(p
+1) == '\000')
231 continue; /* Simply ignore directory name SOs */
233 /* Some other compilers (C++ ones in particular) emit useless
234 SOs for non-existant .c files. We ignore all subsequent SOs that
235 immediately follow the first. */
238 pst
= START_PSYMTAB (objfile
, section_offsets
,
240 first_so_symnum
* symbol_size
,
241 objfile
-> global_psymbols
.next
,
242 objfile
-> static_psymbols
.next
);
249 enum language tmp_language
;
250 /* Add this bincl to the bincl_list for future EXCLs. No
251 need to save the string; it'll be around until
252 read_dbx_symtab function returns */
256 tmp_language
= deduce_language_from_filename (namestring
);
258 /* Only change the psymtab's language if we've learned
259 something useful (eg. tmp_language is not language_unknown).
260 In addition, to match what start_subfile does, never change
262 if (tmp_language
!= language_unknown
263 && (tmp_language
!= language_c
264 || psymtab_language
!= language_cplus
))
265 psymtab_language
= tmp_language
;
267 add_bincl_to_list (pst
, namestring
, CUR_SYMBOL_VALUE
);
269 /* Mark down an include file in the current psymtab */
271 goto record_include_file
;
273 #else /* DBXREAD_ONLY */
280 enum language tmp_language
;
281 /* Mark down an include file in the current psymtab */
285 tmp_language
= deduce_language_from_filename (namestring
);
287 /* Only change the psymtab's language if we've learned
288 something useful (eg. tmp_language is not language_unknown).
289 In addition, to match what start_subfile does, never change
291 if (tmp_language
!= language_unknown
292 && (tmp_language
!= language_c
293 || psymtab_language
!= language_cplus
))
294 psymtab_language
= tmp_language
;
296 /* In C++, one may expect the same filename to come round many
297 times, when code is coming alternately from the main file
298 and from inline functions in other files. So I check to see
299 if this is a file we've seen before -- either the main
300 source file, or a previously included file.
302 This seems to be a lot of time to be spending on N_SOL, but
303 things like "break c-exp.y:435" need to work (I
304 suppose the psymtab_include_list could be hashed or put
305 in a binary tree, if profiling shows this is a major hog). */
306 if (pst
&& STREQ (namestring
, pst
->filename
))
310 for (i
= 0; i
< includes_used
; i
++)
311 if (STREQ (namestring
, psymtab_include_list
[i
]))
324 psymtab_include_list
[includes_used
++] = namestring
;
325 if (includes_used
>= includes_allocated
)
327 char **orig
= psymtab_include_list
;
329 psymtab_include_list
= (char **)
330 alloca ((includes_allocated
*= 2) *
332 memcpy ((PTR
)psymtab_include_list
, (PTR
)orig
,
333 includes_used
* sizeof (char *));
337 case N_LSYM
: /* Typedef or automatic variable. */
338 case N_STSYM
: /* Data seg var -- static */
339 case N_LCSYM
: /* BSS " */
340 case N_ROSYM
: /* Read-only data seg var -- static. */
341 case N_NBSTS
: /* Gould nobase. */
342 case N_NBLCS
: /* symbols. */
344 case N_GSYM
: /* Global (extern) variable; can be
345 data or bss (sigh FIXME). */
347 /* Following may probably be ignored; I'll leave them here
348 for now (until I do Pascal and Modula 2 extensions). */
350 case N_PC
: /* I may or may not need this; I
352 case N_M2C
: /* I suspect that I can ignore this here. */
353 case N_SCOPE
: /* Same. */
357 p
= (char *) strchr (namestring
, ':');
359 continue; /* Not a debugging symbol. */
363 /* Main processing section for debugging symbols which
364 the initial read through the symbol tables needs to worry
365 about. If we reach this point, the symbol which we are
366 considering is definitely one we are interested in.
367 p must also contain the (valid) index into the namestring
368 which indicates the debugging type symbol. */
373 CUR_SYMBOL_VALUE
+= ANOFFSET (section_offsets
, SECT_OFF_DATA
);
374 ADD_PSYMBOL_ADDR_TO_LIST (namestring
, p
- namestring
,
375 VAR_NAMESPACE
, LOC_STATIC
,
376 objfile
->static_psymbols
,
378 psymtab_language
, objfile
);
381 CUR_SYMBOL_VALUE
+= ANOFFSET (section_offsets
, SECT_OFF_DATA
);
382 /* The addresses in these entries are reported to be
383 wrong. See the code that reads 'G's for symtabs. */
384 ADD_PSYMBOL_ADDR_TO_LIST (namestring
, p
- namestring
,
385 VAR_NAMESPACE
, LOC_STATIC
,
386 objfile
->global_psymbols
,
388 psymtab_language
, objfile
);
392 if (p
!= namestring
) /* a name is there, not just :T... */
394 ADD_PSYMBOL_TO_LIST (namestring
, p
- namestring
,
395 STRUCT_NAMESPACE
, LOC_TYPEDEF
,
396 objfile
->static_psymbols
,
398 psymtab_language
, objfile
);
401 /* Also a typedef with the same name. */
402 ADD_PSYMBOL_TO_LIST (namestring
, p
- namestring
,
403 VAR_NAMESPACE
, LOC_TYPEDEF
,
404 objfile
->static_psymbols
,
405 CUR_SYMBOL_VALUE
, psymtab_language
,
409 /* The semantics of C++ state that "struct foo { ... }"
410 also defines a typedef for "foo". Unfortuantely, cfront
411 never makes the typedef when translating from C++ to C.
412 We make the typedef here so that "ptype foo" works as
413 expected for cfront translated code. */
414 else if (psymtab_language
== language_cplus
)
416 /* Also a typedef with the same name. */
417 ADD_PSYMBOL_TO_LIST (namestring
, p
- namestring
,
418 VAR_NAMESPACE
, LOC_TYPEDEF
,
419 objfile
->static_psymbols
,
420 CUR_SYMBOL_VALUE
, psymtab_language
,
426 if (p
!= namestring
) /* a name is there, not just :T... */
428 ADD_PSYMBOL_TO_LIST (namestring
, p
- namestring
,
429 VAR_NAMESPACE
, LOC_TYPEDEF
,
430 objfile
->static_psymbols
,
432 psymtab_language
, objfile
);
435 /* If this is an enumerated type, we need to
436 add all the enum constants to the partial symbol
437 table. This does not cover enums without names, e.g.
438 "enum {a, b} c;" in C, but fortunately those are
439 rare. There is no way for GDB to find those from the
440 enum type without spending too much time on it. Thus
441 to solve this problem, the compiler needs to put out the
442 enum in a nameless type. GCC2 does this. */
444 /* We are looking for something of the form
445 <name> ":" ("t" | "T") [<number> "="] "e"
446 {<constant> ":" <value> ","} ";". */
448 /* Skip over the colon and the 't' or 'T'. */
450 /* This type may be given a number. Also, numbers can come
451 in pairs like (0,26). Skip over it. */
452 while ((*p
>= '0' && *p
<= '9')
453 || *p
== '(' || *p
== ',' || *p
== ')'
459 /* We have found an enumerated type. */
460 /* According to comments in read_enum_type
461 a comma could end it instead of a semicolon.
462 I don't know where that happens.
464 while (*p
&& *p
!= ';' && *p
!= ',')
468 /* Check for and handle cretinous dbx symbol name
470 if (*p
== '\\' || (*p
== '?' && p
[1] == '\0'))
471 p
= next_symbol_text ();
473 /* Point to the character after the name
474 of the enum constant. */
475 for (q
= p
; *q
&& *q
!= ':'; q
++)
477 /* Note that the value doesn't matter for
478 enum constants in psymtabs, just in symtabs. */
479 ADD_PSYMBOL_TO_LIST (p
, q
- p
,
480 VAR_NAMESPACE
, LOC_CONST
,
481 objfile
->static_psymbols
, 0,
482 psymtab_language
, objfile
);
483 /* Point past the name. */
485 /* Skip over the value. */
486 while (*p
&& *p
!= ',')
488 /* Advance past the comma. */
495 /* Constant, e.g. from "const" in Pascal. */
496 ADD_PSYMBOL_TO_LIST (namestring
, p
- namestring
,
497 VAR_NAMESPACE
, LOC_CONST
,
498 objfile
->static_psymbols
, CUR_SYMBOL_VALUE
,
499 psymtab_language
, objfile
);
503 CUR_SYMBOL_VALUE
+= ANOFFSET (section_offsets
, SECT_OFF_TEXT
);
505 /* Kludges for ELF/STABS with Sun ACC */
506 last_function_name
= namestring
;
507 /* Do not fix textlow==0 for .o or NLM files, as 0 is a legit
508 value for the bottom of the text seg in those cases. */
509 if (pst
&& pst
->textlow
== 0 && !symfile_relocatable
)
510 pst
->textlow
= CUR_SYMBOL_VALUE
;
512 if (startup_file_end
== 0)
513 startup_file_end
= CUR_SYMBOL_VALUE
;
516 #endif /* DBXREAD_ONLY */
517 ADD_PSYMBOL_TO_LIST (namestring
, p
- namestring
,
518 VAR_NAMESPACE
, LOC_BLOCK
,
519 objfile
->static_psymbols
, CUR_SYMBOL_VALUE
,
520 psymtab_language
, objfile
);
523 /* Global functions were ignored here, but now they
524 are put into the global psymtab like one would expect.
525 They're also in the minimal symbol table. */
527 CUR_SYMBOL_VALUE
+= ANOFFSET (section_offsets
, SECT_OFF_TEXT
);
529 /* Kludges for ELF/STABS with Sun ACC */
530 last_function_name
= namestring
;
531 /* Do not fix textlow==0 for .o or NLM files, as 0 is a legit
532 value for the bottom of the text seg in those cases. */
533 if (pst
&& pst
->textlow
== 0 && !symfile_relocatable
)
534 pst
->textlow
= CUR_SYMBOL_VALUE
;
536 if (startup_file_end
== 0)
537 startup_file_end
= CUR_SYMBOL_VALUE
;
540 #endif /* DBXREAD_ONLY */
541 ADD_PSYMBOL_TO_LIST (namestring
, p
- namestring
,
542 VAR_NAMESPACE
, LOC_BLOCK
,
543 objfile
->global_psymbols
, CUR_SYMBOL_VALUE
,
544 psymtab_language
, objfile
);
547 /* Two things show up here (hopefully); static symbols of
548 local scope (static used inside braces) or extensions
549 of structure symbols. We can ignore both. */
565 /* It is a C++ nested symbol. We don't need to record it
566 (I don't think); if we try to look up foo::bar::baz,
567 then symbols for the symtab containing foo should get
569 /* Someone says sun cc puts out symbols like
570 /foo/baz/maclib::/usr/local/bin/maclib,
571 which would get here with a symbol type of ':'. */
575 /* Unexpected symbol descriptor. The second and subsequent stabs
576 of a continued stab can show up here. The question is
577 whether they ever can mimic a normal stab--it would be
578 nice if not, since we certainly don't want to spend the
579 time searching to the end of every string looking for
582 complain (&unknown_symchar_complaint
, p
[1]);
584 /* Ignore it; perhaps it is an extension that we don't
594 /* Find the corresponding bincl and mark that psymtab on the
595 psymtab dependency list */
597 struct partial_symtab
*needed_pst
=
598 find_corresponding_bincl_psymtab (namestring
, CUR_SYMBOL_VALUE
);
600 /* If this include file was defined earlier in this file,
602 if (needed_pst
== pst
) continue;
609 for (i
= 0; i
< dependencies_used
; i
++)
610 if (dependency_list
[i
] == needed_pst
)
616 /* If it's already in the list, skip the rest. */
619 dependency_list
[dependencies_used
++] = needed_pst
;
620 if (dependencies_used
>= dependencies_allocated
)
622 struct partial_symtab
**orig
= dependency_list
;
624 (struct partial_symtab
**)
625 alloca ((dependencies_allocated
*= 2)
626 * sizeof (struct partial_symtab
*));
627 memcpy ((PTR
)dependency_list
, (PTR
)orig
,
629 * sizeof (struct partial_symtab
*)));
631 fprintf_unfiltered (gdb_stderr
, "Had to reallocate dependency list.\n");
632 fprintf_unfiltered (gdb_stderr
, "New dependencies allocated: %d\n",
633 dependencies_allocated
);
638 #endif /* DBXREAD_ONLY */
643 HANDLE_RBRAC(CUR_SYMBOL_VALUE
);
649 case N_SSYM
: /* Claim: Structure or union element.
650 Hopefully, I can ignore this. */
651 case N_ENTRY
: /* Alternate entry point; can ignore. */
652 case N_MAIN
: /* Can definitely ignore this. */
653 case N_CATCH
: /* These are GNU C++ extensions */
654 case N_EHDECL
: /* that can safely be ignored here. */
664 case N_NSYMS
: /* Ultrix 4.0: symbol count */
665 case N_DEFD
: /* GNU Modula-2 */
667 case N_OBJ
: /* useless types from Solaris */
670 /* These symbols aren't interesting; don't worry about them */
675 /* If we haven't found it yet, ignore it. It's probably some
676 new type we don't know about yet. */
677 complain (&unknown_symtype_complaint
,
678 local_hex_string (CUR_SYMBOL_TYPE
));