1 /* Read coff symbol tables and convert to internal format, for GDB.
2 Copyright (C) 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996,
3 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2007, 2008, 2009,
4 2010, 2011 Free Software Foundation, Inc.
5 Contributed by David D. Johnson, Brown University (ddj@cs.brown.edu).
7 This file is part of GDB.
9 This program is free software; you can redistribute it and/or modify
10 it under the terms of the GNU General Public License as published by
11 the Free Software Foundation; either version 3 of the License, or
12 (at your option) any later version.
14 This program is distributed in the hope that it will be useful,
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 GNU General Public License for more details.
19 You should have received a copy of the GNU General Public License
20 along with this program. If not, see <http://www.gnu.org/licenses/>. */
26 #include "breakpoint.h"
29 #include "gdb_obstack.h"
31 #include "gdb_string.h"
34 #include "coff/internal.h" /* Internal format of COFF symbols in BFD */
35 #include "libcoff.h" /* FIXME secret internal data from BFD */
38 #include "gdb-stabs.h"
39 #include "stabsread.h"
40 #include "complaints.h"
42 #include "gdb_assert.h"
44 #include "dictionary.h"
46 #include "coff-pe-read.h"
50 extern void _initialize_coffread (void);
52 struct coff_symfile_info
54 file_ptr min_lineno_offset; /* Where in file lowest line#s are. */
55 file_ptr max_lineno_offset; /* 1+last byte of line#s in file. */
57 CORE_ADDR textaddr; /* Addr of .text section. */
58 unsigned int textsize; /* Size of .text section. */
59 struct stab_section_list *stabsects; /* .stab sections. */
60 asection *stabstrsect; /* Section pointer for .stab section. */
64 /* Translate an external name string into a user-visible name. */
65 #define EXTERNAL_NAME(string, abfd) \
66 (string[0] == bfd_get_symbol_leading_char (abfd) \
67 ? string + 1 : string)
69 /* To be an sdb debug type, type must have at least a basic or primary
70 derived type. Using this rather than checking against T_NULL is
71 said to prevent core dumps if we try to operate on Michael Bloom
74 #define SDB_TYPE(type) (BTYPE(type) | (type & N_TMASK))
76 /* Core address of start and end of text of current source file.
77 This comes from a ".text" symbol where x_nlinno > 0. */
79 static CORE_ADDR current_source_start_addr;
80 static CORE_ADDR current_source_end_addr;
82 /* The addresses of the symbol table stream and number of symbols
83 of the object file we are reading (as copied into core). */
85 static bfd *nlist_bfd_global;
86 static int nlist_nsyms_global;
89 /* Pointers to scratch storage, used for reading raw symbols and
92 static char *temp_sym;
93 static char *temp_aux;
95 /* Local variables that hold the shift and mask values for the
96 COFF file that we are currently reading. These come back to us
97 from BFD, and are referenced by their macro names, as well as
98 internally to the BTYPE, ISPTR, ISFCN, ISARY, ISTAG, and DECREF
99 macros from include/coff/internal.h . */
101 static unsigned local_n_btmask;
102 static unsigned local_n_btshft;
103 static unsigned local_n_tmask;
104 static unsigned local_n_tshift;
106 #define N_BTMASK local_n_btmask
107 #define N_BTSHFT local_n_btshft
108 #define N_TMASK local_n_tmask
109 #define N_TSHIFT local_n_tshift
111 /* Local variables that hold the sizes in the file of various COFF
112 structures. (We only need to know this to read them from the file
113 -- BFD will then translate the data in them, into `internal_xxx'
114 structs in the right byte order, alignment, etc.) */
116 static unsigned local_linesz;
117 static unsigned local_symesz;
118 static unsigned local_auxesz;
120 /* This is set if this is a PE format file. */
124 /* Chain of typedefs of pointers to empty struct/union types.
125 They are chained thru the SYMBOL_VALUE_CHAIN. */
127 static struct symbol *opaque_type_chain[HASHSIZE];
129 /* Simplified internal version of coff symbol table information. */
134 int c_symnum; /* Symbol number of this entry. */
135 int c_naux; /* 0 if syment only, 1 if syment +
143 extern void stabsread_clear_cache (void);
145 static struct type *coff_read_struct_type (int, int, int,
148 static struct type *decode_base_type (struct coff_symbol *,
150 union internal_auxent *,
153 static struct type *decode_type (struct coff_symbol *, unsigned int,
154 union internal_auxent *,
157 static struct type *decode_function_type (struct coff_symbol *,
159 union internal_auxent *,
162 static struct type *coff_read_enum_type (int, int, int,
165 static struct symbol *process_coff_symbol (struct coff_symbol *,
166 union internal_auxent *,
169 static void patch_opaque_types (struct symtab *);
171 static void enter_linenos (long, int, int, struct objfile *);
173 static void free_linetab (void);
175 static void free_linetab_cleanup (void *ignore);
177 static int init_lineno (bfd *, long, int);
179 static char *getsymname (struct internal_syment *);
181 static char *coff_getfilename (union internal_auxent *);
183 static void free_stringtab (void);
185 static void free_stringtab_cleanup (void *ignore);
187 static int init_stringtab (bfd *, long);
189 static void read_one_sym (struct coff_symbol *,
190 struct internal_syment *,
191 union internal_auxent *);
193 static void coff_symtab_read (long, unsigned int, struct objfile *);
195 /* We are called once per section from coff_symfile_read. We
196 need to examine each section we are passed, check to see
197 if it is something we are interested in processing, and
198 if so, stash away some access information for the section.
200 FIXME: The section names should not be hardwired strings (what
201 should they be? I don't think most object file formats have enough
202 section flags to specify what kind of debug section it is
206 coff_locate_sections (bfd *abfd, asection *sectp, void *csip)
208 struct coff_symfile_info *csi;
211 csi = (struct coff_symfile_info *) csip;
212 name = bfd_get_section_name (abfd, sectp);
213 if (strcmp (name, ".text") == 0)
215 csi->textaddr = bfd_section_vma (abfd, sectp);
216 csi->textsize += bfd_section_size (abfd, sectp);
218 else if (strncmp (name, ".text", sizeof ".text" - 1) == 0)
220 csi->textsize += bfd_section_size (abfd, sectp);
222 else if (strcmp (name, ".stabstr") == 0)
224 csi->stabstrsect = sectp;
226 else if (strncmp (name, ".stab", sizeof ".stab" - 1) == 0)
230 /* We can have multiple .stab sections if linked with
232 for (s = name + sizeof ".stab" - 1; *s != '\0'; s++)
237 struct stab_section_list *n, **pn;
239 n = ((struct stab_section_list *)
240 xmalloc (sizeof (struct stab_section_list)));
243 for (pn = &csi->stabsects; *pn != NULL; pn = &(*pn)->next)
247 /* This will be run after coffstab_build_psymtabs is called
248 in coff_symfile_read, at which point we no longer need
250 make_cleanup (xfree, n);
255 /* Return the section_offsets* that CS points to. */
256 static int cs_to_section (struct coff_symbol *, struct objfile *);
258 struct find_targ_sec_arg
265 find_targ_sec (bfd *abfd, asection *sect, void *obj)
267 struct find_targ_sec_arg *args = (struct find_targ_sec_arg *) obj;
269 if (sect->target_index == args->targ_index)
270 *args->resultp = sect;
273 /* Return the bfd_section that CS points to. */
274 static struct bfd_section*
275 cs_to_bfd_section (struct coff_symbol *cs, struct objfile *objfile)
277 asection *sect = NULL;
278 struct find_targ_sec_arg args;
280 args.targ_index = cs->c_secnum;
281 args.resultp = §
282 bfd_map_over_sections (objfile->obfd, find_targ_sec, &args);
286 /* Return the section number (SECT_OFF_*) that CS points to. */
288 cs_to_section (struct coff_symbol *cs, struct objfile *objfile)
290 asection *sect = cs_to_bfd_section (cs, objfile);
293 return SECT_OFF_TEXT (objfile);
297 /* Return the address of the section of a COFF symbol. */
299 static CORE_ADDR cs_section_address (struct coff_symbol *, bfd *);
302 cs_section_address (struct coff_symbol *cs, bfd *abfd)
304 asection *sect = NULL;
305 struct find_targ_sec_arg args;
308 args.targ_index = cs->c_secnum;
309 args.resultp = §
310 bfd_map_over_sections (abfd, find_targ_sec, &args);
312 addr = bfd_get_section_vma (objfile->obfd, sect);
316 /* Look up a coff type-number index. Return the address of the slot
317 where the type for that index is stored.
318 The type-number is in INDEX.
320 This can be used for finding the type associated with that index
321 or for associating a new type with the index. */
323 static struct type **
324 coff_lookup_type (int index)
326 if (index >= type_vector_length)
328 int old_vector_length = type_vector_length;
330 type_vector_length *= 2;
331 if (index /* is still */ >= type_vector_length)
332 type_vector_length = index * 2;
334 type_vector = (struct type **)
335 xrealloc ((char *) type_vector,
336 type_vector_length * sizeof (struct type *));
337 memset (&type_vector[old_vector_length], 0,
338 (type_vector_length - old_vector_length) * sizeof (struct type *));
340 return &type_vector[index];
343 /* Make sure there is a type allocated for type number index
344 and return the type object.
345 This can create an empty (zeroed) type object. */
348 coff_alloc_type (int index)
350 struct type **type_addr = coff_lookup_type (index);
351 struct type *type = *type_addr;
353 /* If we are referring to a type not known at all yet,
354 allocate an empty type for it.
355 We will fill it in later if we find out how. */
358 type = alloc_type (current_objfile);
364 /* Start a new symtab for a new source file.
365 This is called when a COFF ".file" symbol is seen;
366 it indicates the start of data for one original source file. */
369 coff_start_symtab (char *name)
372 /* We fill in the filename later. start_symtab puts this pointer
373 into last_source_file and we put it in subfiles->name, which
374 end_symtab frees; that's why it must be malloc'd. */
376 /* We never know the directory name for COFF. */
378 /* The start address is irrelevant, since we set
379 last_source_start_addr in coff_end_symtab. */
381 record_debugformat ("COFF");
384 /* Save the vital information from when starting to read a file,
385 for use when closing off the current file.
386 NAME is the file name the symbols came from, START_ADDR is the
387 first text address for the file, and SIZE is the number of bytes of
391 complete_symtab (char *name, CORE_ADDR start_addr, unsigned int size)
393 if (last_source_file != NULL)
394 xfree (last_source_file);
395 last_source_file = xstrdup (name);
396 current_source_start_addr = start_addr;
397 current_source_end_addr = start_addr + size;
400 /* Finish the symbol definitions for one main source file, close off
401 all the lexical contexts for that file (creating struct block's for
402 them), then make the struct symtab for that file and put it in the
406 coff_end_symtab (struct objfile *objfile)
408 struct symtab *symtab;
410 last_source_start_addr = current_source_start_addr;
412 symtab = end_symtab (current_source_end_addr, objfile,
413 SECT_OFF_TEXT (objfile));
415 /* Reinitialize for beginning of new file. */
416 last_source_file = NULL;
419 static struct minimal_symbol *
420 record_minimal_symbol (struct coff_symbol *cs, CORE_ADDR address,
421 enum minimal_symbol_type type, int section,
422 struct objfile *objfile)
424 struct bfd_section *bfd_section;
426 /* We don't want TDESC entry points in the minimal symbol table. */
427 if (cs->c_name[0] == '@')
430 bfd_section = cs_to_bfd_section (cs, objfile);
431 return prim_record_minimal_symbol_and_info (cs->c_name, address,
433 bfd_section, objfile);
436 /* coff_symfile_init ()
437 is the coff-specific initialization routine for reading symbols.
438 It is passed a struct objfile which contains, among other things,
439 the BFD for the file whose symbols are being read, and a slot for
440 a pointer to "private data" which we fill with cookies and other
441 treats for coff_symfile_read ().
443 We will only be called if this is a COFF or COFF-like file. BFD
444 handles figuring out the format of the file, and code in symtab.c
445 uses BFD's determination to vector to us.
447 The ultimate result is a new symtab (or, FIXME, eventually a
451 coff_symfile_init (struct objfile *objfile)
453 /* Allocate struct to keep track of stab reading. */
454 objfile->deprecated_sym_stab_info = (struct dbx_symfile_info *)
455 xmalloc (sizeof (struct dbx_symfile_info));
457 memset (objfile->deprecated_sym_stab_info, 0,
458 sizeof (struct dbx_symfile_info));
460 /* Allocate struct to keep track of the symfile. */
461 objfile->deprecated_sym_private
462 = xmalloc (sizeof (struct coff_symfile_info));
464 memset (objfile->deprecated_sym_private, 0,
465 sizeof (struct coff_symfile_info));
467 /* COFF objects may be reordered, so set OBJF_REORDERED. If we
468 find this causes a significant slowdown in gdb then we could
469 set it in the debug symbol readers only when necessary. */
470 objfile->flags |= OBJF_REORDERED;
472 init_entry_point_info (objfile);
475 /* This function is called for every section; it finds the outer
476 limits of the line table (minimum and maximum file offset) so that
477 the mainline code can read the whole thing for efficiency. */
480 find_linenos (bfd *abfd, struct bfd_section *asect, void *vpinfo)
482 struct coff_symfile_info *info;
484 file_ptr offset, maxoff;
486 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
487 count = asect->lineno_count;
488 /* End of warning. */
492 size = count * local_linesz;
494 info = (struct coff_symfile_info *) vpinfo;
495 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
496 offset = asect->line_filepos;
497 /* End of warning. */
499 if (offset < info->min_lineno_offset || info->min_lineno_offset == 0)
500 info->min_lineno_offset = offset;
502 maxoff = offset + size;
503 if (maxoff > info->max_lineno_offset)
504 info->max_lineno_offset = maxoff;
508 /* The BFD for this file -- only good while we're actively reading
509 symbols into a psymtab or a symtab. */
511 static bfd *symfile_bfd;
513 /* Read a symbol file, after initialization by coff_symfile_init. */
516 coff_symfile_read (struct objfile *objfile, int symfile_flags)
518 struct coff_symfile_info *info;
519 struct dbx_symfile_info *dbxinfo;
520 bfd *abfd = objfile->obfd;
521 coff_data_type *cdata = coff_data (abfd);
522 char *name = bfd_get_filename (abfd);
524 unsigned int num_symbols;
526 int stringtab_offset;
527 struct cleanup *back_to, *cleanup_minimal_symbols;
530 info = (struct coff_symfile_info *) objfile->deprecated_sym_private;
531 dbxinfo = objfile->deprecated_sym_stab_info;
532 symfile_bfd = abfd; /* Kludge for swap routines. */
534 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
535 num_symbols = bfd_get_symcount (abfd); /* How many syms */
536 symtab_offset = cdata->sym_filepos; /* Symbol table file offset */
537 stringtab_offset = symtab_offset + /* String table file offset */
538 num_symbols * cdata->local_symesz;
540 /* Set a few file-statics that give us specific information about
541 the particular COFF file format we're reading. */
542 local_n_btmask = cdata->local_n_btmask;
543 local_n_btshft = cdata->local_n_btshft;
544 local_n_tmask = cdata->local_n_tmask;
545 local_n_tshift = cdata->local_n_tshift;
546 local_linesz = cdata->local_linesz;
547 local_symesz = cdata->local_symesz;
548 local_auxesz = cdata->local_auxesz;
550 /* Allocate space for raw symbol and aux entries, based on their
551 space requirements as reported by BFD. */
552 temp_sym = (char *) xmalloc
553 (cdata->local_symesz + cdata->local_auxesz);
554 temp_aux = temp_sym + cdata->local_symesz;
555 back_to = make_cleanup (free_current_contents, &temp_sym);
557 /* We need to know whether this is a PE file, because in PE files,
558 unlike standard COFF files, symbol values are stored as offsets
559 from the section address, rather than as absolute addresses.
560 FIXME: We should use BFD to read the symbol table, and thus avoid
563 strncmp (bfd_get_target (objfile->obfd), "pe", 2) == 0
564 || strncmp (bfd_get_target (objfile->obfd), "epoc-pe", 7) == 0;
566 /* End of warning. */
568 info->min_lineno_offset = 0;
569 info->max_lineno_offset = 0;
571 /* Only read line number information if we have symbols.
573 On Windows NT, some of the system's DLL's have sections with
574 PointerToLinenumbers fields that are non-zero, but point at
575 random places within the image file. (In the case I found,
576 KERNEL32.DLL's .text section has a line number info pointer that
577 points into the middle of the string `lib\\i386\kernel32.dll'.)
579 However, these DLL's also have no symbols. The line number
580 tables are meaningless without symbols. And in fact, GDB never
581 uses the line number information unless there are symbols. So we
582 can avoid spurious error messages (and maybe run a little
583 faster!) by not even reading the line number table unless we have
587 /* Read the line number table, all at once. */
588 bfd_map_over_sections (abfd, find_linenos, (void *) info);
590 make_cleanup (free_linetab_cleanup, 0 /*ignore*/);
591 val = init_lineno (abfd, info->min_lineno_offset,
592 info->max_lineno_offset - info->min_lineno_offset);
594 error (_("\"%s\": error reading line numbers."), name);
597 /* Now read the string table, all at once. */
599 make_cleanup (free_stringtab_cleanup, 0 /*ignore*/);
600 val = init_stringtab (abfd, stringtab_offset);
602 error (_("\"%s\": can't get string table"), name);
604 init_minimal_symbol_collection ();
605 cleanup_minimal_symbols = make_cleanup_discard_minimal_symbols ();
607 /* Now that the executable file is positioned at symbol table,
608 process it and define symbols accordingly. */
610 coff_symtab_read ((long) symtab_offset, num_symbols, objfile);
612 /* Install any minimal symbols that have been collected as the
613 current minimal symbols for this objfile. */
615 install_minimal_symbols (objfile);
617 /* Free the installed minimal symbol data. */
618 do_cleanups (cleanup_minimal_symbols);
620 bfd_map_over_sections (abfd, coff_locate_sections, (void *) info);
624 if (!info->stabstrsect)
626 error (_("The debugging information in `%s' is corrupted.\nThe "
627 "file has a `.stabs' section, but no `.stabstr' section."),
631 /* FIXME: dubious. Why can't we use something normal like
632 bfd_get_section_contents? */
633 bfd_seek (abfd, abfd->where, 0);
635 stabstrsize = bfd_section_size (abfd, info->stabstrsect);
637 coffstab_build_psymtabs (objfile,
638 info->textaddr, info->textsize,
640 info->stabstrsect->filepos, stabstrsize);
642 if (dwarf2_has_info (objfile))
644 /* DWARF2 sections. */
645 dwarf2_build_psymtabs (objfile);
648 dwarf2_build_frame_info (objfile);
650 /* Try to add separate debug file if no symbols table found. */
651 if (!objfile_has_partial_symbols (objfile))
655 debugfile = find_separate_debug_file_by_debuglink (objfile);
659 bfd *abfd = symfile_bfd_open (debugfile);
661 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 if (objfile->deprecated_sym_private != NULL)
685 xfree (objfile->deprecated_sym_private);
688 /* Let stabs reader clean up. */
689 stabsread_clear_cache ();
691 dwarf2_free_objfile (objfile);
695 /* Given pointers to a symbol table in coff style exec file,
696 analyze them and create struct symtab's describing the symbols.
697 NSYMS is the number of symbols in the symbol table.
698 We read them one at a time using read_one_sym (). */
701 coff_symtab_read (long symtab_offset, unsigned int nsyms,
702 struct objfile *objfile)
704 struct gdbarch *gdbarch = get_objfile_arch (objfile);
705 struct context_stack *new;
706 struct coff_symbol coff_symbol;
707 struct coff_symbol *cs = &coff_symbol;
708 static struct internal_syment main_sym;
709 static union internal_auxent main_aux;
710 struct coff_symbol fcn_cs_saved;
711 static struct internal_syment fcn_sym_saved;
712 static union internal_auxent fcn_aux_saved;
714 /* A .file is open. */
715 int in_source_file = 0;
716 int next_file_symnum = -1;
717 /* Name of the current file. */
718 char *filestring = "";
720 int fcn_first_line = 0;
721 CORE_ADDR fcn_first_line_addr = 0;
722 int fcn_last_line = 0;
723 int fcn_start_addr = 0;
724 long fcn_line_ptr = 0;
727 struct minimal_symbol *msym;
729 /* Work around a stdio bug in SunOS4.1.1 (this makes me nervous....
730 it's hard to know I've really worked around it. The fix should
731 be harmless, anyway). The symptom of the bug is that the first
732 fread (in read_one_sym), will (in my example) actually get data
733 from file offset 268, when the fseek was to 264 (and ftell shows
734 264). This causes all hell to break loose. I was unable to
735 reproduce this on a short test program which operated on the same
736 file, performing (I think) the same sequence of operations.
738 It stopped happening when I put in this (former) rewind().
740 FIXME: Find out if this has been reported to Sun, whether it has
741 been fixed in a later release, etc. */
743 bfd_seek (objfile->obfd, 0, 0);
745 /* Position to read the symbol table. */
746 val = bfd_seek (objfile->obfd, (long) symtab_offset, 0);
748 perror_with_name (objfile->name);
750 current_objfile = objfile;
751 nlist_bfd_global = objfile->obfd;
752 nlist_nsyms_global = nsyms;
753 last_source_file = NULL;
754 memset (opaque_type_chain, 0, sizeof opaque_type_chain);
756 if (type_vector) /* Get rid of previous one. */
758 type_vector_length = 160;
759 type_vector = (struct type **)
760 xmalloc (type_vector_length * sizeof (struct type *));
761 memset (type_vector, 0, type_vector_length * sizeof (struct type *));
763 coff_start_symtab ("");
766 while (symnum < nsyms)
768 QUIT; /* Make this command interruptable. */
770 read_one_sym (cs, &main_sym, &main_aux);
772 if (cs->c_symnum == next_file_symnum && cs->c_sclass != C_FILE)
774 if (last_source_file)
775 coff_end_symtab (objfile);
777 coff_start_symtab ("_globals_");
778 /* coff_start_symtab will set the language of this symtab to
779 language_unknown, since such a ``file name'' is not
780 recognized. Override that with the minimal language to
781 allow printing values in this symtab. */
782 current_subfile->language = language_minimal;
783 complete_symtab ("_globals_", 0, 0);
784 /* Done with all files, everything from here on out is
788 /* Special case for file with type declarations only, no
790 if (!last_source_file && SDB_TYPE (cs->c_type)
791 && cs->c_secnum == N_DEBUG)
792 complete_symtab (filestring, 0, 0);
794 /* Typedefs should not be treated as symbol definitions. */
795 if (ISFCN (cs->c_type) && cs->c_sclass != C_TPDEF)
797 /* Record all functions -- external and static -- in
799 int section = cs_to_section (cs, objfile);
801 tmpaddr = cs->c_value + ANOFFSET (objfile->section_offsets,
802 SECT_OFF_TEXT (objfile));
803 record_minimal_symbol (cs, tmpaddr, mst_text,
806 fcn_line_ptr = main_aux.x_sym.x_fcnary.x_fcn.x_lnnoptr;
807 fcn_start_addr = tmpaddr;
809 fcn_sym_saved = main_sym;
810 fcn_aux_saved = main_aux;
814 switch (cs->c_sclass)
823 complaint (&symfile_complaints,
824 _("Bad n_sclass for symbol %s"),
829 /* c_value field contains symnum of next .file entry in
830 table or symnum of first global after last .file. */
831 next_file_symnum = cs->c_value;
833 filestring = coff_getfilename (&main_aux);
837 /* Complete symbol table for last object file
838 containing debugging information. */
839 if (last_source_file)
841 coff_end_symtab (objfile);
842 coff_start_symtab (filestring);
847 /* C_LABEL is used for labels and static functions.
848 Including it here allows gdb to see static functions when
849 no debug info is available. */
851 /* However, labels within a function can make weird
852 backtraces, so filter them out (from phdm@macqel.be). */
858 case C_THUMBSTATFUNC:
859 if (cs->c_name[0] == '.')
861 if (strcmp (cs->c_name, ".text") == 0)
863 /* FIXME: don't wire in ".text" as section name or
865 /* Check for in_source_file deals with case of a
866 file with debugging symbols followed by a later
867 file with no symbols. */
869 complete_symtab (filestring,
870 cs->c_value + ANOFFSET (objfile->section_offsets,
871 SECT_OFF_TEXT (objfile)),
872 main_aux.x_scn.x_scnlen);
875 /* Flush rest of '.' symbols. */
878 else if (!SDB_TYPE (cs->c_type)
879 && cs->c_name[0] == 'L'
880 && (strncmp (cs->c_name, "LI%", 3) == 0
881 || strncmp (cs->c_name, "LF%", 3) == 0
882 || strncmp (cs->c_name, "LC%", 3) == 0
883 || strncmp (cs->c_name, "LP%", 3) == 0
884 || strncmp (cs->c_name, "LPB%", 4) == 0
885 || strncmp (cs->c_name, "LBB%", 4) == 0
886 || strncmp (cs->c_name, "LBE%", 4) == 0
887 || strncmp (cs->c_name, "LPBX%", 5) == 0))
888 /* At least on a 3b1, gcc generates swbeg and string labels
889 that look like this. Ignore them. */
891 /* Fall in for static symbols that don't start with '.' */
896 /* Record it in the minimal symbols regardless of
897 SDB_TYPE. This parallels what we do for other debug
898 formats, and probably is needed to make
899 print_address_symbolic work right without the (now
900 gone) "set fast-symbolic-addr off" kludge. */
902 enum minimal_symbol_type ms_type;
905 if (cs->c_secnum == N_UNDEF)
907 /* This is a common symbol. See if the target
908 environment knows where it has been relocated to. */
911 if (target_lookup_symbol (cs->c_name, &reladdr))
913 /* Error in lookup; ignore symbol. */
917 /* The address has already been relocated; make sure that
918 objfile_relocate doesn't relocate it again. */
920 ms_type = cs->c_sclass == C_EXT
921 || cs->c_sclass == C_THUMBEXT ?
922 mst_bss : mst_file_bss;
924 else if (cs->c_secnum == N_ABS)
926 /* Use the correct minimal symbol type (and don't
927 relocate) for absolute values. */
929 sec = cs_to_section (cs, objfile);
930 tmpaddr = cs->c_value;
934 asection *bfd_section = cs_to_bfd_section (cs, objfile);
936 sec = cs_to_section (cs, objfile);
937 tmpaddr = cs->c_value;
938 /* Statics in a PE file also get relocated. */
939 if (cs->c_sclass == C_EXT
940 || cs->c_sclass == C_THUMBEXTFUNC
941 || cs->c_sclass == C_THUMBEXT
942 || (pe_file && (cs->c_sclass == C_STAT)))
943 tmpaddr += ANOFFSET (objfile->section_offsets, sec);
945 if (bfd_section->flags & SEC_CODE)
948 cs->c_sclass == C_EXT || cs->c_sclass == C_THUMBEXTFUNC
949 || cs->c_sclass == C_THUMBEXT ?
950 mst_text : mst_file_text;
951 tmpaddr = gdbarch_smash_text_address (gdbarch, tmpaddr);
953 else if (bfd_section->flags & SEC_ALLOC
954 && bfd_section->flags & SEC_LOAD)
957 cs->c_sclass == C_EXT || cs->c_sclass == C_THUMBEXT
958 ? mst_data : mst_file_data;
960 else if (bfd_section->flags & SEC_ALLOC)
963 cs->c_sclass == C_EXT || cs->c_sclass == C_THUMBEXT
964 ? mst_bss : mst_file_bss;
967 ms_type = mst_unknown;
970 msym = record_minimal_symbol (cs, tmpaddr, ms_type,
973 gdbarch_coff_make_msymbol_special (gdbarch,
976 if (SDB_TYPE (cs->c_type))
980 sym = process_coff_symbol
981 (cs, &main_aux, objfile);
982 SYMBOL_VALUE (sym) = tmpaddr;
983 SYMBOL_SECTION (sym) = sec;
989 if (strcmp (cs->c_name, ".bf") == 0)
993 /* Value contains address of first non-init type
995 /* main_aux.x_sym.x_misc.x_lnsz.x_lnno
996 contains line number of '{' }. */
998 complaint (&symfile_complaints,
999 _("`.bf' symbol %d has no aux entry"),
1001 fcn_first_line = main_aux.x_sym.x_misc.x_lnsz.x_lnno;
1002 fcn_first_line_addr = cs->c_value;
1004 /* Might want to check that locals are 0 and
1005 context_stack_depth is zero, and complain if not. */
1008 new = push_context (depth, fcn_start_addr);
1009 fcn_cs_saved.c_name = getsymname (&fcn_sym_saved);
1011 process_coff_symbol (&fcn_cs_saved,
1012 &fcn_aux_saved, objfile);
1014 else if (strcmp (cs->c_name, ".ef") == 0)
1016 if (!within_function)
1017 error (_("Bad coff function information."));
1018 /* The value of .ef is the address of epilogue code;
1019 not useful for gdb. */
1020 /* { main_aux.x_sym.x_misc.x_lnsz.x_lnno
1021 contains number of lines to '}' */
1023 if (context_stack_depth <= 0)
1024 { /* We attempted to pop an empty context stack. */
1025 complaint (&symfile_complaints,
1026 _("`.ef' symbol without matching `.bf' "
1027 "symbol ignored starting at symnum %d"),
1029 within_function = 0;
1033 new = pop_context ();
1034 /* Stack must be empty now. */
1035 if (context_stack_depth > 0 || new == NULL)
1037 complaint (&symfile_complaints,
1038 _("Unmatched .ef symbol(s) ignored "
1039 "starting at symnum %d"),
1041 within_function = 0;
1044 if (cs->c_naux != 1)
1046 complaint (&symfile_complaints,
1047 _("`.ef' symbol %d has no aux entry"),
1049 fcn_last_line = 0x7FFFFFFF;
1053 fcn_last_line = main_aux.x_sym.x_misc.x_lnsz.x_lnno;
1055 /* fcn_first_line is the line number of the opening '{'.
1056 Do not record it - because it would affect gdb's idea
1057 of the line number of the first statement of the
1058 function - except for one-line functions, for which
1059 it is also the line number of all the statements and
1060 of the closing '}', and for which we do not have any
1061 other statement-line-number. */
1062 if (fcn_last_line == 1)
1063 record_line (current_subfile, fcn_first_line,
1064 gdbarch_addr_bits_remove (gdbarch,
1065 fcn_first_line_addr));
1067 enter_linenos (fcn_line_ptr, fcn_first_line,
1068 fcn_last_line, objfile);
1070 finish_block (new->name, &local_symbols,
1071 new->old_blocks, new->start_addr,
1072 fcn_cs_saved.c_value
1073 + fcn_aux_saved.x_sym.x_misc.x_fsize
1074 + ANOFFSET (objfile->section_offsets,
1075 SECT_OFF_TEXT (objfile)),
1078 within_function = 0;
1083 if (strcmp (cs->c_name, ".bb") == 0)
1085 tmpaddr = cs->c_value;
1086 tmpaddr += ANOFFSET (objfile->section_offsets,
1087 SECT_OFF_TEXT (objfile));
1088 push_context (++depth, tmpaddr);
1090 else if (strcmp (cs->c_name, ".eb") == 0)
1092 if (context_stack_depth <= 0)
1093 { /* We attempted to pop an empty context stack. */
1094 complaint (&symfile_complaints,
1095 _("`.eb' symbol without matching `.bb' "
1096 "symbol ignored starting at symnum %d"),
1101 new = pop_context ();
1102 if (depth-- != new->depth)
1104 complaint (&symfile_complaints,
1105 _("Mismatched .eb symbol ignored "
1106 "starting at symnum %d"),
1110 if (local_symbols && context_stack_depth > 0)
1113 cs->c_value + ANOFFSET (objfile->section_offsets,
1114 SECT_OFF_TEXT (objfile));
1115 /* Make a block for the local symbols within. */
1116 finish_block (0, &local_symbols, new->old_blocks,
1117 new->start_addr, tmpaddr, objfile);
1119 /* Now pop locals of block just finished. */
1120 local_symbols = new->locals;
1125 process_coff_symbol (cs, &main_aux, objfile);
1130 if ((nsyms == 0) && (pe_file))
1132 /* We've got no debugging symbols, but it's a portable
1133 executable, so try to read the export table. */
1134 read_pe_exported_syms (objfile);
1137 if (last_source_file)
1138 coff_end_symtab (objfile);
1140 /* Patch up any opaque types (references to types that are not defined
1141 in the file where they are referenced, e.g. "struct foo *bar"). */
1142 ALL_OBJFILE_SYMTABS (objfile, s)
1143 patch_opaque_types (s);
1145 current_objfile = NULL;
1148 /* Routines for reading headers and symbols from executable. */
1150 /* Read the next symbol, swap it, and return it in both
1151 internal_syment form, and coff_symbol form. Also return its first
1152 auxent, if any, in internal_auxent form, and skip any other
1156 read_one_sym (struct coff_symbol *cs,
1157 struct internal_syment *sym,
1158 union internal_auxent *aux)
1161 bfd_size_type bytes;
1163 cs->c_symnum = symnum;
1164 bytes = bfd_bread (temp_sym, local_symesz, nlist_bfd_global);
1165 if (bytes != local_symesz)
1166 error (_("%s: error reading symbols"), current_objfile->name);
1167 bfd_coff_swap_sym_in (symfile_bfd, temp_sym, (char *) sym);
1168 cs->c_naux = sym->n_numaux & 0xff;
1169 if (cs->c_naux >= 1)
1171 bytes = bfd_bread (temp_aux, local_auxesz, nlist_bfd_global);
1172 if (bytes != local_auxesz)
1173 error (_("%s: error reading symbols"), current_objfile->name);
1174 bfd_coff_swap_aux_in (symfile_bfd, temp_aux,
1175 sym->n_type, sym->n_sclass,
1176 0, cs->c_naux, (char *) aux);
1177 /* If more than one aux entry, read past it (only the first aux
1179 for (i = 1; i < cs->c_naux; i++)
1181 bytes = bfd_bread (temp_aux, local_auxesz, nlist_bfd_global);
1182 if (bytes != local_auxesz)
1183 error (_("%s: error reading symbols"), current_objfile->name);
1186 cs->c_name = getsymname (sym);
1187 cs->c_value = sym->n_value;
1188 cs->c_sclass = (sym->n_sclass & 0xff);
1189 cs->c_secnum = sym->n_scnum;
1190 cs->c_type = (unsigned) sym->n_type;
1191 if (!SDB_TYPE (cs->c_type))
1195 if (cs->c_sclass & 128)
1196 printf (_("thumb symbol %s, class 0x%x\n"), cs->c_name, cs->c_sclass);
1199 symnum += 1 + cs->c_naux;
1201 /* The PE file format stores symbol values as offsets within the
1202 section, rather than as absolute addresses. We correct that
1203 here, if the symbol has an appropriate storage class. FIXME: We
1204 should use BFD to read the symbols, rather than duplicating the
1208 switch (cs->c_sclass)
1212 case C_THUMBEXTFUNC:
1217 case C_THUMBSTATFUNC:
1223 if (cs->c_secnum != 0)
1224 cs->c_value += cs_section_address (cs, symfile_bfd);
1230 /* Support for string table handling. */
1232 static char *stringtab = NULL;
1235 init_stringtab (bfd *abfd, long offset)
1239 unsigned char lengthbuf[4];
1243 /* If the file is stripped, the offset might be zero, indicating no
1244 string table. Just return with `stringtab' set to null. */
1248 if (bfd_seek (abfd, offset, 0) < 0)
1251 val = bfd_bread ((char *) lengthbuf, sizeof lengthbuf, abfd);
1252 length = bfd_h_get_32 (symfile_bfd, lengthbuf);
1254 /* If no string table is needed, then the file may end immediately
1255 after the symbols. Just return with `stringtab' set to null. */
1256 if (val != sizeof lengthbuf || length < sizeof lengthbuf)
1259 stringtab = (char *) xmalloc (length);
1260 /* This is in target format (probably not very useful, and not
1261 currently used), not host format. */
1262 memcpy (stringtab, lengthbuf, sizeof lengthbuf);
1263 if (length == sizeof length) /* Empty table -- just the count. */
1266 val = bfd_bread (stringtab + sizeof lengthbuf,
1267 length - sizeof lengthbuf, abfd);
1268 if (val != length - sizeof lengthbuf || stringtab[length - 1] != '\0')
1275 free_stringtab (void)
1283 free_stringtab_cleanup (void *ignore)
1289 getsymname (struct internal_syment *symbol_entry)
1291 static char buffer[SYMNMLEN + 1];
1294 if (symbol_entry->_n._n_n._n_zeroes == 0)
1296 /* FIXME: Probably should be detecting corrupt symbol files by
1297 seeing whether offset points to within the stringtab. */
1298 result = stringtab + symbol_entry->_n._n_n._n_offset;
1302 strncpy (buffer, symbol_entry->_n._n_name, SYMNMLEN);
1303 buffer[SYMNMLEN] = '\0';
1309 /* Extract the file name from the aux entry of a C_FILE symbol.
1310 Return only the last component of the name. Result is in static
1311 storage and is only good for temporary use. */
1314 coff_getfilename (union internal_auxent *aux_entry)
1316 static char buffer[BUFSIZ];
1320 if (aux_entry->x_file.x_n.x_zeroes == 0)
1321 strcpy (buffer, stringtab + aux_entry->x_file.x_n.x_offset);
1324 strncpy (buffer, aux_entry->x_file.x_fname, FILNMLEN);
1325 buffer[FILNMLEN] = '\0';
1329 /* FIXME: We should not be throwing away the information about what
1330 directory. It should go into dirname of the symtab, or some such
1332 if ((temp = strrchr (result, '/')) != NULL)
1337 /* Support for line number handling. */
1339 static char *linetab = NULL;
1340 static long linetab_offset;
1341 static unsigned long linetab_size;
1343 /* Read in all the line numbers for fast lookups later. Leave them in
1344 external (unswapped) format in memory; we'll swap them as we enter
1345 them into GDB's data structures. */
1348 init_lineno (bfd *abfd, long offset, int size)
1352 linetab_offset = offset;
1353 linetab_size = size;
1360 if (bfd_seek (abfd, offset, 0) < 0)
1363 /* Allocate the desired table, plus a sentinel. */
1364 linetab = (char *) xmalloc (size + local_linesz);
1366 val = bfd_bread (linetab, size, abfd);
1370 /* Terminate it with an all-zero sentinel record. */
1371 memset (linetab + size, 0, local_linesz);
1385 free_linetab_cleanup (void *ignore)
1390 #if !defined (L_LNNO32)
1391 #define L_LNNO32(lp) ((lp)->l_lnno)
1395 enter_linenos (long file_offset, int first_line,
1396 int last_line, struct objfile *objfile)
1398 struct gdbarch *gdbarch = get_objfile_arch (objfile);
1400 struct internal_lineno lptr;
1404 if (file_offset < linetab_offset)
1406 complaint (&symfile_complaints,
1407 _("Line number pointer %ld lower than start of line numbers"),
1409 if (file_offset > linetab_size) /* Too big to be an offset? */
1411 file_offset += linetab_offset; /* Try reading at that linetab
1415 rawptr = &linetab[file_offset - linetab_offset];
1417 /* Skip first line entry for each function. */
1418 rawptr += local_linesz;
1419 /* Line numbers start at one for the first line of the function. */
1422 /* If the line number table is full (e.g. 64K lines in COFF debug
1423 info), the next function's L_LNNO32 might not be zero, so don't
1424 overstep the table's end in any case. */
1425 while (rawptr <= &linetab[0] + linetab_size)
1427 bfd_coff_swap_lineno_in (symfile_bfd, rawptr, &lptr);
1428 rawptr += local_linesz;
1429 /* The next function, or the sentinel, will have L_LNNO32 zero;
1431 if (L_LNNO32 (&lptr) && L_LNNO32 (&lptr) <= last_line)
1433 CORE_ADDR addr = lptr.l_addr.l_paddr;
1434 addr += ANOFFSET (objfile->section_offsets,
1435 SECT_OFF_TEXT (objfile));
1436 record_line (current_subfile,
1437 first_line + L_LNNO32 (&lptr),
1438 gdbarch_addr_bits_remove (gdbarch, addr));
1446 patch_type (struct type *type, struct type *real_type)
1448 struct type *target = TYPE_TARGET_TYPE (type);
1449 struct type *real_target = TYPE_TARGET_TYPE (real_type);
1450 int field_size = TYPE_NFIELDS (real_target) * sizeof (struct field);
1452 TYPE_LENGTH (target) = TYPE_LENGTH (real_target);
1453 TYPE_NFIELDS (target) = TYPE_NFIELDS (real_target);
1454 TYPE_FIELDS (target) = (struct field *) TYPE_ALLOC (target,
1457 memcpy (TYPE_FIELDS (target),
1458 TYPE_FIELDS (real_target),
1461 if (TYPE_NAME (real_target))
1463 if (TYPE_NAME (target))
1464 xfree (TYPE_NAME (target));
1465 TYPE_NAME (target) = concat (TYPE_NAME (real_target),
1470 /* Patch up all appropriate typedef symbols in the opaque_type_chains
1471 so that they can be used to print out opaque data structures
1475 patch_opaque_types (struct symtab *s)
1478 struct dict_iterator iter;
1479 struct symbol *real_sym;
1481 /* Go through the per-file symbols only. */
1482 b = BLOCKVECTOR_BLOCK (BLOCKVECTOR (s), STATIC_BLOCK);
1483 ALL_BLOCK_SYMBOLS (b, iter, real_sym)
1485 /* Find completed typedefs to use to fix opaque ones.
1486 Remove syms from the chain when their types are stored,
1487 but search the whole chain, as there may be several syms
1488 from different files with the same name. */
1489 if (SYMBOL_CLASS (real_sym) == LOC_TYPEDEF
1490 && SYMBOL_DOMAIN (real_sym) == VAR_DOMAIN
1491 && TYPE_CODE (SYMBOL_TYPE (real_sym)) == TYPE_CODE_PTR
1492 && TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (real_sym))) != 0)
1494 char *name = SYMBOL_LINKAGE_NAME (real_sym);
1495 int hash = hashname (name);
1496 struct symbol *sym, *prev;
1499 for (sym = opaque_type_chain[hash]; sym;)
1501 if (name[0] == SYMBOL_LINKAGE_NAME (sym)[0]
1502 && strcmp (name + 1, SYMBOL_LINKAGE_NAME (sym) + 1) == 0)
1506 SYMBOL_VALUE_CHAIN (prev) = SYMBOL_VALUE_CHAIN (sym);
1510 opaque_type_chain[hash] = SYMBOL_VALUE_CHAIN (sym);
1513 patch_type (SYMBOL_TYPE (sym), SYMBOL_TYPE (real_sym));
1517 sym = SYMBOL_VALUE_CHAIN (prev);
1521 sym = opaque_type_chain[hash];
1527 sym = SYMBOL_VALUE_CHAIN (sym);
1535 coff_reg_to_regnum (struct symbol *sym, struct gdbarch *gdbarch)
1537 return gdbarch_sdb_reg_to_regnum (gdbarch, SYMBOL_VALUE (sym));
1540 static const struct symbol_register_ops coff_register_funcs = {
1544 static struct symbol *
1545 process_coff_symbol (struct coff_symbol *cs,
1546 union internal_auxent *aux,
1547 struct objfile *objfile)
1550 = (struct symbol *) obstack_alloc (&objfile->objfile_obstack,
1551 sizeof (struct symbol));
1554 memset (sym, 0, sizeof (struct symbol));
1556 name = EXTERNAL_NAME (name, objfile->obfd);
1557 SYMBOL_SET_LANGUAGE (sym, current_subfile->language);
1558 SYMBOL_SET_NAMES (sym, name, strlen (name), 1, objfile);
1560 /* default assumptions */
1561 SYMBOL_VALUE (sym) = cs->c_value;
1562 SYMBOL_DOMAIN (sym) = VAR_DOMAIN;
1563 SYMBOL_SECTION (sym) = cs_to_section (cs, objfile);
1565 if (ISFCN (cs->c_type))
1567 SYMBOL_VALUE (sym) += ANOFFSET (objfile->section_offsets,
1568 SECT_OFF_TEXT (objfile));
1570 lookup_function_type (decode_function_type (cs, cs->c_type,
1573 SYMBOL_CLASS (sym) = LOC_BLOCK;
1574 if (cs->c_sclass == C_STAT || cs->c_sclass == C_THUMBSTAT
1575 || cs->c_sclass == C_THUMBSTATFUNC)
1576 add_symbol_to_list (sym, &file_symbols);
1577 else if (cs->c_sclass == C_EXT || cs->c_sclass == C_THUMBEXT
1578 || cs->c_sclass == C_THUMBEXTFUNC)
1579 add_symbol_to_list (sym, &global_symbols);
1583 SYMBOL_TYPE (sym) = decode_type (cs, cs->c_type, aux, objfile);
1584 switch (cs->c_sclass)
1590 SYMBOL_CLASS (sym) = LOC_LOCAL;
1591 add_symbol_to_list (sym, &local_symbols);
1595 case C_THUMBEXTFUNC:
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 add_symbol_to_list (sym, &global_symbols);
1605 case C_THUMBSTATFUNC:
1607 SYMBOL_CLASS (sym) = LOC_STATIC;
1608 SYMBOL_VALUE_ADDRESS (sym) = (CORE_ADDR) cs->c_value;
1609 SYMBOL_VALUE_ADDRESS (sym) += ANOFFSET (objfile->section_offsets,
1610 SECT_OFF_TEXT (objfile));
1611 if (within_function)
1613 /* Static symbol of local scope. */
1614 add_symbol_to_list (sym, &local_symbols);
1618 /* Static symbol at top level of file. */
1619 add_symbol_to_list (sym, &file_symbols);
1623 #ifdef C_GLBLREG /* AMD coff */
1627 SYMBOL_CLASS (sym) = LOC_REGISTER;
1628 SYMBOL_REGISTER_OPS (sym) = &coff_register_funcs;
1629 SYMBOL_VALUE (sym) = cs->c_value;
1630 add_symbol_to_list (sym, &local_symbols);
1638 SYMBOL_CLASS (sym) = LOC_ARG;
1639 SYMBOL_IS_ARGUMENT (sym) = 1;
1640 add_symbol_to_list (sym, &local_symbols);
1644 SYMBOL_CLASS (sym) = LOC_REGISTER;
1645 SYMBOL_REGISTER_OPS (sym) = &coff_register_funcs;
1646 SYMBOL_IS_ARGUMENT (sym) = 1;
1647 SYMBOL_VALUE (sym) = cs->c_value;
1648 add_symbol_to_list (sym, &local_symbols);
1652 SYMBOL_CLASS (sym) = LOC_TYPEDEF;
1653 SYMBOL_DOMAIN (sym) = VAR_DOMAIN;
1655 /* If type has no name, give it one. */
1656 if (TYPE_NAME (SYMBOL_TYPE (sym)) == 0)
1658 if (TYPE_CODE (SYMBOL_TYPE (sym)) == TYPE_CODE_PTR
1659 || TYPE_CODE (SYMBOL_TYPE (sym)) == TYPE_CODE_FUNC)
1661 /* If we are giving a name to a type such as
1662 "pointer to foo" or "function returning foo", we
1663 better not set the TYPE_NAME. If the program
1664 contains "typedef char *caddr_t;", we don't want
1665 all variables of type char * to print as caddr_t.
1666 This is not just a consequence of GDB's type
1667 management; CC and GCC (at least through version
1668 2.4) both output variables of either type char *
1669 or caddr_t with the type refering to the C_TPDEF
1670 symbol for caddr_t. If a future compiler cleans
1671 this up it GDB is not ready for it yet, but if it
1672 becomes ready we somehow need to disable this
1673 check (without breaking the PCC/GCC2.4 case).
1677 Fortunately, this check seems not to be necessary
1678 for anything except pointers or functions. */
1682 TYPE_NAME (SYMBOL_TYPE (sym)) =
1683 concat (SYMBOL_LINKAGE_NAME (sym), (char *) NULL);
1686 /* Keep track of any type which points to empty structured
1687 type, so it can be filled from a definition from another
1688 file. A simple forward reference (TYPE_CODE_UNDEF) is
1689 not an empty structured type, though; the forward
1690 references work themselves out via the magic of
1691 coff_lookup_type. */
1692 if (TYPE_CODE (SYMBOL_TYPE (sym)) == TYPE_CODE_PTR
1693 && TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym))) == 0
1694 && TYPE_CODE (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym)))
1697 int i = hashname (SYMBOL_LINKAGE_NAME (sym));
1699 SYMBOL_VALUE_CHAIN (sym) = opaque_type_chain[i];
1700 opaque_type_chain[i] = sym;
1702 add_symbol_to_list (sym, &file_symbols);
1708 SYMBOL_CLASS (sym) = LOC_TYPEDEF;
1709 SYMBOL_DOMAIN (sym) = STRUCT_DOMAIN;
1711 /* Some compilers try to be helpful by inventing "fake"
1712 names for anonymous enums, structures, and unions, like
1713 "~0fake" or ".0fake". Thanks, but no thanks... */
1714 if (TYPE_TAG_NAME (SYMBOL_TYPE (sym)) == 0)
1715 if (SYMBOL_LINKAGE_NAME (sym) != NULL
1716 && *SYMBOL_LINKAGE_NAME (sym) != '~'
1717 && *SYMBOL_LINKAGE_NAME (sym) != '.')
1718 TYPE_TAG_NAME (SYMBOL_TYPE (sym)) =
1719 concat (SYMBOL_LINKAGE_NAME (sym), (char *)NULL);
1721 add_symbol_to_list (sym, &file_symbols);
1731 /* Decode a coff type specifier; return the type that is meant. */
1733 static struct type *
1734 decode_type (struct coff_symbol *cs, unsigned int c_type,
1735 union internal_auxent *aux, struct objfile *objfile)
1737 struct type *type = 0;
1738 unsigned int new_c_type;
1740 if (c_type & ~N_BTMASK)
1742 new_c_type = DECREF (c_type);
1745 type = decode_type (cs, new_c_type, aux, objfile);
1746 type = lookup_pointer_type (type);
1748 else if (ISFCN (c_type))
1750 type = decode_type (cs, new_c_type, aux, objfile);
1751 type = lookup_function_type (type);
1753 else if (ISARY (c_type))
1756 unsigned short *dim;
1757 struct type *base_type, *index_type, *range_type;
1759 /* Define an array type. */
1760 /* auxent refers to array, not base type. */
1761 if (aux->x_sym.x_tagndx.l == 0)
1764 /* Shift the indices down. */
1765 dim = &aux->x_sym.x_fcnary.x_ary.x_dimen[0];
1768 for (i = 0; *dim && i < DIMNUM - 1; i++, dim++)
1772 base_type = decode_type (cs, new_c_type, aux, objfile);
1773 index_type = objfile_type (objfile)->builtin_int;
1775 create_range_type ((struct type *) NULL,
1776 index_type, 0, n - 1);
1778 create_array_type ((struct type *) NULL,
1779 base_type, range_type);
1784 /* Reference to existing type. This only occurs with the struct,
1785 union, and enum types. EPI a29k coff fakes us out by producing
1786 aux entries with a nonzero x_tagndx for definitions of structs,
1787 unions, and enums, so we have to check the c_sclass field. SCO
1788 3.2v4 cc gets confused with pointers to pointers to defined
1789 structs, and generates negative x_tagndx fields. */
1790 if (cs->c_naux > 0 && aux->x_sym.x_tagndx.l != 0)
1792 if (cs->c_sclass != C_STRTAG
1793 && cs->c_sclass != C_UNTAG
1794 && cs->c_sclass != C_ENTAG
1795 && aux->x_sym.x_tagndx.l >= 0)
1797 type = coff_alloc_type (aux->x_sym.x_tagndx.l);
1802 complaint (&symfile_complaints,
1803 _("Symbol table entry for %s has bad tagndx value"),
1805 /* And fall through to decode_base_type... */
1809 return decode_base_type (cs, BTYPE (c_type), aux, objfile);
1812 /* Decode a coff type specifier for function definition;
1813 return the type that the function returns. */
1815 static struct type *
1816 decode_function_type (struct coff_symbol *cs,
1817 unsigned int c_type,
1818 union internal_auxent *aux,
1819 struct objfile *objfile)
1821 if (aux->x_sym.x_tagndx.l == 0)
1822 cs->c_naux = 0; /* auxent refers to function, not base
1825 return decode_type (cs, DECREF (c_type), aux, objfile);
1828 /* Basic C types. */
1830 static struct type *
1831 decode_base_type (struct coff_symbol *cs,
1832 unsigned int c_type,
1833 union internal_auxent *aux,
1834 struct objfile *objfile)
1836 struct gdbarch *gdbarch = get_objfile_arch (objfile);
1842 /* Shows up with "void (*foo)();" structure members. */
1843 return objfile_type (objfile)->builtin_void;
1847 /* Intel 960 COFF has this symbol and meaning. */
1848 return objfile_type (objfile)->builtin_void;
1852 return objfile_type (objfile)->builtin_char;
1855 return objfile_type (objfile)->builtin_short;
1858 return objfile_type (objfile)->builtin_int;
1861 if (cs->c_sclass == C_FIELD
1862 && aux->x_sym.x_misc.x_lnsz.x_size
1863 > gdbarch_long_bit (gdbarch))
1864 return objfile_type (objfile)->builtin_long_long;
1866 return objfile_type (objfile)->builtin_long;
1869 return objfile_type (objfile)->builtin_float;
1872 return objfile_type (objfile)->builtin_double;
1875 return objfile_type (objfile)->builtin_long_double;
1878 if (cs->c_naux != 1)
1880 /* Anonymous structure type. */
1881 type = coff_alloc_type (cs->c_symnum);
1882 TYPE_CODE (type) = TYPE_CODE_STRUCT;
1883 TYPE_NAME (type) = NULL;
1884 /* This used to set the tag to "<opaque>". But I think
1885 setting it to NULL is right, and the printing code can
1886 print it as "struct {...}". */
1887 TYPE_TAG_NAME (type) = NULL;
1888 INIT_CPLUS_SPECIFIC (type);
1889 TYPE_LENGTH (type) = 0;
1890 TYPE_FIELDS (type) = 0;
1891 TYPE_NFIELDS (type) = 0;
1895 type = coff_read_struct_type (cs->c_symnum,
1896 aux->x_sym.x_misc.x_lnsz.x_size,
1897 aux->x_sym.x_fcnary.x_fcn.x_endndx.l,
1903 if (cs->c_naux != 1)
1905 /* Anonymous union type. */
1906 type = coff_alloc_type (cs->c_symnum);
1907 TYPE_NAME (type) = NULL;
1908 /* This used to set the tag to "<opaque>". But I think
1909 setting it to NULL is right, and the printing code can
1910 print it as "union {...}". */
1911 TYPE_TAG_NAME (type) = NULL;
1912 INIT_CPLUS_SPECIFIC (type);
1913 TYPE_LENGTH (type) = 0;
1914 TYPE_FIELDS (type) = 0;
1915 TYPE_NFIELDS (type) = 0;
1919 type = coff_read_struct_type (cs->c_symnum,
1920 aux->x_sym.x_misc.x_lnsz.x_size,
1921 aux->x_sym.x_fcnary.x_fcn.x_endndx.l,
1924 TYPE_CODE (type) = TYPE_CODE_UNION;
1928 if (cs->c_naux != 1)
1930 /* Anonymous enum type. */
1931 type = coff_alloc_type (cs->c_symnum);
1932 TYPE_CODE (type) = TYPE_CODE_ENUM;
1933 TYPE_NAME (type) = NULL;
1934 /* This used to set the tag to "<opaque>". But I think
1935 setting it to NULL is right, and the printing code can
1936 print it as "enum {...}". */
1937 TYPE_TAG_NAME (type) = NULL;
1938 TYPE_LENGTH (type) = 0;
1939 TYPE_FIELDS (type) = 0;
1940 TYPE_NFIELDS (type) = 0;
1944 type = coff_read_enum_type (cs->c_symnum,
1945 aux->x_sym.x_misc.x_lnsz.x_size,
1946 aux->x_sym.x_fcnary.x_fcn.x_endndx.l,
1952 /* Shouldn't show up here. */
1956 return objfile_type (objfile)->builtin_unsigned_char;
1959 return objfile_type (objfile)->builtin_unsigned_short;
1962 return objfile_type (objfile)->builtin_unsigned_int;
1965 if (cs->c_sclass == C_FIELD
1966 && aux->x_sym.x_misc.x_lnsz.x_size
1967 > gdbarch_long_bit (gdbarch))
1968 return objfile_type (objfile)->builtin_unsigned_long_long;
1970 return objfile_type (objfile)->builtin_unsigned_long;
1972 complaint (&symfile_complaints,
1973 _("Unexpected type for symbol %s"), cs->c_name);
1974 return objfile_type (objfile)->builtin_void;
1977 /* This page contains subroutines of read_type. */
1979 /* Read the description of a structure (or union type) and return an
1980 object describing the type. */
1982 static struct type *
1983 coff_read_struct_type (int index, int length, int lastsym,
1984 struct objfile *objfile)
1988 struct nextfield *next;
1993 struct nextfield *list = 0;
1994 struct nextfield *new;
1998 struct coff_symbol member_sym;
1999 struct coff_symbol *ms = &member_sym;
2000 struct internal_syment sub_sym;
2001 union internal_auxent sub_aux;
2004 type = coff_alloc_type (index);
2005 TYPE_CODE (type) = TYPE_CODE_STRUCT;
2006 INIT_CPLUS_SPECIFIC (type);
2007 TYPE_LENGTH (type) = length;
2009 while (!done && symnum < lastsym && symnum < nlist_nsyms_global)
2011 read_one_sym (ms, &sub_sym, &sub_aux);
2013 name = EXTERNAL_NAME (name, objfile->obfd);
2015 switch (ms->c_sclass)
2020 /* Get space to record the next field's data. */
2021 new = (struct nextfield *) alloca (sizeof (struct nextfield));
2025 /* Save the data. */
2026 list->field.name = obsavestring (name, strlen (name),
2027 &objfile->objfile_obstack);
2028 FIELD_TYPE (list->field) = decode_type (ms, ms->c_type,
2030 SET_FIELD_BITPOS (list->field, 8 * ms->c_value);
2031 FIELD_BITSIZE (list->field) = 0;
2037 /* Get space to record the next field's data. */
2038 new = (struct nextfield *) alloca (sizeof (struct nextfield));
2042 /* Save the data. */
2043 list->field.name = obsavestring (name, strlen (name),
2044 &objfile->objfile_obstack);
2045 FIELD_TYPE (list->field) = decode_type (ms, ms->c_type,
2047 SET_FIELD_BITPOS (list->field, ms->c_value);
2048 FIELD_BITSIZE (list->field) = sub_aux.x_sym.x_misc.x_lnsz.x_size;
2057 /* Now create the vector of fields, and record how big it is. */
2059 TYPE_NFIELDS (type) = nfields;
2060 TYPE_FIELDS (type) = (struct field *)
2061 TYPE_ALLOC (type, sizeof (struct field) * nfields);
2063 /* Copy the saved-up fields into the field vector. */
2065 for (n = nfields; list; list = list->next)
2066 TYPE_FIELD (type, --n) = list->field;
2071 /* Read a definition of an enumeration type,
2072 and create and return a suitable type object.
2073 Also defines the symbols that represent the values of the type. */
2075 static struct type *
2076 coff_read_enum_type (int index, int length, int lastsym,
2077 struct objfile *objfile)
2079 struct gdbarch *gdbarch = get_objfile_arch (objfile);
2084 struct pending **symlist;
2085 struct coff_symbol member_sym;
2086 struct coff_symbol *ms = &member_sym;
2087 struct internal_syment sub_sym;
2088 union internal_auxent sub_aux;
2089 struct pending *osyms, *syms;
2093 int unsigned_enum = 1;
2095 type = coff_alloc_type (index);
2096 if (within_function)
2097 symlist = &local_symbols;
2099 symlist = &file_symbols;
2101 o_nsyms = osyms ? osyms->nsyms : 0;
2103 while (!done && symnum < lastsym && symnum < nlist_nsyms_global)
2105 read_one_sym (ms, &sub_sym, &sub_aux);
2107 name = EXTERNAL_NAME (name, objfile->obfd);
2109 switch (ms->c_sclass)
2112 sym = (struct symbol *) obstack_alloc
2113 (&objfile->objfile_obstack, sizeof (struct symbol));
2114 memset (sym, 0, sizeof (struct symbol));
2116 SYMBOL_SET_LINKAGE_NAME (sym,
2117 obsavestring (name, strlen (name),
2118 &objfile->objfile_obstack));
2119 SYMBOL_CLASS (sym) = LOC_CONST;
2120 SYMBOL_DOMAIN (sym) = VAR_DOMAIN;
2121 SYMBOL_VALUE (sym) = ms->c_value;
2122 add_symbol_to_list (sym, symlist);
2127 /* Sometimes the linker (on 386/ix 2.0.2 at least) screws
2128 up the count of how many symbols to read. So stop
2135 /* Now fill in the fields of the type-structure. */
2138 TYPE_LENGTH (type) = length;
2139 else /* Assume ints. */
2140 TYPE_LENGTH (type) = gdbarch_int_bit (gdbarch) / TARGET_CHAR_BIT;
2141 TYPE_CODE (type) = TYPE_CODE_ENUM;
2142 TYPE_NFIELDS (type) = nsyms;
2143 TYPE_FIELDS (type) = (struct field *)
2144 TYPE_ALLOC (type, sizeof (struct field) * nsyms);
2146 /* Find the symbols for the values and put them into the type.
2147 The symbols can be found in the symlist that we put them on
2148 to cause them to be defined. osyms contains the old value
2149 of that symlist; everything up to there was defined by us. */
2150 /* Note that we preserve the order of the enum constants, so
2151 that in something like "enum {FOO, LAST_THING=FOO}" we print
2152 FOO, not LAST_THING. */
2154 for (syms = *symlist, n = 0; syms; syms = syms->next)
2160 for (; j < syms->nsyms; j++, n++)
2162 struct symbol *xsym = syms->symbol[j];
2164 SYMBOL_TYPE (xsym) = type;
2165 TYPE_FIELD_NAME (type, n) = SYMBOL_LINKAGE_NAME (xsym);
2166 SET_FIELD_BITPOS (TYPE_FIELD (type, n), SYMBOL_VALUE (xsym));
2167 if (SYMBOL_VALUE (xsym) < 0)
2169 TYPE_FIELD_BITSIZE (type, n) = 0;
2176 TYPE_UNSIGNED (type) = 1;
2181 /* Register our ability to parse symbols for coff BFD files. */
2183 static const struct sym_fns coff_sym_fns =
2185 bfd_target_coff_flavour,
2186 coff_new_init, /* sym_new_init: init anything gbl to
2188 coff_symfile_init, /* sym_init: read initial info, setup
2190 coff_symfile_read, /* sym_read: read a symbol file into
2192 coff_symfile_finish, /* sym_finish: finished with file,
2194 default_symfile_offsets, /* sym_offsets: xlate external to
2196 default_symfile_segments, /* sym_segments: Get segment
2197 information from a file */
2198 NULL, /* sym_read_linetable */
2200 default_symfile_relocate, /* sym_relocate: Relocate a debug
2206 _initialize_coffread (void)
2208 add_symtab_fns (&coff_sym_fns);