1 /* Read coff symbol tables and convert to internal format, for GDB.
2 Copyright (C) 1987-2013 Free Software Foundation, Inc.
3 Contributed by David D. Johnson, Brown University (ddj@cs.brown.edu).
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 3 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, see <http://www.gnu.org/licenses/>. */
24 #include "breakpoint.h"
27 #include "gdb_obstack.h"
29 #include "gdb_string.h"
32 #include "coff/internal.h" /* Internal format of COFF symbols in BFD */
33 #include "libcoff.h" /* FIXME secret internal data from BFD */
36 #include "gdb-stabs.h"
37 #include "stabsread.h"
38 #include "complaints.h"
40 #include "gdb_assert.h"
42 #include "dictionary.h"
44 #include "coff-pe-read.h"
48 extern void _initialize_coffread (void);
50 /* Key for COFF-associated data. */
52 static const struct objfile_data *coff_objfile_data_key;
54 /* The objfile we are currently reading. */
56 static struct objfile *coffread_objfile;
58 struct coff_symfile_info
60 file_ptr min_lineno_offset; /* Where in file lowest line#s are. */
61 file_ptr max_lineno_offset; /* 1+last byte of line#s in file. */
63 CORE_ADDR textaddr; /* Addr of .text section. */
64 unsigned int textsize; /* Size of .text section. */
65 struct stab_section_list *stabsects; /* .stab sections. */
66 asection *stabstrsect; /* Section pointer for .stab section. */
70 /* Translate an external name string into a user-visible name. */
71 #define EXTERNAL_NAME(string, abfd) \
72 (string[0] == bfd_get_symbol_leading_char (abfd) \
73 ? string + 1 : string)
75 /* To be an sdb debug type, type must have at least a basic or primary
76 derived type. Using this rather than checking against T_NULL is
77 said to prevent core dumps if we try to operate on Michael Bloom
80 #define SDB_TYPE(type) (BTYPE(type) | (type & N_TMASK))
82 /* Core address of start and end of text of current source file.
83 This comes from a ".text" symbol where x_nlinno > 0. */
85 static CORE_ADDR current_source_start_addr;
86 static CORE_ADDR current_source_end_addr;
88 /* The addresses of the symbol table stream and number of symbols
89 of the object file we are reading (as copied into core). */
91 static bfd *nlist_bfd_global;
92 static int nlist_nsyms_global;
95 /* Pointers to scratch storage, used for reading raw symbols and
98 static char *temp_sym;
99 static char *temp_aux;
101 /* Local variables that hold the shift and mask values for the
102 COFF file that we are currently reading. These come back to us
103 from BFD, and are referenced by their macro names, as well as
104 internally to the BTYPE, ISPTR, ISFCN, ISARY, ISTAG, and DECREF
105 macros from include/coff/internal.h . */
107 static unsigned local_n_btmask;
108 static unsigned local_n_btshft;
109 static unsigned local_n_tmask;
110 static unsigned local_n_tshift;
112 #define N_BTMASK local_n_btmask
113 #define N_BTSHFT local_n_btshft
114 #define N_TMASK local_n_tmask
115 #define N_TSHIFT local_n_tshift
117 /* Local variables that hold the sizes in the file of various COFF
118 structures. (We only need to know this to read them from the file
119 -- BFD will then translate the data in them, into `internal_xxx'
120 structs in the right byte order, alignment, etc.) */
122 static unsigned local_linesz;
123 static unsigned local_symesz;
124 static unsigned local_auxesz;
126 /* This is set if this is a PE format file. */
130 /* Chain of typedefs of pointers to empty struct/union types.
131 They are chained thru the SYMBOL_VALUE_CHAIN. */
133 static struct symbol *opaque_type_chain[HASHSIZE];
135 /* Simplified internal version of coff symbol table information. */
140 int c_symnum; /* Symbol number of this entry. */
141 int c_naux; /* 0 if syment only, 1 if syment +
149 extern void stabsread_clear_cache (void);
151 static struct type *coff_read_struct_type (int, int, int,
154 static struct type *decode_base_type (struct coff_symbol *,
156 union internal_auxent *,
159 static struct type *decode_type (struct coff_symbol *, unsigned int,
160 union internal_auxent *,
163 static struct type *decode_function_type (struct coff_symbol *,
165 union internal_auxent *,
168 static struct type *coff_read_enum_type (int, int, int,
171 static struct symbol *process_coff_symbol (struct coff_symbol *,
172 union internal_auxent *,
175 static void patch_opaque_types (struct symtab *);
177 static void enter_linenos (long, int, int, struct objfile *);
179 static void free_linetab (void);
181 static void free_linetab_cleanup (void *ignore);
183 static int init_lineno (bfd *, long, int);
185 static char *getsymname (struct internal_syment *);
187 static const char *coff_getfilename (union internal_auxent *);
189 static void free_stringtab (void);
191 static void free_stringtab_cleanup (void *ignore);
193 static int init_stringtab (bfd *, long);
195 static void read_one_sym (struct coff_symbol *,
196 struct internal_syment *,
197 union internal_auxent *);
199 static void coff_symtab_read (long, unsigned int, struct objfile *);
201 /* We are called once per section from coff_symfile_read. We
202 need to examine each section we are passed, check to see
203 if it is something we are interested in processing, and
204 if so, stash away some access information for the section.
206 FIXME: The section names should not be hardwired strings (what
207 should they be? I don't think most object file formats have enough
208 section flags to specify what kind of debug section it is
212 coff_locate_sections (bfd *abfd, asection *sectp, void *csip)
214 struct coff_symfile_info *csi;
217 csi = (struct coff_symfile_info *) csip;
218 name = bfd_get_section_name (abfd, sectp);
219 if (strcmp (name, ".text") == 0)
221 csi->textaddr = bfd_section_vma (abfd, sectp);
222 csi->textsize += bfd_section_size (abfd, sectp);
224 else if (strncmp (name, ".text", sizeof ".text" - 1) == 0)
226 csi->textsize += bfd_section_size (abfd, sectp);
228 else if (strcmp (name, ".stabstr") == 0)
230 csi->stabstrsect = sectp;
232 else if (strncmp (name, ".stab", sizeof ".stab" - 1) == 0)
236 /* We can have multiple .stab sections if linked with
238 for (s = name + sizeof ".stab" - 1; *s != '\0'; s++)
243 struct stab_section_list *n, **pn;
245 n = ((struct stab_section_list *)
246 xmalloc (sizeof (struct stab_section_list)));
249 for (pn = &csi->stabsects; *pn != NULL; pn = &(*pn)->next)
253 /* This will be run after coffstab_build_psymtabs is called
254 in coff_symfile_read, at which point we no longer need
256 make_cleanup (xfree, n);
261 /* Return the section_offsets* that CS points to. */
262 static int cs_to_section (struct coff_symbol *, struct objfile *);
264 struct find_targ_sec_arg
271 find_targ_sec (bfd *abfd, asection *sect, void *obj)
273 struct find_targ_sec_arg *args = (struct find_targ_sec_arg *) obj;
275 if (sect->target_index == args->targ_index)
276 *args->resultp = sect;
279 /* Return the bfd_section that CS points to. */
280 static struct bfd_section*
281 cs_to_bfd_section (struct coff_symbol *cs, struct objfile *objfile)
283 asection *sect = NULL;
284 struct find_targ_sec_arg args;
286 args.targ_index = cs->c_secnum;
287 args.resultp = §
288 bfd_map_over_sections (objfile->obfd, find_targ_sec, &args);
292 /* Return the section number (SECT_OFF_*) that CS points to. */
294 cs_to_section (struct coff_symbol *cs, struct objfile *objfile)
296 asection *sect = cs_to_bfd_section (cs, objfile);
299 return SECT_OFF_TEXT (objfile);
303 /* Return the address of the section of a COFF symbol. */
305 static CORE_ADDR cs_section_address (struct coff_symbol *, bfd *);
308 cs_section_address (struct coff_symbol *cs, bfd *abfd)
310 asection *sect = NULL;
311 struct find_targ_sec_arg args;
314 args.targ_index = cs->c_secnum;
315 args.resultp = §
316 bfd_map_over_sections (abfd, find_targ_sec, &args);
318 addr = bfd_get_section_vma (abfd, sect);
322 /* Look up a coff type-number index. Return the address of the slot
323 where the type for that index is stored.
324 The type-number is in INDEX.
326 This can be used for finding the type associated with that index
327 or for associating a new type with the index. */
329 static struct type **
330 coff_lookup_type (int index)
332 if (index >= type_vector_length)
334 int old_vector_length = type_vector_length;
336 type_vector_length *= 2;
337 if (index /* is still */ >= type_vector_length)
338 type_vector_length = index * 2;
340 type_vector = (struct type **)
341 xrealloc ((char *) type_vector,
342 type_vector_length * sizeof (struct type *));
343 memset (&type_vector[old_vector_length], 0,
344 (type_vector_length - old_vector_length) * sizeof (struct type *));
346 return &type_vector[index];
349 /* Make sure there is a type allocated for type number index
350 and return the type object.
351 This can create an empty (zeroed) type object. */
354 coff_alloc_type (int index)
356 struct type **type_addr = coff_lookup_type (index);
357 struct type *type = *type_addr;
359 /* If we are referring to a type not known at all yet,
360 allocate an empty type for it.
361 We will fill it in later if we find out how. */
364 type = alloc_type (coffread_objfile);
370 /* Start a new symtab for a new source file.
371 This is called when a COFF ".file" symbol is seen;
372 it indicates the start of data for one original source file. */
375 coff_start_symtab (const char *name)
378 /* We fill in the filename later. start_symtab puts this pointer
379 into last_source_file and we put it in subfiles->name, which
380 end_symtab frees; that's why it must be malloc'd. */
382 /* We never know the directory name for COFF. */
384 /* The start address is irrelevant, since we set
385 last_source_start_addr in coff_end_symtab. */
387 record_debugformat ("COFF");
390 /* Save the vital information from when starting to read a file,
391 for use when closing off the current file.
392 NAME is the file name the symbols came from, START_ADDR is the
393 first text address for the file, and SIZE is the number of bytes of
397 complete_symtab (const char *name, CORE_ADDR start_addr, unsigned int size)
399 if (last_source_file != NULL)
400 xfree (last_source_file);
401 last_source_file = xstrdup (name);
402 current_source_start_addr = start_addr;
403 current_source_end_addr = start_addr + size;
406 /* Finish the symbol definitions for one main source file, close off
407 all the lexical contexts for that file (creating struct block's for
408 them), then make the struct symtab for that file and put it in the
412 coff_end_symtab (struct objfile *objfile)
414 last_source_start_addr = current_source_start_addr;
416 end_symtab (current_source_end_addr, objfile,
417 SECT_OFF_TEXT (objfile));
419 /* Reinitialize for beginning of new file. */
420 last_source_file = NULL;
423 static struct minimal_symbol *
424 record_minimal_symbol (struct coff_symbol *cs, CORE_ADDR address,
425 enum minimal_symbol_type type, int section,
426 struct objfile *objfile)
428 struct bfd_section *bfd_section;
430 /* We don't want TDESC entry points in the minimal symbol table. */
431 if (cs->c_name[0] == '@')
434 bfd_section = cs_to_bfd_section (cs, objfile);
435 return prim_record_minimal_symbol_and_info (cs->c_name, address,
437 bfd_section, objfile);
440 /* coff_symfile_init ()
441 is the coff-specific initialization routine for reading symbols.
442 It is passed a struct objfile which contains, among other things,
443 the BFD for the file whose symbols are being read, and a slot for
444 a pointer to "private data" which we fill with cookies and other
445 treats for coff_symfile_read ().
447 We will only be called if this is a COFF or COFF-like file. BFD
448 handles figuring out the format of the file, and code in symtab.c
449 uses BFD's determination to vector to us.
451 The ultimate result is a new symtab (or, FIXME, eventually a
455 coff_symfile_init (struct objfile *objfile)
457 struct dbx_symfile_info *dbx;
458 struct coff_symfile_info *coff;
460 /* Allocate struct to keep track of stab reading. */
461 dbx = XCNEW (struct dbx_symfile_info);
462 set_objfile_data (objfile, dbx_objfile_data_key, dbx);
464 /* Allocate struct to keep track of the symfile. */
465 coff = XCNEW (struct coff_symfile_info);
466 set_objfile_data (objfile, coff_objfile_data_key, coff);
468 /* COFF objects may be reordered, so set OBJF_REORDERED. If we
469 find this causes a significant slowdown in gdb then we could
470 set it in the debug symbol readers only when necessary. */
471 objfile->flags |= OBJF_REORDERED;
474 /* This function is called for every section; it finds the outer
475 limits of the line table (minimum and maximum file offset) so that
476 the mainline code can read the whole thing for efficiency. */
479 find_linenos (bfd *abfd, struct bfd_section *asect, void *vpinfo)
481 struct coff_symfile_info *info;
483 file_ptr offset, maxoff;
485 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
486 count = asect->lineno_count;
487 /* End of warning. */
491 size = count * local_linesz;
493 info = (struct coff_symfile_info *) vpinfo;
494 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
495 offset = asect->line_filepos;
496 /* End of warning. */
498 if (offset < info->min_lineno_offset || info->min_lineno_offset == 0)
499 info->min_lineno_offset = offset;
501 maxoff = offset + size;
502 if (maxoff > info->max_lineno_offset)
503 info->max_lineno_offset = maxoff;
507 /* The BFD for this file -- only good while we're actively reading
508 symbols into a psymtab or a symtab. */
510 static bfd *symfile_bfd;
512 /* Read a symbol file, after initialization by coff_symfile_init. */
515 coff_symfile_read (struct objfile *objfile, int symfile_flags)
517 struct coff_symfile_info *info;
518 struct dbx_symfile_info *dbxinfo;
519 bfd *abfd = objfile->obfd;
520 coff_data_type *cdata = coff_data (abfd);
521 char *name = bfd_get_filename (abfd);
523 unsigned int num_symbols;
525 int stringtab_offset;
526 struct cleanup *back_to, *cleanup_minimal_symbols;
529 info = objfile_data (objfile, coff_objfile_data_key);
530 dbxinfo = DBX_SYMFILE_INFO (objfile);
531 symfile_bfd = abfd; /* Kludge for swap routines. */
533 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
534 num_symbols = bfd_get_symcount (abfd); /* How many syms */
535 symtab_offset = cdata->sym_filepos; /* Symbol table file offset */
536 stringtab_offset = symtab_offset + /* String table file offset */
537 num_symbols * cdata->local_symesz;
539 /* Set a few file-statics that give us specific information about
540 the particular COFF file format we're reading. */
541 local_n_btmask = cdata->local_n_btmask;
542 local_n_btshft = cdata->local_n_btshft;
543 local_n_tmask = cdata->local_n_tmask;
544 local_n_tshift = cdata->local_n_tshift;
545 local_linesz = cdata->local_linesz;
546 local_symesz = cdata->local_symesz;
547 local_auxesz = cdata->local_auxesz;
549 /* Allocate space for raw symbol and aux entries, based on their
550 space requirements as reported by BFD. */
551 temp_sym = (char *) xmalloc
552 (cdata->local_symesz + cdata->local_auxesz);
553 temp_aux = temp_sym + cdata->local_symesz;
554 back_to = make_cleanup (free_current_contents, &temp_sym);
556 /* We need to know whether this is a PE file, because in PE files,
557 unlike standard COFF files, symbol values are stored as offsets
558 from the section address, rather than as absolute addresses.
559 FIXME: We should use BFD to read the symbol table, and thus avoid
562 strncmp (bfd_get_target (objfile->obfd), "pe", 2) == 0
563 || strncmp (bfd_get_target (objfile->obfd), "epoc-pe", 7) == 0;
565 /* End of warning. */
567 info->min_lineno_offset = 0;
568 info->max_lineno_offset = 0;
570 /* Only read line number information if we have symbols.
572 On Windows NT, some of the system's DLL's have sections with
573 PointerToLinenumbers fields that are non-zero, but point at
574 random places within the image file. (In the case I found,
575 KERNEL32.DLL's .text section has a line number info pointer that
576 points into the middle of the string `lib\\i386\kernel32.dll'.)
578 However, these DLL's also have no symbols. The line number
579 tables are meaningless without symbols. And in fact, GDB never
580 uses the line number information unless there are symbols. So we
581 can avoid spurious error messages (and maybe run a little
582 faster!) by not even reading the line number table unless we have
586 /* Read the line number table, all at once. */
587 bfd_map_over_sections (abfd, find_linenos, (void *) info);
589 make_cleanup (free_linetab_cleanup, 0 /*ignore*/);
590 val = init_lineno (abfd, info->min_lineno_offset,
591 info->max_lineno_offset - info->min_lineno_offset);
593 error (_("\"%s\": error reading line numbers."), name);
596 /* Now read the string table, all at once. */
598 make_cleanup (free_stringtab_cleanup, 0 /*ignore*/);
599 val = init_stringtab (abfd, stringtab_offset);
601 error (_("\"%s\": can't get string table"), name);
603 init_minimal_symbol_collection ();
604 cleanup_minimal_symbols = make_cleanup_discard_minimal_symbols ();
606 /* Now that the executable file is positioned at symbol table,
607 process it and define symbols accordingly. */
609 coff_symtab_read ((long) symtab_offset, num_symbols, objfile);
611 /* Install any minimal symbols that have been collected as the
612 current minimal symbols for this objfile. */
614 install_minimal_symbols (objfile);
616 /* Free the installed minimal symbol data. */
617 do_cleanups (cleanup_minimal_symbols);
619 bfd_map_over_sections (abfd, coff_locate_sections, (void *) info);
623 if (!info->stabstrsect)
625 error (_("The debugging information in `%s' is corrupted.\nThe "
626 "file has a `.stabs' section, but no `.stabstr' section."),
630 /* FIXME: dubious. Why can't we use something normal like
631 bfd_get_section_contents? */
632 bfd_seek (abfd, abfd->where, 0);
634 stabstrsize = bfd_section_size (abfd, info->stabstrsect);
636 coffstab_build_psymtabs (objfile,
637 info->textaddr, info->textsize,
639 info->stabstrsect->filepos, stabstrsize);
641 if (dwarf2_has_info (objfile, NULL))
643 /* DWARF2 sections. */
644 dwarf2_build_psymtabs (objfile);
647 dwarf2_build_frame_info (objfile);
649 /* Try to add separate debug file if no symbols table found. */
650 if (!objfile_has_partial_symbols (objfile))
654 debugfile = find_separate_debug_file_by_debuglink (objfile);
655 make_cleanup (xfree, debugfile);
659 bfd *abfd = symfile_bfd_open (debugfile);
661 make_cleanup_bfd_unref (abfd);
662 symbol_file_add_separate (abfd, symfile_flags, objfile);
666 do_cleanups (back_to);
670 coff_new_init (struct objfile *ignore)
674 /* Perform any local cleanups required when we are done with a
675 particular objfile. I.E, we are in the process of discarding all
676 symbol information for an objfile, freeing up all memory held for
677 it, and unlinking the objfile struct from the global list of known
681 coff_symfile_finish (struct objfile *objfile)
683 /* Let stabs reader clean up. */
684 stabsread_clear_cache ();
686 dwarf2_free_objfile (objfile);
690 /* Given pointers to a symbol table in coff style exec file,
691 analyze them and create struct symtab's describing the symbols.
692 NSYMS is the number of symbols in the symbol table.
693 We read them one at a time using read_one_sym (). */
696 coff_symtab_read (long symtab_offset, unsigned int nsyms,
697 struct objfile *objfile)
699 struct gdbarch *gdbarch = get_objfile_arch (objfile);
700 struct context_stack *new;
701 struct coff_symbol coff_symbol;
702 struct coff_symbol *cs = &coff_symbol;
703 static struct internal_syment main_sym;
704 static union internal_auxent main_aux;
705 struct coff_symbol fcn_cs_saved;
706 static struct internal_syment fcn_sym_saved;
707 static union internal_auxent fcn_aux_saved;
709 /* A .file is open. */
710 int in_source_file = 0;
711 int next_file_symnum = -1;
712 /* Name of the current file. */
713 const char *filestring = "";
715 int fcn_first_line = 0;
716 CORE_ADDR fcn_first_line_addr = 0;
717 int fcn_last_line = 0;
718 int fcn_start_addr = 0;
719 long fcn_line_ptr = 0;
722 struct minimal_symbol *msym;
724 /* Work around a stdio bug in SunOS4.1.1 (this makes me nervous....
725 it's hard to know I've really worked around it. The fix should
726 be harmless, anyway). The symptom of the bug is that the first
727 fread (in read_one_sym), will (in my example) actually get data
728 from file offset 268, when the fseek was to 264 (and ftell shows
729 264). This causes all hell to break loose. I was unable to
730 reproduce this on a short test program which operated on the same
731 file, performing (I think) the same sequence of operations.
733 It stopped happening when I put in this (former) rewind().
735 FIXME: Find out if this has been reported to Sun, whether it has
736 been fixed in a later release, etc. */
738 bfd_seek (objfile->obfd, 0, 0);
740 /* Position to read the symbol table. */
741 val = bfd_seek (objfile->obfd, (long) symtab_offset, 0);
743 perror_with_name (objfile->name);
745 coffread_objfile = objfile;
746 nlist_bfd_global = objfile->obfd;
747 nlist_nsyms_global = nsyms;
748 last_source_file = NULL;
749 memset (opaque_type_chain, 0, sizeof opaque_type_chain);
751 if (type_vector) /* Get rid of previous one. */
753 type_vector_length = 160;
754 type_vector = (struct type **)
755 xmalloc (type_vector_length * sizeof (struct type *));
756 memset (type_vector, 0, type_vector_length * sizeof (struct type *));
758 coff_start_symtab ("");
761 while (symnum < nsyms)
763 QUIT; /* Make this command interruptable. */
765 read_one_sym (cs, &main_sym, &main_aux);
767 if (cs->c_symnum == next_file_symnum && cs->c_sclass != C_FILE)
769 if (last_source_file)
770 coff_end_symtab (objfile);
772 coff_start_symtab ("_globals_");
773 /* coff_start_symtab will set the language of this symtab to
774 language_unknown, since such a ``file name'' is not
775 recognized. Override that with the minimal language to
776 allow printing values in this symtab. */
777 current_subfile->language = language_minimal;
778 complete_symtab ("_globals_", 0, 0);
779 /* Done with all files, everything from here on out is
783 /* Special case for file with type declarations only, no
785 if (!last_source_file && SDB_TYPE (cs->c_type)
786 && cs->c_secnum == N_DEBUG)
787 complete_symtab (filestring, 0, 0);
789 /* Typedefs should not be treated as symbol definitions. */
790 if (ISFCN (cs->c_type) && cs->c_sclass != C_TPDEF)
792 /* Record all functions -- external and static -- in
794 int section = cs_to_section (cs, objfile);
796 tmpaddr = cs->c_value + ANOFFSET (objfile->section_offsets,
797 SECT_OFF_TEXT (objfile));
798 record_minimal_symbol (cs, tmpaddr, mst_text,
801 fcn_line_ptr = main_aux.x_sym.x_fcnary.x_fcn.x_lnnoptr;
802 fcn_start_addr = tmpaddr;
804 fcn_sym_saved = main_sym;
805 fcn_aux_saved = main_aux;
809 switch (cs->c_sclass)
818 complaint (&symfile_complaints,
819 _("Bad n_sclass for symbol %s"),
824 /* c_value field contains symnum of next .file entry in
825 table or symnum of first global after last .file. */
826 next_file_symnum = cs->c_value;
828 filestring = coff_getfilename (&main_aux);
832 /* Complete symbol table for last object file
833 containing debugging information. */
834 if (last_source_file)
836 coff_end_symtab (objfile);
837 coff_start_symtab (filestring);
842 /* C_LABEL is used for labels and static functions.
843 Including it here allows gdb to see static functions when
844 no debug info is available. */
846 /* However, labels within a function can make weird
847 backtraces, so filter them out (from phdm@macqel.be). */
853 case C_THUMBSTATFUNC:
854 if (cs->c_name[0] == '.')
856 if (strcmp (cs->c_name, ".text") == 0)
858 /* FIXME: don't wire in ".text" as section name or
860 /* Check for in_source_file deals with case of a
861 file with debugging symbols followed by a later
862 file with no symbols. */
864 complete_symtab (filestring,
865 cs->c_value + ANOFFSET (objfile->section_offsets,
866 SECT_OFF_TEXT (objfile)),
867 main_aux.x_scn.x_scnlen);
870 /* Flush rest of '.' symbols. */
873 else if (!SDB_TYPE (cs->c_type)
874 && cs->c_name[0] == 'L'
875 && (strncmp (cs->c_name, "LI%", 3) == 0
876 || strncmp (cs->c_name, "LF%", 3) == 0
877 || strncmp (cs->c_name, "LC%", 3) == 0
878 || strncmp (cs->c_name, "LP%", 3) == 0
879 || strncmp (cs->c_name, "LPB%", 4) == 0
880 || strncmp (cs->c_name, "LBB%", 4) == 0
881 || strncmp (cs->c_name, "LBE%", 4) == 0
882 || strncmp (cs->c_name, "LPBX%", 5) == 0))
883 /* At least on a 3b1, gcc generates swbeg and string labels
884 that look like this. Ignore them. */
886 /* Fall in for static symbols that don't start with '.' */
891 /* Record it in the minimal symbols regardless of
892 SDB_TYPE. This parallels what we do for other debug
893 formats, and probably is needed to make
894 print_address_symbolic work right without the (now
895 gone) "set fast-symbolic-addr off" kludge. */
897 enum minimal_symbol_type ms_type;
900 if (cs->c_secnum == N_UNDEF)
902 /* This is a common symbol. We used to rely on
903 the target to tell us whether it knows where
904 the symbol has been relocated to, but none of
905 the target implementations actually provided
906 that operation. So we just ignore the symbol,
907 the same way we would do if we had a target-side
908 symbol lookup which returned no match. */
911 else if (cs->c_secnum == N_ABS)
913 /* Use the correct minimal symbol type (and don't
914 relocate) for absolute values. */
916 sec = cs_to_section (cs, objfile);
917 tmpaddr = cs->c_value;
921 asection *bfd_section = cs_to_bfd_section (cs, objfile);
923 sec = cs_to_section (cs, objfile);
924 tmpaddr = cs->c_value;
925 /* Statics in a PE file also get relocated. */
926 if (cs->c_sclass == C_EXT
927 || cs->c_sclass == C_THUMBEXTFUNC
928 || cs->c_sclass == C_THUMBEXT
929 || (pe_file && (cs->c_sclass == C_STAT)))
930 tmpaddr += ANOFFSET (objfile->section_offsets, sec);
932 if (bfd_section->flags & SEC_CODE)
935 cs->c_sclass == C_EXT || cs->c_sclass == C_THUMBEXTFUNC
936 || cs->c_sclass == C_THUMBEXT ?
937 mst_text : mst_file_text;
938 tmpaddr = gdbarch_addr_bits_remove (gdbarch, tmpaddr);
940 else if (bfd_section->flags & SEC_ALLOC
941 && bfd_section->flags & SEC_LOAD)
944 cs->c_sclass == C_EXT || cs->c_sclass == C_THUMBEXT
945 ? mst_data : mst_file_data;
947 else if (bfd_section->flags & SEC_ALLOC)
950 cs->c_sclass == C_EXT || cs->c_sclass == C_THUMBEXT
951 ? mst_bss : mst_file_bss;
954 ms_type = mst_unknown;
957 msym = record_minimal_symbol (cs, tmpaddr, ms_type,
960 gdbarch_coff_make_msymbol_special (gdbarch,
963 if (SDB_TYPE (cs->c_type))
967 sym = process_coff_symbol
968 (cs, &main_aux, objfile);
969 SYMBOL_VALUE (sym) = tmpaddr;
970 SYMBOL_SECTION (sym) = sec;
976 if (strcmp (cs->c_name, ".bf") == 0)
980 /* Value contains address of first non-init type
982 /* main_aux.x_sym.x_misc.x_lnsz.x_lnno
983 contains line number of '{' }. */
985 complaint (&symfile_complaints,
986 _("`.bf' symbol %d has no aux entry"),
988 fcn_first_line = main_aux.x_sym.x_misc.x_lnsz.x_lnno;
989 fcn_first_line_addr = cs->c_value;
991 /* Might want to check that locals are 0 and
992 context_stack_depth is zero, and complain if not. */
995 new = push_context (depth, fcn_start_addr);
996 fcn_cs_saved.c_name = getsymname (&fcn_sym_saved);
998 process_coff_symbol (&fcn_cs_saved,
999 &fcn_aux_saved, objfile);
1001 else if (strcmp (cs->c_name, ".ef") == 0)
1003 if (!within_function)
1004 error (_("Bad coff function information."));
1005 /* The value of .ef is the address of epilogue code;
1006 not useful for gdb. */
1007 /* { main_aux.x_sym.x_misc.x_lnsz.x_lnno
1008 contains number of lines to '}' */
1010 if (context_stack_depth <= 0)
1011 { /* We attempted to pop an empty context stack. */
1012 complaint (&symfile_complaints,
1013 _("`.ef' symbol without matching `.bf' "
1014 "symbol ignored starting at symnum %d"),
1016 within_function = 0;
1020 new = pop_context ();
1021 /* Stack must be empty now. */
1022 if (context_stack_depth > 0 || new == NULL)
1024 complaint (&symfile_complaints,
1025 _("Unmatched .ef symbol(s) ignored "
1026 "starting at symnum %d"),
1028 within_function = 0;
1031 if (cs->c_naux != 1)
1033 complaint (&symfile_complaints,
1034 _("`.ef' symbol %d has no aux entry"),
1036 fcn_last_line = 0x7FFFFFFF;
1040 fcn_last_line = main_aux.x_sym.x_misc.x_lnsz.x_lnno;
1042 /* fcn_first_line is the line number of the opening '{'.
1043 Do not record it - because it would affect gdb's idea
1044 of the line number of the first statement of the
1045 function - except for one-line functions, for which
1046 it is also the line number of all the statements and
1047 of the closing '}', and for which we do not have any
1048 other statement-line-number. */
1049 if (fcn_last_line == 1)
1050 record_line (current_subfile, fcn_first_line,
1051 gdbarch_addr_bits_remove (gdbarch,
1052 fcn_first_line_addr));
1054 enter_linenos (fcn_line_ptr, fcn_first_line,
1055 fcn_last_line, objfile);
1057 finish_block (new->name, &local_symbols,
1058 new->old_blocks, new->start_addr,
1059 fcn_cs_saved.c_value
1060 + fcn_aux_saved.x_sym.x_misc.x_fsize
1061 + ANOFFSET (objfile->section_offsets,
1062 SECT_OFF_TEXT (objfile)),
1065 within_function = 0;
1070 if (strcmp (cs->c_name, ".bb") == 0)
1072 tmpaddr = cs->c_value;
1073 tmpaddr += ANOFFSET (objfile->section_offsets,
1074 SECT_OFF_TEXT (objfile));
1075 push_context (++depth, tmpaddr);
1077 else if (strcmp (cs->c_name, ".eb") == 0)
1079 if (context_stack_depth <= 0)
1080 { /* We attempted to pop an empty context stack. */
1081 complaint (&symfile_complaints,
1082 _("`.eb' symbol without matching `.bb' "
1083 "symbol ignored starting at symnum %d"),
1088 new = pop_context ();
1089 if (depth-- != new->depth)
1091 complaint (&symfile_complaints,
1092 _("Mismatched .eb symbol ignored "
1093 "starting at symnum %d"),
1097 if (local_symbols && context_stack_depth > 0)
1100 cs->c_value + ANOFFSET (objfile->section_offsets,
1101 SECT_OFF_TEXT (objfile));
1102 /* Make a block for the local symbols within. */
1103 finish_block (0, &local_symbols, new->old_blocks,
1104 new->start_addr, tmpaddr, objfile);
1106 /* Now pop locals of block just finished. */
1107 local_symbols = new->locals;
1112 process_coff_symbol (cs, &main_aux, objfile);
1117 if ((nsyms == 0) && (pe_file))
1119 /* We've got no debugging symbols, but it's a portable
1120 executable, so try to read the export table. */
1121 read_pe_exported_syms (objfile);
1124 if (last_source_file)
1125 coff_end_symtab (objfile);
1127 /* Patch up any opaque types (references to types that are not defined
1128 in the file where they are referenced, e.g. "struct foo *bar"). */
1129 ALL_OBJFILE_SYMTABS (objfile, s)
1130 patch_opaque_types (s);
1132 coffread_objfile = NULL;
1135 /* Routines for reading headers and symbols from executable. */
1137 /* Read the next symbol, swap it, and return it in both
1138 internal_syment form, and coff_symbol form. Also return its first
1139 auxent, if any, in internal_auxent form, and skip any other
1143 read_one_sym (struct coff_symbol *cs,
1144 struct internal_syment *sym,
1145 union internal_auxent *aux)
1148 bfd_size_type bytes;
1150 cs->c_symnum = symnum;
1151 bytes = bfd_bread (temp_sym, local_symesz, nlist_bfd_global);
1152 if (bytes != local_symesz)
1153 error (_("%s: error reading symbols"), coffread_objfile->name);
1154 bfd_coff_swap_sym_in (symfile_bfd, temp_sym, (char *) sym);
1155 cs->c_naux = sym->n_numaux & 0xff;
1156 if (cs->c_naux >= 1)
1158 bytes = bfd_bread (temp_aux, local_auxesz, nlist_bfd_global);
1159 if (bytes != local_auxesz)
1160 error (_("%s: error reading symbols"), coffread_objfile->name);
1161 bfd_coff_swap_aux_in (symfile_bfd, temp_aux,
1162 sym->n_type, sym->n_sclass,
1163 0, cs->c_naux, (char *) aux);
1164 /* If more than one aux entry, read past it (only the first aux
1166 for (i = 1; i < cs->c_naux; i++)
1168 bytes = bfd_bread (temp_aux, local_auxesz, nlist_bfd_global);
1169 if (bytes != local_auxesz)
1170 error (_("%s: error reading symbols"), coffread_objfile->name);
1173 cs->c_name = getsymname (sym);
1174 cs->c_value = sym->n_value;
1175 cs->c_sclass = (sym->n_sclass & 0xff);
1176 cs->c_secnum = sym->n_scnum;
1177 cs->c_type = (unsigned) sym->n_type;
1178 if (!SDB_TYPE (cs->c_type))
1182 if (cs->c_sclass & 128)
1183 printf (_("thumb symbol %s, class 0x%x\n"), cs->c_name, cs->c_sclass);
1186 symnum += 1 + cs->c_naux;
1188 /* The PE file format stores symbol values as offsets within the
1189 section, rather than as absolute addresses. We correct that
1190 here, if the symbol has an appropriate storage class. FIXME: We
1191 should use BFD to read the symbols, rather than duplicating the
1195 switch (cs->c_sclass)
1199 case C_THUMBEXTFUNC:
1204 case C_THUMBSTATFUNC:
1210 if (cs->c_secnum != 0)
1211 cs->c_value += cs_section_address (cs, symfile_bfd);
1217 /* Support for string table handling. */
1219 static char *stringtab = NULL;
1222 init_stringtab (bfd *abfd, long offset)
1226 unsigned char lengthbuf[4];
1230 /* If the file is stripped, the offset might be zero, indicating no
1231 string table. Just return with `stringtab' set to null. */
1235 if (bfd_seek (abfd, offset, 0) < 0)
1238 val = bfd_bread ((char *) lengthbuf, sizeof lengthbuf, abfd);
1239 length = bfd_h_get_32 (symfile_bfd, lengthbuf);
1241 /* If no string table is needed, then the file may end immediately
1242 after the symbols. Just return with `stringtab' set to null. */
1243 if (val != sizeof lengthbuf || length < sizeof lengthbuf)
1246 stringtab = (char *) xmalloc (length);
1247 /* This is in target format (probably not very useful, and not
1248 currently used), not host format. */
1249 memcpy (stringtab, lengthbuf, sizeof lengthbuf);
1250 if (length == sizeof length) /* Empty table -- just the count. */
1253 val = bfd_bread (stringtab + sizeof lengthbuf,
1254 length - sizeof lengthbuf, abfd);
1255 if (val != length - sizeof lengthbuf || stringtab[length - 1] != '\0')
1262 free_stringtab (void)
1270 free_stringtab_cleanup (void *ignore)
1276 getsymname (struct internal_syment *symbol_entry)
1278 static char buffer[SYMNMLEN + 1];
1281 if (symbol_entry->_n._n_n._n_zeroes == 0)
1283 /* FIXME: Probably should be detecting corrupt symbol files by
1284 seeing whether offset points to within the stringtab. */
1285 result = stringtab + symbol_entry->_n._n_n._n_offset;
1289 strncpy (buffer, symbol_entry->_n._n_name, SYMNMLEN);
1290 buffer[SYMNMLEN] = '\0';
1296 /* Extract the file name from the aux entry of a C_FILE symbol.
1297 Return only the last component of the name. Result is in static
1298 storage and is only good for temporary use. */
1301 coff_getfilename (union internal_auxent *aux_entry)
1303 static char buffer[BUFSIZ];
1306 if (aux_entry->x_file.x_n.x_zeroes == 0)
1308 if (strlen (stringtab + aux_entry->x_file.x_n.x_offset) >= BUFSIZ)
1309 internal_error (__FILE__, __LINE__, _("coff file name too long"));
1310 strcpy (buffer, stringtab + aux_entry->x_file.x_n.x_offset);
1314 strncpy (buffer, aux_entry->x_file.x_fname, FILNMLEN);
1315 buffer[FILNMLEN] = '\0';
1319 /* FIXME: We should not be throwing away the information about what
1320 directory. It should go into dirname of the symtab, or some such
1322 result = lbasename (result);
1326 /* Support for line number handling. */
1328 static char *linetab = NULL;
1329 static long linetab_offset;
1330 static unsigned long linetab_size;
1332 /* Read in all the line numbers for fast lookups later. Leave them in
1333 external (unswapped) format in memory; we'll swap them as we enter
1334 them into GDB's data structures. */
1337 init_lineno (bfd *abfd, long offset, int size)
1341 linetab_offset = offset;
1342 linetab_size = size;
1349 if (bfd_seek (abfd, offset, 0) < 0)
1352 /* Allocate the desired table, plus a sentinel. */
1353 linetab = (char *) xmalloc (size + local_linesz);
1355 val = bfd_bread (linetab, size, abfd);
1359 /* Terminate it with an all-zero sentinel record. */
1360 memset (linetab + size, 0, local_linesz);
1374 free_linetab_cleanup (void *ignore)
1379 #if !defined (L_LNNO32)
1380 #define L_LNNO32(lp) ((lp)->l_lnno)
1384 enter_linenos (long file_offset, int first_line,
1385 int last_line, struct objfile *objfile)
1387 struct gdbarch *gdbarch = get_objfile_arch (objfile);
1389 struct internal_lineno lptr;
1393 if (file_offset < linetab_offset)
1395 complaint (&symfile_complaints,
1396 _("Line number pointer %ld lower than start of line numbers"),
1398 if (file_offset > linetab_size) /* Too big to be an offset? */
1400 file_offset += linetab_offset; /* Try reading at that linetab
1404 rawptr = &linetab[file_offset - linetab_offset];
1406 /* Skip first line entry for each function. */
1407 rawptr += local_linesz;
1408 /* Line numbers start at one for the first line of the function. */
1411 /* If the line number table is full (e.g. 64K lines in COFF debug
1412 info), the next function's L_LNNO32 might not be zero, so don't
1413 overstep the table's end in any case. */
1414 while (rawptr <= &linetab[0] + linetab_size)
1416 bfd_coff_swap_lineno_in (symfile_bfd, rawptr, &lptr);
1417 rawptr += local_linesz;
1418 /* The next function, or the sentinel, will have L_LNNO32 zero;
1420 if (L_LNNO32 (&lptr) && L_LNNO32 (&lptr) <= last_line)
1422 CORE_ADDR addr = lptr.l_addr.l_paddr;
1423 addr += ANOFFSET (objfile->section_offsets,
1424 SECT_OFF_TEXT (objfile));
1425 record_line (current_subfile,
1426 first_line + L_LNNO32 (&lptr),
1427 gdbarch_addr_bits_remove (gdbarch, addr));
1435 patch_type (struct type *type, struct type *real_type)
1437 struct type *target = TYPE_TARGET_TYPE (type);
1438 struct type *real_target = TYPE_TARGET_TYPE (real_type);
1439 int field_size = TYPE_NFIELDS (real_target) * sizeof (struct field);
1441 TYPE_LENGTH (target) = TYPE_LENGTH (real_target);
1442 TYPE_NFIELDS (target) = TYPE_NFIELDS (real_target);
1443 TYPE_FIELDS (target) = (struct field *) TYPE_ALLOC (target,
1446 memcpy (TYPE_FIELDS (target),
1447 TYPE_FIELDS (real_target),
1450 if (TYPE_NAME (real_target))
1452 /* The previous copy of TYPE_NAME is allocated by
1453 process_coff_symbol. */
1454 if (TYPE_NAME (target))
1455 xfree ((char*) TYPE_NAME (target));
1456 TYPE_NAME (target) = xstrdup (TYPE_NAME (real_target));
1460 /* Patch up all appropriate typedef symbols in the opaque_type_chains
1461 so that they can be used to print out opaque data structures
1465 patch_opaque_types (struct symtab *s)
1468 struct block_iterator iter;
1469 struct symbol *real_sym;
1471 /* Go through the per-file symbols only. */
1472 b = BLOCKVECTOR_BLOCK (BLOCKVECTOR (s), STATIC_BLOCK);
1473 ALL_BLOCK_SYMBOLS (b, iter, real_sym)
1475 /* Find completed typedefs to use to fix opaque ones.
1476 Remove syms from the chain when their types are stored,
1477 but search the whole chain, as there may be several syms
1478 from different files with the same name. */
1479 if (SYMBOL_CLASS (real_sym) == LOC_TYPEDEF
1480 && SYMBOL_DOMAIN (real_sym) == VAR_DOMAIN
1481 && TYPE_CODE (SYMBOL_TYPE (real_sym)) == TYPE_CODE_PTR
1482 && TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (real_sym))) != 0)
1484 const char *name = SYMBOL_LINKAGE_NAME (real_sym);
1485 int hash = hashname (name);
1486 struct symbol *sym, *prev;
1489 for (sym = opaque_type_chain[hash]; sym;)
1491 if (name[0] == SYMBOL_LINKAGE_NAME (sym)[0]
1492 && strcmp (name + 1, SYMBOL_LINKAGE_NAME (sym) + 1) == 0)
1496 SYMBOL_VALUE_CHAIN (prev) = SYMBOL_VALUE_CHAIN (sym);
1500 opaque_type_chain[hash] = SYMBOL_VALUE_CHAIN (sym);
1503 patch_type (SYMBOL_TYPE (sym), SYMBOL_TYPE (real_sym));
1507 sym = SYMBOL_VALUE_CHAIN (prev);
1511 sym = opaque_type_chain[hash];
1517 sym = SYMBOL_VALUE_CHAIN (sym);
1525 coff_reg_to_regnum (struct symbol *sym, struct gdbarch *gdbarch)
1527 return gdbarch_sdb_reg_to_regnum (gdbarch, SYMBOL_VALUE (sym));
1530 static const struct symbol_register_ops coff_register_funcs = {
1534 static struct symbol *
1535 process_coff_symbol (struct coff_symbol *cs,
1536 union internal_auxent *aux,
1537 struct objfile *objfile)
1540 = (struct symbol *) obstack_alloc (&objfile->objfile_obstack,
1541 sizeof (struct symbol));
1544 memset (sym, 0, sizeof (struct symbol));
1546 name = EXTERNAL_NAME (name, objfile->obfd);
1547 SYMBOL_SET_LANGUAGE (sym, current_subfile->language);
1548 SYMBOL_SET_NAMES (sym, name, strlen (name), 1, objfile);
1550 /* default assumptions */
1551 SYMBOL_VALUE (sym) = cs->c_value;
1552 SYMBOL_DOMAIN (sym) = VAR_DOMAIN;
1553 SYMBOL_SECTION (sym) = cs_to_section (cs, objfile);
1555 if (ISFCN (cs->c_type))
1557 SYMBOL_VALUE (sym) += ANOFFSET (objfile->section_offsets,
1558 SECT_OFF_TEXT (objfile));
1560 lookup_function_type (decode_function_type (cs, cs->c_type,
1563 SYMBOL_CLASS (sym) = LOC_BLOCK;
1564 if (cs->c_sclass == C_STAT || cs->c_sclass == C_THUMBSTAT
1565 || cs->c_sclass == C_THUMBSTATFUNC)
1566 add_symbol_to_list (sym, &file_symbols);
1567 else if (cs->c_sclass == C_EXT || cs->c_sclass == C_THUMBEXT
1568 || cs->c_sclass == C_THUMBEXTFUNC)
1569 add_symbol_to_list (sym, &global_symbols);
1573 SYMBOL_TYPE (sym) = decode_type (cs, cs->c_type, aux, objfile);
1574 switch (cs->c_sclass)
1580 SYMBOL_CLASS (sym) = LOC_LOCAL;
1581 add_symbol_to_list (sym, &local_symbols);
1585 case C_THUMBEXTFUNC:
1587 SYMBOL_CLASS (sym) = LOC_STATIC;
1588 SYMBOL_VALUE_ADDRESS (sym) = (CORE_ADDR) cs->c_value;
1589 SYMBOL_VALUE_ADDRESS (sym) += ANOFFSET (objfile->section_offsets,
1590 SECT_OFF_TEXT (objfile));
1591 add_symbol_to_list (sym, &global_symbols);
1595 case C_THUMBSTATFUNC:
1597 SYMBOL_CLASS (sym) = LOC_STATIC;
1598 SYMBOL_VALUE_ADDRESS (sym) = (CORE_ADDR) cs->c_value;
1599 SYMBOL_VALUE_ADDRESS (sym) += ANOFFSET (objfile->section_offsets,
1600 SECT_OFF_TEXT (objfile));
1601 if (within_function)
1603 /* Static symbol of local scope. */
1604 add_symbol_to_list (sym, &local_symbols);
1608 /* Static symbol at top level of file. */
1609 add_symbol_to_list (sym, &file_symbols);
1613 #ifdef C_GLBLREG /* AMD coff */
1617 SYMBOL_CLASS (sym) = LOC_REGISTER;
1618 SYMBOL_REGISTER_OPS (sym) = &coff_register_funcs;
1619 SYMBOL_VALUE (sym) = cs->c_value;
1620 add_symbol_to_list (sym, &local_symbols);
1628 SYMBOL_CLASS (sym) = LOC_ARG;
1629 SYMBOL_IS_ARGUMENT (sym) = 1;
1630 add_symbol_to_list (sym, &local_symbols);
1634 SYMBOL_CLASS (sym) = LOC_REGISTER;
1635 SYMBOL_REGISTER_OPS (sym) = &coff_register_funcs;
1636 SYMBOL_IS_ARGUMENT (sym) = 1;
1637 SYMBOL_VALUE (sym) = cs->c_value;
1638 add_symbol_to_list (sym, &local_symbols);
1642 SYMBOL_CLASS (sym) = LOC_TYPEDEF;
1643 SYMBOL_DOMAIN (sym) = VAR_DOMAIN;
1645 /* If type has no name, give it one. */
1646 if (TYPE_NAME (SYMBOL_TYPE (sym)) == 0)
1648 if (TYPE_CODE (SYMBOL_TYPE (sym)) == TYPE_CODE_PTR
1649 || TYPE_CODE (SYMBOL_TYPE (sym)) == TYPE_CODE_FUNC)
1651 /* If we are giving a name to a type such as
1652 "pointer to foo" or "function returning foo", we
1653 better not set the TYPE_NAME. If the program
1654 contains "typedef char *caddr_t;", we don't want
1655 all variables of type char * to print as caddr_t.
1656 This is not just a consequence of GDB's type
1657 management; CC and GCC (at least through version
1658 2.4) both output variables of either type char *
1659 or caddr_t with the type refering to the C_TPDEF
1660 symbol for caddr_t. If a future compiler cleans
1661 this up it GDB is not ready for it yet, but if it
1662 becomes ready we somehow need to disable this
1663 check (without breaking the PCC/GCC2.4 case).
1667 Fortunately, this check seems not to be necessary
1668 for anything except pointers or functions. */
1672 TYPE_NAME (SYMBOL_TYPE (sym)) =
1673 xstrdup (SYMBOL_LINKAGE_NAME (sym));
1676 /* Keep track of any type which points to empty structured
1677 type, so it can be filled from a definition from another
1678 file. A simple forward reference (TYPE_CODE_UNDEF) is
1679 not an empty structured type, though; the forward
1680 references work themselves out via the magic of
1681 coff_lookup_type. */
1682 if (TYPE_CODE (SYMBOL_TYPE (sym)) == TYPE_CODE_PTR
1683 && TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym))) == 0
1684 && TYPE_CODE (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym)))
1687 int i = hashname (SYMBOL_LINKAGE_NAME (sym));
1689 SYMBOL_VALUE_CHAIN (sym) = opaque_type_chain[i];
1690 opaque_type_chain[i] = sym;
1692 add_symbol_to_list (sym, &file_symbols);
1698 SYMBOL_CLASS (sym) = LOC_TYPEDEF;
1699 SYMBOL_DOMAIN (sym) = STRUCT_DOMAIN;
1701 /* Some compilers try to be helpful by inventing "fake"
1702 names for anonymous enums, structures, and unions, like
1703 "~0fake" or ".0fake". Thanks, but no thanks... */
1704 if (TYPE_TAG_NAME (SYMBOL_TYPE (sym)) == 0)
1705 if (SYMBOL_LINKAGE_NAME (sym) != NULL
1706 && *SYMBOL_LINKAGE_NAME (sym) != '~'
1707 && *SYMBOL_LINKAGE_NAME (sym) != '.')
1708 TYPE_TAG_NAME (SYMBOL_TYPE (sym)) =
1709 concat (SYMBOL_LINKAGE_NAME (sym), (char *)NULL);
1711 add_symbol_to_list (sym, &file_symbols);
1721 /* Decode a coff type specifier; return the type that is meant. */
1723 static struct type *
1724 decode_type (struct coff_symbol *cs, unsigned int c_type,
1725 union internal_auxent *aux, struct objfile *objfile)
1727 struct type *type = 0;
1728 unsigned int new_c_type;
1730 if (c_type & ~N_BTMASK)
1732 new_c_type = DECREF (c_type);
1735 type = decode_type (cs, new_c_type, aux, objfile);
1736 type = lookup_pointer_type (type);
1738 else if (ISFCN (c_type))
1740 type = decode_type (cs, new_c_type, aux, objfile);
1741 type = lookup_function_type (type);
1743 else if (ISARY (c_type))
1746 unsigned short *dim;
1747 struct type *base_type, *index_type, *range_type;
1749 /* Define an array type. */
1750 /* auxent refers to array, not base type. */
1751 if (aux->x_sym.x_tagndx.l == 0)
1754 /* Shift the indices down. */
1755 dim = &aux->x_sym.x_fcnary.x_ary.x_dimen[0];
1758 for (i = 0; *dim && i < DIMNUM - 1; i++, dim++)
1762 base_type = decode_type (cs, new_c_type, aux, objfile);
1763 index_type = objfile_type (objfile)->builtin_int;
1765 create_range_type ((struct type *) NULL,
1766 index_type, 0, n - 1);
1768 create_array_type ((struct type *) NULL,
1769 base_type, range_type);
1774 /* Reference to existing type. This only occurs with the struct,
1775 union, and enum types. EPI a29k coff fakes us out by producing
1776 aux entries with a nonzero x_tagndx for definitions of structs,
1777 unions, and enums, so we have to check the c_sclass field. SCO
1778 3.2v4 cc gets confused with pointers to pointers to defined
1779 structs, and generates negative x_tagndx fields. */
1780 if (cs->c_naux > 0 && aux->x_sym.x_tagndx.l != 0)
1782 if (cs->c_sclass != C_STRTAG
1783 && cs->c_sclass != C_UNTAG
1784 && cs->c_sclass != C_ENTAG
1785 && aux->x_sym.x_tagndx.l >= 0)
1787 type = coff_alloc_type (aux->x_sym.x_tagndx.l);
1792 complaint (&symfile_complaints,
1793 _("Symbol table entry for %s has bad tagndx value"),
1795 /* And fall through to decode_base_type... */
1799 return decode_base_type (cs, BTYPE (c_type), aux, objfile);
1802 /* Decode a coff type specifier for function definition;
1803 return the type that the function returns. */
1805 static struct type *
1806 decode_function_type (struct coff_symbol *cs,
1807 unsigned int c_type,
1808 union internal_auxent *aux,
1809 struct objfile *objfile)
1811 if (aux->x_sym.x_tagndx.l == 0)
1812 cs->c_naux = 0; /* auxent refers to function, not base
1815 return decode_type (cs, DECREF (c_type), aux, objfile);
1818 /* Basic C types. */
1820 static struct type *
1821 decode_base_type (struct coff_symbol *cs,
1822 unsigned int c_type,
1823 union internal_auxent *aux,
1824 struct objfile *objfile)
1826 struct gdbarch *gdbarch = get_objfile_arch (objfile);
1832 /* Shows up with "void (*foo)();" structure members. */
1833 return objfile_type (objfile)->builtin_void;
1837 /* Intel 960 COFF has this symbol and meaning. */
1838 return objfile_type (objfile)->builtin_void;
1842 return objfile_type (objfile)->builtin_char;
1845 return objfile_type (objfile)->builtin_short;
1848 return objfile_type (objfile)->builtin_int;
1851 if (cs->c_sclass == C_FIELD
1852 && aux->x_sym.x_misc.x_lnsz.x_size
1853 > gdbarch_long_bit (gdbarch))
1854 return objfile_type (objfile)->builtin_long_long;
1856 return objfile_type (objfile)->builtin_long;
1859 return objfile_type (objfile)->builtin_float;
1862 return objfile_type (objfile)->builtin_double;
1865 return objfile_type (objfile)->builtin_long_double;
1868 if (cs->c_naux != 1)
1870 /* Anonymous structure type. */
1871 type = coff_alloc_type (cs->c_symnum);
1872 TYPE_CODE (type) = TYPE_CODE_STRUCT;
1873 TYPE_NAME (type) = NULL;
1874 /* This used to set the tag to "<opaque>". But I think
1875 setting it to NULL is right, and the printing code can
1876 print it as "struct {...}". */
1877 TYPE_TAG_NAME (type) = NULL;
1878 INIT_CPLUS_SPECIFIC (type);
1879 TYPE_LENGTH (type) = 0;
1880 TYPE_FIELDS (type) = 0;
1881 TYPE_NFIELDS (type) = 0;
1885 type = coff_read_struct_type (cs->c_symnum,
1886 aux->x_sym.x_misc.x_lnsz.x_size,
1887 aux->x_sym.x_fcnary.x_fcn.x_endndx.l,
1893 if (cs->c_naux != 1)
1895 /* Anonymous union type. */
1896 type = coff_alloc_type (cs->c_symnum);
1897 TYPE_NAME (type) = NULL;
1898 /* This used to set the tag to "<opaque>". But I think
1899 setting it to NULL is right, and the printing code can
1900 print it as "union {...}". */
1901 TYPE_TAG_NAME (type) = NULL;
1902 INIT_CPLUS_SPECIFIC (type);
1903 TYPE_LENGTH (type) = 0;
1904 TYPE_FIELDS (type) = 0;
1905 TYPE_NFIELDS (type) = 0;
1909 type = coff_read_struct_type (cs->c_symnum,
1910 aux->x_sym.x_misc.x_lnsz.x_size,
1911 aux->x_sym.x_fcnary.x_fcn.x_endndx.l,
1914 TYPE_CODE (type) = TYPE_CODE_UNION;
1918 if (cs->c_naux != 1)
1920 /* Anonymous enum type. */
1921 type = coff_alloc_type (cs->c_symnum);
1922 TYPE_CODE (type) = TYPE_CODE_ENUM;
1923 TYPE_NAME (type) = NULL;
1924 /* This used to set the tag to "<opaque>". But I think
1925 setting it to NULL is right, and the printing code can
1926 print it as "enum {...}". */
1927 TYPE_TAG_NAME (type) = NULL;
1928 TYPE_LENGTH (type) = 0;
1929 TYPE_FIELDS (type) = 0;
1930 TYPE_NFIELDS (type) = 0;
1934 type = coff_read_enum_type (cs->c_symnum,
1935 aux->x_sym.x_misc.x_lnsz.x_size,
1936 aux->x_sym.x_fcnary.x_fcn.x_endndx.l,
1942 /* Shouldn't show up here. */
1946 return objfile_type (objfile)->builtin_unsigned_char;
1949 return objfile_type (objfile)->builtin_unsigned_short;
1952 return objfile_type (objfile)->builtin_unsigned_int;
1955 if (cs->c_sclass == C_FIELD
1956 && aux->x_sym.x_misc.x_lnsz.x_size
1957 > gdbarch_long_bit (gdbarch))
1958 return objfile_type (objfile)->builtin_unsigned_long_long;
1960 return objfile_type (objfile)->builtin_unsigned_long;
1962 complaint (&symfile_complaints,
1963 _("Unexpected type for symbol %s"), cs->c_name);
1964 return objfile_type (objfile)->builtin_void;
1967 /* This page contains subroutines of read_type. */
1969 /* Read the description of a structure (or union type) and return an
1970 object describing the type. */
1972 static struct type *
1973 coff_read_struct_type (int index, int length, int lastsym,
1974 struct objfile *objfile)
1978 struct nextfield *next;
1983 struct nextfield *list = 0;
1984 struct nextfield *new;
1988 struct coff_symbol member_sym;
1989 struct coff_symbol *ms = &member_sym;
1990 struct internal_syment sub_sym;
1991 union internal_auxent sub_aux;
1994 type = coff_alloc_type (index);
1995 TYPE_CODE (type) = TYPE_CODE_STRUCT;
1996 INIT_CPLUS_SPECIFIC (type);
1997 TYPE_LENGTH (type) = length;
1999 while (!done && symnum < lastsym && symnum < nlist_nsyms_global)
2001 read_one_sym (ms, &sub_sym, &sub_aux);
2003 name = EXTERNAL_NAME (name, objfile->obfd);
2005 switch (ms->c_sclass)
2010 /* Get space to record the next field's data. */
2011 new = (struct nextfield *) alloca (sizeof (struct nextfield));
2015 /* Save the data. */
2016 list->field.name = obsavestring (name, strlen (name),
2017 &objfile->objfile_obstack);
2018 FIELD_TYPE (list->field) = decode_type (ms, ms->c_type,
2020 SET_FIELD_BITPOS (list->field, 8 * ms->c_value);
2021 FIELD_BITSIZE (list->field) = 0;
2027 /* Get space to record the next field's data. */
2028 new = (struct nextfield *) alloca (sizeof (struct nextfield));
2032 /* Save the data. */
2033 list->field.name = obsavestring (name, strlen (name),
2034 &objfile->objfile_obstack);
2035 FIELD_TYPE (list->field) = decode_type (ms, ms->c_type,
2037 SET_FIELD_BITPOS (list->field, ms->c_value);
2038 FIELD_BITSIZE (list->field) = sub_aux.x_sym.x_misc.x_lnsz.x_size;
2047 /* Now create the vector of fields, and record how big it is. */
2049 TYPE_NFIELDS (type) = nfields;
2050 TYPE_FIELDS (type) = (struct field *)
2051 TYPE_ALLOC (type, sizeof (struct field) * nfields);
2053 /* Copy the saved-up fields into the field vector. */
2055 for (n = nfields; list; list = list->next)
2056 TYPE_FIELD (type, --n) = list->field;
2061 /* Read a definition of an enumeration type,
2062 and create and return a suitable type object.
2063 Also defines the symbols that represent the values of the type. */
2065 static struct type *
2066 coff_read_enum_type (int index, int length, int lastsym,
2067 struct objfile *objfile)
2069 struct gdbarch *gdbarch = get_objfile_arch (objfile);
2074 struct pending **symlist;
2075 struct coff_symbol member_sym;
2076 struct coff_symbol *ms = &member_sym;
2077 struct internal_syment sub_sym;
2078 union internal_auxent sub_aux;
2079 struct pending *osyms, *syms;
2083 int unsigned_enum = 1;
2085 type = coff_alloc_type (index);
2086 if (within_function)
2087 symlist = &local_symbols;
2089 symlist = &file_symbols;
2091 o_nsyms = osyms ? osyms->nsyms : 0;
2093 while (!done && symnum < lastsym && symnum < nlist_nsyms_global)
2095 read_one_sym (ms, &sub_sym, &sub_aux);
2097 name = EXTERNAL_NAME (name, objfile->obfd);
2099 switch (ms->c_sclass)
2102 sym = (struct symbol *) obstack_alloc
2103 (&objfile->objfile_obstack, sizeof (struct symbol));
2104 memset (sym, 0, sizeof (struct symbol));
2106 SYMBOL_SET_LINKAGE_NAME (sym,
2107 obsavestring (name, strlen (name),
2108 &objfile->objfile_obstack));
2109 SYMBOL_CLASS (sym) = LOC_CONST;
2110 SYMBOL_DOMAIN (sym) = VAR_DOMAIN;
2111 SYMBOL_VALUE (sym) = ms->c_value;
2112 add_symbol_to_list (sym, symlist);
2117 /* Sometimes the linker (on 386/ix 2.0.2 at least) screws
2118 up the count of how many symbols to read. So stop
2125 /* Now fill in the fields of the type-structure. */
2128 TYPE_LENGTH (type) = length;
2129 else /* Assume ints. */
2130 TYPE_LENGTH (type) = gdbarch_int_bit (gdbarch) / TARGET_CHAR_BIT;
2131 TYPE_CODE (type) = TYPE_CODE_ENUM;
2132 TYPE_NFIELDS (type) = nsyms;
2133 TYPE_FIELDS (type) = (struct field *)
2134 TYPE_ALLOC (type, sizeof (struct field) * nsyms);
2136 /* Find the symbols for the values and put them into the type.
2137 The symbols can be found in the symlist that we put them on
2138 to cause them to be defined. osyms contains the old value
2139 of that symlist; everything up to there was defined by us. */
2140 /* Note that we preserve the order of the enum constants, so
2141 that in something like "enum {FOO, LAST_THING=FOO}" we print
2142 FOO, not LAST_THING. */
2144 for (syms = *symlist, n = 0; syms; syms = syms->next)
2150 for (; j < syms->nsyms; j++, n++)
2152 struct symbol *xsym = syms->symbol[j];
2154 SYMBOL_TYPE (xsym) = type;
2155 TYPE_FIELD_NAME (type, n) = SYMBOL_LINKAGE_NAME (xsym);
2156 SET_FIELD_ENUMVAL (TYPE_FIELD (type, n), SYMBOL_VALUE (xsym));
2157 if (SYMBOL_VALUE (xsym) < 0)
2159 TYPE_FIELD_BITSIZE (type, n) = 0;
2166 TYPE_UNSIGNED (type) = 1;
2171 /* Register our ability to parse symbols for coff BFD files. */
2173 static const struct sym_fns coff_sym_fns =
2175 bfd_target_coff_flavour,
2176 coff_new_init, /* sym_new_init: init anything gbl to
2178 coff_symfile_init, /* sym_init: read initial info, setup
2180 coff_symfile_read, /* sym_read: read a symbol file into
2182 NULL, /* sym_read_psymbols */
2183 coff_symfile_finish, /* sym_finish: finished with file,
2185 default_symfile_offsets, /* sym_offsets: xlate external to
2187 default_symfile_segments, /* sym_segments: Get segment
2188 information from a file */
2189 NULL, /* sym_read_linetable */
2191 default_symfile_relocate, /* sym_relocate: Relocate a debug
2193 NULL, /* sym_probe_fns */
2197 /* Free the per-objfile COFF data. */
2200 coff_free_info (struct objfile *objfile, void *arg)
2206 _initialize_coffread (void)
2208 add_symtab_fns (&coff_sym_fns);
2210 coff_objfile_data_key = register_objfile_data_with_cleanup (NULL,