1 /* Read coff symbol tables and convert to internal format, for GDB.
2 Copyright (C) 1987-2018 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 */
33 #include "buildsym-legacy.h"
34 #include "gdb-stabs.h"
35 #include "stabsread.h"
36 #include "complaints.h"
39 #include "dictionary.h"
41 #include "coff-pe-read.h"
46 /* Key for COFF-associated data. */
48 static const struct objfile_data
*coff_objfile_data_key
;
50 /* The objfile we are currently reading. */
52 static struct objfile
*coffread_objfile
;
54 struct coff_symfile_info
56 file_ptr min_lineno_offset
; /* Where in file lowest line#s are. */
57 file_ptr max_lineno_offset
; /* 1+last byte of line#s in file. */
59 CORE_ADDR textaddr
; /* Addr of .text section. */
60 unsigned int textsize
; /* Size of .text section. */
61 struct stab_section_list
*stabsects
; /* .stab sections. */
62 asection
*stabstrsect
; /* Section pointer for .stab section. */
66 /* Translate an external name string into a user-visible name. */
67 #define EXTERNAL_NAME(string, abfd) \
68 (string[0] == bfd_get_symbol_leading_char (abfd) \
69 ? string + 1 : string)
71 /* To be an sdb debug type, type must have at least a basic or primary
72 derived type. Using this rather than checking against T_NULL is
73 said to prevent core dumps if we try to operate on Michael Bloom
76 #define SDB_TYPE(type) (BTYPE(type) | (type & N_TMASK))
78 /* Core address of start and end of text of current source file.
79 This comes from a ".text" symbol where x_nlinno > 0. */
81 static CORE_ADDR current_source_start_addr
;
82 static CORE_ADDR current_source_end_addr
;
84 /* The addresses of the symbol table stream and number of symbols
85 of the object file we are reading (as copied into core). */
87 static bfd
*nlist_bfd_global
;
88 static int nlist_nsyms_global
;
91 /* Pointers to scratch storage, used for reading raw symbols and
94 static char *temp_sym
;
95 static char *temp_aux
;
97 /* Local variables that hold the shift and mask values for the
98 COFF file that we are currently reading. These come back to us
99 from BFD, and are referenced by their macro names, as well as
100 internally to the BTYPE, ISPTR, ISFCN, ISARY, ISTAG, and DECREF
101 macros from include/coff/internal.h . */
103 static unsigned local_n_btmask
;
104 static unsigned local_n_btshft
;
105 static unsigned local_n_tmask
;
106 static unsigned local_n_tshift
;
108 #define N_BTMASK local_n_btmask
109 #define N_BTSHFT local_n_btshft
110 #define N_TMASK local_n_tmask
111 #define N_TSHIFT local_n_tshift
113 /* Local variables that hold the sizes in the file of various COFF
114 structures. (We only need to know this to read them from the file
115 -- BFD will then translate the data in them, into `internal_xxx'
116 structs in the right byte order, alignment, etc.) */
118 static unsigned local_linesz
;
119 static unsigned local_symesz
;
120 static unsigned local_auxesz
;
122 /* This is set if this is a PE format file. */
126 /* Chain of typedefs of pointers to empty struct/union types.
127 They are chained thru the SYMBOL_VALUE_CHAIN. */
129 static struct symbol
*opaque_type_chain
[HASHSIZE
];
131 /* Simplified internal version of coff symbol table information. */
136 int c_symnum
; /* Symbol number of this entry. */
137 int c_naux
; /* 0 if syment only, 1 if syment +
145 /* Vector of types defined so far, indexed by their type numbers. */
147 static struct type
**type_vector
;
149 /* Number of elements allocated for type_vector currently. */
151 static int type_vector_length
;
153 /* Initial size of type vector. Is realloc'd larger if needed, and
154 realloc'd down to the size actually used, when completed. */
156 #define INITIAL_TYPE_VECTOR_LENGTH 160
158 extern void stabsread_clear_cache (void);
160 static struct type
*coff_read_struct_type (int, int, int,
163 static struct type
*decode_base_type (struct coff_symbol
*,
165 union internal_auxent
*,
168 static struct type
*decode_type (struct coff_symbol
*, unsigned int,
169 union internal_auxent
*,
172 static struct type
*decode_function_type (struct coff_symbol
*,
174 union internal_auxent
*,
177 static struct type
*coff_read_enum_type (int, int, int,
180 static struct symbol
*process_coff_symbol (struct coff_symbol
*,
181 union internal_auxent
*,
184 static void patch_opaque_types (struct symtab
*);
186 static void enter_linenos (long, int, int, struct objfile
*);
188 static void free_linetab (void);
190 static void free_linetab_cleanup (void *ignore
);
192 static int init_lineno (bfd
*, long, int);
194 static char *getsymname (struct internal_syment
*);
196 static const char *coff_getfilename (union internal_auxent
*);
198 static void free_stringtab (void);
200 static void free_stringtab_cleanup (void *ignore
);
202 static int init_stringtab (bfd
*, long);
204 static void read_one_sym (struct coff_symbol
*,
205 struct internal_syment
*,
206 union internal_auxent
*);
208 static void coff_symtab_read (minimal_symbol_reader
&,
209 long, unsigned int, struct objfile
*);
211 /* We are called once per section from coff_symfile_read. We
212 need to examine each section we are passed, check to see
213 if it is something we are interested in processing, and
214 if so, stash away some access information for the section.
216 FIXME: The section names should not be hardwired strings (what
217 should they be? I don't think most object file formats have enough
218 section flags to specify what kind of debug section it is
222 coff_locate_sections (bfd
*abfd
, asection
*sectp
, void *csip
)
224 struct coff_symfile_info
*csi
;
227 csi
= (struct coff_symfile_info
*) csip
;
228 name
= bfd_get_section_name (abfd
, sectp
);
229 if (strcmp (name
, ".text") == 0)
231 csi
->textaddr
= bfd_section_vma (abfd
, sectp
);
232 csi
->textsize
+= bfd_section_size (abfd
, sectp
);
234 else if (startswith (name
, ".text"))
236 csi
->textsize
+= bfd_section_size (abfd
, sectp
);
238 else if (strcmp (name
, ".stabstr") == 0)
240 csi
->stabstrsect
= sectp
;
242 else if (startswith (name
, ".stab"))
246 /* We can have multiple .stab sections if linked with
248 for (s
= name
+ sizeof ".stab" - 1; *s
!= '\0'; s
++)
253 struct stab_section_list
*n
, **pn
;
255 n
= XNEW (struct stab_section_list
);
258 for (pn
= &csi
->stabsects
; *pn
!= NULL
; pn
= &(*pn
)->next
)
262 /* This will be run after coffstab_build_psymtabs is called
263 in coff_symfile_read, at which point we no longer need
265 make_cleanup (xfree
, n
);
270 /* Return the section_offsets* that CS points to. */
271 static int cs_to_section (struct coff_symbol
*, struct objfile
*);
273 struct find_targ_sec_arg
280 find_targ_sec (bfd
*abfd
, asection
*sect
, void *obj
)
282 struct find_targ_sec_arg
*args
= (struct find_targ_sec_arg
*) obj
;
284 if (sect
->target_index
== args
->targ_index
)
285 *args
->resultp
= sect
;
288 /* Return the bfd_section that CS points to. */
289 static struct bfd_section
*
290 cs_to_bfd_section (struct coff_symbol
*cs
, struct objfile
*objfile
)
292 asection
*sect
= NULL
;
293 struct find_targ_sec_arg args
;
295 args
.targ_index
= cs
->c_secnum
;
296 args
.resultp
= §
;
297 bfd_map_over_sections (objfile
->obfd
, find_targ_sec
, &args
);
301 /* Return the section number (SECT_OFF_*) that CS points to. */
303 cs_to_section (struct coff_symbol
*cs
, struct objfile
*objfile
)
305 asection
*sect
= cs_to_bfd_section (cs
, objfile
);
308 return SECT_OFF_TEXT (objfile
);
309 return gdb_bfd_section_index (objfile
->obfd
, sect
);
312 /* Return the address of the section of a COFF symbol. */
314 static CORE_ADDR
cs_section_address (struct coff_symbol
*, bfd
*);
317 cs_section_address (struct coff_symbol
*cs
, bfd
*abfd
)
319 asection
*sect
= NULL
;
320 struct find_targ_sec_arg args
;
323 args
.targ_index
= cs
->c_secnum
;
324 args
.resultp
= §
;
325 bfd_map_over_sections (abfd
, find_targ_sec
, &args
);
327 addr
= bfd_get_section_vma (abfd
, sect
);
331 /* Look up a coff type-number index. Return the address of the slot
332 where the type for that index is stored.
333 The type-number is in INDEX.
335 This can be used for finding the type associated with that index
336 or for associating a new type with the index. */
338 static struct type
**
339 coff_lookup_type (int index
)
341 if (index
>= type_vector_length
)
343 int old_vector_length
= type_vector_length
;
345 type_vector_length
*= 2;
346 if (index
/* is still */ >= type_vector_length
)
347 type_vector_length
= index
* 2;
349 type_vector
= (struct type
**)
350 xrealloc ((char *) type_vector
,
351 type_vector_length
* sizeof (struct type
*));
352 memset (&type_vector
[old_vector_length
], 0,
353 (type_vector_length
- old_vector_length
) * sizeof (struct type
*));
355 return &type_vector
[index
];
358 /* Make sure there is a type allocated for type number index
359 and return the type object.
360 This can create an empty (zeroed) type object. */
363 coff_alloc_type (int index
)
365 struct type
**type_addr
= coff_lookup_type (index
);
366 struct type
*type
= *type_addr
;
368 /* If we are referring to a type not known at all yet,
369 allocate an empty type for it.
370 We will fill it in later if we find out how. */
373 type
= alloc_type (coffread_objfile
);
379 /* Start a new symtab for a new source file.
380 This is called when a COFF ".file" symbol is seen;
381 it indicates the start of data for one original source file. */
384 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 call
395 set_last_source_start_addr in coff_end_symtab. */
397 /* Let buildsym.c deduce the language for this symtab. */
399 record_debugformat ("COFF");
402 /* Save the vital information from when starting to read a file,
403 for use when closing off the current file.
404 NAME is the file name the symbols came from, START_ADDR is the
405 first text address for the file, and SIZE is the number of bytes of
409 complete_symtab (const char *name
, CORE_ADDR start_addr
, unsigned int size
)
411 set_last_source_file (name
);
412 current_source_start_addr
= start_addr
;
413 current_source_end_addr
= start_addr
+ size
;
416 /* Finish the symbol definitions for one main source file, close off
417 all the lexical contexts for that file (creating struct block's for
418 them), then make the struct symtab for that file and put it in the
422 coff_end_symtab (struct objfile
*objfile
)
424 set_last_source_start_addr (current_source_start_addr
);
426 end_symtab (current_source_end_addr
, SECT_OFF_TEXT (objfile
));
428 /* Reinitialize for beginning of new file. */
429 set_last_source_file (NULL
);
432 /* The linker sometimes generates some non-function symbols inside
433 functions referencing variables imported from another DLL.
434 Return nonzero if the given symbol corresponds to one of them. */
437 is_import_fixup_symbol (struct coff_symbol
*cs
,
438 enum minimal_symbol_type type
)
440 /* The following is a bit of a heuristic using the characterictics
441 of these fixup symbols, but should work well in practice... */
444 /* Must be a non-static text symbol. */
445 if (type
!= mst_text
)
448 /* Must be a non-function symbol. */
449 if (ISFCN (cs
->c_type
))
452 /* The name must start with "__fu<digits>__". */
453 if (!startswith (cs
->c_name
, "__fu"))
455 if (! isdigit (cs
->c_name
[4]))
457 for (i
= 5; cs
->c_name
[i
] != '\0' && isdigit (cs
->c_name
[i
]); i
++)
458 /* Nothing, just incrementing index past all digits. */;
459 if (cs
->c_name
[i
] != '_' || cs
->c_name
[i
+ 1] != '_')
465 static struct minimal_symbol
*
466 record_minimal_symbol (minimal_symbol_reader
&reader
,
467 struct coff_symbol
*cs
, CORE_ADDR address
,
468 enum minimal_symbol_type type
, int section
,
469 struct objfile
*objfile
)
471 /* We don't want TDESC entry points in the minimal symbol table. */
472 if (cs
->c_name
[0] == '@')
475 if (is_import_fixup_symbol (cs
, type
))
477 /* Because the value of these symbols is within a function code
478 range, these symbols interfere with the symbol-from-address
479 reverse lookup; this manifests itselfs in backtraces, or any
480 other commands that prints symbolic addresses. Just pretend
481 these symbols do not exist. */
485 return reader
.record_with_info (cs
->c_name
, address
, type
, section
);
488 /* coff_symfile_init ()
489 is the coff-specific initialization routine for reading symbols.
490 It is passed a struct objfile which contains, among other things,
491 the BFD for the file whose symbols are being read, and a slot for
492 a pointer to "private data" which we fill with cookies and other
493 treats for coff_symfile_read ().
495 We will only be called if this is a COFF or COFF-like file. BFD
496 handles figuring out the format of the file, and code in symtab.c
497 uses BFD's determination to vector to us.
499 The ultimate result is a new symtab (or, FIXME, eventually a
503 coff_symfile_init (struct objfile
*objfile
)
505 struct dbx_symfile_info
*dbx
;
506 struct coff_symfile_info
*coff
;
508 /* Allocate struct to keep track of stab reading. */
509 dbx
= XCNEW (struct dbx_symfile_info
);
510 set_objfile_data (objfile
, dbx_objfile_data_key
, dbx
);
512 /* Allocate struct to keep track of the symfile. */
513 coff
= XCNEW (struct coff_symfile_info
);
514 set_objfile_data (objfile
, coff_objfile_data_key
, coff
);
516 /* COFF objects may be reordered, so set OBJF_REORDERED. If we
517 find this causes a significant slowdown in gdb then we could
518 set it in the debug symbol readers only when necessary. */
519 objfile
->flags
|= OBJF_REORDERED
;
522 /* This function is called for every section; it finds the outer
523 limits of the line table (minimum and maximum file offset) so that
524 the mainline code can read the whole thing for efficiency. */
527 find_linenos (bfd
*abfd
, struct bfd_section
*asect
, void *vpinfo
)
529 struct coff_symfile_info
*info
;
531 file_ptr offset
, maxoff
;
533 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
534 count
= asect
->lineno_count
;
535 /* End of warning. */
539 size
= count
* local_linesz
;
541 info
= (struct coff_symfile_info
*) vpinfo
;
542 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
543 offset
= asect
->line_filepos
;
544 /* End of warning. */
546 if (offset
< info
->min_lineno_offset
|| info
->min_lineno_offset
== 0)
547 info
->min_lineno_offset
= offset
;
549 maxoff
= offset
+ size
;
550 if (maxoff
> info
->max_lineno_offset
)
551 info
->max_lineno_offset
= maxoff
;
555 /* The BFD for this file -- only good while we're actively reading
556 symbols into a psymtab or a symtab. */
558 static bfd
*symfile_bfd
;
560 /* Read a symbol file, after initialization by coff_symfile_init. */
563 coff_symfile_read (struct objfile
*objfile
, symfile_add_flags symfile_flags
)
565 struct coff_symfile_info
*info
;
566 bfd
*abfd
= objfile
->obfd
;
567 coff_data_type
*cdata
= coff_data (abfd
);
568 char *filename
= bfd_get_filename (abfd
);
570 unsigned int num_symbols
;
572 int stringtab_offset
;
573 struct cleanup
*back_to
;
576 info
= (struct coff_symfile_info
*) objfile_data (objfile
,
577 coff_objfile_data_key
);
578 symfile_bfd
= abfd
; /* Kludge for swap routines. */
580 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
581 num_symbols
= bfd_get_symcount (abfd
); /* How many syms */
582 symtab_offset
= cdata
->sym_filepos
; /* Symbol table file offset */
583 stringtab_offset
= symtab_offset
+ /* String table file offset */
584 num_symbols
* cdata
->local_symesz
;
586 /* Set a few file-statics that give us specific information about
587 the particular COFF file format we're reading. */
588 local_n_btmask
= cdata
->local_n_btmask
;
589 local_n_btshft
= cdata
->local_n_btshft
;
590 local_n_tmask
= cdata
->local_n_tmask
;
591 local_n_tshift
= cdata
->local_n_tshift
;
592 local_linesz
= cdata
->local_linesz
;
593 local_symesz
= cdata
->local_symesz
;
594 local_auxesz
= cdata
->local_auxesz
;
596 /* Allocate space for raw symbol and aux entries, based on their
597 space requirements as reported by BFD. */
598 temp_sym
= (char *) xmalloc
599 (cdata
->local_symesz
+ cdata
->local_auxesz
);
600 temp_aux
= temp_sym
+ cdata
->local_symesz
;
601 back_to
= make_cleanup (free_current_contents
, &temp_sym
);
603 /* We need to know whether this is a PE file, because in PE files,
604 unlike standard COFF files, symbol values are stored as offsets
605 from the section address, rather than as absolute addresses.
606 FIXME: We should use BFD to read the symbol table, and thus avoid
609 startswith (bfd_get_target (objfile
->obfd
), "pe")
610 || startswith (bfd_get_target (objfile
->obfd
), "epoc-pe");
612 /* End of warning. */
614 info
->min_lineno_offset
= 0;
615 info
->max_lineno_offset
= 0;
617 /* Only read line number information if we have symbols.
619 On Windows NT, some of the system's DLL's have sections with
620 PointerToLinenumbers fields that are non-zero, but point at
621 random places within the image file. (In the case I found,
622 KERNEL32.DLL's .text section has a line number info pointer that
623 points into the middle of the string `lib\\i386\kernel32.dll'.)
625 However, these DLL's also have no symbols. The line number
626 tables are meaningless without symbols. And in fact, GDB never
627 uses the line number information unless there are symbols. So we
628 can avoid spurious error messages (and maybe run a little
629 faster!) by not even reading the line number table unless we have
633 /* Read the line number table, all at once. */
634 bfd_map_over_sections (abfd
, find_linenos
, (void *) info
);
636 make_cleanup (free_linetab_cleanup
, 0 /*ignore*/);
637 val
= init_lineno (abfd
, info
->min_lineno_offset
,
638 info
->max_lineno_offset
- info
->min_lineno_offset
);
640 error (_("\"%s\": error reading line numbers."), filename
);
643 /* Now read the string table, all at once. */
645 make_cleanup (free_stringtab_cleanup
, 0 /*ignore*/);
646 val
= init_stringtab (abfd
, stringtab_offset
);
648 error (_("\"%s\": can't get string table"), filename
);
650 minimal_symbol_reader
reader (objfile
);
652 /* Now that the executable file is positioned at symbol table,
653 process it and define symbols accordingly. */
655 coff_symtab_read (reader
, (long) symtab_offset
, num_symbols
, objfile
);
657 /* Install any minimal symbols that have been collected as the
658 current minimal symbols for this 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 if (!(objfile
->flags
& OBJF_READNEVER
))
704 bfd_map_over_sections (abfd
, coff_locate_sections
, (void *) info
);
708 if (!info
->stabstrsect
)
710 error (_("The debugging information in `%s' is corrupted.\nThe "
711 "file has a `.stabs' section, but no `.stabstr' section."),
715 /* FIXME: dubious. Why can't we use something normal like
716 bfd_get_section_contents? */
717 bfd_seek (abfd
, abfd
->where
, 0);
719 stabstrsize
= bfd_section_size (abfd
, info
->stabstrsect
);
721 coffstab_build_psymtabs (objfile
,
722 info
->textaddr
, info
->textsize
,
724 info
->stabstrsect
->filepos
, stabstrsize
);
726 if (dwarf2_has_info (objfile
, NULL
))
728 /* DWARF2 sections. */
729 dwarf2_build_psymtabs (objfile
);
732 dwarf2_build_frame_info (objfile
);
734 /* Try to add separate debug file if no symbols table found. */
735 if (!objfile_has_partial_symbols (objfile
))
737 std::string debugfile
= find_separate_debug_file_by_buildid (objfile
);
739 if (debugfile
.empty ())
740 debugfile
= find_separate_debug_file_by_debuglink (objfile
);
742 if (!debugfile
.empty ())
744 gdb_bfd_ref_ptr
debug_bfd (symfile_bfd_open (debugfile
.c_str ()));
746 symbol_file_add_separate (debug_bfd
.get (), debugfile
.c_str (),
747 symfile_flags
, objfile
);
751 do_cleanups (back_to
);
755 coff_new_init (struct objfile
*ignore
)
759 /* Perform any local cleanups required when we are done with a
760 particular objfile. I.E, we are in the process of discarding all
761 symbol information for an objfile, freeing up all memory held for
762 it, and unlinking the objfile struct from the global list of known
766 coff_symfile_finish (struct objfile
*objfile
)
768 /* Let stabs reader clean up. */
769 stabsread_clear_cache ();
773 /* Given pointers to a symbol table in coff style exec file,
774 analyze them and create struct symtab's describing the symbols.
775 NSYMS is the number of symbols in the symbol table.
776 We read them one at a time using read_one_sym (). */
779 coff_symtab_read (minimal_symbol_reader
&reader
,
780 long symtab_offset
, unsigned int nsyms
,
781 struct objfile
*objfile
)
783 struct gdbarch
*gdbarch
= get_objfile_arch (objfile
);
784 struct context_stack
*newobj
= nullptr;
785 struct coff_symbol coff_symbol
;
786 struct coff_symbol
*cs
= &coff_symbol
;
787 static struct internal_syment main_sym
;
788 static union internal_auxent main_aux
;
789 struct coff_symbol fcn_cs_saved
;
790 static struct internal_syment fcn_sym_saved
;
791 static union internal_auxent fcn_aux_saved
;
792 /* A .file is open. */
793 int in_source_file
= 0;
794 int next_file_symnum
= -1;
795 /* Name of the current file. */
796 const char *filestring
= "";
798 int fcn_first_line
= 0;
799 CORE_ADDR fcn_first_line_addr
= 0;
800 int fcn_last_line
= 0;
801 int fcn_start_addr
= 0;
802 long fcn_line_ptr
= 0;
805 struct minimal_symbol
*msym
;
807 scoped_free_pendings free_pending
;
809 /* Work around a stdio bug in SunOS4.1.1 (this makes me nervous....
810 it's hard to know I've really worked around it. The fix should
811 be harmless, anyway). The symptom of the bug is that the first
812 fread (in read_one_sym), will (in my example) actually get data
813 from file offset 268, when the fseek was to 264 (and ftell shows
814 264). This causes all hell to break loose. I was unable to
815 reproduce this on a short test program which operated on the same
816 file, performing (I think) the same sequence of operations.
818 It stopped happening when I put in this (former) rewind().
820 FIXME: Find out if this has been reported to Sun, whether it has
821 been fixed in a later release, etc. */
823 bfd_seek (objfile
->obfd
, 0, 0);
825 /* Position to read the symbol table. */
826 val
= bfd_seek (objfile
->obfd
, (long) symtab_offset
, 0);
828 perror_with_name (objfile_name (objfile
));
830 coffread_objfile
= objfile
;
831 nlist_bfd_global
= objfile
->obfd
;
832 nlist_nsyms_global
= nsyms
;
833 set_last_source_file (NULL
);
834 memset (opaque_type_chain
, 0, sizeof opaque_type_chain
);
836 if (type_vector
) /* Get rid of previous one. */
838 type_vector_length
= INITIAL_TYPE_VECTOR_LENGTH
;
839 type_vector
= XCNEWVEC (struct type
*, type_vector_length
);
841 coff_start_symtab (objfile
, "");
844 while (symnum
< nsyms
)
846 QUIT
; /* Make this command interruptable. */
848 read_one_sym (cs
, &main_sym
, &main_aux
);
850 if (cs
->c_symnum
== next_file_symnum
&& cs
->c_sclass
!= C_FILE
)
852 if (get_last_source_file ())
853 coff_end_symtab (objfile
);
855 coff_start_symtab (objfile
, "_globals_");
856 /* coff_start_symtab will set the language of this symtab to
857 language_unknown, since such a ``file name'' is not
858 recognized. Override that with the minimal language to
859 allow printing values in this symtab. */
860 get_current_subfile ()->language
= language_minimal
;
861 complete_symtab ("_globals_", 0, 0);
862 /* Done with all files, everything from here on out is
866 /* Special case for file with type declarations only, no
868 if (!get_last_source_file () && SDB_TYPE (cs
->c_type
)
869 && cs
->c_secnum
== N_DEBUG
)
870 complete_symtab (filestring
, 0, 0);
872 /* Typedefs should not be treated as symbol definitions. */
873 if (ISFCN (cs
->c_type
) && cs
->c_sclass
!= C_TPDEF
)
875 /* Record all functions -- external and static -- in
877 int section
= cs_to_section (cs
, objfile
);
879 tmpaddr
= cs
->c_value
;
880 /* Don't record unresolved symbols. */
881 if (!(cs
->c_secnum
<= 0 && cs
->c_value
== 0))
882 record_minimal_symbol (reader
, cs
, tmpaddr
, mst_text
,
885 fcn_line_ptr
= main_aux
.x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
;
886 fcn_start_addr
= tmpaddr
;
888 fcn_sym_saved
= main_sym
;
889 fcn_aux_saved
= main_aux
;
893 switch (cs
->c_sclass
)
902 complaint (_("Bad n_sclass for symbol %s"),
907 /* c_value field contains symnum of next .file entry in
908 table or symnum of first global after last .file. */
909 next_file_symnum
= cs
->c_value
;
911 filestring
= coff_getfilename (&main_aux
);
915 /* Complete symbol table for last object file
916 containing debugging information. */
917 if (get_last_source_file ())
919 coff_end_symtab (objfile
);
920 coff_start_symtab (objfile
, filestring
);
925 /* C_LABEL is used for labels and static functions.
926 Including it here allows gdb to see static functions when
927 no debug info is available. */
929 /* However, labels within a function can make weird
930 backtraces, so filter them out (from phdm@macqel.be). */
937 case C_THUMBSTATFUNC
:
938 if (cs
->c_name
[0] == '.')
940 if (strcmp (cs
->c_name
, ".text") == 0)
942 /* FIXME: don't wire in ".text" as section name or
944 /* Check for in_source_file deals with case of a
945 file with debugging symbols followed by a later
946 file with no symbols. */
948 complete_symtab (filestring
,
949 cs
->c_value
+ ANOFFSET (objfile
->section_offsets
,
950 SECT_OFF_TEXT (objfile
)),
951 main_aux
.x_scn
.x_scnlen
);
954 /* Flush rest of '.' symbols. */
957 else if (!SDB_TYPE (cs
->c_type
)
958 && cs
->c_name
[0] == 'L'
959 && (startswith (cs
->c_name
, "LI%")
960 || startswith (cs
->c_name
, "LF%")
961 || startswith (cs
->c_name
, "LC%")
962 || startswith (cs
->c_name
, "LP%")
963 || startswith (cs
->c_name
, "LPB%")
964 || startswith (cs
->c_name
, "LBB%")
965 || startswith (cs
->c_name
, "LBE%")
966 || startswith (cs
->c_name
, "LPBX%")))
967 /* At least on a 3b1, gcc generates swbeg and string labels
968 that look like this. Ignore them. */
970 /* For static symbols that don't start with '.'... */
976 /* Record it in the minimal symbols regardless of
977 SDB_TYPE. This parallels what we do for other debug
978 formats, and probably is needed to make
979 print_address_symbolic work right without the (now
980 gone) "set fast-symbolic-addr off" kludge. */
982 enum minimal_symbol_type ms_type
;
984 CORE_ADDR offset
= 0;
986 if (cs
->c_secnum
== N_UNDEF
)
988 /* This is a common symbol. We used to rely on
989 the target to tell us whether it knows where
990 the symbol has been relocated to, but none of
991 the target implementations actually provided
992 that operation. So we just ignore the symbol,
993 the same way we would do if we had a target-side
994 symbol lookup which returned no match. */
997 else if (cs
->c_secnum
== N_ABS
)
999 /* Use the correct minimal symbol type (and don't
1000 relocate) for absolute values. */
1002 sec
= cs_to_section (cs
, objfile
);
1003 tmpaddr
= cs
->c_value
;
1007 asection
*bfd_section
= cs_to_bfd_section (cs
, objfile
);
1009 sec
= cs_to_section (cs
, objfile
);
1010 tmpaddr
= cs
->c_value
;
1011 /* Statics in a PE file also get relocated. */
1012 if (cs
->c_sclass
== C_EXT
1013 || cs
->c_sclass
== C_THUMBEXTFUNC
1014 || cs
->c_sclass
== C_THUMBEXT
1015 || (pe_file
&& (cs
->c_sclass
== C_STAT
)))
1016 offset
= ANOFFSET (objfile
->section_offsets
, sec
);
1018 if (bfd_section
->flags
& SEC_CODE
)
1021 cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXTFUNC
1022 || cs
->c_sclass
== C_THUMBEXT
?
1023 mst_text
: mst_file_text
;
1024 tmpaddr
= gdbarch_addr_bits_remove (gdbarch
, tmpaddr
);
1026 else if (bfd_section
->flags
& SEC_ALLOC
1027 && bfd_section
->flags
& SEC_LOAD
)
1030 cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXT
1031 ? mst_data
: mst_file_data
;
1033 else if (bfd_section
->flags
& SEC_ALLOC
)
1036 cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXT
1037 ? mst_bss
: mst_file_bss
;
1040 ms_type
= mst_unknown
;
1043 msym
= record_minimal_symbol (reader
, cs
, tmpaddr
, ms_type
,
1046 gdbarch_coff_make_msymbol_special (gdbarch
,
1047 cs
->c_sclass
, msym
);
1049 if (SDB_TYPE (cs
->c_type
))
1053 sym
= process_coff_symbol
1054 (cs
, &main_aux
, objfile
);
1055 SYMBOL_VALUE (sym
) = tmpaddr
+ offset
;
1056 SYMBOL_SECTION (sym
) = sec
;
1062 if (strcmp (cs
->c_name
, ".bf") == 0)
1064 within_function
= 1;
1066 /* Value contains address of first non-init type
1068 /* main_aux.x_sym.x_misc.x_lnsz.x_lnno
1069 contains line number of '{' }. */
1070 if (cs
->c_naux
!= 1)
1071 complaint (_("`.bf' symbol %d has no aux entry"),
1073 fcn_first_line
= main_aux
.x_sym
.x_misc
.x_lnsz
.x_lnno
;
1074 fcn_first_line_addr
= cs
->c_value
;
1076 /* Might want to check that locals are 0 and
1077 context_stack_depth is zero, and complain if not. */
1080 newobj
= push_context (depth
, fcn_start_addr
);
1081 fcn_cs_saved
.c_name
= getsymname (&fcn_sym_saved
);
1083 process_coff_symbol (&fcn_cs_saved
,
1084 &fcn_aux_saved
, objfile
);
1086 else if (strcmp (cs
->c_name
, ".ef") == 0)
1088 if (!within_function
)
1089 error (_("Bad coff function information."));
1090 /* The value of .ef is the address of epilogue code;
1091 not useful for gdb. */
1092 /* { main_aux.x_sym.x_misc.x_lnsz.x_lnno
1093 contains number of lines to '}' */
1095 if (outermost_context_p ())
1096 { /* We attempted to pop an empty context stack. */
1097 complaint (_("`.ef' symbol without matching `.bf' "
1098 "symbol ignored starting at symnum %d"),
1100 within_function
= 0;
1104 struct context_stack cstk
= pop_context ();
1105 /* Stack must be empty now. */
1106 if (!outermost_context_p () || newobj
== NULL
)
1108 complaint (_("Unmatched .ef symbol(s) ignored "
1109 "starting at symnum %d"),
1111 within_function
= 0;
1114 if (cs
->c_naux
!= 1)
1116 complaint (_("`.ef' symbol %d has no aux entry"),
1118 fcn_last_line
= 0x7FFFFFFF;
1122 fcn_last_line
= main_aux
.x_sym
.x_misc
.x_lnsz
.x_lnno
;
1124 /* fcn_first_line is the line number of the opening '{'.
1125 Do not record it - because it would affect gdb's idea
1126 of the line number of the first statement of the
1127 function - except for one-line functions, for which
1128 it is also the line number of all the statements and
1129 of the closing '}', and for which we do not have any
1130 other statement-line-number. */
1131 if (fcn_last_line
== 1)
1132 record_line (get_current_subfile (), fcn_first_line
,
1133 gdbarch_addr_bits_remove (gdbarch
,
1134 fcn_first_line_addr
));
1136 enter_linenos (fcn_line_ptr
, fcn_first_line
,
1137 fcn_last_line
, objfile
);
1139 finish_block (cstk
.name
, cstk
.old_blocks
,
1140 NULL
, cstk
.start_addr
,
1141 fcn_cs_saved
.c_value
1142 + fcn_aux_saved
.x_sym
.x_misc
.x_fsize
1143 + ANOFFSET (objfile
->section_offsets
,
1144 SECT_OFF_TEXT (objfile
)));
1145 within_function
= 0;
1150 if (strcmp (cs
->c_name
, ".bb") == 0)
1152 tmpaddr
= cs
->c_value
;
1153 tmpaddr
+= ANOFFSET (objfile
->section_offsets
,
1154 SECT_OFF_TEXT (objfile
));
1155 push_context (++depth
, tmpaddr
);
1157 else if (strcmp (cs
->c_name
, ".eb") == 0)
1159 if (outermost_context_p ())
1160 { /* We attempted to pop an empty context stack. */
1161 complaint (_("`.eb' symbol without matching `.bb' "
1162 "symbol ignored starting at symnum %d"),
1167 struct context_stack cstk
= pop_context ();
1168 if (depth
-- != cstk
.depth
)
1170 complaint (_("Mismatched .eb symbol ignored "
1171 "starting at symnum %d"),
1175 if (*get_local_symbols () && !outermost_context_p ())
1178 cs
->c_value
+ ANOFFSET (objfile
->section_offsets
,
1179 SECT_OFF_TEXT (objfile
));
1180 /* Make a block for the local symbols within. */
1181 finish_block (0, cstk
.old_blocks
, NULL
,
1182 cstk
.start_addr
, tmpaddr
);
1184 /* Now pop locals of block just finished. */
1185 *get_local_symbols () = cstk
.locals
;
1190 process_coff_symbol (cs
, &main_aux
, objfile
);
1195 if ((nsyms
== 0) && (pe_file
))
1197 /* We've got no debugging symbols, but it's a portable
1198 executable, so try to read the export table. */
1199 read_pe_exported_syms (reader
, objfile
);
1202 if (get_last_source_file ())
1203 coff_end_symtab (objfile
);
1205 /* Patch up any opaque types (references to types that are not defined
1206 in the file where they are referenced, e.g. "struct foo *bar"). */
1208 struct compunit_symtab
*cu
;
1211 ALL_OBJFILE_FILETABS (objfile
, cu
, s
)
1212 patch_opaque_types (s
);
1215 coffread_objfile
= NULL
;
1218 /* Routines for reading headers and symbols from executable. */
1220 /* Read the next symbol, swap it, and return it in both
1221 internal_syment form, and coff_symbol form. Also return its first
1222 auxent, if any, in internal_auxent form, and skip any other
1226 read_one_sym (struct coff_symbol
*cs
,
1227 struct internal_syment
*sym
,
1228 union internal_auxent
*aux
)
1231 bfd_size_type bytes
;
1233 cs
->c_symnum
= symnum
;
1234 bytes
= bfd_bread (temp_sym
, local_symesz
, nlist_bfd_global
);
1235 if (bytes
!= local_symesz
)
1236 error (_("%s: error reading symbols"), objfile_name (coffread_objfile
));
1237 bfd_coff_swap_sym_in (symfile_bfd
, temp_sym
, (char *) sym
);
1238 cs
->c_naux
= sym
->n_numaux
& 0xff;
1239 if (cs
->c_naux
>= 1)
1241 bytes
= bfd_bread (temp_aux
, local_auxesz
, nlist_bfd_global
);
1242 if (bytes
!= local_auxesz
)
1243 error (_("%s: error reading symbols"), objfile_name (coffread_objfile
));
1244 bfd_coff_swap_aux_in (symfile_bfd
, temp_aux
,
1245 sym
->n_type
, sym
->n_sclass
,
1246 0, cs
->c_naux
, (char *) aux
);
1247 /* If more than one aux entry, read past it (only the first aux
1249 for (i
= 1; i
< cs
->c_naux
; i
++)
1251 bytes
= bfd_bread (temp_aux
, local_auxesz
, nlist_bfd_global
);
1252 if (bytes
!= local_auxesz
)
1253 error (_("%s: error reading symbols"),
1254 objfile_name (coffread_objfile
));
1257 cs
->c_name
= getsymname (sym
);
1258 cs
->c_value
= sym
->n_value
;
1259 cs
->c_sclass
= (sym
->n_sclass
& 0xff);
1260 cs
->c_secnum
= sym
->n_scnum
;
1261 cs
->c_type
= (unsigned) sym
->n_type
;
1262 if (!SDB_TYPE (cs
->c_type
))
1266 if (cs
->c_sclass
& 128)
1267 printf (_("thumb symbol %s, class 0x%x\n"), cs
->c_name
, cs
->c_sclass
);
1270 symnum
+= 1 + cs
->c_naux
;
1272 /* The PE file format stores symbol values as offsets within the
1273 section, rather than as absolute addresses. We correct that
1274 here, if the symbol has an appropriate storage class. FIXME: We
1275 should use BFD to read the symbols, rather than duplicating the
1279 switch (cs
->c_sclass
)
1283 case C_THUMBEXTFUNC
:
1288 case C_THUMBSTATFUNC
:
1294 if (cs
->c_secnum
!= 0)
1295 cs
->c_value
+= cs_section_address (cs
, symfile_bfd
);
1301 /* Support for string table handling. */
1303 static char *stringtab
= NULL
;
1306 init_stringtab (bfd
*abfd
, long offset
)
1310 unsigned char lengthbuf
[4];
1314 /* If the file is stripped, the offset might be zero, indicating no
1315 string table. Just return with `stringtab' set to null. */
1319 if (bfd_seek (abfd
, offset
, 0) < 0)
1322 val
= bfd_bread ((char *) lengthbuf
, sizeof lengthbuf
, abfd
);
1323 length
= bfd_h_get_32 (symfile_bfd
, lengthbuf
);
1325 /* If no string table is needed, then the file may end immediately
1326 after the symbols. Just return with `stringtab' set to null. */
1327 if (val
!= sizeof lengthbuf
|| length
< sizeof lengthbuf
)
1330 stringtab
= (char *) xmalloc (length
);
1331 /* This is in target format (probably not very useful, and not
1332 currently used), not host format. */
1333 memcpy (stringtab
, lengthbuf
, sizeof lengthbuf
);
1334 if (length
== sizeof length
) /* Empty table -- just the count. */
1337 val
= bfd_bread (stringtab
+ sizeof lengthbuf
,
1338 length
- sizeof lengthbuf
, abfd
);
1339 if (val
!= length
- sizeof lengthbuf
|| stringtab
[length
- 1] != '\0')
1346 free_stringtab (void)
1354 free_stringtab_cleanup (void *ignore
)
1360 getsymname (struct internal_syment
*symbol_entry
)
1362 static char buffer
[SYMNMLEN
+ 1];
1365 if (symbol_entry
->_n
._n_n
._n_zeroes
== 0)
1367 /* FIXME: Probably should be detecting corrupt symbol files by
1368 seeing whether offset points to within the stringtab. */
1369 result
= stringtab
+ symbol_entry
->_n
._n_n
._n_offset
;
1373 strncpy (buffer
, symbol_entry
->_n
._n_name
, SYMNMLEN
);
1374 buffer
[SYMNMLEN
] = '\0';
1380 /* Extract the file name from the aux entry of a C_FILE symbol.
1381 Return only the last component of the name. Result is in static
1382 storage and is only good for temporary use. */
1385 coff_getfilename (union internal_auxent
*aux_entry
)
1387 static char buffer
[BUFSIZ
];
1390 if (aux_entry
->x_file
.x_n
.x_zeroes
== 0)
1392 if (strlen (stringtab
+ aux_entry
->x_file
.x_n
.x_offset
) >= BUFSIZ
)
1393 internal_error (__FILE__
, __LINE__
, _("coff file name too long"));
1394 strcpy (buffer
, stringtab
+ aux_entry
->x_file
.x_n
.x_offset
);
1398 strncpy (buffer
, aux_entry
->x_file
.x_fname
, FILNMLEN
);
1399 buffer
[FILNMLEN
] = '\0';
1403 /* FIXME: We should not be throwing away the information about what
1404 directory. It should go into dirname of the symtab, or some such
1406 result
= lbasename (result
);
1410 /* Support for line number handling. */
1412 static char *linetab
= NULL
;
1413 static long linetab_offset
;
1414 static unsigned long linetab_size
;
1416 /* Read in all the line numbers for fast lookups later. Leave them in
1417 external (unswapped) format in memory; we'll swap them as we enter
1418 them into GDB's data structures. */
1421 init_lineno (bfd
*abfd
, long offset
, int size
)
1425 linetab_offset
= offset
;
1426 linetab_size
= size
;
1433 if (bfd_seek (abfd
, offset
, 0) < 0)
1436 /* Allocate the desired table, plus a sentinel. */
1437 linetab
= (char *) xmalloc (size
+ local_linesz
);
1439 val
= bfd_bread (linetab
, size
, abfd
);
1443 /* Terminate it with an all-zero sentinel record. */
1444 memset (linetab
+ size
, 0, local_linesz
);
1458 free_linetab_cleanup (void *ignore
)
1463 #if !defined (L_LNNO32)
1464 #define L_LNNO32(lp) ((lp)->l_lnno)
1468 enter_linenos (long file_offset
, int first_line
,
1469 int last_line
, struct objfile
*objfile
)
1471 struct gdbarch
*gdbarch
= get_objfile_arch (objfile
);
1473 struct internal_lineno lptr
;
1477 if (file_offset
< linetab_offset
)
1479 complaint (_("Line number pointer %ld lower than start of line numbers"),
1481 if (file_offset
> linetab_size
) /* Too big to be an offset? */
1483 file_offset
+= linetab_offset
; /* Try reading at that linetab
1487 rawptr
= &linetab
[file_offset
- linetab_offset
];
1489 /* Skip first line entry for each function. */
1490 rawptr
+= local_linesz
;
1491 /* Line numbers start at one for the first line of the function. */
1494 /* If the line number table is full (e.g. 64K lines in COFF debug
1495 info), the next function's L_LNNO32 might not be zero, so don't
1496 overstep the table's end in any case. */
1497 while (rawptr
<= &linetab
[0] + linetab_size
)
1499 bfd_coff_swap_lineno_in (symfile_bfd
, rawptr
, &lptr
);
1500 rawptr
+= local_linesz
;
1501 /* The next function, or the sentinel, will have L_LNNO32 zero;
1503 if (L_LNNO32 (&lptr
) && L_LNNO32 (&lptr
) <= last_line
)
1505 CORE_ADDR addr
= lptr
.l_addr
.l_paddr
;
1506 addr
+= ANOFFSET (objfile
->section_offsets
,
1507 SECT_OFF_TEXT (objfile
));
1508 record_line (get_current_subfile (),
1509 first_line
+ L_LNNO32 (&lptr
),
1510 gdbarch_addr_bits_remove (gdbarch
, addr
));
1518 patch_type (struct type
*type
, struct type
*real_type
)
1520 struct type
*target
= TYPE_TARGET_TYPE (type
);
1521 struct type
*real_target
= TYPE_TARGET_TYPE (real_type
);
1522 int field_size
= TYPE_NFIELDS (real_target
) * sizeof (struct field
);
1524 TYPE_LENGTH (target
) = TYPE_LENGTH (real_target
);
1525 TYPE_NFIELDS (target
) = TYPE_NFIELDS (real_target
);
1526 TYPE_FIELDS (target
) = (struct field
*) TYPE_ALLOC (target
,
1529 memcpy (TYPE_FIELDS (target
),
1530 TYPE_FIELDS (real_target
),
1533 if (TYPE_NAME (real_target
))
1535 /* The previous copy of TYPE_NAME is allocated by
1536 process_coff_symbol. */
1537 if (TYPE_NAME (target
))
1538 xfree ((char*) TYPE_NAME (target
));
1539 TYPE_NAME (target
) = xstrdup (TYPE_NAME (real_target
));
1543 /* Patch up all appropriate typedef symbols in the opaque_type_chains
1544 so that they can be used to print out opaque data structures
1548 patch_opaque_types (struct symtab
*s
)
1551 struct block_iterator iter
;
1552 struct symbol
*real_sym
;
1554 /* Go through the per-file symbols only. */
1555 b
= BLOCKVECTOR_BLOCK (SYMTAB_BLOCKVECTOR (s
), STATIC_BLOCK
);
1556 ALL_BLOCK_SYMBOLS (b
, iter
, real_sym
)
1558 /* Find completed typedefs to use to fix opaque ones.
1559 Remove syms from the chain when their types are stored,
1560 but search the whole chain, as there may be several syms
1561 from different files with the same name. */
1562 if (SYMBOL_CLASS (real_sym
) == LOC_TYPEDEF
1563 && SYMBOL_DOMAIN (real_sym
) == VAR_DOMAIN
1564 && TYPE_CODE (SYMBOL_TYPE (real_sym
)) == TYPE_CODE_PTR
1565 && TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (real_sym
))) != 0)
1567 const char *name
= SYMBOL_LINKAGE_NAME (real_sym
);
1568 int hash
= hashname (name
);
1569 struct symbol
*sym
, *prev
;
1572 for (sym
= opaque_type_chain
[hash
]; sym
;)
1574 if (name
[0] == SYMBOL_LINKAGE_NAME (sym
)[0]
1575 && strcmp (name
+ 1, SYMBOL_LINKAGE_NAME (sym
) + 1) == 0)
1579 SYMBOL_VALUE_CHAIN (prev
) = SYMBOL_VALUE_CHAIN (sym
);
1583 opaque_type_chain
[hash
] = SYMBOL_VALUE_CHAIN (sym
);
1586 patch_type (SYMBOL_TYPE (sym
), SYMBOL_TYPE (real_sym
));
1590 sym
= SYMBOL_VALUE_CHAIN (prev
);
1594 sym
= opaque_type_chain
[hash
];
1600 sym
= SYMBOL_VALUE_CHAIN (sym
);
1608 coff_reg_to_regnum (struct symbol
*sym
, struct gdbarch
*gdbarch
)
1610 return gdbarch_sdb_reg_to_regnum (gdbarch
, SYMBOL_VALUE (sym
));
1613 static const struct symbol_register_ops coff_register_funcs
= {
1617 /* The "aclass" index for computed COFF symbols. */
1619 static int coff_register_index
;
1621 static struct symbol
*
1622 process_coff_symbol (struct coff_symbol
*cs
,
1623 union internal_auxent
*aux
,
1624 struct objfile
*objfile
)
1626 struct symbol
*sym
= allocate_symbol (objfile
);
1630 name
= EXTERNAL_NAME (name
, objfile
->obfd
);
1631 SYMBOL_SET_LANGUAGE (sym
, get_current_subfile ()->language
,
1632 &objfile
->objfile_obstack
);
1633 SYMBOL_SET_NAMES (sym
, name
, strlen (name
), 1, objfile
);
1635 /* default assumptions */
1636 SYMBOL_VALUE (sym
) = cs
->c_value
;
1637 SYMBOL_DOMAIN (sym
) = VAR_DOMAIN
;
1638 SYMBOL_SECTION (sym
) = cs_to_section (cs
, objfile
);
1640 if (ISFCN (cs
->c_type
))
1642 SYMBOL_VALUE (sym
) += ANOFFSET (objfile
->section_offsets
,
1643 SECT_OFF_TEXT (objfile
));
1645 lookup_function_type (decode_function_type (cs
, cs
->c_type
,
1648 SYMBOL_ACLASS_INDEX (sym
) = LOC_BLOCK
;
1649 if (cs
->c_sclass
== C_STAT
|| cs
->c_sclass
== C_THUMBSTAT
1650 || cs
->c_sclass
== C_THUMBSTATFUNC
)
1651 add_symbol_to_list (sym
, get_file_symbols ());
1652 else if (cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXT
1653 || cs
->c_sclass
== C_THUMBEXTFUNC
)
1654 add_symbol_to_list (sym
, get_global_symbols ());
1658 SYMBOL_TYPE (sym
) = decode_type (cs
, cs
->c_type
, aux
, objfile
);
1659 switch (cs
->c_sclass
)
1665 SYMBOL_ACLASS_INDEX (sym
) = LOC_LOCAL
;
1666 add_symbol_to_list (sym
, get_local_symbols ());
1670 case C_THUMBEXTFUNC
:
1672 SYMBOL_ACLASS_INDEX (sym
) = LOC_STATIC
;
1673 SYMBOL_VALUE_ADDRESS (sym
) = (CORE_ADDR
) cs
->c_value
;
1674 SYMBOL_VALUE_ADDRESS (sym
) += ANOFFSET (objfile
->section_offsets
,
1675 SECT_OFF_TEXT (objfile
));
1676 add_symbol_to_list (sym
, get_global_symbols ());
1680 case C_THUMBSTATFUNC
:
1682 SYMBOL_ACLASS_INDEX (sym
) = LOC_STATIC
;
1683 SYMBOL_VALUE_ADDRESS (sym
) = (CORE_ADDR
) cs
->c_value
;
1684 SYMBOL_VALUE_ADDRESS (sym
) += ANOFFSET (objfile
->section_offsets
,
1685 SECT_OFF_TEXT (objfile
));
1686 if (within_function
)
1688 /* Static symbol of local scope. */
1689 add_symbol_to_list (sym
, get_local_symbols ());
1693 /* Static symbol at top level of file. */
1694 add_symbol_to_list (sym
, get_file_symbols ());
1698 #ifdef C_GLBLREG /* AMD coff */
1702 SYMBOL_ACLASS_INDEX (sym
) = coff_register_index
;
1703 SYMBOL_VALUE (sym
) = cs
->c_value
;
1704 add_symbol_to_list (sym
, get_local_symbols ());
1712 SYMBOL_ACLASS_INDEX (sym
) = LOC_ARG
;
1713 SYMBOL_IS_ARGUMENT (sym
) = 1;
1714 add_symbol_to_list (sym
, get_local_symbols ());
1718 SYMBOL_ACLASS_INDEX (sym
) = coff_register_index
;
1719 SYMBOL_IS_ARGUMENT (sym
) = 1;
1720 SYMBOL_VALUE (sym
) = cs
->c_value
;
1721 add_symbol_to_list (sym
, get_local_symbols ());
1725 SYMBOL_ACLASS_INDEX (sym
) = LOC_TYPEDEF
;
1726 SYMBOL_DOMAIN (sym
) = VAR_DOMAIN
;
1728 /* If type has no name, give it one. */
1729 if (TYPE_NAME (SYMBOL_TYPE (sym
)) == 0)
1731 if (TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_PTR
1732 || TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_FUNC
)
1734 /* If we are giving a name to a type such as
1735 "pointer to foo" or "function returning foo", we
1736 better not set the TYPE_NAME. If the program
1737 contains "typedef char *caddr_t;", we don't want
1738 all variables of type char * to print as caddr_t.
1739 This is not just a consequence of GDB's type
1740 management; CC and GCC (at least through version
1741 2.4) both output variables of either type char *
1742 or caddr_t with the type refering to the C_TPDEF
1743 symbol for caddr_t. If a future compiler cleans
1744 this up it GDB is not ready for it yet, but if it
1745 becomes ready we somehow need to disable this
1746 check (without breaking the PCC/GCC2.4 case).
1750 Fortunately, this check seems not to be necessary
1751 for anything except pointers or functions. */
1755 TYPE_NAME (SYMBOL_TYPE (sym
)) =
1756 xstrdup (SYMBOL_LINKAGE_NAME (sym
));
1759 /* Keep track of any type which points to empty structured
1760 type, so it can be filled from a definition from another
1761 file. A simple forward reference (TYPE_CODE_UNDEF) is
1762 not an empty structured type, though; the forward
1763 references work themselves out via the magic of
1764 coff_lookup_type. */
1765 if (TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_PTR
1766 && TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym
))) == 0
1767 && TYPE_CODE (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym
)))
1770 int i
= hashname (SYMBOL_LINKAGE_NAME (sym
));
1772 SYMBOL_VALUE_CHAIN (sym
) = opaque_type_chain
[i
];
1773 opaque_type_chain
[i
] = sym
;
1775 add_symbol_to_list (sym
, get_file_symbols ());
1781 SYMBOL_ACLASS_INDEX (sym
) = LOC_TYPEDEF
;
1782 SYMBOL_DOMAIN (sym
) = STRUCT_DOMAIN
;
1784 /* Some compilers try to be helpful by inventing "fake"
1785 names for anonymous enums, structures, and unions, like
1786 "~0fake" or ".0fake". Thanks, but no thanks... */
1787 if (TYPE_NAME (SYMBOL_TYPE (sym
)) == 0)
1788 if (SYMBOL_LINKAGE_NAME (sym
) != NULL
1789 && *SYMBOL_LINKAGE_NAME (sym
) != '~'
1790 && *SYMBOL_LINKAGE_NAME (sym
) != '.')
1791 TYPE_NAME (SYMBOL_TYPE (sym
)) =
1792 concat (SYMBOL_LINKAGE_NAME (sym
), (char *)NULL
);
1794 add_symbol_to_list (sym
, get_file_symbols ());
1804 /* Decode a coff type specifier; return the type that is meant. */
1806 static struct type
*
1807 decode_type (struct coff_symbol
*cs
, unsigned int c_type
,
1808 union internal_auxent
*aux
, struct objfile
*objfile
)
1810 struct type
*type
= 0;
1811 unsigned int new_c_type
;
1813 if (c_type
& ~N_BTMASK
)
1815 new_c_type
= DECREF (c_type
);
1818 type
= decode_type (cs
, new_c_type
, aux
, objfile
);
1819 type
= lookup_pointer_type (type
);
1821 else if (ISFCN (c_type
))
1823 type
= decode_type (cs
, new_c_type
, aux
, objfile
);
1824 type
= lookup_function_type (type
);
1826 else if (ISARY (c_type
))
1829 unsigned short *dim
;
1830 struct type
*base_type
, *index_type
, *range_type
;
1832 /* Define an array type. */
1833 /* auxent refers to array, not base type. */
1834 if (aux
->x_sym
.x_tagndx
.l
== 0)
1837 /* Shift the indices down. */
1838 dim
= &aux
->x_sym
.x_fcnary
.x_ary
.x_dimen
[0];
1841 for (i
= 0; *dim
&& i
< DIMNUM
- 1; i
++, dim
++)
1845 base_type
= decode_type (cs
, new_c_type
, aux
, objfile
);
1846 index_type
= objfile_type (objfile
)->builtin_int
;
1848 = create_static_range_type ((struct type
*) NULL
,
1849 index_type
, 0, n
- 1);
1851 create_array_type ((struct type
*) NULL
,
1852 base_type
, range_type
);
1857 /* Reference to existing type. This only occurs with the struct,
1858 union, and enum types. EPI a29k coff fakes us out by producing
1859 aux entries with a nonzero x_tagndx for definitions of structs,
1860 unions, and enums, so we have to check the c_sclass field. SCO
1861 3.2v4 cc gets confused with pointers to pointers to defined
1862 structs, and generates negative x_tagndx fields. */
1863 if (cs
->c_naux
> 0 && aux
->x_sym
.x_tagndx
.l
!= 0)
1865 if (cs
->c_sclass
!= C_STRTAG
1866 && cs
->c_sclass
!= C_UNTAG
1867 && cs
->c_sclass
!= C_ENTAG
1868 && aux
->x_sym
.x_tagndx
.l
>= 0)
1870 type
= coff_alloc_type (aux
->x_sym
.x_tagndx
.l
);
1875 complaint (_("Symbol table entry for %s has bad tagndx value"),
1877 /* And fall through to decode_base_type... */
1881 return decode_base_type (cs
, BTYPE (c_type
), aux
, objfile
);
1884 /* Decode a coff type specifier for function definition;
1885 return the type that the function returns. */
1887 static struct type
*
1888 decode_function_type (struct coff_symbol
*cs
,
1889 unsigned int c_type
,
1890 union internal_auxent
*aux
,
1891 struct objfile
*objfile
)
1893 if (aux
->x_sym
.x_tagndx
.l
== 0)
1894 cs
->c_naux
= 0; /* auxent refers to function, not base
1897 return decode_type (cs
, DECREF (c_type
), aux
, objfile
);
1900 /* Basic C types. */
1902 static struct type
*
1903 decode_base_type (struct coff_symbol
*cs
,
1904 unsigned int c_type
,
1905 union internal_auxent
*aux
,
1906 struct objfile
*objfile
)
1908 struct gdbarch
*gdbarch
= get_objfile_arch (objfile
);
1914 /* Shows up with "void (*foo)();" structure members. */
1915 return objfile_type (objfile
)->builtin_void
;
1919 /* Intel 960 COFF has this symbol and meaning. */
1920 return objfile_type (objfile
)->builtin_void
;
1924 return objfile_type (objfile
)->builtin_char
;
1927 return objfile_type (objfile
)->builtin_short
;
1930 return objfile_type (objfile
)->builtin_int
;
1933 if (cs
->c_sclass
== C_FIELD
1934 && aux
->x_sym
.x_misc
.x_lnsz
.x_size
1935 > gdbarch_long_bit (gdbarch
))
1936 return objfile_type (objfile
)->builtin_long_long
;
1938 return objfile_type (objfile
)->builtin_long
;
1941 return objfile_type (objfile
)->builtin_float
;
1944 return objfile_type (objfile
)->builtin_double
;
1947 return objfile_type (objfile
)->builtin_long_double
;
1950 if (cs
->c_naux
!= 1)
1952 /* Anonymous structure type. */
1953 type
= coff_alloc_type (cs
->c_symnum
);
1954 TYPE_CODE (type
) = TYPE_CODE_STRUCT
;
1955 TYPE_NAME (type
) = NULL
;
1956 INIT_CPLUS_SPECIFIC (type
);
1957 TYPE_LENGTH (type
) = 0;
1958 TYPE_FIELDS (type
) = 0;
1959 TYPE_NFIELDS (type
) = 0;
1963 type
= coff_read_struct_type (cs
->c_symnum
,
1964 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1965 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
,
1971 if (cs
->c_naux
!= 1)
1973 /* Anonymous union type. */
1974 type
= coff_alloc_type (cs
->c_symnum
);
1975 TYPE_NAME (type
) = NULL
;
1976 INIT_CPLUS_SPECIFIC (type
);
1977 TYPE_LENGTH (type
) = 0;
1978 TYPE_FIELDS (type
) = 0;
1979 TYPE_NFIELDS (type
) = 0;
1983 type
= coff_read_struct_type (cs
->c_symnum
,
1984 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1985 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
,
1988 TYPE_CODE (type
) = TYPE_CODE_UNION
;
1992 if (cs
->c_naux
!= 1)
1994 /* Anonymous enum type. */
1995 type
= coff_alloc_type (cs
->c_symnum
);
1996 TYPE_CODE (type
) = TYPE_CODE_ENUM
;
1997 TYPE_NAME (type
) = NULL
;
1998 TYPE_LENGTH (type
) = 0;
1999 TYPE_FIELDS (type
) = 0;
2000 TYPE_NFIELDS (type
) = 0;
2004 type
= coff_read_enum_type (cs
->c_symnum
,
2005 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
2006 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
,
2012 /* Shouldn't show up here. */
2016 return objfile_type (objfile
)->builtin_unsigned_char
;
2019 return objfile_type (objfile
)->builtin_unsigned_short
;
2022 return objfile_type (objfile
)->builtin_unsigned_int
;
2025 if (cs
->c_sclass
== C_FIELD
2026 && aux
->x_sym
.x_misc
.x_lnsz
.x_size
2027 > gdbarch_long_bit (gdbarch
))
2028 return objfile_type (objfile
)->builtin_unsigned_long_long
;
2030 return objfile_type (objfile
)->builtin_unsigned_long
;
2032 complaint (_("Unexpected type for symbol %s"), cs
->c_name
);
2033 return objfile_type (objfile
)->builtin_void
;
2036 /* This page contains subroutines of read_type. */
2038 /* Read the description of a structure (or union type) and return an
2039 object describing the type. */
2041 static struct type
*
2042 coff_read_struct_type (int index
, int length
, int lastsym
,
2043 struct objfile
*objfile
)
2047 struct nextfield
*next
;
2052 struct nextfield
*list
= 0;
2053 struct nextfield
*newobj
;
2057 struct coff_symbol member_sym
;
2058 struct coff_symbol
*ms
= &member_sym
;
2059 struct internal_syment sub_sym
;
2060 union internal_auxent sub_aux
;
2063 type
= coff_alloc_type (index
);
2064 TYPE_CODE (type
) = TYPE_CODE_STRUCT
;
2065 INIT_CPLUS_SPECIFIC (type
);
2066 TYPE_LENGTH (type
) = length
;
2068 while (!done
&& symnum
< lastsym
&& symnum
< nlist_nsyms_global
)
2070 read_one_sym (ms
, &sub_sym
, &sub_aux
);
2072 name
= EXTERNAL_NAME (name
, objfile
->obfd
);
2074 switch (ms
->c_sclass
)
2079 /* Get space to record the next field's data. */
2080 newobj
= XALLOCA (struct nextfield
);
2081 newobj
->next
= list
;
2084 /* Save the data. */
2086 = (const char *) obstack_copy0 (&objfile
->objfile_obstack
,
2087 name
, strlen (name
));
2088 FIELD_TYPE (list
->field
) = decode_type (ms
, ms
->c_type
,
2090 SET_FIELD_BITPOS (list
->field
, 8 * ms
->c_value
);
2091 FIELD_BITSIZE (list
->field
) = 0;
2097 /* Get space to record the next field's data. */
2098 newobj
= XALLOCA (struct nextfield
);
2099 newobj
->next
= list
;
2102 /* Save the data. */
2104 = (const char *) obstack_copy0 (&objfile
->objfile_obstack
,
2105 name
, strlen (name
));
2106 FIELD_TYPE (list
->field
) = decode_type (ms
, ms
->c_type
,
2108 SET_FIELD_BITPOS (list
->field
, ms
->c_value
);
2109 FIELD_BITSIZE (list
->field
) = sub_aux
.x_sym
.x_misc
.x_lnsz
.x_size
;
2118 /* Now create the vector of fields, and record how big it is. */
2120 TYPE_NFIELDS (type
) = nfields
;
2121 TYPE_FIELDS (type
) = (struct field
*)
2122 TYPE_ALLOC (type
, sizeof (struct field
) * nfields
);
2124 /* Copy the saved-up fields into the field vector. */
2126 for (n
= nfields
; list
; list
= list
->next
)
2127 TYPE_FIELD (type
, --n
) = list
->field
;
2132 /* Read a definition of an enumeration type,
2133 and create and return a suitable type object.
2134 Also defines the symbols that represent the values of the type. */
2136 static struct type
*
2137 coff_read_enum_type (int index
, int length
, int lastsym
,
2138 struct objfile
*objfile
)
2140 struct gdbarch
*gdbarch
= get_objfile_arch (objfile
);
2145 struct pending
**symlist
;
2146 struct coff_symbol member_sym
;
2147 struct coff_symbol
*ms
= &member_sym
;
2148 struct internal_syment sub_sym
;
2149 union internal_auxent sub_aux
;
2150 struct pending
*osyms
, *syms
;
2154 int unsigned_enum
= 1;
2156 type
= coff_alloc_type (index
);
2157 if (within_function
)
2158 symlist
= get_local_symbols ();
2160 symlist
= get_file_symbols ();
2162 o_nsyms
= osyms
? osyms
->nsyms
: 0;
2164 while (!done
&& symnum
< lastsym
&& symnum
< nlist_nsyms_global
)
2166 read_one_sym (ms
, &sub_sym
, &sub_aux
);
2168 name
= EXTERNAL_NAME (name
, objfile
->obfd
);
2170 switch (ms
->c_sclass
)
2173 sym
= allocate_symbol (objfile
);
2175 name
= (char *) obstack_copy0 (&objfile
->objfile_obstack
, name
,
2177 SYMBOL_SET_LINKAGE_NAME (sym
, name
);
2178 SYMBOL_ACLASS_INDEX (sym
) = LOC_CONST
;
2179 SYMBOL_DOMAIN (sym
) = VAR_DOMAIN
;
2180 SYMBOL_VALUE (sym
) = ms
->c_value
;
2181 add_symbol_to_list (sym
, symlist
);
2186 /* Sometimes the linker (on 386/ix 2.0.2 at least) screws
2187 up the count of how many symbols to read. So stop
2194 /* Now fill in the fields of the type-structure. */
2197 TYPE_LENGTH (type
) = length
;
2198 else /* Assume ints. */
2199 TYPE_LENGTH (type
) = gdbarch_int_bit (gdbarch
) / TARGET_CHAR_BIT
;
2200 TYPE_CODE (type
) = TYPE_CODE_ENUM
;
2201 TYPE_NFIELDS (type
) = nsyms
;
2202 TYPE_FIELDS (type
) = (struct field
*)
2203 TYPE_ALLOC (type
, sizeof (struct field
) * nsyms
);
2205 /* Find the symbols for the values and put them into the type.
2206 The symbols can be found in the symlist that we put them on
2207 to cause them to be defined. osyms contains the old value
2208 of that symlist; everything up to there was defined by us. */
2209 /* Note that we preserve the order of the enum constants, so
2210 that in something like "enum {FOO, LAST_THING=FOO}" we print
2211 FOO, not LAST_THING. */
2213 for (syms
= *symlist
, n
= 0; syms
; syms
= syms
->next
)
2219 for (; j
< syms
->nsyms
; j
++, n
++)
2221 struct symbol
*xsym
= syms
->symbol
[j
];
2223 SYMBOL_TYPE (xsym
) = type
;
2224 TYPE_FIELD_NAME (type
, n
) = SYMBOL_LINKAGE_NAME (xsym
);
2225 SET_FIELD_ENUMVAL (TYPE_FIELD (type
, n
), SYMBOL_VALUE (xsym
));
2226 if (SYMBOL_VALUE (xsym
) < 0)
2228 TYPE_FIELD_BITSIZE (type
, n
) = 0;
2235 TYPE_UNSIGNED (type
) = 1;
2240 /* Register our ability to parse symbols for coff BFD files. */
2242 static const struct sym_fns coff_sym_fns
=
2244 coff_new_init
, /* sym_new_init: init anything gbl to
2246 coff_symfile_init
, /* sym_init: read initial info, setup
2248 coff_symfile_read
, /* sym_read: read a symbol file into
2250 NULL
, /* sym_read_psymbols */
2251 coff_symfile_finish
, /* sym_finish: finished with file,
2253 default_symfile_offsets
, /* sym_offsets: xlate external to
2255 default_symfile_segments
, /* sym_segments: Get segment
2256 information from a file */
2257 NULL
, /* sym_read_linetable */
2259 default_symfile_relocate
, /* sym_relocate: Relocate a debug
2261 NULL
, /* sym_probe_fns */
2265 /* Free the per-objfile COFF data. */
2268 coff_free_info (struct objfile
*objfile
, void *arg
)
2274 _initialize_coffread (void)
2276 add_symtab_fns (bfd_target_coff_flavour
, &coff_sym_fns
);
2278 coff_objfile_data_key
= register_objfile_data_with_cleanup (NULL
,
2282 = register_symbol_register_impl (LOC_REGISTER
, &coff_register_funcs
);