1 /* Read coff symbol tables and convert to internal format, for GDB.
2 Copyright (C) 1987-2015 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"
30 #include "coff/internal.h" /* Internal format of COFF symbols in BFD */
31 #include "libcoff.h" /* FIXME secret internal data from BFD */
34 #include "gdb-stabs.h"
35 #include "stabsread.h"
36 #include "complaints.h"
39 #include "dictionary.h"
41 #include "coff-pe-read.h"
46 extern void _initialize_coffread (void);
48 /* Key for COFF-associated data. */
50 static const struct objfile_data
*coff_objfile_data_key
;
52 /* The objfile we are currently reading. */
54 static struct objfile
*coffread_objfile
;
56 struct coff_symfile_info
58 file_ptr min_lineno_offset
; /* Where in file lowest line#s are. */
59 file_ptr max_lineno_offset
; /* 1+last byte of line#s in file. */
61 CORE_ADDR textaddr
; /* Addr of .text section. */
62 unsigned int textsize
; /* Size of .text section. */
63 struct stab_section_list
*stabsects
; /* .stab sections. */
64 asection
*stabstrsect
; /* Section pointer for .stab section. */
68 /* Translate an external name string into a user-visible name. */
69 #define EXTERNAL_NAME(string, abfd) \
70 (string[0] == bfd_get_symbol_leading_char (abfd) \
71 ? string + 1 : string)
73 /* To be an sdb debug type, type must have at least a basic or primary
74 derived type. Using this rather than checking against T_NULL is
75 said to prevent core dumps if we try to operate on Michael Bloom
78 #define SDB_TYPE(type) (BTYPE(type) | (type & N_TMASK))
80 /* Core address of start and end of text of current source file.
81 This comes from a ".text" symbol where x_nlinno > 0. */
83 static CORE_ADDR current_source_start_addr
;
84 static CORE_ADDR current_source_end_addr
;
86 /* The addresses of the symbol table stream and number of symbols
87 of the object file we are reading (as copied into core). */
89 static bfd
*nlist_bfd_global
;
90 static int nlist_nsyms_global
;
93 /* Pointers to scratch storage, used for reading raw symbols and
96 static char *temp_sym
;
97 static char *temp_aux
;
99 /* Local variables that hold the shift and mask values for the
100 COFF file that we are currently reading. These come back to us
101 from BFD, and are referenced by their macro names, as well as
102 internally to the BTYPE, ISPTR, ISFCN, ISARY, ISTAG, and DECREF
103 macros from include/coff/internal.h . */
105 static unsigned local_n_btmask
;
106 static unsigned local_n_btshft
;
107 static unsigned local_n_tmask
;
108 static unsigned local_n_tshift
;
110 #define N_BTMASK local_n_btmask
111 #define N_BTSHFT local_n_btshft
112 #define N_TMASK local_n_tmask
113 #define N_TSHIFT local_n_tshift
115 /* Local variables that hold the sizes in the file of various COFF
116 structures. (We only need to know this to read them from the file
117 -- BFD will then translate the data in them, into `internal_xxx'
118 structs in the right byte order, alignment, etc.) */
120 static unsigned local_linesz
;
121 static unsigned local_symesz
;
122 static unsigned local_auxesz
;
124 /* This is set if this is a PE format file. */
128 /* Chain of typedefs of pointers to empty struct/union types.
129 They are chained thru the SYMBOL_VALUE_CHAIN. */
131 static struct symbol
*opaque_type_chain
[HASHSIZE
];
133 /* Simplified internal version of coff symbol table information. */
138 int c_symnum
; /* Symbol number of this entry. */
139 int c_naux
; /* 0 if syment only, 1 if syment +
147 /* Vector of types defined so far, indexed by their type numbers. */
149 static struct type
**type_vector
;
151 /* Number of elements allocated for type_vector currently. */
153 static int type_vector_length
;
155 /* Initial size of type vector. Is realloc'd larger if needed, and
156 realloc'd down to the size actually used, when completed. */
158 #define INITIAL_TYPE_VECTOR_LENGTH 160
160 extern void stabsread_clear_cache (void);
162 static struct type
*coff_read_struct_type (int, int, int,
165 static struct type
*decode_base_type (struct coff_symbol
*,
167 union internal_auxent
*,
170 static struct type
*decode_type (struct coff_symbol
*, unsigned int,
171 union internal_auxent
*,
174 static struct type
*decode_function_type (struct coff_symbol
*,
176 union internal_auxent
*,
179 static struct type
*coff_read_enum_type (int, int, int,
182 static struct symbol
*process_coff_symbol (struct coff_symbol
*,
183 union internal_auxent
*,
186 static void patch_opaque_types (struct symtab
*);
188 static void enter_linenos (long, int, int, struct objfile
*);
190 static void free_linetab (void);
192 static void free_linetab_cleanup (void *ignore
);
194 static int init_lineno (bfd
*, long, int);
196 static char *getsymname (struct internal_syment
*);
198 static const char *coff_getfilename (union internal_auxent
*);
200 static void free_stringtab (void);
202 static void free_stringtab_cleanup (void *ignore
);
204 static int init_stringtab (bfd
*, long);
206 static void read_one_sym (struct coff_symbol
*,
207 struct internal_syment
*,
208 union internal_auxent
*);
210 static void coff_symtab_read (long, unsigned int, struct objfile
*);
212 /* We are called once per section from coff_symfile_read. We
213 need to examine each section we are passed, check to see
214 if it is something we are interested in processing, and
215 if so, stash away some access information for the section.
217 FIXME: The section names should not be hardwired strings (what
218 should they be? I don't think most object file formats have enough
219 section flags to specify what kind of debug section it is
223 coff_locate_sections (bfd
*abfd
, asection
*sectp
, void *csip
)
225 struct coff_symfile_info
*csi
;
228 csi
= (struct coff_symfile_info
*) csip
;
229 name
= bfd_get_section_name (abfd
, sectp
);
230 if (strcmp (name
, ".text") == 0)
232 csi
->textaddr
= bfd_section_vma (abfd
, sectp
);
233 csi
->textsize
+= bfd_section_size (abfd
, sectp
);
235 else if (startswith (name
, ".text"))
237 csi
->textsize
+= bfd_section_size (abfd
, sectp
);
239 else if (strcmp (name
, ".stabstr") == 0)
241 csi
->stabstrsect
= sectp
;
243 else if (startswith (name
, ".stab"))
247 /* We can have multiple .stab sections if linked with
249 for (s
= name
+ sizeof ".stab" - 1; *s
!= '\0'; s
++)
254 struct stab_section_list
*n
, **pn
;
256 n
= XNEW (struct stab_section_list
);
259 for (pn
= &csi
->stabsects
; *pn
!= NULL
; pn
= &(*pn
)->next
)
263 /* This will be run after coffstab_build_psymtabs is called
264 in coff_symfile_read, at which point we no longer need
266 make_cleanup (xfree
, n
);
271 /* Return the section_offsets* that CS points to. */
272 static int cs_to_section (struct coff_symbol
*, struct objfile
*);
274 struct find_targ_sec_arg
281 find_targ_sec (bfd
*abfd
, asection
*sect
, void *obj
)
283 struct find_targ_sec_arg
*args
= (struct find_targ_sec_arg
*) obj
;
285 if (sect
->target_index
== args
->targ_index
)
286 *args
->resultp
= sect
;
289 /* Return the bfd_section that CS points to. */
290 static struct bfd_section
*
291 cs_to_bfd_section (struct coff_symbol
*cs
, struct objfile
*objfile
)
293 asection
*sect
= NULL
;
294 struct find_targ_sec_arg args
;
296 args
.targ_index
= cs
->c_secnum
;
297 args
.resultp
= §
;
298 bfd_map_over_sections (objfile
->obfd
, find_targ_sec
, &args
);
302 /* Return the section number (SECT_OFF_*) that CS points to. */
304 cs_to_section (struct coff_symbol
*cs
, struct objfile
*objfile
)
306 asection
*sect
= cs_to_bfd_section (cs
, objfile
);
309 return SECT_OFF_TEXT (objfile
);
310 return gdb_bfd_section_index (objfile
->obfd
, sect
);
313 /* Return the address of the section of a COFF symbol. */
315 static CORE_ADDR
cs_section_address (struct coff_symbol
*, bfd
*);
318 cs_section_address (struct coff_symbol
*cs
, bfd
*abfd
)
320 asection
*sect
= NULL
;
321 struct find_targ_sec_arg args
;
324 args
.targ_index
= cs
->c_secnum
;
325 args
.resultp
= §
;
326 bfd_map_over_sections (abfd
, find_targ_sec
, &args
);
328 addr
= bfd_get_section_vma (abfd
, sect
);
332 /* Look up a coff type-number index. Return the address of the slot
333 where the type for that index is stored.
334 The type-number is in INDEX.
336 This can be used for finding the type associated with that index
337 or for associating a new type with the index. */
339 static struct type
**
340 coff_lookup_type (int index
)
342 if (index
>= type_vector_length
)
344 int old_vector_length
= type_vector_length
;
346 type_vector_length
*= 2;
347 if (index
/* is still */ >= type_vector_length
)
348 type_vector_length
= index
* 2;
350 type_vector
= (struct type
**)
351 xrealloc ((char *) type_vector
,
352 type_vector_length
* sizeof (struct type
*));
353 memset (&type_vector
[old_vector_length
], 0,
354 (type_vector_length
- old_vector_length
) * sizeof (struct type
*));
356 return &type_vector
[index
];
359 /* Make sure there is a type allocated for type number index
360 and return the type object.
361 This can create an empty (zeroed) type object. */
364 coff_alloc_type (int index
)
366 struct type
**type_addr
= coff_lookup_type (index
);
367 struct type
*type
= *type_addr
;
369 /* If we are referring to a type not known at all yet,
370 allocate an empty type for it.
371 We will fill it in later if we find out how. */
374 type
= alloc_type (coffread_objfile
);
380 /* Start a new symtab for a new source file.
381 This is called when a COFF ".file" symbol is seen;
382 it indicates the start of data for one original source file. */
385 coff_start_symtab (struct objfile
*objfile
, const char *name
)
387 start_symtab (objfile
,
388 /* We fill in the filename later. start_symtab puts this pointer
389 into last_source_file and we put it in subfiles->name, which
390 end_symtab frees; that's why it must be malloc'd. */
392 /* We never know the directory name for COFF. */
394 /* The start address is irrelevant, since we set
395 last_source_start_addr in coff_end_symtab. */
397 record_debugformat ("COFF");
400 /* Save the vital information from when starting to read a file,
401 for use when closing off the current file.
402 NAME is the file name the symbols came from, START_ADDR is the
403 first text address for the file, and SIZE is the number of bytes of
407 complete_symtab (const char *name
, CORE_ADDR start_addr
, unsigned int size
)
409 set_last_source_file (name
);
410 current_source_start_addr
= start_addr
;
411 current_source_end_addr
= start_addr
+ size
;
414 /* Finish the symbol definitions for one main source file, close off
415 all the lexical contexts for that file (creating struct block's for
416 them), then make the struct symtab for that file and put it in the
420 coff_end_symtab (struct objfile
*objfile
)
422 last_source_start_addr
= current_source_start_addr
;
424 end_symtab (current_source_end_addr
, SECT_OFF_TEXT (objfile
));
426 /* Reinitialize for beginning of new file. */
427 set_last_source_file (NULL
);
430 /* The linker sometimes generates some non-function symbols inside
431 functions referencing variables imported from another DLL.
432 Return nonzero if the given symbol corresponds to one of them. */
435 is_import_fixup_symbol (struct coff_symbol
*cs
,
436 enum minimal_symbol_type type
)
438 /* The following is a bit of a heuristic using the characterictics
439 of these fixup symbols, but should work well in practice... */
442 /* Must be a non-static text symbol. */
443 if (type
!= mst_text
)
446 /* Must be a non-function symbol. */
447 if (ISFCN (cs
->c_type
))
450 /* The name must start with "__fu<digits>__". */
451 if (!startswith (cs
->c_name
, "__fu"))
453 if (! isdigit (cs
->c_name
[4]))
455 for (i
= 5; cs
->c_name
[i
] != '\0' && isdigit (cs
->c_name
[i
]); i
++)
456 /* Nothing, just incrementing index past all digits. */;
457 if (cs
->c_name
[i
] != '_' || cs
->c_name
[i
+ 1] != '_')
463 static struct minimal_symbol
*
464 record_minimal_symbol (struct coff_symbol
*cs
, CORE_ADDR address
,
465 enum minimal_symbol_type type
, int section
,
466 struct objfile
*objfile
)
468 /* We don't want TDESC entry points in the minimal symbol table. */
469 if (cs
->c_name
[0] == '@')
472 if (is_import_fixup_symbol (cs
, type
))
474 /* Because the value of these symbols is within a function code
475 range, these symbols interfere with the symbol-from-address
476 reverse lookup; this manifests itselfs in backtraces, or any
477 other commands that prints symbolic addresses. Just pretend
478 these symbols do not exist. */
482 return prim_record_minimal_symbol_and_info (cs
->c_name
, address
,
483 type
, section
, objfile
);
486 /* coff_symfile_init ()
487 is the coff-specific initialization routine for reading symbols.
488 It is passed a struct objfile which contains, among other things,
489 the BFD for the file whose symbols are being read, and a slot for
490 a pointer to "private data" which we fill with cookies and other
491 treats for coff_symfile_read ().
493 We will only be called if this is a COFF or COFF-like file. BFD
494 handles figuring out the format of the file, and code in symtab.c
495 uses BFD's determination to vector to us.
497 The ultimate result is a new symtab (or, FIXME, eventually a
501 coff_symfile_init (struct objfile
*objfile
)
503 struct dbx_symfile_info
*dbx
;
504 struct coff_symfile_info
*coff
;
506 /* Allocate struct to keep track of stab reading. */
507 dbx
= XCNEW (struct dbx_symfile_info
);
508 set_objfile_data (objfile
, dbx_objfile_data_key
, dbx
);
510 /* Allocate struct to keep track of the symfile. */
511 coff
= XCNEW (struct coff_symfile_info
);
512 set_objfile_data (objfile
, coff_objfile_data_key
, coff
);
514 /* COFF objects may be reordered, so set OBJF_REORDERED. If we
515 find this causes a significant slowdown in gdb then we could
516 set it in the debug symbol readers only when necessary. */
517 objfile
->flags
|= OBJF_REORDERED
;
520 /* This function is called for every section; it finds the outer
521 limits of the line table (minimum and maximum file offset) so that
522 the mainline code can read the whole thing for efficiency. */
525 find_linenos (bfd
*abfd
, struct bfd_section
*asect
, void *vpinfo
)
527 struct coff_symfile_info
*info
;
529 file_ptr offset
, maxoff
;
531 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
532 count
= asect
->lineno_count
;
533 /* End of warning. */
537 size
= count
* local_linesz
;
539 info
= (struct coff_symfile_info
*) vpinfo
;
540 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
541 offset
= asect
->line_filepos
;
542 /* End of warning. */
544 if (offset
< info
->min_lineno_offset
|| info
->min_lineno_offset
== 0)
545 info
->min_lineno_offset
= offset
;
547 maxoff
= offset
+ size
;
548 if (maxoff
> info
->max_lineno_offset
)
549 info
->max_lineno_offset
= maxoff
;
553 /* The BFD for this file -- only good while we're actively reading
554 symbols into a psymtab or a symtab. */
556 static bfd
*symfile_bfd
;
558 /* Read a symbol file, after initialization by coff_symfile_init. */
561 coff_symfile_read (struct objfile
*objfile
, int symfile_flags
)
563 struct coff_symfile_info
*info
;
564 struct dbx_symfile_info
*dbxinfo
;
565 bfd
*abfd
= objfile
->obfd
;
566 coff_data_type
*cdata
= coff_data (abfd
);
567 char *name
= bfd_get_filename (abfd
);
569 unsigned int num_symbols
;
571 int stringtab_offset
;
572 struct cleanup
*back_to
, *cleanup_minimal_symbols
;
575 info
= objfile_data (objfile
, coff_objfile_data_key
);
576 dbxinfo
= DBX_SYMFILE_INFO (objfile
);
577 symfile_bfd
= abfd
; /* Kludge for swap routines. */
579 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
580 num_symbols
= bfd_get_symcount (abfd
); /* How many syms */
581 symtab_offset
= cdata
->sym_filepos
; /* Symbol table file offset */
582 stringtab_offset
= symtab_offset
+ /* String table file offset */
583 num_symbols
* cdata
->local_symesz
;
585 /* Set a few file-statics that give us specific information about
586 the particular COFF file format we're reading. */
587 local_n_btmask
= cdata
->local_n_btmask
;
588 local_n_btshft
= cdata
->local_n_btshft
;
589 local_n_tmask
= cdata
->local_n_tmask
;
590 local_n_tshift
= cdata
->local_n_tshift
;
591 local_linesz
= cdata
->local_linesz
;
592 local_symesz
= cdata
->local_symesz
;
593 local_auxesz
= cdata
->local_auxesz
;
595 /* Allocate space for raw symbol and aux entries, based on their
596 space requirements as reported by BFD. */
597 temp_sym
= (char *) xmalloc
598 (cdata
->local_symesz
+ cdata
->local_auxesz
);
599 temp_aux
= temp_sym
+ cdata
->local_symesz
;
600 back_to
= make_cleanup (free_current_contents
, &temp_sym
);
602 /* We need to know whether this is a PE file, because in PE files,
603 unlike standard COFF files, symbol values are stored as offsets
604 from the section address, rather than as absolute addresses.
605 FIXME: We should use BFD to read the symbol table, and thus avoid
608 startswith (bfd_get_target (objfile
->obfd
), "pe")
609 || startswith (bfd_get_target (objfile
->obfd
), "epoc-pe");
611 /* End of warning. */
613 info
->min_lineno_offset
= 0;
614 info
->max_lineno_offset
= 0;
616 /* Only read line number information if we have symbols.
618 On Windows NT, some of the system's DLL's have sections with
619 PointerToLinenumbers fields that are non-zero, but point at
620 random places within the image file. (In the case I found,
621 KERNEL32.DLL's .text section has a line number info pointer that
622 points into the middle of the string `lib\\i386\kernel32.dll'.)
624 However, these DLL's also have no symbols. The line number
625 tables are meaningless without symbols. And in fact, GDB never
626 uses the line number information unless there are symbols. So we
627 can avoid spurious error messages (and maybe run a little
628 faster!) by not even reading the line number table unless we have
632 /* Read the line number table, all at once. */
633 bfd_map_over_sections (abfd
, find_linenos
, (void *) info
);
635 make_cleanup (free_linetab_cleanup
, 0 /*ignore*/);
636 val
= init_lineno (abfd
, info
->min_lineno_offset
,
637 info
->max_lineno_offset
- info
->min_lineno_offset
);
639 error (_("\"%s\": error reading line numbers."), name
);
642 /* Now read the string table, all at once. */
644 make_cleanup (free_stringtab_cleanup
, 0 /*ignore*/);
645 val
= init_stringtab (abfd
, stringtab_offset
);
647 error (_("\"%s\": can't get string table"), name
);
649 init_minimal_symbol_collection ();
650 cleanup_minimal_symbols
= make_cleanup_discard_minimal_symbols ();
652 /* Now that the executable file is positioned at symbol table,
653 process it and define symbols accordingly. */
655 coff_symtab_read ((long) symtab_offset
, num_symbols
, objfile
);
657 /* Install any minimal symbols that have been collected as the
658 current minimal symbols for this objfile. */
660 install_minimal_symbols (objfile
);
664 struct minimal_symbol
*msym
;
666 ALL_OBJFILE_MSYMBOLS (objfile
, msym
)
668 const char *name
= MSYMBOL_LINKAGE_NAME (msym
);
670 /* If the minimal symbols whose name are prefixed by "__imp_"
671 or "_imp_", get rid of the prefix, and search the minimal
672 symbol in OBJFILE. Note that 'maintenance print msymbols'
673 shows that type of these "_imp_XXXX" symbols is mst_data. */
674 if (MSYMBOL_TYPE (msym
) == mst_data
)
676 const char *name1
= NULL
;
678 if (startswith (name
, "_imp_"))
680 else if (startswith (name
, "__imp_"))
684 int lead
= bfd_get_symbol_leading_char (objfile
->obfd
);
685 struct bound_minimal_symbol found
;
687 if (lead
!= '\0' && *name1
== lead
)
690 found
= lookup_minimal_symbol (name1
, NULL
, objfile
);
692 /* If found, there are symbols named "_imp_foo" and "foo"
693 respectively in OBJFILE. Set the type of symbol "foo"
694 as 'mst_solib_trampoline'. */
695 if (found
.minsym
!= NULL
696 && MSYMBOL_TYPE (found
.minsym
) == mst_text
)
697 MSYMBOL_TYPE (found
.minsym
) = mst_solib_trampoline
;
703 /* Free the installed minimal symbol data. */
704 do_cleanups (cleanup_minimal_symbols
);
706 bfd_map_over_sections (abfd
, coff_locate_sections
, (void *) info
);
710 if (!info
->stabstrsect
)
712 error (_("The debugging information in `%s' is corrupted.\nThe "
713 "file has a `.stabs' section, but no `.stabstr' section."),
717 /* FIXME: dubious. Why can't we use something normal like
718 bfd_get_section_contents? */
719 bfd_seek (abfd
, abfd
->where
, 0);
721 stabstrsize
= bfd_section_size (abfd
, info
->stabstrsect
);
723 coffstab_build_psymtabs (objfile
,
724 info
->textaddr
, info
->textsize
,
726 info
->stabstrsect
->filepos
, stabstrsize
);
728 if (dwarf2_has_info (objfile
, NULL
))
730 /* DWARF2 sections. */
731 dwarf2_build_psymtabs (objfile
);
734 dwarf2_build_frame_info (objfile
);
736 /* Try to add separate debug file if no symbols table found. */
737 if (!objfile_has_partial_symbols (objfile
))
741 debugfile
= find_separate_debug_file_by_buildid (objfile
);
743 if (debugfile
== NULL
)
744 debugfile
= find_separate_debug_file_by_debuglink (objfile
);
745 make_cleanup (xfree
, debugfile
);
749 bfd
*abfd
= symfile_bfd_open (debugfile
);
751 make_cleanup_bfd_unref (abfd
);
752 symbol_file_add_separate (abfd
, debugfile
, symfile_flags
, objfile
);
756 do_cleanups (back_to
);
760 coff_new_init (struct objfile
*ignore
)
764 /* Perform any local cleanups required when we are done with a
765 particular objfile. I.E, we are in the process of discarding all
766 symbol information for an objfile, freeing up all memory held for
767 it, and unlinking the objfile struct from the global list of known
771 coff_symfile_finish (struct objfile
*objfile
)
773 /* Let stabs reader clean up. */
774 stabsread_clear_cache ();
776 dwarf2_free_objfile (objfile
);
780 /* Given pointers to a symbol table in coff style exec file,
781 analyze them and create struct symtab's describing the symbols.
782 NSYMS is the number of symbols in the symbol table.
783 We read them one at a time using read_one_sym (). */
786 coff_symtab_read (long symtab_offset
, unsigned int nsyms
,
787 struct objfile
*objfile
)
789 struct gdbarch
*gdbarch
= get_objfile_arch (objfile
);
790 struct context_stack
*newobj
;
791 struct coff_symbol coff_symbol
;
792 struct coff_symbol
*cs
= &coff_symbol
;
793 static struct internal_syment main_sym
;
794 static union internal_auxent main_aux
;
795 struct coff_symbol fcn_cs_saved
;
796 static struct internal_syment fcn_sym_saved
;
797 static union internal_auxent fcn_aux_saved
;
798 /* A .file is open. */
799 int in_source_file
= 0;
800 int next_file_symnum
= -1;
801 /* Name of the current file. */
802 const char *filestring
= "";
804 int fcn_first_line
= 0;
805 CORE_ADDR fcn_first_line_addr
= 0;
806 int fcn_last_line
= 0;
807 int fcn_start_addr
= 0;
808 long fcn_line_ptr
= 0;
811 struct minimal_symbol
*msym
;
813 /* Work around a stdio bug in SunOS4.1.1 (this makes me nervous....
814 it's hard to know I've really worked around it. The fix should
815 be harmless, anyway). The symptom of the bug is that the first
816 fread (in read_one_sym), will (in my example) actually get data
817 from file offset 268, when the fseek was to 264 (and ftell shows
818 264). This causes all hell to break loose. I was unable to
819 reproduce this on a short test program which operated on the same
820 file, performing (I think) the same sequence of operations.
822 It stopped happening when I put in this (former) rewind().
824 FIXME: Find out if this has been reported to Sun, whether it has
825 been fixed in a later release, etc. */
827 bfd_seek (objfile
->obfd
, 0, 0);
829 /* Position to read the symbol table. */
830 val
= bfd_seek (objfile
->obfd
, (long) symtab_offset
, 0);
832 perror_with_name (objfile_name (objfile
));
834 coffread_objfile
= objfile
;
835 nlist_bfd_global
= objfile
->obfd
;
836 nlist_nsyms_global
= nsyms
;
837 set_last_source_file (NULL
);
838 memset (opaque_type_chain
, 0, sizeof opaque_type_chain
);
840 if (type_vector
) /* Get rid of previous one. */
842 type_vector_length
= INITIAL_TYPE_VECTOR_LENGTH
;
843 type_vector
= XCNEWVEC (struct type
*, type_vector_length
);
845 coff_start_symtab (objfile
, "");
848 while (symnum
< nsyms
)
850 QUIT
; /* Make this command interruptable. */
852 read_one_sym (cs
, &main_sym
, &main_aux
);
854 if (cs
->c_symnum
== next_file_symnum
&& cs
->c_sclass
!= C_FILE
)
856 if (get_last_source_file ())
857 coff_end_symtab (objfile
);
859 coff_start_symtab (objfile
, "_globals_");
860 /* coff_start_symtab will set the language of this symtab to
861 language_unknown, since such a ``file name'' is not
862 recognized. Override that with the minimal language to
863 allow printing values in this symtab. */
864 current_subfile
->language
= language_minimal
;
865 complete_symtab ("_globals_", 0, 0);
866 /* Done with all files, everything from here on out is
870 /* Special case for file with type declarations only, no
872 if (!get_last_source_file () && SDB_TYPE (cs
->c_type
)
873 && cs
->c_secnum
== N_DEBUG
)
874 complete_symtab (filestring
, 0, 0);
876 /* Typedefs should not be treated as symbol definitions. */
877 if (ISFCN (cs
->c_type
) && cs
->c_sclass
!= C_TPDEF
)
879 /* Record all functions -- external and static -- in
881 int section
= cs_to_section (cs
, objfile
);
883 tmpaddr
= cs
->c_value
;
884 record_minimal_symbol (cs
, tmpaddr
, mst_text
,
887 fcn_line_ptr
= main_aux
.x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
;
888 fcn_start_addr
= tmpaddr
;
890 fcn_sym_saved
= main_sym
;
891 fcn_aux_saved
= main_aux
;
895 switch (cs
->c_sclass
)
904 complaint (&symfile_complaints
,
905 _("Bad n_sclass for symbol %s"),
910 /* c_value field contains symnum of next .file entry in
911 table or symnum of first global after last .file. */
912 next_file_symnum
= cs
->c_value
;
914 filestring
= coff_getfilename (&main_aux
);
918 /* Complete symbol table for last object file
919 containing debugging information. */
920 if (get_last_source_file ())
922 coff_end_symtab (objfile
);
923 coff_start_symtab (objfile
, filestring
);
928 /* C_LABEL is used for labels and static functions.
929 Including it here allows gdb to see static functions when
930 no debug info is available. */
932 /* However, labels within a function can make weird
933 backtraces, so filter them out (from phdm@macqel.be). */
939 case C_THUMBSTATFUNC
:
940 if (cs
->c_name
[0] == '.')
942 if (strcmp (cs
->c_name
, ".text") == 0)
944 /* FIXME: don't wire in ".text" as section name or
946 /* Check for in_source_file deals with case of a
947 file with debugging symbols followed by a later
948 file with no symbols. */
950 complete_symtab (filestring
,
951 cs
->c_value
+ ANOFFSET (objfile
->section_offsets
,
952 SECT_OFF_TEXT (objfile
)),
953 main_aux
.x_scn
.x_scnlen
);
956 /* Flush rest of '.' symbols. */
959 else if (!SDB_TYPE (cs
->c_type
)
960 && cs
->c_name
[0] == 'L'
961 && (startswith (cs
->c_name
, "LI%")
962 || startswith (cs
->c_name
, "LF%")
963 || startswith (cs
->c_name
, "LC%")
964 || startswith (cs
->c_name
, "LP%")
965 || startswith (cs
->c_name
, "LPB%")
966 || startswith (cs
->c_name
, "LBB%")
967 || startswith (cs
->c_name
, "LBE%")
968 || startswith (cs
->c_name
, "LPBX%")))
969 /* At least on a 3b1, gcc generates swbeg and string labels
970 that look like this. Ignore them. */
972 /* Fall in for static symbols that don't start with '.' */
977 /* Record it in the minimal symbols regardless of
978 SDB_TYPE. This parallels what we do for other debug
979 formats, and probably is needed to make
980 print_address_symbolic work right without the (now
981 gone) "set fast-symbolic-addr off" kludge. */
983 enum minimal_symbol_type ms_type
;
985 CORE_ADDR offset
= 0;
987 if (cs
->c_secnum
== N_UNDEF
)
989 /* This is a common symbol. We used to rely on
990 the target to tell us whether it knows where
991 the symbol has been relocated to, but none of
992 the target implementations actually provided
993 that operation. So we just ignore the symbol,
994 the same way we would do if we had a target-side
995 symbol lookup which returned no match. */
998 else if (cs
->c_secnum
== N_ABS
)
1000 /* Use the correct minimal symbol type (and don't
1001 relocate) for absolute values. */
1003 sec
= cs_to_section (cs
, objfile
);
1004 tmpaddr
= cs
->c_value
;
1008 asection
*bfd_section
= cs_to_bfd_section (cs
, objfile
);
1010 sec
= cs_to_section (cs
, objfile
);
1011 tmpaddr
= cs
->c_value
;
1012 /* Statics in a PE file also get relocated. */
1013 if (cs
->c_sclass
== C_EXT
1014 || cs
->c_sclass
== C_THUMBEXTFUNC
1015 || cs
->c_sclass
== C_THUMBEXT
1016 || (pe_file
&& (cs
->c_sclass
== C_STAT
)))
1017 offset
= ANOFFSET (objfile
->section_offsets
, sec
);
1019 if (bfd_section
->flags
& SEC_CODE
)
1022 cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXTFUNC
1023 || cs
->c_sclass
== C_THUMBEXT
?
1024 mst_text
: mst_file_text
;
1025 tmpaddr
= gdbarch_addr_bits_remove (gdbarch
, tmpaddr
);
1027 else if (bfd_section
->flags
& SEC_ALLOC
1028 && bfd_section
->flags
& SEC_LOAD
)
1031 cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXT
1032 ? mst_data
: mst_file_data
;
1034 else if (bfd_section
->flags
& SEC_ALLOC
)
1037 cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXT
1038 ? mst_bss
: mst_file_bss
;
1041 ms_type
= mst_unknown
;
1044 msym
= record_minimal_symbol (cs
, tmpaddr
, ms_type
,
1047 gdbarch_coff_make_msymbol_special (gdbarch
,
1048 cs
->c_sclass
, msym
);
1050 if (SDB_TYPE (cs
->c_type
))
1054 sym
= process_coff_symbol
1055 (cs
, &main_aux
, objfile
);
1056 SYMBOL_VALUE (sym
) = tmpaddr
+ offset
;
1057 SYMBOL_SECTION (sym
) = sec
;
1063 if (strcmp (cs
->c_name
, ".bf") == 0)
1065 within_function
= 1;
1067 /* Value contains address of first non-init type
1069 /* main_aux.x_sym.x_misc.x_lnsz.x_lnno
1070 contains line number of '{' }. */
1071 if (cs
->c_naux
!= 1)
1072 complaint (&symfile_complaints
,
1073 _("`.bf' symbol %d has no aux entry"),
1075 fcn_first_line
= main_aux
.x_sym
.x_misc
.x_lnsz
.x_lnno
;
1076 fcn_first_line_addr
= cs
->c_value
;
1078 /* Might want to check that locals are 0 and
1079 context_stack_depth is zero, and complain if not. */
1082 newobj
= push_context (depth
, fcn_start_addr
);
1083 fcn_cs_saved
.c_name
= getsymname (&fcn_sym_saved
);
1085 process_coff_symbol (&fcn_cs_saved
,
1086 &fcn_aux_saved
, objfile
);
1088 else if (strcmp (cs
->c_name
, ".ef") == 0)
1090 if (!within_function
)
1091 error (_("Bad coff function information."));
1092 /* The value of .ef is the address of epilogue code;
1093 not useful for gdb. */
1094 /* { main_aux.x_sym.x_misc.x_lnsz.x_lnno
1095 contains number of lines to '}' */
1097 if (context_stack_depth
<= 0)
1098 { /* We attempted to pop an empty context stack. */
1099 complaint (&symfile_complaints
,
1100 _("`.ef' symbol without matching `.bf' "
1101 "symbol ignored starting at symnum %d"),
1103 within_function
= 0;
1107 newobj
= pop_context ();
1108 /* Stack must be empty now. */
1109 if (context_stack_depth
> 0 || newobj
== NULL
)
1111 complaint (&symfile_complaints
,
1112 _("Unmatched .ef symbol(s) ignored "
1113 "starting at symnum %d"),
1115 within_function
= 0;
1118 if (cs
->c_naux
!= 1)
1120 complaint (&symfile_complaints
,
1121 _("`.ef' symbol %d has no aux entry"),
1123 fcn_last_line
= 0x7FFFFFFF;
1127 fcn_last_line
= main_aux
.x_sym
.x_misc
.x_lnsz
.x_lnno
;
1129 /* fcn_first_line is the line number of the opening '{'.
1130 Do not record it - because it would affect gdb's idea
1131 of the line number of the first statement of the
1132 function - except for one-line functions, for which
1133 it is also the line number of all the statements and
1134 of the closing '}', and for which we do not have any
1135 other statement-line-number. */
1136 if (fcn_last_line
== 1)
1137 record_line (current_subfile
, fcn_first_line
,
1138 gdbarch_addr_bits_remove (gdbarch
,
1139 fcn_first_line_addr
));
1141 enter_linenos (fcn_line_ptr
, fcn_first_line
,
1142 fcn_last_line
, objfile
);
1144 finish_block (newobj
->name
, &local_symbols
, newobj
->old_blocks
,
1145 NULL
, newobj
->start_addr
,
1146 fcn_cs_saved
.c_value
1147 + fcn_aux_saved
.x_sym
.x_misc
.x_fsize
1148 + ANOFFSET (objfile
->section_offsets
,
1149 SECT_OFF_TEXT (objfile
)));
1150 within_function
= 0;
1155 if (strcmp (cs
->c_name
, ".bb") == 0)
1157 tmpaddr
= cs
->c_value
;
1158 tmpaddr
+= ANOFFSET (objfile
->section_offsets
,
1159 SECT_OFF_TEXT (objfile
));
1160 push_context (++depth
, tmpaddr
);
1162 else if (strcmp (cs
->c_name
, ".eb") == 0)
1164 if (context_stack_depth
<= 0)
1165 { /* We attempted to pop an empty context stack. */
1166 complaint (&symfile_complaints
,
1167 _("`.eb' symbol without matching `.bb' "
1168 "symbol ignored starting at symnum %d"),
1173 newobj
= pop_context ();
1174 if (depth
-- != newobj
->depth
)
1176 complaint (&symfile_complaints
,
1177 _("Mismatched .eb symbol ignored "
1178 "starting at symnum %d"),
1182 if (local_symbols
&& context_stack_depth
> 0)
1185 cs
->c_value
+ ANOFFSET (objfile
->section_offsets
,
1186 SECT_OFF_TEXT (objfile
));
1187 /* Make a block for the local symbols within. */
1188 finish_block (0, &local_symbols
, newobj
->old_blocks
, NULL
,
1189 newobj
->start_addr
, tmpaddr
);
1191 /* Now pop locals of block just finished. */
1192 local_symbols
= newobj
->locals
;
1197 process_coff_symbol (cs
, &main_aux
, objfile
);
1202 if ((nsyms
== 0) && (pe_file
))
1204 /* We've got no debugging symbols, but it's a portable
1205 executable, so try to read the export table. */
1206 read_pe_exported_syms (objfile
);
1209 if (get_last_source_file ())
1210 coff_end_symtab (objfile
);
1212 /* Patch up any opaque types (references to types that are not defined
1213 in the file where they are referenced, e.g. "struct foo *bar"). */
1215 struct compunit_symtab
*cu
;
1218 ALL_OBJFILE_FILETABS (objfile
, cu
, s
)
1219 patch_opaque_types (s
);
1222 coffread_objfile
= NULL
;
1225 /* Routines for reading headers and symbols from executable. */
1227 /* Read the next symbol, swap it, and return it in both
1228 internal_syment form, and coff_symbol form. Also return its first
1229 auxent, if any, in internal_auxent form, and skip any other
1233 read_one_sym (struct coff_symbol
*cs
,
1234 struct internal_syment
*sym
,
1235 union internal_auxent
*aux
)
1238 bfd_size_type bytes
;
1240 cs
->c_symnum
= symnum
;
1241 bytes
= bfd_bread (temp_sym
, local_symesz
, nlist_bfd_global
);
1242 if (bytes
!= local_symesz
)
1243 error (_("%s: error reading symbols"), objfile_name (coffread_objfile
));
1244 bfd_coff_swap_sym_in (symfile_bfd
, temp_sym
, (char *) sym
);
1245 cs
->c_naux
= sym
->n_numaux
& 0xff;
1246 if (cs
->c_naux
>= 1)
1248 bytes
= bfd_bread (temp_aux
, local_auxesz
, nlist_bfd_global
);
1249 if (bytes
!= local_auxesz
)
1250 error (_("%s: error reading symbols"), objfile_name (coffread_objfile
));
1251 bfd_coff_swap_aux_in (symfile_bfd
, temp_aux
,
1252 sym
->n_type
, sym
->n_sclass
,
1253 0, cs
->c_naux
, (char *) aux
);
1254 /* If more than one aux entry, read past it (only the first aux
1256 for (i
= 1; i
< cs
->c_naux
; i
++)
1258 bytes
= bfd_bread (temp_aux
, local_auxesz
, nlist_bfd_global
);
1259 if (bytes
!= local_auxesz
)
1260 error (_("%s: error reading symbols"),
1261 objfile_name (coffread_objfile
));
1264 cs
->c_name
= getsymname (sym
);
1265 cs
->c_value
= sym
->n_value
;
1266 cs
->c_sclass
= (sym
->n_sclass
& 0xff);
1267 cs
->c_secnum
= sym
->n_scnum
;
1268 cs
->c_type
= (unsigned) sym
->n_type
;
1269 if (!SDB_TYPE (cs
->c_type
))
1273 if (cs
->c_sclass
& 128)
1274 printf (_("thumb symbol %s, class 0x%x\n"), cs
->c_name
, cs
->c_sclass
);
1277 symnum
+= 1 + cs
->c_naux
;
1279 /* The PE file format stores symbol values as offsets within the
1280 section, rather than as absolute addresses. We correct that
1281 here, if the symbol has an appropriate storage class. FIXME: We
1282 should use BFD to read the symbols, rather than duplicating the
1286 switch (cs
->c_sclass
)
1290 case C_THUMBEXTFUNC
:
1295 case C_THUMBSTATFUNC
:
1301 if (cs
->c_secnum
!= 0)
1302 cs
->c_value
+= cs_section_address (cs
, symfile_bfd
);
1308 /* Support for string table handling. */
1310 static char *stringtab
= NULL
;
1313 init_stringtab (bfd
*abfd
, long offset
)
1317 unsigned char lengthbuf
[4];
1321 /* If the file is stripped, the offset might be zero, indicating no
1322 string table. Just return with `stringtab' set to null. */
1326 if (bfd_seek (abfd
, offset
, 0) < 0)
1329 val
= bfd_bread ((char *) lengthbuf
, sizeof lengthbuf
, abfd
);
1330 length
= bfd_h_get_32 (symfile_bfd
, lengthbuf
);
1332 /* If no string table is needed, then the file may end immediately
1333 after the symbols. Just return with `stringtab' set to null. */
1334 if (val
!= sizeof lengthbuf
|| length
< sizeof lengthbuf
)
1337 stringtab
= (char *) xmalloc (length
);
1338 /* This is in target format (probably not very useful, and not
1339 currently used), not host format. */
1340 memcpy (stringtab
, lengthbuf
, sizeof lengthbuf
);
1341 if (length
== sizeof length
) /* Empty table -- just the count. */
1344 val
= bfd_bread (stringtab
+ sizeof lengthbuf
,
1345 length
- sizeof lengthbuf
, abfd
);
1346 if (val
!= length
- sizeof lengthbuf
|| stringtab
[length
- 1] != '\0')
1353 free_stringtab (void)
1361 free_stringtab_cleanup (void *ignore
)
1367 getsymname (struct internal_syment
*symbol_entry
)
1369 static char buffer
[SYMNMLEN
+ 1];
1372 if (symbol_entry
->_n
._n_n
._n_zeroes
== 0)
1374 /* FIXME: Probably should be detecting corrupt symbol files by
1375 seeing whether offset points to within the stringtab. */
1376 result
= stringtab
+ symbol_entry
->_n
._n_n
._n_offset
;
1380 strncpy (buffer
, symbol_entry
->_n
._n_name
, SYMNMLEN
);
1381 buffer
[SYMNMLEN
] = '\0';
1387 /* Extract the file name from the aux entry of a C_FILE symbol.
1388 Return only the last component of the name. Result is in static
1389 storage and is only good for temporary use. */
1392 coff_getfilename (union internal_auxent
*aux_entry
)
1394 static char buffer
[BUFSIZ
];
1397 if (aux_entry
->x_file
.x_n
.x_zeroes
== 0)
1399 if (strlen (stringtab
+ aux_entry
->x_file
.x_n
.x_offset
) >= BUFSIZ
)
1400 internal_error (__FILE__
, __LINE__
, _("coff file name too long"));
1401 strcpy (buffer
, stringtab
+ aux_entry
->x_file
.x_n
.x_offset
);
1405 strncpy (buffer
, aux_entry
->x_file
.x_fname
, FILNMLEN
);
1406 buffer
[FILNMLEN
] = '\0';
1410 /* FIXME: We should not be throwing away the information about what
1411 directory. It should go into dirname of the symtab, or some such
1413 result
= lbasename (result
);
1417 /* Support for line number handling. */
1419 static char *linetab
= NULL
;
1420 static long linetab_offset
;
1421 static unsigned long linetab_size
;
1423 /* Read in all the line numbers for fast lookups later. Leave them in
1424 external (unswapped) format in memory; we'll swap them as we enter
1425 them into GDB's data structures. */
1428 init_lineno (bfd
*abfd
, long offset
, int size
)
1432 linetab_offset
= offset
;
1433 linetab_size
= size
;
1440 if (bfd_seek (abfd
, offset
, 0) < 0)
1443 /* Allocate the desired table, plus a sentinel. */
1444 linetab
= (char *) xmalloc (size
+ local_linesz
);
1446 val
= bfd_bread (linetab
, size
, abfd
);
1450 /* Terminate it with an all-zero sentinel record. */
1451 memset (linetab
+ size
, 0, local_linesz
);
1465 free_linetab_cleanup (void *ignore
)
1470 #if !defined (L_LNNO32)
1471 #define L_LNNO32(lp) ((lp)->l_lnno)
1475 enter_linenos (long file_offset
, int first_line
,
1476 int last_line
, struct objfile
*objfile
)
1478 struct gdbarch
*gdbarch
= get_objfile_arch (objfile
);
1480 struct internal_lineno lptr
;
1484 if (file_offset
< linetab_offset
)
1486 complaint (&symfile_complaints
,
1487 _("Line number pointer %ld lower than start of line numbers"),
1489 if (file_offset
> linetab_size
) /* Too big to be an offset? */
1491 file_offset
+= linetab_offset
; /* Try reading at that linetab
1495 rawptr
= &linetab
[file_offset
- linetab_offset
];
1497 /* Skip first line entry for each function. */
1498 rawptr
+= local_linesz
;
1499 /* Line numbers start at one for the first line of the function. */
1502 /* If the line number table is full (e.g. 64K lines in COFF debug
1503 info), the next function's L_LNNO32 might not be zero, so don't
1504 overstep the table's end in any case. */
1505 while (rawptr
<= &linetab
[0] + linetab_size
)
1507 bfd_coff_swap_lineno_in (symfile_bfd
, rawptr
, &lptr
);
1508 rawptr
+= local_linesz
;
1509 /* The next function, or the sentinel, will have L_LNNO32 zero;
1511 if (L_LNNO32 (&lptr
) && L_LNNO32 (&lptr
) <= last_line
)
1513 CORE_ADDR addr
= lptr
.l_addr
.l_paddr
;
1514 addr
+= ANOFFSET (objfile
->section_offsets
,
1515 SECT_OFF_TEXT (objfile
));
1516 record_line (current_subfile
,
1517 first_line
+ L_LNNO32 (&lptr
),
1518 gdbarch_addr_bits_remove (gdbarch
, addr
));
1526 patch_type (struct type
*type
, struct type
*real_type
)
1528 struct type
*target
= TYPE_TARGET_TYPE (type
);
1529 struct type
*real_target
= TYPE_TARGET_TYPE (real_type
);
1530 int field_size
= TYPE_NFIELDS (real_target
) * sizeof (struct field
);
1532 TYPE_LENGTH (target
) = TYPE_LENGTH (real_target
);
1533 TYPE_NFIELDS (target
) = TYPE_NFIELDS (real_target
);
1534 TYPE_FIELDS (target
) = (struct field
*) TYPE_ALLOC (target
,
1537 memcpy (TYPE_FIELDS (target
),
1538 TYPE_FIELDS (real_target
),
1541 if (TYPE_NAME (real_target
))
1543 /* The previous copy of TYPE_NAME is allocated by
1544 process_coff_symbol. */
1545 if (TYPE_NAME (target
))
1546 xfree ((char*) TYPE_NAME (target
));
1547 TYPE_NAME (target
) = xstrdup (TYPE_NAME (real_target
));
1551 /* Patch up all appropriate typedef symbols in the opaque_type_chains
1552 so that they can be used to print out opaque data structures
1556 patch_opaque_types (struct symtab
*s
)
1559 struct block_iterator iter
;
1560 struct symbol
*real_sym
;
1562 /* Go through the per-file symbols only. */
1563 b
= BLOCKVECTOR_BLOCK (SYMTAB_BLOCKVECTOR (s
), STATIC_BLOCK
);
1564 ALL_BLOCK_SYMBOLS (b
, iter
, real_sym
)
1566 /* Find completed typedefs to use to fix opaque ones.
1567 Remove syms from the chain when their types are stored,
1568 but search the whole chain, as there may be several syms
1569 from different files with the same name. */
1570 if (SYMBOL_CLASS (real_sym
) == LOC_TYPEDEF
1571 && SYMBOL_DOMAIN (real_sym
) == VAR_DOMAIN
1572 && TYPE_CODE (SYMBOL_TYPE (real_sym
)) == TYPE_CODE_PTR
1573 && TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (real_sym
))) != 0)
1575 const char *name
= SYMBOL_LINKAGE_NAME (real_sym
);
1576 int hash
= hashname (name
);
1577 struct symbol
*sym
, *prev
;
1580 for (sym
= opaque_type_chain
[hash
]; sym
;)
1582 if (name
[0] == SYMBOL_LINKAGE_NAME (sym
)[0]
1583 && strcmp (name
+ 1, SYMBOL_LINKAGE_NAME (sym
) + 1) == 0)
1587 SYMBOL_VALUE_CHAIN (prev
) = SYMBOL_VALUE_CHAIN (sym
);
1591 opaque_type_chain
[hash
] = SYMBOL_VALUE_CHAIN (sym
);
1594 patch_type (SYMBOL_TYPE (sym
), SYMBOL_TYPE (real_sym
));
1598 sym
= SYMBOL_VALUE_CHAIN (prev
);
1602 sym
= opaque_type_chain
[hash
];
1608 sym
= SYMBOL_VALUE_CHAIN (sym
);
1616 coff_reg_to_regnum (struct symbol
*sym
, struct gdbarch
*gdbarch
)
1618 return gdbarch_sdb_reg_to_regnum (gdbarch
, SYMBOL_VALUE (sym
));
1621 static const struct symbol_register_ops coff_register_funcs
= {
1625 /* The "aclass" index for computed COFF symbols. */
1627 static int coff_register_index
;
1629 static struct symbol
*
1630 process_coff_symbol (struct coff_symbol
*cs
,
1631 union internal_auxent
*aux
,
1632 struct objfile
*objfile
)
1634 struct symbol
*sym
= allocate_symbol (objfile
);
1638 name
= EXTERNAL_NAME (name
, objfile
->obfd
);
1639 SYMBOL_SET_LANGUAGE (sym
, current_subfile
->language
,
1640 &objfile
->objfile_obstack
);
1641 SYMBOL_SET_NAMES (sym
, name
, strlen (name
), 1, objfile
);
1643 /* default assumptions */
1644 SYMBOL_VALUE (sym
) = cs
->c_value
;
1645 SYMBOL_DOMAIN (sym
) = VAR_DOMAIN
;
1646 SYMBOL_SECTION (sym
) = cs_to_section (cs
, objfile
);
1648 if (ISFCN (cs
->c_type
))
1650 SYMBOL_VALUE (sym
) += ANOFFSET (objfile
->section_offsets
,
1651 SECT_OFF_TEXT (objfile
));
1653 lookup_function_type (decode_function_type (cs
, cs
->c_type
,
1656 SYMBOL_ACLASS_INDEX (sym
) = LOC_BLOCK
;
1657 if (cs
->c_sclass
== C_STAT
|| cs
->c_sclass
== C_THUMBSTAT
1658 || cs
->c_sclass
== C_THUMBSTATFUNC
)
1659 add_symbol_to_list (sym
, &file_symbols
);
1660 else if (cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXT
1661 || cs
->c_sclass
== C_THUMBEXTFUNC
)
1662 add_symbol_to_list (sym
, &global_symbols
);
1666 SYMBOL_TYPE (sym
) = decode_type (cs
, cs
->c_type
, aux
, objfile
);
1667 switch (cs
->c_sclass
)
1673 SYMBOL_ACLASS_INDEX (sym
) = LOC_LOCAL
;
1674 add_symbol_to_list (sym
, &local_symbols
);
1678 case C_THUMBEXTFUNC
:
1680 SYMBOL_ACLASS_INDEX (sym
) = LOC_STATIC
;
1681 SYMBOL_VALUE_ADDRESS (sym
) = (CORE_ADDR
) cs
->c_value
;
1682 SYMBOL_VALUE_ADDRESS (sym
) += ANOFFSET (objfile
->section_offsets
,
1683 SECT_OFF_TEXT (objfile
));
1684 add_symbol_to_list (sym
, &global_symbols
);
1688 case C_THUMBSTATFUNC
:
1690 SYMBOL_ACLASS_INDEX (sym
) = LOC_STATIC
;
1691 SYMBOL_VALUE_ADDRESS (sym
) = (CORE_ADDR
) cs
->c_value
;
1692 SYMBOL_VALUE_ADDRESS (sym
) += ANOFFSET (objfile
->section_offsets
,
1693 SECT_OFF_TEXT (objfile
));
1694 if (within_function
)
1696 /* Static symbol of local scope. */
1697 add_symbol_to_list (sym
, &local_symbols
);
1701 /* Static symbol at top level of file. */
1702 add_symbol_to_list (sym
, &file_symbols
);
1706 #ifdef C_GLBLREG /* AMD coff */
1710 SYMBOL_ACLASS_INDEX (sym
) = coff_register_index
;
1711 SYMBOL_VALUE (sym
) = cs
->c_value
;
1712 add_symbol_to_list (sym
, &local_symbols
);
1720 SYMBOL_ACLASS_INDEX (sym
) = LOC_ARG
;
1721 SYMBOL_IS_ARGUMENT (sym
) = 1;
1722 add_symbol_to_list (sym
, &local_symbols
);
1726 SYMBOL_ACLASS_INDEX (sym
) = coff_register_index
;
1727 SYMBOL_IS_ARGUMENT (sym
) = 1;
1728 SYMBOL_VALUE (sym
) = cs
->c_value
;
1729 add_symbol_to_list (sym
, &local_symbols
);
1733 SYMBOL_ACLASS_INDEX (sym
) = LOC_TYPEDEF
;
1734 SYMBOL_DOMAIN (sym
) = VAR_DOMAIN
;
1736 /* If type has no name, give it one. */
1737 if (TYPE_NAME (SYMBOL_TYPE (sym
)) == 0)
1739 if (TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_PTR
1740 || TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_FUNC
)
1742 /* If we are giving a name to a type such as
1743 "pointer to foo" or "function returning foo", we
1744 better not set the TYPE_NAME. If the program
1745 contains "typedef char *caddr_t;", we don't want
1746 all variables of type char * to print as caddr_t.
1747 This is not just a consequence of GDB's type
1748 management; CC and GCC (at least through version
1749 2.4) both output variables of either type char *
1750 or caddr_t with the type refering to the C_TPDEF
1751 symbol for caddr_t. If a future compiler cleans
1752 this up it GDB is not ready for it yet, but if it
1753 becomes ready we somehow need to disable this
1754 check (without breaking the PCC/GCC2.4 case).
1758 Fortunately, this check seems not to be necessary
1759 for anything except pointers or functions. */
1763 TYPE_NAME (SYMBOL_TYPE (sym
)) =
1764 xstrdup (SYMBOL_LINKAGE_NAME (sym
));
1767 /* Keep track of any type which points to empty structured
1768 type, so it can be filled from a definition from another
1769 file. A simple forward reference (TYPE_CODE_UNDEF) is
1770 not an empty structured type, though; the forward
1771 references work themselves out via the magic of
1772 coff_lookup_type. */
1773 if (TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_PTR
1774 && TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym
))) == 0
1775 && TYPE_CODE (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym
)))
1778 int i
= hashname (SYMBOL_LINKAGE_NAME (sym
));
1780 SYMBOL_VALUE_CHAIN (sym
) = opaque_type_chain
[i
];
1781 opaque_type_chain
[i
] = sym
;
1783 add_symbol_to_list (sym
, &file_symbols
);
1789 SYMBOL_ACLASS_INDEX (sym
) = LOC_TYPEDEF
;
1790 SYMBOL_DOMAIN (sym
) = STRUCT_DOMAIN
;
1792 /* Some compilers try to be helpful by inventing "fake"
1793 names for anonymous enums, structures, and unions, like
1794 "~0fake" or ".0fake". Thanks, but no thanks... */
1795 if (TYPE_TAG_NAME (SYMBOL_TYPE (sym
)) == 0)
1796 if (SYMBOL_LINKAGE_NAME (sym
) != NULL
1797 && *SYMBOL_LINKAGE_NAME (sym
) != '~'
1798 && *SYMBOL_LINKAGE_NAME (sym
) != '.')
1799 TYPE_TAG_NAME (SYMBOL_TYPE (sym
)) =
1800 concat (SYMBOL_LINKAGE_NAME (sym
), (char *)NULL
);
1802 add_symbol_to_list (sym
, &file_symbols
);
1812 /* Decode a coff type specifier; return the type that is meant. */
1814 static struct type
*
1815 decode_type (struct coff_symbol
*cs
, unsigned int c_type
,
1816 union internal_auxent
*aux
, struct objfile
*objfile
)
1818 struct type
*type
= 0;
1819 unsigned int new_c_type
;
1821 if (c_type
& ~N_BTMASK
)
1823 new_c_type
= DECREF (c_type
);
1826 type
= decode_type (cs
, new_c_type
, aux
, objfile
);
1827 type
= lookup_pointer_type (type
);
1829 else if (ISFCN (c_type
))
1831 type
= decode_type (cs
, new_c_type
, aux
, objfile
);
1832 type
= lookup_function_type (type
);
1834 else if (ISARY (c_type
))
1837 unsigned short *dim
;
1838 struct type
*base_type
, *index_type
, *range_type
;
1840 /* Define an array type. */
1841 /* auxent refers to array, not base type. */
1842 if (aux
->x_sym
.x_tagndx
.l
== 0)
1845 /* Shift the indices down. */
1846 dim
= &aux
->x_sym
.x_fcnary
.x_ary
.x_dimen
[0];
1849 for (i
= 0; *dim
&& i
< DIMNUM
- 1; i
++, dim
++)
1853 base_type
= decode_type (cs
, new_c_type
, aux
, objfile
);
1854 index_type
= objfile_type (objfile
)->builtin_int
;
1856 = create_static_range_type ((struct type
*) NULL
,
1857 index_type
, 0, n
- 1);
1859 create_array_type ((struct type
*) NULL
,
1860 base_type
, range_type
);
1865 /* Reference to existing type. This only occurs with the struct,
1866 union, and enum types. EPI a29k coff fakes us out by producing
1867 aux entries with a nonzero x_tagndx for definitions of structs,
1868 unions, and enums, so we have to check the c_sclass field. SCO
1869 3.2v4 cc gets confused with pointers to pointers to defined
1870 structs, and generates negative x_tagndx fields. */
1871 if (cs
->c_naux
> 0 && aux
->x_sym
.x_tagndx
.l
!= 0)
1873 if (cs
->c_sclass
!= C_STRTAG
1874 && cs
->c_sclass
!= C_UNTAG
1875 && cs
->c_sclass
!= C_ENTAG
1876 && aux
->x_sym
.x_tagndx
.l
>= 0)
1878 type
= coff_alloc_type (aux
->x_sym
.x_tagndx
.l
);
1883 complaint (&symfile_complaints
,
1884 _("Symbol table entry for %s has bad tagndx value"),
1886 /* And fall through to decode_base_type... */
1890 return decode_base_type (cs
, BTYPE (c_type
), aux
, objfile
);
1893 /* Decode a coff type specifier for function definition;
1894 return the type that the function returns. */
1896 static struct type
*
1897 decode_function_type (struct coff_symbol
*cs
,
1898 unsigned int c_type
,
1899 union internal_auxent
*aux
,
1900 struct objfile
*objfile
)
1902 if (aux
->x_sym
.x_tagndx
.l
== 0)
1903 cs
->c_naux
= 0; /* auxent refers to function, not base
1906 return decode_type (cs
, DECREF (c_type
), aux
, objfile
);
1909 /* Basic C types. */
1911 static struct type
*
1912 decode_base_type (struct coff_symbol
*cs
,
1913 unsigned int c_type
,
1914 union internal_auxent
*aux
,
1915 struct objfile
*objfile
)
1917 struct gdbarch
*gdbarch
= get_objfile_arch (objfile
);
1923 /* Shows up with "void (*foo)();" structure members. */
1924 return objfile_type (objfile
)->builtin_void
;
1928 /* Intel 960 COFF has this symbol and meaning. */
1929 return objfile_type (objfile
)->builtin_void
;
1933 return objfile_type (objfile
)->builtin_char
;
1936 return objfile_type (objfile
)->builtin_short
;
1939 return objfile_type (objfile
)->builtin_int
;
1942 if (cs
->c_sclass
== C_FIELD
1943 && aux
->x_sym
.x_misc
.x_lnsz
.x_size
1944 > gdbarch_long_bit (gdbarch
))
1945 return objfile_type (objfile
)->builtin_long_long
;
1947 return objfile_type (objfile
)->builtin_long
;
1950 return objfile_type (objfile
)->builtin_float
;
1953 return objfile_type (objfile
)->builtin_double
;
1956 return objfile_type (objfile
)->builtin_long_double
;
1959 if (cs
->c_naux
!= 1)
1961 /* Anonymous structure type. */
1962 type
= coff_alloc_type (cs
->c_symnum
);
1963 TYPE_CODE (type
) = TYPE_CODE_STRUCT
;
1964 TYPE_NAME (type
) = NULL
;
1965 /* This used to set the tag to "<opaque>". But I think
1966 setting it to NULL is right, and the printing code can
1967 print it as "struct {...}". */
1968 TYPE_TAG_NAME (type
) = NULL
;
1969 INIT_CPLUS_SPECIFIC (type
);
1970 TYPE_LENGTH (type
) = 0;
1971 TYPE_FIELDS (type
) = 0;
1972 TYPE_NFIELDS (type
) = 0;
1976 type
= coff_read_struct_type (cs
->c_symnum
,
1977 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1978 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
,
1984 if (cs
->c_naux
!= 1)
1986 /* Anonymous union type. */
1987 type
= coff_alloc_type (cs
->c_symnum
);
1988 TYPE_NAME (type
) = NULL
;
1989 /* This used to set the tag to "<opaque>". But I think
1990 setting it to NULL is right, and the printing code can
1991 print it as "union {...}". */
1992 TYPE_TAG_NAME (type
) = NULL
;
1993 INIT_CPLUS_SPECIFIC (type
);
1994 TYPE_LENGTH (type
) = 0;
1995 TYPE_FIELDS (type
) = 0;
1996 TYPE_NFIELDS (type
) = 0;
2000 type
= coff_read_struct_type (cs
->c_symnum
,
2001 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
2002 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
,
2005 TYPE_CODE (type
) = TYPE_CODE_UNION
;
2009 if (cs
->c_naux
!= 1)
2011 /* Anonymous enum type. */
2012 type
= coff_alloc_type (cs
->c_symnum
);
2013 TYPE_CODE (type
) = TYPE_CODE_ENUM
;
2014 TYPE_NAME (type
) = NULL
;
2015 /* This used to set the tag to "<opaque>". But I think
2016 setting it to NULL is right, and the printing code can
2017 print it as "enum {...}". */
2018 TYPE_TAG_NAME (type
) = NULL
;
2019 TYPE_LENGTH (type
) = 0;
2020 TYPE_FIELDS (type
) = 0;
2021 TYPE_NFIELDS (type
) = 0;
2025 type
= coff_read_enum_type (cs
->c_symnum
,
2026 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
2027 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
,
2033 /* Shouldn't show up here. */
2037 return objfile_type (objfile
)->builtin_unsigned_char
;
2040 return objfile_type (objfile
)->builtin_unsigned_short
;
2043 return objfile_type (objfile
)->builtin_unsigned_int
;
2046 if (cs
->c_sclass
== C_FIELD
2047 && aux
->x_sym
.x_misc
.x_lnsz
.x_size
2048 > gdbarch_long_bit (gdbarch
))
2049 return objfile_type (objfile
)->builtin_unsigned_long_long
;
2051 return objfile_type (objfile
)->builtin_unsigned_long
;
2053 complaint (&symfile_complaints
,
2054 _("Unexpected type for symbol %s"), cs
->c_name
);
2055 return objfile_type (objfile
)->builtin_void
;
2058 /* This page contains subroutines of read_type. */
2060 /* Read the description of a structure (or union type) and return an
2061 object describing the type. */
2063 static struct type
*
2064 coff_read_struct_type (int index
, int length
, int lastsym
,
2065 struct objfile
*objfile
)
2069 struct nextfield
*next
;
2074 struct nextfield
*list
= 0;
2075 struct nextfield
*newobj
;
2079 struct coff_symbol member_sym
;
2080 struct coff_symbol
*ms
= &member_sym
;
2081 struct internal_syment sub_sym
;
2082 union internal_auxent sub_aux
;
2085 type
= coff_alloc_type (index
);
2086 TYPE_CODE (type
) = TYPE_CODE_STRUCT
;
2087 INIT_CPLUS_SPECIFIC (type
);
2088 TYPE_LENGTH (type
) = length
;
2090 while (!done
&& symnum
< lastsym
&& symnum
< nlist_nsyms_global
)
2092 read_one_sym (ms
, &sub_sym
, &sub_aux
);
2094 name
= EXTERNAL_NAME (name
, objfile
->obfd
);
2096 switch (ms
->c_sclass
)
2101 /* Get space to record the next field's data. */
2102 newobj
= XALLOCA (struct nextfield
);
2103 newobj
->next
= list
;
2106 /* Save the data. */
2107 list
->field
.name
= obstack_copy0 (&objfile
->objfile_obstack
,
2108 name
, strlen (name
));
2109 FIELD_TYPE (list
->field
) = decode_type (ms
, ms
->c_type
,
2111 SET_FIELD_BITPOS (list
->field
, 8 * ms
->c_value
);
2112 FIELD_BITSIZE (list
->field
) = 0;
2118 /* Get space to record the next field's data. */
2119 newobj
= XALLOCA (struct nextfield
);
2120 newobj
->next
= list
;
2123 /* Save the data. */
2124 list
->field
.name
= obstack_copy0 (&objfile
->objfile_obstack
,
2125 name
, strlen (name
));
2126 FIELD_TYPE (list
->field
) = decode_type (ms
, ms
->c_type
,
2128 SET_FIELD_BITPOS (list
->field
, ms
->c_value
);
2129 FIELD_BITSIZE (list
->field
) = sub_aux
.x_sym
.x_misc
.x_lnsz
.x_size
;
2138 /* Now create the vector of fields, and record how big it is. */
2140 TYPE_NFIELDS (type
) = nfields
;
2141 TYPE_FIELDS (type
) = (struct field
*)
2142 TYPE_ALLOC (type
, sizeof (struct field
) * nfields
);
2144 /* Copy the saved-up fields into the field vector. */
2146 for (n
= nfields
; list
; list
= list
->next
)
2147 TYPE_FIELD (type
, --n
) = list
->field
;
2152 /* Read a definition of an enumeration type,
2153 and create and return a suitable type object.
2154 Also defines the symbols that represent the values of the type. */
2156 static struct type
*
2157 coff_read_enum_type (int index
, int length
, int lastsym
,
2158 struct objfile
*objfile
)
2160 struct gdbarch
*gdbarch
= get_objfile_arch (objfile
);
2165 struct pending
**symlist
;
2166 struct coff_symbol member_sym
;
2167 struct coff_symbol
*ms
= &member_sym
;
2168 struct internal_syment sub_sym
;
2169 union internal_auxent sub_aux
;
2170 struct pending
*osyms
, *syms
;
2174 int unsigned_enum
= 1;
2176 type
= coff_alloc_type (index
);
2177 if (within_function
)
2178 symlist
= &local_symbols
;
2180 symlist
= &file_symbols
;
2182 o_nsyms
= osyms
? osyms
->nsyms
: 0;
2184 while (!done
&& symnum
< lastsym
&& symnum
< nlist_nsyms_global
)
2186 read_one_sym (ms
, &sub_sym
, &sub_aux
);
2188 name
= EXTERNAL_NAME (name
, objfile
->obfd
);
2190 switch (ms
->c_sclass
)
2193 sym
= allocate_symbol (objfile
);
2195 SYMBOL_SET_LINKAGE_NAME (sym
,
2196 obstack_copy0 (&objfile
->objfile_obstack
,
2197 name
, strlen (name
)));
2198 SYMBOL_ACLASS_INDEX (sym
) = LOC_CONST
;
2199 SYMBOL_DOMAIN (sym
) = VAR_DOMAIN
;
2200 SYMBOL_VALUE (sym
) = ms
->c_value
;
2201 add_symbol_to_list (sym
, symlist
);
2206 /* Sometimes the linker (on 386/ix 2.0.2 at least) screws
2207 up the count of how many symbols to read. So stop
2214 /* Now fill in the fields of the type-structure. */
2217 TYPE_LENGTH (type
) = length
;
2218 else /* Assume ints. */
2219 TYPE_LENGTH (type
) = gdbarch_int_bit (gdbarch
) / TARGET_CHAR_BIT
;
2220 TYPE_CODE (type
) = TYPE_CODE_ENUM
;
2221 TYPE_NFIELDS (type
) = nsyms
;
2222 TYPE_FIELDS (type
) = (struct field
*)
2223 TYPE_ALLOC (type
, sizeof (struct field
) * nsyms
);
2225 /* Find the symbols for the values and put them into the type.
2226 The symbols can be found in the symlist that we put them on
2227 to cause them to be defined. osyms contains the old value
2228 of that symlist; everything up to there was defined by us. */
2229 /* Note that we preserve the order of the enum constants, so
2230 that in something like "enum {FOO, LAST_THING=FOO}" we print
2231 FOO, not LAST_THING. */
2233 for (syms
= *symlist
, n
= 0; syms
; syms
= syms
->next
)
2239 for (; j
< syms
->nsyms
; j
++, n
++)
2241 struct symbol
*xsym
= syms
->symbol
[j
];
2243 SYMBOL_TYPE (xsym
) = type
;
2244 TYPE_FIELD_NAME (type
, n
) = SYMBOL_LINKAGE_NAME (xsym
);
2245 SET_FIELD_ENUMVAL (TYPE_FIELD (type
, n
), SYMBOL_VALUE (xsym
));
2246 if (SYMBOL_VALUE (xsym
) < 0)
2248 TYPE_FIELD_BITSIZE (type
, n
) = 0;
2255 TYPE_UNSIGNED (type
) = 1;
2260 /* Register our ability to parse symbols for coff BFD files. */
2262 static const struct sym_fns coff_sym_fns
=
2264 coff_new_init
, /* sym_new_init: init anything gbl to
2266 coff_symfile_init
, /* sym_init: read initial info, setup
2268 coff_symfile_read
, /* sym_read: read a symbol file into
2270 NULL
, /* sym_read_psymbols */
2271 coff_symfile_finish
, /* sym_finish: finished with file,
2273 default_symfile_offsets
, /* sym_offsets: xlate external to
2275 default_symfile_segments
, /* sym_segments: Get segment
2276 information from a file */
2277 NULL
, /* sym_read_linetable */
2279 default_symfile_relocate
, /* sym_relocate: Relocate a debug
2281 NULL
, /* sym_probe_fns */
2285 /* Free the per-objfile COFF data. */
2288 coff_free_info (struct objfile
*objfile
, void *arg
)
2294 _initialize_coffread (void)
2296 add_symtab_fns (bfd_target_coff_flavour
, &coff_sym_fns
);
2298 coff_objfile_data_key
= register_objfile_data_with_cleanup (NULL
,
2302 = register_symbol_register_impl (LOC_REGISTER
, &coff_register_funcs
);