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
= ((struct stab_section_list
*)
257 xmalloc (sizeof (struct stab_section_list
)));
260 for (pn
= &csi
->stabsects
; *pn
!= NULL
; pn
= &(*pn
)->next
)
264 /* This will be run after coffstab_build_psymtabs is called
265 in coff_symfile_read, at which point we no longer need
267 make_cleanup (xfree
, n
);
272 /* Return the section_offsets* that CS points to. */
273 static int cs_to_section (struct coff_symbol
*, struct objfile
*);
275 struct find_targ_sec_arg
282 find_targ_sec (bfd
*abfd
, asection
*sect
, void *obj
)
284 struct find_targ_sec_arg
*args
= (struct find_targ_sec_arg
*) obj
;
286 if (sect
->target_index
== args
->targ_index
)
287 *args
->resultp
= sect
;
290 /* Return the bfd_section that CS points to. */
291 static struct bfd_section
*
292 cs_to_bfd_section (struct coff_symbol
*cs
, struct objfile
*objfile
)
294 asection
*sect
= NULL
;
295 struct find_targ_sec_arg args
;
297 args
.targ_index
= cs
->c_secnum
;
298 args
.resultp
= §
;
299 bfd_map_over_sections (objfile
->obfd
, find_targ_sec
, &args
);
303 /* Return the section number (SECT_OFF_*) that CS points to. */
305 cs_to_section (struct coff_symbol
*cs
, struct objfile
*objfile
)
307 asection
*sect
= cs_to_bfd_section (cs
, objfile
);
310 return SECT_OFF_TEXT (objfile
);
311 return gdb_bfd_section_index (objfile
->obfd
, sect
);
314 /* Return the address of the section of a COFF symbol. */
316 static CORE_ADDR
cs_section_address (struct coff_symbol
*, bfd
*);
319 cs_section_address (struct coff_symbol
*cs
, bfd
*abfd
)
321 asection
*sect
= NULL
;
322 struct find_targ_sec_arg args
;
325 args
.targ_index
= cs
->c_secnum
;
326 args
.resultp
= §
;
327 bfd_map_over_sections (abfd
, find_targ_sec
, &args
);
329 addr
= bfd_get_section_vma (abfd
, sect
);
333 /* Look up a coff type-number index. Return the address of the slot
334 where the type for that index is stored.
335 The type-number is in INDEX.
337 This can be used for finding the type associated with that index
338 or for associating a new type with the index. */
340 static struct type
**
341 coff_lookup_type (int index
)
343 if (index
>= type_vector_length
)
345 int old_vector_length
= type_vector_length
;
347 type_vector_length
*= 2;
348 if (index
/* is still */ >= type_vector_length
)
349 type_vector_length
= index
* 2;
351 type_vector
= (struct type
**)
352 xrealloc ((char *) type_vector
,
353 type_vector_length
* sizeof (struct type
*));
354 memset (&type_vector
[old_vector_length
], 0,
355 (type_vector_length
- old_vector_length
) * sizeof (struct type
*));
357 return &type_vector
[index
];
360 /* Make sure there is a type allocated for type number index
361 and return the type object.
362 This can create an empty (zeroed) type object. */
365 coff_alloc_type (int index
)
367 struct type
**type_addr
= coff_lookup_type (index
);
368 struct type
*type
= *type_addr
;
370 /* If we are referring to a type not known at all yet,
371 allocate an empty type for it.
372 We will fill it in later if we find out how. */
375 type
= alloc_type (coffread_objfile
);
381 /* Start a new symtab for a new source file.
382 This is called when a COFF ".file" symbol is seen;
383 it indicates the start of data for one original source file. */
386 coff_start_symtab (struct objfile
*objfile
, const char *name
)
388 start_symtab (objfile
,
389 /* We fill in the filename later. start_symtab puts this pointer
390 into last_source_file and we put it in subfiles->name, which
391 end_symtab frees; that's why it must be malloc'd. */
393 /* We never know the directory name for COFF. */
395 /* The start address is irrelevant, since we set
396 last_source_start_addr in coff_end_symtab. */
398 record_debugformat ("COFF");
401 /* Save the vital information from when starting to read a file,
402 for use when closing off the current file.
403 NAME is the file name the symbols came from, START_ADDR is the
404 first text address for the file, and SIZE is the number of bytes of
408 complete_symtab (const char *name
, CORE_ADDR start_addr
, unsigned int size
)
410 set_last_source_file (name
);
411 current_source_start_addr
= start_addr
;
412 current_source_end_addr
= start_addr
+ size
;
415 /* Finish the symbol definitions for one main source file, close off
416 all the lexical contexts for that file (creating struct block's for
417 them), then make the struct symtab for that file and put it in the
421 coff_end_symtab (struct objfile
*objfile
)
423 last_source_start_addr
= current_source_start_addr
;
425 end_symtab (current_source_end_addr
, SECT_OFF_TEXT (objfile
));
427 /* Reinitialize for beginning of new file. */
428 set_last_source_file (NULL
);
431 /* The linker sometimes generates some non-function symbols inside
432 functions referencing variables imported from another DLL.
433 Return nonzero if the given symbol corresponds to one of them. */
436 is_import_fixup_symbol (struct coff_symbol
*cs
,
437 enum minimal_symbol_type type
)
439 /* The following is a bit of a heuristic using the characterictics
440 of these fixup symbols, but should work well in practice... */
443 /* Must be a non-static text symbol. */
444 if (type
!= mst_text
)
447 /* Must be a non-function symbol. */
448 if (ISFCN (cs
->c_type
))
451 /* The name must start with "__fu<digits>__". */
452 if (!startswith (cs
->c_name
, "__fu"))
454 if (! isdigit (cs
->c_name
[4]))
456 for (i
= 5; cs
->c_name
[i
] != '\0' && isdigit (cs
->c_name
[i
]); i
++)
457 /* Nothing, just incrementing index past all digits. */;
458 if (cs
->c_name
[i
] != '_' || cs
->c_name
[i
+ 1] != '_')
464 static struct minimal_symbol
*
465 record_minimal_symbol (struct coff_symbol
*cs
, CORE_ADDR address
,
466 enum minimal_symbol_type type
, int section
,
467 struct objfile
*objfile
)
469 /* We don't want TDESC entry points in the minimal symbol table. */
470 if (cs
->c_name
[0] == '@')
473 if (is_import_fixup_symbol (cs
, type
))
475 /* Because the value of these symbols is within a function code
476 range, these symbols interfere with the symbol-from-address
477 reverse lookup; this manifests itselfs in backtraces, or any
478 other commands that prints symbolic addresses. Just pretend
479 these symbols do not exist. */
483 return prim_record_minimal_symbol_and_info (cs
->c_name
, address
,
484 type
, section
, objfile
);
487 /* coff_symfile_init ()
488 is the coff-specific initialization routine for reading symbols.
489 It is passed a struct objfile which contains, among other things,
490 the BFD for the file whose symbols are being read, and a slot for
491 a pointer to "private data" which we fill with cookies and other
492 treats for coff_symfile_read ().
494 We will only be called if this is a COFF or COFF-like file. BFD
495 handles figuring out the format of the file, and code in symtab.c
496 uses BFD's determination to vector to us.
498 The ultimate result is a new symtab (or, FIXME, eventually a
502 coff_symfile_init (struct objfile
*objfile
)
504 struct dbx_symfile_info
*dbx
;
505 struct coff_symfile_info
*coff
;
507 /* Allocate struct to keep track of stab reading. */
508 dbx
= XCNEW (struct dbx_symfile_info
);
509 set_objfile_data (objfile
, dbx_objfile_data_key
, dbx
);
511 /* Allocate struct to keep track of the symfile. */
512 coff
= XCNEW (struct coff_symfile_info
);
513 set_objfile_data (objfile
, coff_objfile_data_key
, coff
);
515 /* COFF objects may be reordered, so set OBJF_REORDERED. If we
516 find this causes a significant slowdown in gdb then we could
517 set it in the debug symbol readers only when necessary. */
518 objfile
->flags
|= OBJF_REORDERED
;
521 /* This function is called for every section; it finds the outer
522 limits of the line table (minimum and maximum file offset) so that
523 the mainline code can read the whole thing for efficiency. */
526 find_linenos (bfd
*abfd
, struct bfd_section
*asect
, void *vpinfo
)
528 struct coff_symfile_info
*info
;
530 file_ptr offset
, maxoff
;
532 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
533 count
= asect
->lineno_count
;
534 /* End of warning. */
538 size
= count
* local_linesz
;
540 info
= (struct coff_symfile_info
*) vpinfo
;
541 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
542 offset
= asect
->line_filepos
;
543 /* End of warning. */
545 if (offset
< info
->min_lineno_offset
|| info
->min_lineno_offset
== 0)
546 info
->min_lineno_offset
= offset
;
548 maxoff
= offset
+ size
;
549 if (maxoff
> info
->max_lineno_offset
)
550 info
->max_lineno_offset
= maxoff
;
554 /* The BFD for this file -- only good while we're actively reading
555 symbols into a psymtab or a symtab. */
557 static bfd
*symfile_bfd
;
559 /* Read a symbol file, after initialization by coff_symfile_init. */
562 coff_symfile_read (struct objfile
*objfile
, int symfile_flags
)
564 struct coff_symfile_info
*info
;
565 struct dbx_symfile_info
*dbxinfo
;
566 bfd
*abfd
= objfile
->obfd
;
567 coff_data_type
*cdata
= coff_data (abfd
);
568 char *name
= bfd_get_filename (abfd
);
570 unsigned int num_symbols
;
572 int stringtab_offset
;
573 struct cleanup
*back_to
, *cleanup_minimal_symbols
;
576 info
= objfile_data (objfile
, coff_objfile_data_key
);
577 dbxinfo
= DBX_SYMFILE_INFO (objfile
);
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."), name
);
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"), name
);
650 init_minimal_symbol_collection ();
651 cleanup_minimal_symbols
= make_cleanup_discard_minimal_symbols ();
653 /* Now that the executable file is positioned at symbol table,
654 process it and define symbols accordingly. */
656 coff_symtab_read ((long) symtab_offset
, num_symbols
, objfile
);
658 /* Install any minimal symbols that have been collected as the
659 current minimal symbols for this objfile. */
661 install_minimal_symbols (objfile
);
665 struct minimal_symbol
*msym
;
667 ALL_OBJFILE_MSYMBOLS (objfile
, msym
)
669 const char *name
= MSYMBOL_LINKAGE_NAME (msym
);
671 /* If the minimal symbols whose name are prefixed by "__imp_"
672 or "_imp_", get rid of the prefix, and search the minimal
673 symbol in OBJFILE. Note that 'maintenance print msymbols'
674 shows that type of these "_imp_XXXX" symbols is mst_data. */
675 if (MSYMBOL_TYPE (msym
) == mst_data
)
677 const char *name1
= NULL
;
679 if (startswith (name
, "_imp_"))
681 else if (startswith (name
, "__imp_"))
685 int lead
= bfd_get_symbol_leading_char (objfile
->obfd
);
686 struct bound_minimal_symbol found
;
688 if (lead
!= '\0' && *name1
== lead
)
691 found
= lookup_minimal_symbol (name1
, NULL
, objfile
);
693 /* If found, there are symbols named "_imp_foo" and "foo"
694 respectively in OBJFILE. Set the type of symbol "foo"
695 as 'mst_solib_trampoline'. */
696 if (found
.minsym
!= NULL
697 && MSYMBOL_TYPE (found
.minsym
) == mst_text
)
698 MSYMBOL_TYPE (found
.minsym
) = mst_solib_trampoline
;
704 /* Free the installed minimal symbol data. */
705 do_cleanups (cleanup_minimal_symbols
);
707 bfd_map_over_sections (abfd
, coff_locate_sections
, (void *) info
);
711 if (!info
->stabstrsect
)
713 error (_("The debugging information in `%s' is corrupted.\nThe "
714 "file has a `.stabs' section, but no `.stabstr' section."),
718 /* FIXME: dubious. Why can't we use something normal like
719 bfd_get_section_contents? */
720 bfd_seek (abfd
, abfd
->where
, 0);
722 stabstrsize
= bfd_section_size (abfd
, info
->stabstrsect
);
724 coffstab_build_psymtabs (objfile
,
725 info
->textaddr
, info
->textsize
,
727 info
->stabstrsect
->filepos
, stabstrsize
);
729 if (dwarf2_has_info (objfile
, NULL
))
731 /* DWARF2 sections. */
732 dwarf2_build_psymtabs (objfile
);
735 dwarf2_build_frame_info (objfile
);
737 /* Try to add separate debug file if no symbols table found. */
738 if (!objfile_has_partial_symbols (objfile
))
742 debugfile
= find_separate_debug_file_by_buildid (objfile
);
744 if (debugfile
== NULL
)
745 debugfile
= find_separate_debug_file_by_debuglink (objfile
);
746 make_cleanup (xfree
, debugfile
);
750 bfd
*abfd
= symfile_bfd_open (debugfile
);
752 make_cleanup_bfd_unref (abfd
);
753 symbol_file_add_separate (abfd
, debugfile
, symfile_flags
, objfile
);
757 do_cleanups (back_to
);
761 coff_new_init (struct objfile
*ignore
)
765 /* Perform any local cleanups required when we are done with a
766 particular objfile. I.E, we are in the process of discarding all
767 symbol information for an objfile, freeing up all memory held for
768 it, and unlinking the objfile struct from the global list of known
772 coff_symfile_finish (struct objfile
*objfile
)
774 /* Let stabs reader clean up. */
775 stabsread_clear_cache ();
777 dwarf2_free_objfile (objfile
);
781 /* Given pointers to a symbol table in coff style exec file,
782 analyze them and create struct symtab's describing the symbols.
783 NSYMS is the number of symbols in the symbol table.
784 We read them one at a time using read_one_sym (). */
787 coff_symtab_read (long symtab_offset
, unsigned int nsyms
,
788 struct objfile
*objfile
)
790 struct gdbarch
*gdbarch
= get_objfile_arch (objfile
);
791 struct context_stack
*newobj
;
792 struct coff_symbol coff_symbol
;
793 struct coff_symbol
*cs
= &coff_symbol
;
794 static struct internal_syment main_sym
;
795 static union internal_auxent main_aux
;
796 struct coff_symbol fcn_cs_saved
;
797 static struct internal_syment fcn_sym_saved
;
798 static union internal_auxent fcn_aux_saved
;
799 /* A .file is open. */
800 int in_source_file
= 0;
801 int next_file_symnum
= -1;
802 /* Name of the current file. */
803 const char *filestring
= "";
805 int fcn_first_line
= 0;
806 CORE_ADDR fcn_first_line_addr
= 0;
807 int fcn_last_line
= 0;
808 int fcn_start_addr
= 0;
809 long fcn_line_ptr
= 0;
812 struct minimal_symbol
*msym
;
814 /* Work around a stdio bug in SunOS4.1.1 (this makes me nervous....
815 it's hard to know I've really worked around it. The fix should
816 be harmless, anyway). The symptom of the bug is that the first
817 fread (in read_one_sym), will (in my example) actually get data
818 from file offset 268, when the fseek was to 264 (and ftell shows
819 264). This causes all hell to break loose. I was unable to
820 reproduce this on a short test program which operated on the same
821 file, performing (I think) the same sequence of operations.
823 It stopped happening when I put in this (former) rewind().
825 FIXME: Find out if this has been reported to Sun, whether it has
826 been fixed in a later release, etc. */
828 bfd_seek (objfile
->obfd
, 0, 0);
830 /* Position to read the symbol table. */
831 val
= bfd_seek (objfile
->obfd
, (long) symtab_offset
, 0);
833 perror_with_name (objfile_name (objfile
));
835 coffread_objfile
= objfile
;
836 nlist_bfd_global
= objfile
->obfd
;
837 nlist_nsyms_global
= nsyms
;
838 set_last_source_file (NULL
);
839 memset (opaque_type_chain
, 0, sizeof opaque_type_chain
);
841 if (type_vector
) /* Get rid of previous one. */
843 type_vector_length
= INITIAL_TYPE_VECTOR_LENGTH
;
844 type_vector
= (struct type
**)
845 xmalloc (type_vector_length
* sizeof (struct type
*));
846 memset (type_vector
, 0, type_vector_length
* sizeof (struct type
*));
848 coff_start_symtab (objfile
, "");
851 while (symnum
< nsyms
)
853 QUIT
; /* Make this command interruptable. */
855 read_one_sym (cs
, &main_sym
, &main_aux
);
857 if (cs
->c_symnum
== next_file_symnum
&& cs
->c_sclass
!= C_FILE
)
859 if (get_last_source_file ())
860 coff_end_symtab (objfile
);
862 coff_start_symtab (objfile
, "_globals_");
863 /* coff_start_symtab will set the language of this symtab to
864 language_unknown, since such a ``file name'' is not
865 recognized. Override that with the minimal language to
866 allow printing values in this symtab. */
867 current_subfile
->language
= language_minimal
;
868 complete_symtab ("_globals_", 0, 0);
869 /* Done with all files, everything from here on out is
873 /* Special case for file with type declarations only, no
875 if (!get_last_source_file () && SDB_TYPE (cs
->c_type
)
876 && cs
->c_secnum
== N_DEBUG
)
877 complete_symtab (filestring
, 0, 0);
879 /* Typedefs should not be treated as symbol definitions. */
880 if (ISFCN (cs
->c_type
) && cs
->c_sclass
!= C_TPDEF
)
882 /* Record all functions -- external and static -- in
884 int section
= cs_to_section (cs
, objfile
);
886 tmpaddr
= cs
->c_value
;
887 record_minimal_symbol (cs
, tmpaddr
, mst_text
,
890 fcn_line_ptr
= main_aux
.x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
;
891 fcn_start_addr
= tmpaddr
;
893 fcn_sym_saved
= main_sym
;
894 fcn_aux_saved
= main_aux
;
898 switch (cs
->c_sclass
)
907 complaint (&symfile_complaints
,
908 _("Bad n_sclass for symbol %s"),
913 /* c_value field contains symnum of next .file entry in
914 table or symnum of first global after last .file. */
915 next_file_symnum
= cs
->c_value
;
917 filestring
= coff_getfilename (&main_aux
);
921 /* Complete symbol table for last object file
922 containing debugging information. */
923 if (get_last_source_file ())
925 coff_end_symtab (objfile
);
926 coff_start_symtab (objfile
, filestring
);
931 /* C_LABEL is used for labels and static functions.
932 Including it here allows gdb to see static functions when
933 no debug info is available. */
935 /* However, labels within a function can make weird
936 backtraces, so filter them out (from phdm@macqel.be). */
942 case C_THUMBSTATFUNC
:
943 if (cs
->c_name
[0] == '.')
945 if (strcmp (cs
->c_name
, ".text") == 0)
947 /* FIXME: don't wire in ".text" as section name or
949 /* Check for in_source_file deals with case of a
950 file with debugging symbols followed by a later
951 file with no symbols. */
953 complete_symtab (filestring
,
954 cs
->c_value
+ ANOFFSET (objfile
->section_offsets
,
955 SECT_OFF_TEXT (objfile
)),
956 main_aux
.x_scn
.x_scnlen
);
959 /* Flush rest of '.' symbols. */
962 else if (!SDB_TYPE (cs
->c_type
)
963 && cs
->c_name
[0] == 'L'
964 && (startswith (cs
->c_name
, "LI%")
965 || startswith (cs
->c_name
, "LF%")
966 || startswith (cs
->c_name
, "LC%")
967 || startswith (cs
->c_name
, "LP%")
968 || startswith (cs
->c_name
, "LPB%")
969 || startswith (cs
->c_name
, "LBB%")
970 || startswith (cs
->c_name
, "LBE%")
971 || startswith (cs
->c_name
, "LPBX%")))
972 /* At least on a 3b1, gcc generates swbeg and string labels
973 that look like this. Ignore them. */
975 /* Fall in for static symbols that don't start with '.' */
980 /* Record it in the minimal symbols regardless of
981 SDB_TYPE. This parallels what we do for other debug
982 formats, and probably is needed to make
983 print_address_symbolic work right without the (now
984 gone) "set fast-symbolic-addr off" kludge. */
986 enum minimal_symbol_type ms_type
;
988 CORE_ADDR offset
= 0;
990 if (cs
->c_secnum
== N_UNDEF
)
992 /* This is a common symbol. We used to rely on
993 the target to tell us whether it knows where
994 the symbol has been relocated to, but none of
995 the target implementations actually provided
996 that operation. So we just ignore the symbol,
997 the same way we would do if we had a target-side
998 symbol lookup which returned no match. */
1001 else if (cs
->c_secnum
== N_ABS
)
1003 /* Use the correct minimal symbol type (and don't
1004 relocate) for absolute values. */
1006 sec
= cs_to_section (cs
, objfile
);
1007 tmpaddr
= cs
->c_value
;
1011 asection
*bfd_section
= cs_to_bfd_section (cs
, objfile
);
1013 sec
= cs_to_section (cs
, objfile
);
1014 tmpaddr
= cs
->c_value
;
1015 /* Statics in a PE file also get relocated. */
1016 if (cs
->c_sclass
== C_EXT
1017 || cs
->c_sclass
== C_THUMBEXTFUNC
1018 || cs
->c_sclass
== C_THUMBEXT
1019 || (pe_file
&& (cs
->c_sclass
== C_STAT
)))
1020 offset
= ANOFFSET (objfile
->section_offsets
, sec
);
1022 if (bfd_section
->flags
& SEC_CODE
)
1025 cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXTFUNC
1026 || cs
->c_sclass
== C_THUMBEXT
?
1027 mst_text
: mst_file_text
;
1028 tmpaddr
= gdbarch_addr_bits_remove (gdbarch
, tmpaddr
);
1030 else if (bfd_section
->flags
& SEC_ALLOC
1031 && bfd_section
->flags
& SEC_LOAD
)
1034 cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXT
1035 ? mst_data
: mst_file_data
;
1037 else if (bfd_section
->flags
& SEC_ALLOC
)
1040 cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXT
1041 ? mst_bss
: mst_file_bss
;
1044 ms_type
= mst_unknown
;
1047 msym
= record_minimal_symbol (cs
, tmpaddr
, ms_type
,
1050 gdbarch_coff_make_msymbol_special (gdbarch
,
1051 cs
->c_sclass
, msym
);
1053 if (SDB_TYPE (cs
->c_type
))
1057 sym
= process_coff_symbol
1058 (cs
, &main_aux
, objfile
);
1059 SYMBOL_VALUE (sym
) = tmpaddr
+ offset
;
1060 SYMBOL_SECTION (sym
) = sec
;
1066 if (strcmp (cs
->c_name
, ".bf") == 0)
1068 within_function
= 1;
1070 /* Value contains address of first non-init type
1072 /* main_aux.x_sym.x_misc.x_lnsz.x_lnno
1073 contains line number of '{' }. */
1074 if (cs
->c_naux
!= 1)
1075 complaint (&symfile_complaints
,
1076 _("`.bf' symbol %d has no aux entry"),
1078 fcn_first_line
= main_aux
.x_sym
.x_misc
.x_lnsz
.x_lnno
;
1079 fcn_first_line_addr
= cs
->c_value
;
1081 /* Might want to check that locals are 0 and
1082 context_stack_depth is zero, and complain if not. */
1085 newobj
= push_context (depth
, fcn_start_addr
);
1086 fcn_cs_saved
.c_name
= getsymname (&fcn_sym_saved
);
1088 process_coff_symbol (&fcn_cs_saved
,
1089 &fcn_aux_saved
, objfile
);
1091 else if (strcmp (cs
->c_name
, ".ef") == 0)
1093 if (!within_function
)
1094 error (_("Bad coff function information."));
1095 /* The value of .ef is the address of epilogue code;
1096 not useful for gdb. */
1097 /* { main_aux.x_sym.x_misc.x_lnsz.x_lnno
1098 contains number of lines to '}' */
1100 if (context_stack_depth
<= 0)
1101 { /* We attempted to pop an empty context stack. */
1102 complaint (&symfile_complaints
,
1103 _("`.ef' symbol without matching `.bf' "
1104 "symbol ignored starting at symnum %d"),
1106 within_function
= 0;
1110 newobj
= pop_context ();
1111 /* Stack must be empty now. */
1112 if (context_stack_depth
> 0 || newobj
== NULL
)
1114 complaint (&symfile_complaints
,
1115 _("Unmatched .ef symbol(s) ignored "
1116 "starting at symnum %d"),
1118 within_function
= 0;
1121 if (cs
->c_naux
!= 1)
1123 complaint (&symfile_complaints
,
1124 _("`.ef' symbol %d has no aux entry"),
1126 fcn_last_line
= 0x7FFFFFFF;
1130 fcn_last_line
= main_aux
.x_sym
.x_misc
.x_lnsz
.x_lnno
;
1132 /* fcn_first_line is the line number of the opening '{'.
1133 Do not record it - because it would affect gdb's idea
1134 of the line number of the first statement of the
1135 function - except for one-line functions, for which
1136 it is also the line number of all the statements and
1137 of the closing '}', and for which we do not have any
1138 other statement-line-number. */
1139 if (fcn_last_line
== 1)
1140 record_line (current_subfile
, fcn_first_line
,
1141 gdbarch_addr_bits_remove (gdbarch
,
1142 fcn_first_line_addr
));
1144 enter_linenos (fcn_line_ptr
, fcn_first_line
,
1145 fcn_last_line
, objfile
);
1147 finish_block (newobj
->name
, &local_symbols
,
1148 newobj
->old_blocks
, newobj
->start_addr
,
1149 fcn_cs_saved
.c_value
1150 + fcn_aux_saved
.x_sym
.x_misc
.x_fsize
1151 + ANOFFSET (objfile
->section_offsets
,
1152 SECT_OFF_TEXT (objfile
)));
1153 within_function
= 0;
1158 if (strcmp (cs
->c_name
, ".bb") == 0)
1160 tmpaddr
= cs
->c_value
;
1161 tmpaddr
+= ANOFFSET (objfile
->section_offsets
,
1162 SECT_OFF_TEXT (objfile
));
1163 push_context (++depth
, tmpaddr
);
1165 else if (strcmp (cs
->c_name
, ".eb") == 0)
1167 if (context_stack_depth
<= 0)
1168 { /* We attempted to pop an empty context stack. */
1169 complaint (&symfile_complaints
,
1170 _("`.eb' symbol without matching `.bb' "
1171 "symbol ignored starting at symnum %d"),
1176 newobj
= pop_context ();
1177 if (depth
-- != newobj
->depth
)
1179 complaint (&symfile_complaints
,
1180 _("Mismatched .eb symbol ignored "
1181 "starting at symnum %d"),
1185 if (local_symbols
&& context_stack_depth
> 0)
1188 cs
->c_value
+ ANOFFSET (objfile
->section_offsets
,
1189 SECT_OFF_TEXT (objfile
));
1190 /* Make a block for the local symbols within. */
1191 finish_block (0, &local_symbols
, newobj
->old_blocks
,
1192 newobj
->start_addr
, tmpaddr
);
1194 /* Now pop locals of block just finished. */
1195 local_symbols
= newobj
->locals
;
1200 process_coff_symbol (cs
, &main_aux
, objfile
);
1205 if ((nsyms
== 0) && (pe_file
))
1207 /* We've got no debugging symbols, but it's a portable
1208 executable, so try to read the export table. */
1209 read_pe_exported_syms (objfile
);
1212 if (get_last_source_file ())
1213 coff_end_symtab (objfile
);
1215 /* Patch up any opaque types (references to types that are not defined
1216 in the file where they are referenced, e.g. "struct foo *bar"). */
1218 struct compunit_symtab
*cu
;
1221 ALL_OBJFILE_FILETABS (objfile
, cu
, s
)
1222 patch_opaque_types (s
);
1225 coffread_objfile
= NULL
;
1228 /* Routines for reading headers and symbols from executable. */
1230 /* Read the next symbol, swap it, and return it in both
1231 internal_syment form, and coff_symbol form. Also return its first
1232 auxent, if any, in internal_auxent form, and skip any other
1236 read_one_sym (struct coff_symbol
*cs
,
1237 struct internal_syment
*sym
,
1238 union internal_auxent
*aux
)
1241 bfd_size_type bytes
;
1243 cs
->c_symnum
= symnum
;
1244 bytes
= bfd_bread (temp_sym
, local_symesz
, nlist_bfd_global
);
1245 if (bytes
!= local_symesz
)
1246 error (_("%s: error reading symbols"), objfile_name (coffread_objfile
));
1247 bfd_coff_swap_sym_in (symfile_bfd
, temp_sym
, (char *) sym
);
1248 cs
->c_naux
= sym
->n_numaux
& 0xff;
1249 if (cs
->c_naux
>= 1)
1251 bytes
= bfd_bread (temp_aux
, local_auxesz
, nlist_bfd_global
);
1252 if (bytes
!= local_auxesz
)
1253 error (_("%s: error reading symbols"), objfile_name (coffread_objfile
));
1254 bfd_coff_swap_aux_in (symfile_bfd
, temp_aux
,
1255 sym
->n_type
, sym
->n_sclass
,
1256 0, cs
->c_naux
, (char *) aux
);
1257 /* If more than one aux entry, read past it (only the first aux
1259 for (i
= 1; i
< cs
->c_naux
; i
++)
1261 bytes
= bfd_bread (temp_aux
, local_auxesz
, nlist_bfd_global
);
1262 if (bytes
!= local_auxesz
)
1263 error (_("%s: error reading symbols"),
1264 objfile_name (coffread_objfile
));
1267 cs
->c_name
= getsymname (sym
);
1268 cs
->c_value
= sym
->n_value
;
1269 cs
->c_sclass
= (sym
->n_sclass
& 0xff);
1270 cs
->c_secnum
= sym
->n_scnum
;
1271 cs
->c_type
= (unsigned) sym
->n_type
;
1272 if (!SDB_TYPE (cs
->c_type
))
1276 if (cs
->c_sclass
& 128)
1277 printf (_("thumb symbol %s, class 0x%x\n"), cs
->c_name
, cs
->c_sclass
);
1280 symnum
+= 1 + cs
->c_naux
;
1282 /* The PE file format stores symbol values as offsets within the
1283 section, rather than as absolute addresses. We correct that
1284 here, if the symbol has an appropriate storage class. FIXME: We
1285 should use BFD to read the symbols, rather than duplicating the
1289 switch (cs
->c_sclass
)
1293 case C_THUMBEXTFUNC
:
1298 case C_THUMBSTATFUNC
:
1304 if (cs
->c_secnum
!= 0)
1305 cs
->c_value
+= cs_section_address (cs
, symfile_bfd
);
1311 /* Support for string table handling. */
1313 static char *stringtab
= NULL
;
1316 init_stringtab (bfd
*abfd
, long offset
)
1320 unsigned char lengthbuf
[4];
1324 /* If the file is stripped, the offset might be zero, indicating no
1325 string table. Just return with `stringtab' set to null. */
1329 if (bfd_seek (abfd
, offset
, 0) < 0)
1332 val
= bfd_bread ((char *) lengthbuf
, sizeof lengthbuf
, abfd
);
1333 length
= bfd_h_get_32 (symfile_bfd
, lengthbuf
);
1335 /* If no string table is needed, then the file may end immediately
1336 after the symbols. Just return with `stringtab' set to null. */
1337 if (val
!= sizeof lengthbuf
|| length
< sizeof lengthbuf
)
1340 stringtab
= (char *) xmalloc (length
);
1341 /* This is in target format (probably not very useful, and not
1342 currently used), not host format. */
1343 memcpy (stringtab
, lengthbuf
, sizeof lengthbuf
);
1344 if (length
== sizeof length
) /* Empty table -- just the count. */
1347 val
= bfd_bread (stringtab
+ sizeof lengthbuf
,
1348 length
- sizeof lengthbuf
, abfd
);
1349 if (val
!= length
- sizeof lengthbuf
|| stringtab
[length
- 1] != '\0')
1356 free_stringtab (void)
1364 free_stringtab_cleanup (void *ignore
)
1370 getsymname (struct internal_syment
*symbol_entry
)
1372 static char buffer
[SYMNMLEN
+ 1];
1375 if (symbol_entry
->_n
._n_n
._n_zeroes
== 0)
1377 /* FIXME: Probably should be detecting corrupt symbol files by
1378 seeing whether offset points to within the stringtab. */
1379 result
= stringtab
+ symbol_entry
->_n
._n_n
._n_offset
;
1383 strncpy (buffer
, symbol_entry
->_n
._n_name
, SYMNMLEN
);
1384 buffer
[SYMNMLEN
] = '\0';
1390 /* Extract the file name from the aux entry of a C_FILE symbol.
1391 Return only the last component of the name. Result is in static
1392 storage and is only good for temporary use. */
1395 coff_getfilename (union internal_auxent
*aux_entry
)
1397 static char buffer
[BUFSIZ
];
1400 if (aux_entry
->x_file
.x_n
.x_zeroes
== 0)
1402 if (strlen (stringtab
+ aux_entry
->x_file
.x_n
.x_offset
) >= BUFSIZ
)
1403 internal_error (__FILE__
, __LINE__
, _("coff file name too long"));
1404 strcpy (buffer
, stringtab
+ aux_entry
->x_file
.x_n
.x_offset
);
1408 strncpy (buffer
, aux_entry
->x_file
.x_fname
, FILNMLEN
);
1409 buffer
[FILNMLEN
] = '\0';
1413 /* FIXME: We should not be throwing away the information about what
1414 directory. It should go into dirname of the symtab, or some such
1416 result
= lbasename (result
);
1420 /* Support for line number handling. */
1422 static char *linetab
= NULL
;
1423 static long linetab_offset
;
1424 static unsigned long linetab_size
;
1426 /* Read in all the line numbers for fast lookups later. Leave them in
1427 external (unswapped) format in memory; we'll swap them as we enter
1428 them into GDB's data structures. */
1431 init_lineno (bfd
*abfd
, long offset
, int size
)
1435 linetab_offset
= offset
;
1436 linetab_size
= size
;
1443 if (bfd_seek (abfd
, offset
, 0) < 0)
1446 /* Allocate the desired table, plus a sentinel. */
1447 linetab
= (char *) xmalloc (size
+ local_linesz
);
1449 val
= bfd_bread (linetab
, size
, abfd
);
1453 /* Terminate it with an all-zero sentinel record. */
1454 memset (linetab
+ size
, 0, local_linesz
);
1468 free_linetab_cleanup (void *ignore
)
1473 #if !defined (L_LNNO32)
1474 #define L_LNNO32(lp) ((lp)->l_lnno)
1478 enter_linenos (long file_offset
, int first_line
,
1479 int last_line
, struct objfile
*objfile
)
1481 struct gdbarch
*gdbarch
= get_objfile_arch (objfile
);
1483 struct internal_lineno lptr
;
1487 if (file_offset
< linetab_offset
)
1489 complaint (&symfile_complaints
,
1490 _("Line number pointer %ld lower than start of line numbers"),
1492 if (file_offset
> linetab_size
) /* Too big to be an offset? */
1494 file_offset
+= linetab_offset
; /* Try reading at that linetab
1498 rawptr
= &linetab
[file_offset
- linetab_offset
];
1500 /* Skip first line entry for each function. */
1501 rawptr
+= local_linesz
;
1502 /* Line numbers start at one for the first line of the function. */
1505 /* If the line number table is full (e.g. 64K lines in COFF debug
1506 info), the next function's L_LNNO32 might not be zero, so don't
1507 overstep the table's end in any case. */
1508 while (rawptr
<= &linetab
[0] + linetab_size
)
1510 bfd_coff_swap_lineno_in (symfile_bfd
, rawptr
, &lptr
);
1511 rawptr
+= local_linesz
;
1512 /* The next function, or the sentinel, will have L_LNNO32 zero;
1514 if (L_LNNO32 (&lptr
) && L_LNNO32 (&lptr
) <= last_line
)
1516 CORE_ADDR addr
= lptr
.l_addr
.l_paddr
;
1517 addr
+= ANOFFSET (objfile
->section_offsets
,
1518 SECT_OFF_TEXT (objfile
));
1519 record_line (current_subfile
,
1520 first_line
+ L_LNNO32 (&lptr
),
1521 gdbarch_addr_bits_remove (gdbarch
, addr
));
1529 patch_type (struct type
*type
, struct type
*real_type
)
1531 struct type
*target
= TYPE_TARGET_TYPE (type
);
1532 struct type
*real_target
= TYPE_TARGET_TYPE (real_type
);
1533 int field_size
= TYPE_NFIELDS (real_target
) * sizeof (struct field
);
1535 TYPE_LENGTH (target
) = TYPE_LENGTH (real_target
);
1536 TYPE_NFIELDS (target
) = TYPE_NFIELDS (real_target
);
1537 TYPE_FIELDS (target
) = (struct field
*) TYPE_ALLOC (target
,
1540 memcpy (TYPE_FIELDS (target
),
1541 TYPE_FIELDS (real_target
),
1544 if (TYPE_NAME (real_target
))
1546 /* The previous copy of TYPE_NAME is allocated by
1547 process_coff_symbol. */
1548 if (TYPE_NAME (target
))
1549 xfree ((char*) TYPE_NAME (target
));
1550 TYPE_NAME (target
) = xstrdup (TYPE_NAME (real_target
));
1554 /* Patch up all appropriate typedef symbols in the opaque_type_chains
1555 so that they can be used to print out opaque data structures
1559 patch_opaque_types (struct symtab
*s
)
1562 struct block_iterator iter
;
1563 struct symbol
*real_sym
;
1565 /* Go through the per-file symbols only. */
1566 b
= BLOCKVECTOR_BLOCK (SYMTAB_BLOCKVECTOR (s
), STATIC_BLOCK
);
1567 ALL_BLOCK_SYMBOLS (b
, iter
, real_sym
)
1569 /* Find completed typedefs to use to fix opaque ones.
1570 Remove syms from the chain when their types are stored,
1571 but search the whole chain, as there may be several syms
1572 from different files with the same name. */
1573 if (SYMBOL_CLASS (real_sym
) == LOC_TYPEDEF
1574 && SYMBOL_DOMAIN (real_sym
) == VAR_DOMAIN
1575 && TYPE_CODE (SYMBOL_TYPE (real_sym
)) == TYPE_CODE_PTR
1576 && TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (real_sym
))) != 0)
1578 const char *name
= SYMBOL_LINKAGE_NAME (real_sym
);
1579 int hash
= hashname (name
);
1580 struct symbol
*sym
, *prev
;
1583 for (sym
= opaque_type_chain
[hash
]; sym
;)
1585 if (name
[0] == SYMBOL_LINKAGE_NAME (sym
)[0]
1586 && strcmp (name
+ 1, SYMBOL_LINKAGE_NAME (sym
) + 1) == 0)
1590 SYMBOL_VALUE_CHAIN (prev
) = SYMBOL_VALUE_CHAIN (sym
);
1594 opaque_type_chain
[hash
] = SYMBOL_VALUE_CHAIN (sym
);
1597 patch_type (SYMBOL_TYPE (sym
), SYMBOL_TYPE (real_sym
));
1601 sym
= SYMBOL_VALUE_CHAIN (prev
);
1605 sym
= opaque_type_chain
[hash
];
1611 sym
= SYMBOL_VALUE_CHAIN (sym
);
1619 coff_reg_to_regnum (struct symbol
*sym
, struct gdbarch
*gdbarch
)
1621 return gdbarch_sdb_reg_to_regnum (gdbarch
, SYMBOL_VALUE (sym
));
1624 static const struct symbol_register_ops coff_register_funcs
= {
1628 /* The "aclass" index for computed COFF symbols. */
1630 static int coff_register_index
;
1632 static struct symbol
*
1633 process_coff_symbol (struct coff_symbol
*cs
,
1634 union internal_auxent
*aux
,
1635 struct objfile
*objfile
)
1637 struct symbol
*sym
= allocate_symbol (objfile
);
1641 name
= EXTERNAL_NAME (name
, objfile
->obfd
);
1642 SYMBOL_SET_LANGUAGE (sym
, current_subfile
->language
,
1643 &objfile
->objfile_obstack
);
1644 SYMBOL_SET_NAMES (sym
, name
, strlen (name
), 1, objfile
);
1646 /* default assumptions */
1647 SYMBOL_VALUE (sym
) = cs
->c_value
;
1648 SYMBOL_DOMAIN (sym
) = VAR_DOMAIN
;
1649 SYMBOL_SECTION (sym
) = cs_to_section (cs
, objfile
);
1651 if (ISFCN (cs
->c_type
))
1653 SYMBOL_VALUE (sym
) += ANOFFSET (objfile
->section_offsets
,
1654 SECT_OFF_TEXT (objfile
));
1656 lookup_function_type (decode_function_type (cs
, cs
->c_type
,
1659 SYMBOL_ACLASS_INDEX (sym
) = LOC_BLOCK
;
1660 if (cs
->c_sclass
== C_STAT
|| cs
->c_sclass
== C_THUMBSTAT
1661 || cs
->c_sclass
== C_THUMBSTATFUNC
)
1662 add_symbol_to_list (sym
, &file_symbols
);
1663 else if (cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXT
1664 || cs
->c_sclass
== C_THUMBEXTFUNC
)
1665 add_symbol_to_list (sym
, &global_symbols
);
1669 SYMBOL_TYPE (sym
) = decode_type (cs
, cs
->c_type
, aux
, objfile
);
1670 switch (cs
->c_sclass
)
1676 SYMBOL_ACLASS_INDEX (sym
) = LOC_LOCAL
;
1677 add_symbol_to_list (sym
, &local_symbols
);
1681 case C_THUMBEXTFUNC
:
1683 SYMBOL_ACLASS_INDEX (sym
) = LOC_STATIC
;
1684 SYMBOL_VALUE_ADDRESS (sym
) = (CORE_ADDR
) cs
->c_value
;
1685 SYMBOL_VALUE_ADDRESS (sym
) += ANOFFSET (objfile
->section_offsets
,
1686 SECT_OFF_TEXT (objfile
));
1687 add_symbol_to_list (sym
, &global_symbols
);
1691 case C_THUMBSTATFUNC
:
1693 SYMBOL_ACLASS_INDEX (sym
) = LOC_STATIC
;
1694 SYMBOL_VALUE_ADDRESS (sym
) = (CORE_ADDR
) cs
->c_value
;
1695 SYMBOL_VALUE_ADDRESS (sym
) += ANOFFSET (objfile
->section_offsets
,
1696 SECT_OFF_TEXT (objfile
));
1697 if (within_function
)
1699 /* Static symbol of local scope. */
1700 add_symbol_to_list (sym
, &local_symbols
);
1704 /* Static symbol at top level of file. */
1705 add_symbol_to_list (sym
, &file_symbols
);
1709 #ifdef C_GLBLREG /* AMD coff */
1713 SYMBOL_ACLASS_INDEX (sym
) = coff_register_index
;
1714 SYMBOL_VALUE (sym
) = cs
->c_value
;
1715 add_symbol_to_list (sym
, &local_symbols
);
1723 SYMBOL_ACLASS_INDEX (sym
) = LOC_ARG
;
1724 SYMBOL_IS_ARGUMENT (sym
) = 1;
1725 add_symbol_to_list (sym
, &local_symbols
);
1729 SYMBOL_ACLASS_INDEX (sym
) = coff_register_index
;
1730 SYMBOL_IS_ARGUMENT (sym
) = 1;
1731 SYMBOL_VALUE (sym
) = cs
->c_value
;
1732 add_symbol_to_list (sym
, &local_symbols
);
1736 SYMBOL_ACLASS_INDEX (sym
) = LOC_TYPEDEF
;
1737 SYMBOL_DOMAIN (sym
) = VAR_DOMAIN
;
1739 /* If type has no name, give it one. */
1740 if (TYPE_NAME (SYMBOL_TYPE (sym
)) == 0)
1742 if (TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_PTR
1743 || TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_FUNC
)
1745 /* If we are giving a name to a type such as
1746 "pointer to foo" or "function returning foo", we
1747 better not set the TYPE_NAME. If the program
1748 contains "typedef char *caddr_t;", we don't want
1749 all variables of type char * to print as caddr_t.
1750 This is not just a consequence of GDB's type
1751 management; CC and GCC (at least through version
1752 2.4) both output variables of either type char *
1753 or caddr_t with the type refering to the C_TPDEF
1754 symbol for caddr_t. If a future compiler cleans
1755 this up it GDB is not ready for it yet, but if it
1756 becomes ready we somehow need to disable this
1757 check (without breaking the PCC/GCC2.4 case).
1761 Fortunately, this check seems not to be necessary
1762 for anything except pointers or functions. */
1766 TYPE_NAME (SYMBOL_TYPE (sym
)) =
1767 xstrdup (SYMBOL_LINKAGE_NAME (sym
));
1770 /* Keep track of any type which points to empty structured
1771 type, so it can be filled from a definition from another
1772 file. A simple forward reference (TYPE_CODE_UNDEF) is
1773 not an empty structured type, though; the forward
1774 references work themselves out via the magic of
1775 coff_lookup_type. */
1776 if (TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_PTR
1777 && TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym
))) == 0
1778 && TYPE_CODE (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym
)))
1781 int i
= hashname (SYMBOL_LINKAGE_NAME (sym
));
1783 SYMBOL_VALUE_CHAIN (sym
) = opaque_type_chain
[i
];
1784 opaque_type_chain
[i
] = sym
;
1786 add_symbol_to_list (sym
, &file_symbols
);
1792 SYMBOL_ACLASS_INDEX (sym
) = LOC_TYPEDEF
;
1793 SYMBOL_DOMAIN (sym
) = STRUCT_DOMAIN
;
1795 /* Some compilers try to be helpful by inventing "fake"
1796 names for anonymous enums, structures, and unions, like
1797 "~0fake" or ".0fake". Thanks, but no thanks... */
1798 if (TYPE_TAG_NAME (SYMBOL_TYPE (sym
)) == 0)
1799 if (SYMBOL_LINKAGE_NAME (sym
) != NULL
1800 && *SYMBOL_LINKAGE_NAME (sym
) != '~'
1801 && *SYMBOL_LINKAGE_NAME (sym
) != '.')
1802 TYPE_TAG_NAME (SYMBOL_TYPE (sym
)) =
1803 concat (SYMBOL_LINKAGE_NAME (sym
), (char *)NULL
);
1805 add_symbol_to_list (sym
, &file_symbols
);
1815 /* Decode a coff type specifier; return the type that is meant. */
1817 static struct type
*
1818 decode_type (struct coff_symbol
*cs
, unsigned int c_type
,
1819 union internal_auxent
*aux
, struct objfile
*objfile
)
1821 struct type
*type
= 0;
1822 unsigned int new_c_type
;
1824 if (c_type
& ~N_BTMASK
)
1826 new_c_type
= DECREF (c_type
);
1829 type
= decode_type (cs
, new_c_type
, aux
, objfile
);
1830 type
= lookup_pointer_type (type
);
1832 else if (ISFCN (c_type
))
1834 type
= decode_type (cs
, new_c_type
, aux
, objfile
);
1835 type
= lookup_function_type (type
);
1837 else if (ISARY (c_type
))
1840 unsigned short *dim
;
1841 struct type
*base_type
, *index_type
, *range_type
;
1843 /* Define an array type. */
1844 /* auxent refers to array, not base type. */
1845 if (aux
->x_sym
.x_tagndx
.l
== 0)
1848 /* Shift the indices down. */
1849 dim
= &aux
->x_sym
.x_fcnary
.x_ary
.x_dimen
[0];
1852 for (i
= 0; *dim
&& i
< DIMNUM
- 1; i
++, dim
++)
1856 base_type
= decode_type (cs
, new_c_type
, aux
, objfile
);
1857 index_type
= objfile_type (objfile
)->builtin_int
;
1859 = create_static_range_type ((struct type
*) NULL
,
1860 index_type
, 0, n
- 1);
1862 create_array_type ((struct type
*) NULL
,
1863 base_type
, range_type
);
1868 /* Reference to existing type. This only occurs with the struct,
1869 union, and enum types. EPI a29k coff fakes us out by producing
1870 aux entries with a nonzero x_tagndx for definitions of structs,
1871 unions, and enums, so we have to check the c_sclass field. SCO
1872 3.2v4 cc gets confused with pointers to pointers to defined
1873 structs, and generates negative x_tagndx fields. */
1874 if (cs
->c_naux
> 0 && aux
->x_sym
.x_tagndx
.l
!= 0)
1876 if (cs
->c_sclass
!= C_STRTAG
1877 && cs
->c_sclass
!= C_UNTAG
1878 && cs
->c_sclass
!= C_ENTAG
1879 && aux
->x_sym
.x_tagndx
.l
>= 0)
1881 type
= coff_alloc_type (aux
->x_sym
.x_tagndx
.l
);
1886 complaint (&symfile_complaints
,
1887 _("Symbol table entry for %s has bad tagndx value"),
1889 /* And fall through to decode_base_type... */
1893 return decode_base_type (cs
, BTYPE (c_type
), aux
, objfile
);
1896 /* Decode a coff type specifier for function definition;
1897 return the type that the function returns. */
1899 static struct type
*
1900 decode_function_type (struct coff_symbol
*cs
,
1901 unsigned int c_type
,
1902 union internal_auxent
*aux
,
1903 struct objfile
*objfile
)
1905 if (aux
->x_sym
.x_tagndx
.l
== 0)
1906 cs
->c_naux
= 0; /* auxent refers to function, not base
1909 return decode_type (cs
, DECREF (c_type
), aux
, objfile
);
1912 /* Basic C types. */
1914 static struct type
*
1915 decode_base_type (struct coff_symbol
*cs
,
1916 unsigned int c_type
,
1917 union internal_auxent
*aux
,
1918 struct objfile
*objfile
)
1920 struct gdbarch
*gdbarch
= get_objfile_arch (objfile
);
1926 /* Shows up with "void (*foo)();" structure members. */
1927 return objfile_type (objfile
)->builtin_void
;
1931 /* Intel 960 COFF has this symbol and meaning. */
1932 return objfile_type (objfile
)->builtin_void
;
1936 return objfile_type (objfile
)->builtin_char
;
1939 return objfile_type (objfile
)->builtin_short
;
1942 return objfile_type (objfile
)->builtin_int
;
1945 if (cs
->c_sclass
== C_FIELD
1946 && aux
->x_sym
.x_misc
.x_lnsz
.x_size
1947 > gdbarch_long_bit (gdbarch
))
1948 return objfile_type (objfile
)->builtin_long_long
;
1950 return objfile_type (objfile
)->builtin_long
;
1953 return objfile_type (objfile
)->builtin_float
;
1956 return objfile_type (objfile
)->builtin_double
;
1959 return objfile_type (objfile
)->builtin_long_double
;
1962 if (cs
->c_naux
!= 1)
1964 /* Anonymous structure type. */
1965 type
= coff_alloc_type (cs
->c_symnum
);
1966 TYPE_CODE (type
) = TYPE_CODE_STRUCT
;
1967 TYPE_NAME (type
) = NULL
;
1968 /* This used to set the tag to "<opaque>". But I think
1969 setting it to NULL is right, and the printing code can
1970 print it as "struct {...}". */
1971 TYPE_TAG_NAME (type
) = NULL
;
1972 INIT_CPLUS_SPECIFIC (type
);
1973 TYPE_LENGTH (type
) = 0;
1974 TYPE_FIELDS (type
) = 0;
1975 TYPE_NFIELDS (type
) = 0;
1979 type
= coff_read_struct_type (cs
->c_symnum
,
1980 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1981 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
,
1987 if (cs
->c_naux
!= 1)
1989 /* Anonymous union type. */
1990 type
= coff_alloc_type (cs
->c_symnum
);
1991 TYPE_NAME (type
) = NULL
;
1992 /* This used to set the tag to "<opaque>". But I think
1993 setting it to NULL is right, and the printing code can
1994 print it as "union {...}". */
1995 TYPE_TAG_NAME (type
) = NULL
;
1996 INIT_CPLUS_SPECIFIC (type
);
1997 TYPE_LENGTH (type
) = 0;
1998 TYPE_FIELDS (type
) = 0;
1999 TYPE_NFIELDS (type
) = 0;
2003 type
= coff_read_struct_type (cs
->c_symnum
,
2004 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
2005 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
,
2008 TYPE_CODE (type
) = TYPE_CODE_UNION
;
2012 if (cs
->c_naux
!= 1)
2014 /* Anonymous enum type. */
2015 type
= coff_alloc_type (cs
->c_symnum
);
2016 TYPE_CODE (type
) = TYPE_CODE_ENUM
;
2017 TYPE_NAME (type
) = NULL
;
2018 /* This used to set the tag to "<opaque>". But I think
2019 setting it to NULL is right, and the printing code can
2020 print it as "enum {...}". */
2021 TYPE_TAG_NAME (type
) = NULL
;
2022 TYPE_LENGTH (type
) = 0;
2023 TYPE_FIELDS (type
) = 0;
2024 TYPE_NFIELDS (type
) = 0;
2028 type
= coff_read_enum_type (cs
->c_symnum
,
2029 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
2030 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
,
2036 /* Shouldn't show up here. */
2040 return objfile_type (objfile
)->builtin_unsigned_char
;
2043 return objfile_type (objfile
)->builtin_unsigned_short
;
2046 return objfile_type (objfile
)->builtin_unsigned_int
;
2049 if (cs
->c_sclass
== C_FIELD
2050 && aux
->x_sym
.x_misc
.x_lnsz
.x_size
2051 > gdbarch_long_bit (gdbarch
))
2052 return objfile_type (objfile
)->builtin_unsigned_long_long
;
2054 return objfile_type (objfile
)->builtin_unsigned_long
;
2056 complaint (&symfile_complaints
,
2057 _("Unexpected type for symbol %s"), cs
->c_name
);
2058 return objfile_type (objfile
)->builtin_void
;
2061 /* This page contains subroutines of read_type. */
2063 /* Read the description of a structure (or union type) and return an
2064 object describing the type. */
2066 static struct type
*
2067 coff_read_struct_type (int index
, int length
, int lastsym
,
2068 struct objfile
*objfile
)
2072 struct nextfield
*next
;
2077 struct nextfield
*list
= 0;
2078 struct nextfield
*newobj
;
2082 struct coff_symbol member_sym
;
2083 struct coff_symbol
*ms
= &member_sym
;
2084 struct internal_syment sub_sym
;
2085 union internal_auxent sub_aux
;
2088 type
= coff_alloc_type (index
);
2089 TYPE_CODE (type
) = TYPE_CODE_STRUCT
;
2090 INIT_CPLUS_SPECIFIC (type
);
2091 TYPE_LENGTH (type
) = length
;
2093 while (!done
&& symnum
< lastsym
&& symnum
< nlist_nsyms_global
)
2095 read_one_sym (ms
, &sub_sym
, &sub_aux
);
2097 name
= EXTERNAL_NAME (name
, objfile
->obfd
);
2099 switch (ms
->c_sclass
)
2104 /* Get space to record the next field's data. */
2105 newobj
= (struct nextfield
*) alloca (sizeof (struct nextfield
));
2106 newobj
->next
= list
;
2109 /* Save the data. */
2110 list
->field
.name
= obstack_copy0 (&objfile
->objfile_obstack
,
2111 name
, strlen (name
));
2112 FIELD_TYPE (list
->field
) = decode_type (ms
, ms
->c_type
,
2114 SET_FIELD_BITPOS (list
->field
, 8 * ms
->c_value
);
2115 FIELD_BITSIZE (list
->field
) = 0;
2121 /* Get space to record the next field's data. */
2122 newobj
= (struct nextfield
*) alloca (sizeof (struct nextfield
));
2123 newobj
->next
= list
;
2126 /* Save the data. */
2127 list
->field
.name
= obstack_copy0 (&objfile
->objfile_obstack
,
2128 name
, strlen (name
));
2129 FIELD_TYPE (list
->field
) = decode_type (ms
, ms
->c_type
,
2131 SET_FIELD_BITPOS (list
->field
, ms
->c_value
);
2132 FIELD_BITSIZE (list
->field
) = sub_aux
.x_sym
.x_misc
.x_lnsz
.x_size
;
2141 /* Now create the vector of fields, and record how big it is. */
2143 TYPE_NFIELDS (type
) = nfields
;
2144 TYPE_FIELDS (type
) = (struct field
*)
2145 TYPE_ALLOC (type
, sizeof (struct field
) * nfields
);
2147 /* Copy the saved-up fields into the field vector. */
2149 for (n
= nfields
; list
; list
= list
->next
)
2150 TYPE_FIELD (type
, --n
) = list
->field
;
2155 /* Read a definition of an enumeration type,
2156 and create and return a suitable type object.
2157 Also defines the symbols that represent the values of the type. */
2159 static struct type
*
2160 coff_read_enum_type (int index
, int length
, int lastsym
,
2161 struct objfile
*objfile
)
2163 struct gdbarch
*gdbarch
= get_objfile_arch (objfile
);
2168 struct pending
**symlist
;
2169 struct coff_symbol member_sym
;
2170 struct coff_symbol
*ms
= &member_sym
;
2171 struct internal_syment sub_sym
;
2172 union internal_auxent sub_aux
;
2173 struct pending
*osyms
, *syms
;
2177 int unsigned_enum
= 1;
2179 type
= coff_alloc_type (index
);
2180 if (within_function
)
2181 symlist
= &local_symbols
;
2183 symlist
= &file_symbols
;
2185 o_nsyms
= osyms
? osyms
->nsyms
: 0;
2187 while (!done
&& symnum
< lastsym
&& symnum
< nlist_nsyms_global
)
2189 read_one_sym (ms
, &sub_sym
, &sub_aux
);
2191 name
= EXTERNAL_NAME (name
, objfile
->obfd
);
2193 switch (ms
->c_sclass
)
2196 sym
= allocate_symbol (objfile
);
2198 SYMBOL_SET_LINKAGE_NAME (sym
,
2199 obstack_copy0 (&objfile
->objfile_obstack
,
2200 name
, strlen (name
)));
2201 SYMBOL_ACLASS_INDEX (sym
) = LOC_CONST
;
2202 SYMBOL_DOMAIN (sym
) = VAR_DOMAIN
;
2203 SYMBOL_VALUE (sym
) = ms
->c_value
;
2204 add_symbol_to_list (sym
, symlist
);
2209 /* Sometimes the linker (on 386/ix 2.0.2 at least) screws
2210 up the count of how many symbols to read. So stop
2217 /* Now fill in the fields of the type-structure. */
2220 TYPE_LENGTH (type
) = length
;
2221 else /* Assume ints. */
2222 TYPE_LENGTH (type
) = gdbarch_int_bit (gdbarch
) / TARGET_CHAR_BIT
;
2223 TYPE_CODE (type
) = TYPE_CODE_ENUM
;
2224 TYPE_NFIELDS (type
) = nsyms
;
2225 TYPE_FIELDS (type
) = (struct field
*)
2226 TYPE_ALLOC (type
, sizeof (struct field
) * nsyms
);
2228 /* Find the symbols for the values and put them into the type.
2229 The symbols can be found in the symlist that we put them on
2230 to cause them to be defined. osyms contains the old value
2231 of that symlist; everything up to there was defined by us. */
2232 /* Note that we preserve the order of the enum constants, so
2233 that in something like "enum {FOO, LAST_THING=FOO}" we print
2234 FOO, not LAST_THING. */
2236 for (syms
= *symlist
, n
= 0; syms
; syms
= syms
->next
)
2242 for (; j
< syms
->nsyms
; j
++, n
++)
2244 struct symbol
*xsym
= syms
->symbol
[j
];
2246 SYMBOL_TYPE (xsym
) = type
;
2247 TYPE_FIELD_NAME (type
, n
) = SYMBOL_LINKAGE_NAME (xsym
);
2248 SET_FIELD_ENUMVAL (TYPE_FIELD (type
, n
), SYMBOL_VALUE (xsym
));
2249 if (SYMBOL_VALUE (xsym
) < 0)
2251 TYPE_FIELD_BITSIZE (type
, n
) = 0;
2258 TYPE_UNSIGNED (type
) = 1;
2263 /* Register our ability to parse symbols for coff BFD files. */
2265 static const struct sym_fns coff_sym_fns
=
2267 coff_new_init
, /* sym_new_init: init anything gbl to
2269 coff_symfile_init
, /* sym_init: read initial info, setup
2271 coff_symfile_read
, /* sym_read: read a symbol file into
2273 NULL
, /* sym_read_psymbols */
2274 coff_symfile_finish
, /* sym_finish: finished with file,
2276 default_symfile_offsets
, /* sym_offsets: xlate external to
2278 default_symfile_segments
, /* sym_segments: Get segment
2279 information from a file */
2280 NULL
, /* sym_read_linetable */
2282 default_symfile_relocate
, /* sym_relocate: Relocate a debug
2284 NULL
, /* sym_probe_fns */
2288 /* Free the per-objfile COFF data. */
2291 coff_free_info (struct objfile
*objfile
, void *arg
)
2297 _initialize_coffread (void)
2299 add_symtab_fns (bfd_target_coff_flavour
, &coff_sym_fns
);
2301 coff_objfile_data_key
= register_objfile_data_with_cleanup (NULL
,
2305 = register_symbol_register_impl (LOC_REGISTER
, &coff_register_funcs
);