1 /* Read coff symbol tables and convert to internal format, for GDB.
2 Copyright (C) 1987-2022 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 "gdbsupport/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 "stabsread.h"
35 #include "complaints.h"
38 #include "dictionary.h"
39 #include "dwarf2/public.h"
41 #include "coff-pe-read.h"
46 /* The objfile we are currently reading. */
48 static struct objfile
*coffread_objfile
;
50 struct coff_symfile_info
52 file_ptr min_lineno_offset
= 0; /* Where in file lowest line#s are. */
53 file_ptr max_lineno_offset
= 0; /* 1+last byte of line#s in file. */
55 CORE_ADDR textaddr
= 0; /* Addr of .text section. */
56 unsigned int textsize
= 0; /* Size of .text section. */
57 std::vector
<asection
*> *stabsects
; /* .stab sections. */
58 asection
*stabstrsect
= nullptr; /* Section pointer for .stab section. */
59 char *stabstrdata
= nullptr;
62 /* Key for COFF-associated data. */
64 static const struct objfile_key
<coff_symfile_info
> coff_objfile_data_key
;
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 static char *linetab
= NULL
;
159 static file_ptr linetab_offset
;
160 static file_ptr linetab_size
;
162 static char *stringtab
= NULL
;
164 extern void stabsread_clear_cache (void);
166 static struct type
*coff_read_struct_type (int, int, int,
169 static struct type
*decode_base_type (struct coff_symbol
*,
171 union internal_auxent
*,
174 static struct type
*decode_type (struct coff_symbol
*, unsigned int,
175 union internal_auxent
*,
178 static struct type
*decode_function_type (struct coff_symbol
*,
180 union internal_auxent
*,
183 static struct type
*coff_read_enum_type (int, int, int,
186 static struct symbol
*process_coff_symbol (struct coff_symbol
*,
187 union internal_auxent
*,
190 static void patch_opaque_types (struct symtab
*);
192 static void enter_linenos (file_ptr
, int, int, struct objfile
*);
194 static int init_lineno (bfd
*, file_ptr
, file_ptr
, gdb::unique_xmalloc_ptr
<char> *);
196 static char *getsymname (struct internal_syment
*);
198 static const char *coff_getfilename (union internal_auxent
*);
200 static int init_stringtab (bfd
*, file_ptr
, gdb::unique_xmalloc_ptr
<char> *);
202 static void read_one_sym (struct coff_symbol
*,
203 struct internal_syment
*,
204 union internal_auxent
*);
206 static void coff_symtab_read (minimal_symbol_reader
&,
207 file_ptr
, unsigned int, struct objfile
*);
209 /* We are called once per section from coff_symfile_read. We
210 need to examine each section we are passed, check to see
211 if it is something we are interested in processing, and
212 if so, stash away some access information for the section.
214 FIXME: The section names should not be hardwired strings (what
215 should they be? I don't think most object file formats have enough
216 section flags to specify what kind of debug section it is
220 coff_locate_sections (bfd
*abfd
, asection
*sectp
, void *csip
)
222 struct coff_symfile_info
*csi
;
225 csi
= (struct coff_symfile_info
*) csip
;
226 name
= bfd_section_name (sectp
);
227 if (strcmp (name
, ".text") == 0)
229 csi
->textaddr
= bfd_section_vma (sectp
);
230 csi
->textsize
+= bfd_section_size (sectp
);
232 else if (startswith (name
, ".text"))
234 csi
->textsize
+= bfd_section_size (sectp
);
236 else if (strcmp (name
, ".stabstr") == 0)
238 csi
->stabstrsect
= sectp
;
240 else if (startswith (name
, ".stab"))
244 /* We can have multiple .stab sections if linked with
246 for (s
= name
+ sizeof ".stab" - 1; *s
!= '\0'; s
++)
250 csi
->stabsects
->push_back (sectp
);
254 /* Return the section_offsets* that CS points to. */
255 static int cs_to_section (struct coff_symbol
*, struct objfile
*);
257 struct find_targ_sec_arg
264 find_targ_sec (bfd
*abfd
, asection
*sect
, void *obj
)
266 struct find_targ_sec_arg
*args
= (struct find_targ_sec_arg
*) obj
;
268 if (sect
->target_index
== args
->targ_index
)
269 *args
->resultp
= sect
;
272 /* Return the bfd_section that CS points to. */
273 static struct bfd_section
*
274 cs_to_bfd_section (struct coff_symbol
*cs
, struct objfile
*objfile
)
276 asection
*sect
= NULL
;
277 struct find_targ_sec_arg args
;
279 args
.targ_index
= cs
->c_secnum
;
280 args
.resultp
= §
;
281 bfd_map_over_sections (objfile
->obfd
, find_targ_sec
, &args
);
285 /* Return the section number (SECT_OFF_*) that CS points to. */
287 cs_to_section (struct coff_symbol
*cs
, struct objfile
*objfile
)
289 asection
*sect
= cs_to_bfd_section (cs
, objfile
);
292 return SECT_OFF_TEXT (objfile
);
293 return gdb_bfd_section_index (objfile
->obfd
, sect
);
296 /* Return the address of the section of a COFF symbol. */
298 static CORE_ADDR
cs_section_address (struct coff_symbol
*, bfd
*);
301 cs_section_address (struct coff_symbol
*cs
, bfd
*abfd
)
303 asection
*sect
= NULL
;
304 struct find_targ_sec_arg args
;
307 args
.targ_index
= cs
->c_secnum
;
308 args
.resultp
= §
;
309 bfd_map_over_sections (abfd
, find_targ_sec
, &args
);
311 addr
= bfd_section_vma (sect
);
315 /* Look up a coff type-number index. Return the address of the slot
316 where the type for that index is stored.
317 The type-number is in INDEX.
319 This can be used for finding the type associated with that index
320 or for associating a new type with the index. */
322 static struct type
**
323 coff_lookup_type (int index
)
325 if (index
>= type_vector_length
)
327 int old_vector_length
= type_vector_length
;
329 type_vector_length
*= 2;
330 if (index
/* is still */ >= type_vector_length
)
331 type_vector_length
= index
* 2;
333 type_vector
= (struct type
**)
334 xrealloc ((char *) type_vector
,
335 type_vector_length
* sizeof (struct type
*));
336 memset (&type_vector
[old_vector_length
], 0,
337 (type_vector_length
- old_vector_length
) * sizeof (struct type
*));
339 return &type_vector
[index
];
342 /* Make sure there is a type allocated for type number index
343 and return the type object.
344 This can create an empty (zeroed) type object. */
347 coff_alloc_type (int index
)
349 struct type
**type_addr
= coff_lookup_type (index
);
350 struct type
*type
= *type_addr
;
352 /* If we are referring to a type not known at all yet,
353 allocate an empty type for it.
354 We will fill it in later if we find out how. */
357 type
= alloc_type (coffread_objfile
);
363 /* Start a new symtab for a new source file.
364 This is called when a COFF ".file" symbol is seen;
365 it indicates the start of data for one original source file. */
368 coff_start_compunit_symtab (struct objfile
*objfile
, const char *name
)
371 start_compunit_symtab (objfile
,
373 /* We never know the directory name for COFF. */
375 /* The start address is irrelevant, since we call
376 set_last_source_start_addr in coff_end_compunit_symtab. */
378 /* Let buildsym.c deduce the language for this symtab. */
380 record_debugformat ("COFF");
383 /* Save the vital information from when starting to read a file,
384 for use when closing off the current file.
385 NAME is the file name the symbols came from, START_ADDR is the
386 first text address for the file, and SIZE is the number of bytes of
390 complete_symtab (const char *name
, CORE_ADDR start_addr
, unsigned int size
)
392 set_last_source_file (name
);
393 current_source_start_addr
= start_addr
;
394 current_source_end_addr
= start_addr
+ size
;
397 /* Finish the symbol definitions for one main source file, close off
398 all the lexical contexts for that file (creating struct block's for
399 them), then make the struct symtab for that file and put it in the
403 coff_end_compunit_symtab (struct objfile
*objfile
)
405 set_last_source_start_addr (current_source_start_addr
);
407 end_compunit_symtab (current_source_end_addr
, SECT_OFF_TEXT (objfile
));
409 /* Reinitialize for beginning of new file. */
410 set_last_source_file (NULL
);
413 /* The linker sometimes generates some non-function symbols inside
414 functions referencing variables imported from another DLL.
415 Return nonzero if the given symbol corresponds to one of them. */
418 is_import_fixup_symbol (struct coff_symbol
*cs
,
419 enum minimal_symbol_type type
)
421 /* The following is a bit of a heuristic using the characteristics
422 of these fixup symbols, but should work well in practice... */
425 /* Must be a non-static text symbol. */
426 if (type
!= mst_text
)
429 /* Must be a non-function symbol. */
430 if (ISFCN (cs
->c_type
))
433 /* The name must start with "__fu<digits>__". */
434 if (!startswith (cs
->c_name
, "__fu"))
436 if (! isdigit (cs
->c_name
[4]))
438 for (i
= 5; cs
->c_name
[i
] != '\0' && isdigit (cs
->c_name
[i
]); i
++)
439 /* Nothing, just incrementing index past all digits. */;
440 if (cs
->c_name
[i
] != '_' || cs
->c_name
[i
+ 1] != '_')
446 static struct minimal_symbol
*
447 record_minimal_symbol (minimal_symbol_reader
&reader
,
448 struct coff_symbol
*cs
, CORE_ADDR address
,
449 enum minimal_symbol_type type
, int section
,
450 struct objfile
*objfile
)
452 /* We don't want TDESC entry points in the minimal symbol table. */
453 if (cs
->c_name
[0] == '@')
456 if (is_import_fixup_symbol (cs
, type
))
458 /* Because the value of these symbols is within a function code
459 range, these symbols interfere with the symbol-from-address
460 reverse lookup; this manifests itself in backtraces, or any
461 other commands that prints symbolic addresses. Just pretend
462 these symbols do not exist. */
466 return reader
.record_full (cs
->c_name
, true, address
, type
, section
);
469 /* coff_symfile_init ()
470 is the coff-specific initialization routine for reading symbols.
471 It is passed a struct objfile which contains, among other things,
472 the BFD for the file whose symbols are being read, and a slot for
473 a pointer to "private data" which we fill with cookies and other
474 treats for coff_symfile_read ().
476 We will only be called if this is a COFF or COFF-like file. BFD
477 handles figuring out the format of the file, and code in symtab.c
478 uses BFD's determination to vector to us.
480 The ultimate result is a new symtab (or, FIXME, eventually a
484 coff_symfile_init (struct objfile
*objfile
)
486 /* Allocate struct to keep track of the symfile. */
487 coff_objfile_data_key
.emplace (objfile
);
489 /* COFF objects may be reordered, so set OBJF_REORDERED. If we
490 find this causes a significant slowdown in gdb then we could
491 set it in the debug symbol readers only when necessary. */
492 objfile
->flags
|= OBJF_REORDERED
;
495 /* This function is called for every section; it finds the outer
496 limits of the line table (minimum and maximum file offset) so that
497 the mainline code can read the whole thing for efficiency. */
500 find_linenos (bfd
*abfd
, struct bfd_section
*asect
, void *vpinfo
)
502 struct coff_symfile_info
*info
;
504 file_ptr offset
, maxoff
;
506 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
507 count
= asect
->lineno_count
;
508 /* End of warning. */
512 size
= count
* local_linesz
;
514 info
= (struct coff_symfile_info
*) vpinfo
;
515 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
516 offset
= asect
->line_filepos
;
517 /* End of warning. */
519 if (offset
< info
->min_lineno_offset
|| info
->min_lineno_offset
== 0)
520 info
->min_lineno_offset
= offset
;
522 maxoff
= offset
+ size
;
523 if (maxoff
> info
->max_lineno_offset
)
524 info
->max_lineno_offset
= maxoff
;
528 /* The BFD for this file -- only good while we're actively reading
529 symbols into a psymtab or a symtab. */
531 static bfd
*symfile_bfd
;
533 /* Read a symbol file, after initialization by coff_symfile_init. */
536 coff_symfile_read (struct objfile
*objfile
, symfile_add_flags symfile_flags
)
538 struct coff_symfile_info
*info
;
539 bfd
*abfd
= objfile
->obfd
;
540 coff_data_type
*cdata
= coff_data (abfd
);
541 const char *filename
= bfd_get_filename (abfd
);
543 unsigned int num_symbols
;
544 file_ptr symtab_offset
;
545 file_ptr stringtab_offset
;
546 unsigned int stabstrsize
;
548 info
= coff_objfile_data_key
.get (objfile
);
549 symfile_bfd
= abfd
; /* Kludge for swap routines. */
551 std::vector
<asection
*> stabsects
;
552 scoped_restore restore_stabsects
553 = make_scoped_restore (&info
->stabsects
, &stabsects
);
555 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
556 num_symbols
= bfd_get_symcount (abfd
); /* How many syms */
557 symtab_offset
= cdata
->sym_filepos
; /* Symbol table file offset */
558 stringtab_offset
= symtab_offset
+ /* String table file offset */
559 num_symbols
* cdata
->local_symesz
;
561 /* Set a few file-statics that give us specific information about
562 the particular COFF file format we're reading. */
563 local_n_btmask
= cdata
->local_n_btmask
;
564 local_n_btshft
= cdata
->local_n_btshft
;
565 local_n_tmask
= cdata
->local_n_tmask
;
566 local_n_tshift
= cdata
->local_n_tshift
;
567 local_linesz
= cdata
->local_linesz
;
568 local_symesz
= cdata
->local_symesz
;
569 local_auxesz
= cdata
->local_auxesz
;
571 /* Allocate space for raw symbol and aux entries, based on their
572 space requirements as reported by BFD. */
573 gdb::def_vector
<char> temp_storage (cdata
->local_symesz
574 + cdata
->local_auxesz
);
575 temp_sym
= temp_storage
.data ();
576 temp_aux
= temp_sym
+ cdata
->local_symesz
;
578 /* We need to know whether this is a PE file, because in PE files,
579 unlike standard COFF files, symbol values are stored as offsets
580 from the section address, rather than as absolute addresses.
581 FIXME: We should use BFD to read the symbol table, and thus avoid
584 startswith (bfd_get_target (objfile
->obfd
), "pe")
585 || startswith (bfd_get_target (objfile
->obfd
), "epoc-pe");
587 /* End of warning. */
589 info
->min_lineno_offset
= 0;
590 info
->max_lineno_offset
= 0;
592 /* Only read line number information if we have symbols.
594 On Windows NT, some of the system's DLL's have sections with
595 PointerToLinenumbers fields that are non-zero, but point at
596 random places within the image file. (In the case I found,
597 KERNEL32.DLL's .text section has a line number info pointer that
598 points into the middle of the string `lib\\i386\kernel32.dll'.)
600 However, these DLL's also have no symbols. The line number
601 tables are meaningless without symbols. And in fact, GDB never
602 uses the line number information unless there are symbols. So we
603 can avoid spurious error messages (and maybe run a little
604 faster!) by not even reading the line number table unless we have
606 scoped_restore restore_linetab
= make_scoped_restore (&linetab
);
607 gdb::unique_xmalloc_ptr
<char> linetab_storage
;
610 /* Read the line number table, all at once. */
611 bfd_map_over_sections (abfd
, find_linenos
, (void *) info
);
613 val
= init_lineno (abfd
, info
->min_lineno_offset
,
614 info
->max_lineno_offset
- info
->min_lineno_offset
,
617 error (_("\"%s\": error reading line numbers."), filename
);
620 /* Now read the string table, all at once. */
622 scoped_restore restore_stringtab
= make_scoped_restore (&stringtab
);
623 gdb::unique_xmalloc_ptr
<char> stringtab_storage
;
624 val
= init_stringtab (abfd
, stringtab_offset
, &stringtab_storage
);
626 error (_("\"%s\": can't get string table"), filename
);
628 minimal_symbol_reader
reader (objfile
);
630 /* Now that the executable file is positioned at symbol table,
631 process it and define symbols accordingly. */
633 coff_symtab_read (reader
, (long) symtab_offset
, num_symbols
, objfile
);
635 /* Install any minimal symbols that have been collected as the
636 current minimal symbols for this objfile. */
642 for (minimal_symbol
*msym
: objfile
->msymbols ())
644 const char *name
= msym
->linkage_name ();
646 /* If the minimal symbols whose name are prefixed by "__imp_"
647 or "_imp_", get rid of the prefix, and search the minimal
648 symbol in OBJFILE. Note that 'maintenance print msymbols'
649 shows that type of these "_imp_XXXX" symbols is mst_data. */
650 if (msym
->type () == mst_data
)
652 const char *name1
= NULL
;
654 if (startswith (name
, "_imp_"))
656 else if (startswith (name
, "__imp_"))
660 int lead
= bfd_get_symbol_leading_char (objfile
->obfd
);
661 struct bound_minimal_symbol found
;
663 if (lead
!= '\0' && *name1
== lead
)
666 found
= lookup_minimal_symbol (name1
, NULL
, objfile
);
668 /* If found, there are symbols named "_imp_foo" and "foo"
669 respectively in OBJFILE. Set the type of symbol "foo"
670 as 'mst_solib_trampoline'. */
671 if (found
.minsym
!= NULL
672 && found
.minsym
->type () == mst_text
)
673 found
.minsym
->set_type (mst_solib_trampoline
);
679 if (!(objfile
->flags
& OBJF_READNEVER
))
680 bfd_map_over_sections (abfd
, coff_locate_sections
, (void *) info
);
682 if (!info
->stabsects
->empty())
684 if (!info
->stabstrsect
)
686 error (_("The debugging information in `%s' is corrupted.\nThe "
687 "file has a `.stabs' section, but no `.stabstr' section."),
691 /* FIXME: dubious. Why can't we use something normal like
692 bfd_get_section_contents? */
693 bfd_seek (abfd
, abfd
->where
, 0);
695 stabstrsize
= bfd_section_size (info
->stabstrsect
);
697 coffstab_build_psymtabs (objfile
,
698 info
->textaddr
, info
->textsize
,
700 info
->stabstrsect
->filepos
, stabstrsize
);
702 if (dwarf2_has_info (objfile
, NULL
))
704 /* DWARF2 sections. */
705 dwarf2_build_psymtabs (objfile
);
708 dwarf2_build_frame_info (objfile
);
710 /* Try to add separate debug file if no symbols table found. */
711 if (!objfile
->has_partial_symbols ())
713 std::string debugfile
= find_separate_debug_file_by_buildid (objfile
);
715 if (debugfile
.empty ())
716 debugfile
= find_separate_debug_file_by_debuglink (objfile
);
718 if (!debugfile
.empty ())
720 gdb_bfd_ref_ptr
debug_bfd (symfile_bfd_open (debugfile
.c_str ()));
722 symbol_file_add_separate (debug_bfd
.get (), debugfile
.c_str (),
723 symfile_flags
, objfile
);
729 coff_new_init (struct objfile
*ignore
)
733 /* Perform any local cleanups required when we are done with a
734 particular objfile. I.E, we are in the process of discarding all
735 symbol information for an objfile, freeing up all memory held for
736 it, and unlinking the objfile struct from the global list of known
740 coff_symfile_finish (struct objfile
*objfile
)
742 /* Let stabs reader clean up. */
743 stabsread_clear_cache ();
747 /* Given pointers to a symbol table in coff style exec file,
748 analyze them and create struct symtab's describing the symbols.
749 NSYMS is the number of symbols in the symbol table.
750 We read them one at a time using read_one_sym (). */
753 coff_symtab_read (minimal_symbol_reader
&reader
,
754 file_ptr symtab_offset
, unsigned int nsyms
,
755 struct objfile
*objfile
)
757 struct gdbarch
*gdbarch
= objfile
->arch ();
758 struct context_stack
*newobj
= nullptr;
759 struct coff_symbol coff_symbol
;
760 struct coff_symbol
*cs
= &coff_symbol
;
761 static struct internal_syment main_sym
;
762 static union internal_auxent main_aux
;
763 struct coff_symbol fcn_cs_saved
;
764 static struct internal_syment fcn_sym_saved
;
765 static union internal_auxent fcn_aux_saved
;
766 /* A .file is open. */
767 int in_source_file
= 0;
768 int next_file_symnum
= -1;
769 /* Name of the current file. */
770 const char *filestring
= "";
772 int fcn_first_line
= 0;
773 CORE_ADDR fcn_first_line_addr
= 0;
774 int fcn_last_line
= 0;
775 int fcn_start_addr
= 0;
776 long fcn_line_ptr
= 0;
779 struct minimal_symbol
*msym
;
781 scoped_free_pendings free_pending
;
783 /* Work around a stdio bug in SunOS4.1.1 (this makes me nervous....
784 it's hard to know I've really worked around it. The fix should
785 be harmless, anyway). The symptom of the bug is that the first
786 fread (in read_one_sym), will (in my example) actually get data
787 from file offset 268, when the fseek was to 264 (and ftell shows
788 264). This causes all hell to break loose. I was unable to
789 reproduce this on a short test program which operated on the same
790 file, performing (I think) the same sequence of operations.
792 It stopped happening when I put in this (former) rewind().
794 FIXME: Find out if this has been reported to Sun, whether it has
795 been fixed in a later release, etc. */
797 bfd_seek (objfile
->obfd
, 0, 0);
799 /* Position to read the symbol table. */
800 val
= bfd_seek (objfile
->obfd
, symtab_offset
, 0);
802 perror_with_name (objfile_name (objfile
));
804 coffread_objfile
= objfile
;
805 nlist_bfd_global
= objfile
->obfd
;
806 nlist_nsyms_global
= nsyms
;
807 set_last_source_file (NULL
);
808 memset (opaque_type_chain
, 0, sizeof opaque_type_chain
);
810 if (type_vector
) /* Get rid of previous one. */
812 type_vector_length
= INITIAL_TYPE_VECTOR_LENGTH
;
813 type_vector
= XCNEWVEC (struct type
*, type_vector_length
);
815 coff_start_compunit_symtab (objfile
, "");
818 while (symnum
< nsyms
)
820 QUIT
; /* Make this command interruptable. */
822 read_one_sym (cs
, &main_sym
, &main_aux
);
824 if (cs
->c_symnum
== next_file_symnum
&& cs
->c_sclass
!= C_FILE
)
826 if (get_last_source_file ())
827 coff_end_compunit_symtab (objfile
);
829 coff_start_compunit_symtab (objfile
, "_globals_");
830 /* coff_start_compunit_symtab will set the language of this symtab to
831 language_unknown, since such a ``file name'' is not
832 recognized. Override that with the minimal language to
833 allow printing values in this symtab. */
834 get_current_subfile ()->language
= language_minimal
;
835 complete_symtab ("_globals_", 0, 0);
836 /* Done with all files, everything from here on out is
840 /* Special case for file with type declarations only, no
842 if (!get_last_source_file () && SDB_TYPE (cs
->c_type
)
843 && cs
->c_secnum
== N_DEBUG
)
844 complete_symtab (filestring
, 0, 0);
846 /* Typedefs should not be treated as symbol definitions. */
847 if (ISFCN (cs
->c_type
) && cs
->c_sclass
!= C_TPDEF
)
849 /* Record all functions -- external and static -- in
851 int section
= cs_to_section (cs
, objfile
);
853 tmpaddr
= cs
->c_value
;
854 /* Don't record unresolved symbols. */
855 if (!(cs
->c_secnum
<= 0 && cs
->c_value
== 0))
856 record_minimal_symbol (reader
, cs
, tmpaddr
, mst_text
,
859 fcn_line_ptr
= main_aux
.x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
;
860 fcn_start_addr
= tmpaddr
;
862 fcn_sym_saved
= main_sym
;
863 fcn_aux_saved
= main_aux
;
867 switch (cs
->c_sclass
)
876 complaint (_("Bad n_sclass for symbol %s"),
881 /* c_value field contains symnum of next .file entry in
882 table or symnum of first global after last .file. */
883 next_file_symnum
= cs
->c_value
;
885 filestring
= coff_getfilename (&main_aux
);
889 /* Complete symbol table for last object file
890 containing debugging information. */
891 if (get_last_source_file ())
893 coff_end_compunit_symtab (objfile
);
894 coff_start_compunit_symtab (objfile
, filestring
);
899 /* C_LABEL is used for labels and static functions.
900 Including it here allows gdb to see static functions when
901 no debug info is available. */
903 /* However, labels within a function can make weird
904 backtraces, so filter them out (from phdm@macqel.be). */
911 case C_THUMBSTATFUNC
:
912 if (cs
->c_name
[0] == '.')
914 if (strcmp (cs
->c_name
, ".text") == 0)
916 /* FIXME: don't wire in ".text" as section name or
918 /* Check for in_source_file deals with case of a
919 file with debugging symbols followed by a later
920 file with no symbols. */
922 complete_symtab (filestring
,
924 + objfile
->text_section_offset ()),
925 main_aux
.x_scn
.x_scnlen
);
928 /* Flush rest of '.' symbols. */
931 else if (!SDB_TYPE (cs
->c_type
)
932 && cs
->c_name
[0] == 'L'
933 && (startswith (cs
->c_name
, "LI%")
934 || startswith (cs
->c_name
, "LF%")
935 || startswith (cs
->c_name
, "LC%")
936 || startswith (cs
->c_name
, "LP%")
937 || startswith (cs
->c_name
, "LPB%")
938 || startswith (cs
->c_name
, "LBB%")
939 || startswith (cs
->c_name
, "LBE%")
940 || startswith (cs
->c_name
, "LPBX%")))
941 /* At least on a 3b1, gcc generates swbeg and string labels
942 that look like this. Ignore them. */
944 /* For static symbols that don't start with '.'... */
950 /* Record it in the minimal symbols regardless of
951 SDB_TYPE. This parallels what we do for other debug
952 formats, and probably is needed to make
953 print_address_symbolic work right without the (now
954 gone) "set fast-symbolic-addr off" kludge. */
956 enum minimal_symbol_type ms_type
;
958 CORE_ADDR offset
= 0;
960 if (cs
->c_secnum
== N_UNDEF
)
962 /* This is a common symbol. We used to rely on
963 the target to tell us whether it knows where
964 the symbol has been relocated to, but none of
965 the target implementations actually provided
966 that operation. So we just ignore the symbol,
967 the same way we would do if we had a target-side
968 symbol lookup which returned no match. */
971 else if (cs
->c_secnum
== N_ABS
)
973 /* Use the correct minimal symbol type (and don't
974 relocate) for absolute values. */
976 sec
= cs_to_section (cs
, objfile
);
977 tmpaddr
= cs
->c_value
;
981 asection
*bfd_section
= cs_to_bfd_section (cs
, objfile
);
983 sec
= cs_to_section (cs
, objfile
);
984 tmpaddr
= cs
->c_value
;
985 /* Statics in a PE file also get relocated. */
986 if (cs
->c_sclass
== C_EXT
987 || cs
->c_sclass
== C_THUMBEXTFUNC
988 || cs
->c_sclass
== C_THUMBEXT
989 || (pe_file
&& (cs
->c_sclass
== C_STAT
)))
990 offset
= objfile
->section_offsets
[sec
];
992 if (bfd_section
->flags
& SEC_CODE
)
995 cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXTFUNC
996 || cs
->c_sclass
== C_THUMBEXT
?
997 mst_text
: mst_file_text
;
998 tmpaddr
= gdbarch_addr_bits_remove (gdbarch
, tmpaddr
);
1000 else if (bfd_section
->flags
& SEC_ALLOC
1001 && bfd_section
->flags
& SEC_LOAD
)
1004 cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXT
1005 ? mst_data
: mst_file_data
;
1007 else if (bfd_section
->flags
& SEC_ALLOC
)
1010 cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXT
1011 ? mst_bss
: mst_file_bss
;
1014 ms_type
= mst_unknown
;
1017 msym
= record_minimal_symbol (reader
, cs
, tmpaddr
, ms_type
,
1020 gdbarch_coff_make_msymbol_special (gdbarch
,
1021 cs
->c_sclass
, msym
);
1023 if (SDB_TYPE (cs
->c_type
))
1027 sym
= process_coff_symbol
1028 (cs
, &main_aux
, objfile
);
1029 sym
->set_value_longest (tmpaddr
+ offset
);
1030 sym
->set_section_index (sec
);
1036 if (strcmp (cs
->c_name
, ".bf") == 0)
1038 within_function
= 1;
1040 /* Value contains address of first non-init type
1042 /* main_aux.x_sym.x_misc.x_lnsz.x_lnno
1043 contains line number of '{' }. */
1044 if (cs
->c_naux
!= 1)
1045 complaint (_("`.bf' symbol %d has no aux entry"),
1047 fcn_first_line
= main_aux
.x_sym
.x_misc
.x_lnsz
.x_lnno
;
1048 fcn_first_line_addr
= cs
->c_value
;
1050 /* Might want to check that locals are 0 and
1051 context_stack_depth is zero, and complain if not. */
1054 newobj
= push_context (depth
, fcn_start_addr
);
1055 fcn_cs_saved
.c_name
= getsymname (&fcn_sym_saved
);
1057 process_coff_symbol (&fcn_cs_saved
,
1058 &fcn_aux_saved
, objfile
);
1060 else if (strcmp (cs
->c_name
, ".ef") == 0)
1062 if (!within_function
)
1063 error (_("Bad coff function information."));
1064 /* The value of .ef is the address of epilogue code;
1065 not useful for gdb. */
1066 /* { main_aux.x_sym.x_misc.x_lnsz.x_lnno
1067 contains number of lines to '}' */
1069 if (outermost_context_p ())
1070 { /* We attempted to pop an empty context stack. */
1071 complaint (_("`.ef' symbol without matching `.bf' "
1072 "symbol ignored starting at symnum %d"),
1074 within_function
= 0;
1078 struct context_stack cstk
= pop_context ();
1079 /* Stack must be empty now. */
1080 if (!outermost_context_p () || newobj
== NULL
)
1082 complaint (_("Unmatched .ef symbol(s) ignored "
1083 "starting at symnum %d"),
1085 within_function
= 0;
1088 if (cs
->c_naux
!= 1)
1090 complaint (_("`.ef' symbol %d has no aux entry"),
1092 fcn_last_line
= 0x7FFFFFFF;
1096 fcn_last_line
= main_aux
.x_sym
.x_misc
.x_lnsz
.x_lnno
;
1098 /* fcn_first_line is the line number of the opening '{'.
1099 Do not record it - because it would affect gdb's idea
1100 of the line number of the first statement of the
1101 function - except for one-line functions, for which
1102 it is also the line number of all the statements and
1103 of the closing '}', and for which we do not have any
1104 other statement-line-number. */
1105 if (fcn_last_line
== 1)
1106 record_line (get_current_subfile (), fcn_first_line
,
1107 gdbarch_addr_bits_remove (gdbarch
,
1108 fcn_first_line_addr
));
1110 enter_linenos (fcn_line_ptr
, fcn_first_line
,
1111 fcn_last_line
, objfile
);
1113 finish_block (cstk
.name
, cstk
.old_blocks
,
1114 NULL
, cstk
.start_addr
,
1115 fcn_cs_saved
.c_value
1116 + fcn_aux_saved
.x_sym
.x_misc
.x_fsize
1117 + objfile
->text_section_offset ());
1118 within_function
= 0;
1123 if (strcmp (cs
->c_name
, ".bb") == 0)
1125 tmpaddr
= cs
->c_value
;
1126 tmpaddr
+= objfile
->text_section_offset ();
1127 push_context (++depth
, tmpaddr
);
1129 else if (strcmp (cs
->c_name
, ".eb") == 0)
1131 if (outermost_context_p ())
1132 { /* We attempted to pop an empty context stack. */
1133 complaint (_("`.eb' symbol without matching `.bb' "
1134 "symbol ignored starting at symnum %d"),
1139 struct context_stack cstk
= pop_context ();
1140 if (depth
-- != cstk
.depth
)
1142 complaint (_("Mismatched .eb symbol ignored "
1143 "starting at symnum %d"),
1147 if (*get_local_symbols () && !outermost_context_p ())
1149 tmpaddr
= cs
->c_value
+ objfile
->text_section_offset ();
1150 /* Make a block for the local symbols within. */
1151 finish_block (0, cstk
.old_blocks
, NULL
,
1152 cstk
.start_addr
, tmpaddr
);
1154 /* Now pop locals of block just finished. */
1155 *get_local_symbols () = cstk
.locals
;
1160 process_coff_symbol (cs
, &main_aux
, objfile
);
1165 if ((nsyms
== 0) && (pe_file
))
1167 /* We've got no debugging symbols, but it's a portable
1168 executable, so try to read the export table. */
1169 read_pe_exported_syms (reader
, objfile
);
1172 if (get_last_source_file ())
1173 coff_end_compunit_symtab (objfile
);
1175 /* Patch up any opaque types (references to types that are not defined
1176 in the file where they are referenced, e.g. "struct foo *bar"). */
1178 for (compunit_symtab
*cu
: objfile
->compunits ())
1180 for (symtab
*s
: cu
->filetabs ())
1181 patch_opaque_types (s
);
1185 coffread_objfile
= NULL
;
1188 /* Routines for reading headers and symbols from executable. */
1190 /* Read the next symbol, swap it, and return it in both
1191 internal_syment form, and coff_symbol form. Also return its first
1192 auxent, if any, in internal_auxent form, and skip any other
1196 read_one_sym (struct coff_symbol
*cs
,
1197 struct internal_syment
*sym
,
1198 union internal_auxent
*aux
)
1201 bfd_size_type bytes
;
1203 cs
->c_symnum
= symnum
;
1204 bytes
= bfd_bread (temp_sym
, local_symesz
, nlist_bfd_global
);
1205 if (bytes
!= local_symesz
)
1206 error (_("%s: error reading symbols"), objfile_name (coffread_objfile
));
1207 bfd_coff_swap_sym_in (symfile_bfd
, temp_sym
, (char *) sym
);
1208 cs
->c_naux
= sym
->n_numaux
& 0xff;
1209 if (cs
->c_naux
>= 1)
1211 bytes
= bfd_bread (temp_aux
, local_auxesz
, nlist_bfd_global
);
1212 if (bytes
!= local_auxesz
)
1213 error (_("%s: error reading symbols"), objfile_name (coffread_objfile
));
1214 bfd_coff_swap_aux_in (symfile_bfd
, temp_aux
,
1215 sym
->n_type
, sym
->n_sclass
,
1216 0, cs
->c_naux
, (char *) aux
);
1217 /* If more than one aux entry, read past it (only the first aux
1219 for (i
= 1; i
< cs
->c_naux
; i
++)
1221 bytes
= bfd_bread (temp_aux
, local_auxesz
, nlist_bfd_global
);
1222 if (bytes
!= local_auxesz
)
1223 error (_("%s: error reading symbols"),
1224 objfile_name (coffread_objfile
));
1227 cs
->c_name
= getsymname (sym
);
1228 cs
->c_value
= sym
->n_value
;
1229 cs
->c_sclass
= (sym
->n_sclass
& 0xff);
1230 cs
->c_secnum
= sym
->n_scnum
;
1231 cs
->c_type
= (unsigned) sym
->n_type
;
1232 if (!SDB_TYPE (cs
->c_type
))
1236 if (cs
->c_sclass
& 128)
1237 printf (_("thumb symbol %s, class 0x%x\n"), cs
->c_name
, cs
->c_sclass
);
1240 symnum
+= 1 + cs
->c_naux
;
1242 /* The PE file format stores symbol values as offsets within the
1243 section, rather than as absolute addresses. We correct that
1244 here, if the symbol has an appropriate storage class. FIXME: We
1245 should use BFD to read the symbols, rather than duplicating the
1249 switch (cs
->c_sclass
)
1253 case C_THUMBEXTFUNC
:
1258 case C_THUMBSTATFUNC
:
1264 if (cs
->c_secnum
!= 0)
1265 cs
->c_value
+= cs_section_address (cs
, symfile_bfd
);
1271 /* Support for string table handling. */
1274 init_stringtab (bfd
*abfd
, file_ptr offset
, gdb::unique_xmalloc_ptr
<char> *storage
)
1278 unsigned char lengthbuf
[4];
1280 /* If the file is stripped, the offset might be zero, indicating no
1281 string table. Just return with `stringtab' set to null. */
1285 if (bfd_seek (abfd
, offset
, 0) < 0)
1288 val
= bfd_bread ((char *) lengthbuf
, sizeof lengthbuf
, abfd
);
1289 length
= bfd_h_get_32 (symfile_bfd
, lengthbuf
);
1291 /* If no string table is needed, then the file may end immediately
1292 after the symbols. Just return with `stringtab' set to null. */
1293 if (val
!= sizeof lengthbuf
|| length
< sizeof lengthbuf
)
1296 storage
->reset ((char *) xmalloc (length
));
1297 stringtab
= storage
->get ();
1298 /* This is in target format (probably not very useful, and not
1299 currently used), not host format. */
1300 memcpy (stringtab
, lengthbuf
, sizeof lengthbuf
);
1301 if (length
== sizeof length
) /* Empty table -- just the count. */
1304 val
= bfd_bread (stringtab
+ sizeof lengthbuf
,
1305 length
- sizeof lengthbuf
, abfd
);
1306 if (val
!= length
- sizeof lengthbuf
|| stringtab
[length
- 1] != '\0')
1313 getsymname (struct internal_syment
*symbol_entry
)
1315 static char buffer
[SYMNMLEN
+ 1];
1318 if (symbol_entry
->_n
._n_n
._n_zeroes
== 0)
1320 /* FIXME: Probably should be detecting corrupt symbol files by
1321 seeing whether offset points to within the stringtab. */
1322 result
= stringtab
+ symbol_entry
->_n
._n_n
._n_offset
;
1326 strncpy (buffer
, symbol_entry
->_n
._n_name
, SYMNMLEN
);
1327 buffer
[SYMNMLEN
] = '\0';
1333 /* Extract the file name from the aux entry of a C_FILE symbol.
1334 Return only the last component of the name. Result is in static
1335 storage and is only good for temporary use. */
1338 coff_getfilename (union internal_auxent
*aux_entry
)
1340 static char buffer
[BUFSIZ
];
1343 if (aux_entry
->x_file
.x_n
.x_n
.x_zeroes
== 0)
1345 if (strlen (stringtab
+ aux_entry
->x_file
.x_n
.x_n
.x_offset
) >= BUFSIZ
)
1346 internal_error (__FILE__
, __LINE__
, _("coff file name too long"));
1347 strcpy (buffer
, stringtab
+ aux_entry
->x_file
.x_n
.x_n
.x_offset
);
1351 strncpy (buffer
, aux_entry
->x_file
.x_n
.x_fname
, FILNMLEN
);
1352 buffer
[FILNMLEN
] = '\0';
1356 /* FIXME: We should not be throwing away the information about what
1357 directory. It should go into dirname of the symtab, or some such
1359 result
= lbasename (result
);
1363 /* Support for line number handling. */
1365 /* Read in all the line numbers for fast lookups later. Leave them in
1366 external (unswapped) format in memory; we'll swap them as we enter
1367 them into GDB's data structures. */
1370 init_lineno (bfd
*abfd
, file_ptr offset
, file_ptr size
,
1371 gdb::unique_xmalloc_ptr
<char> *storage
)
1375 linetab_offset
= offset
;
1376 linetab_size
= size
;
1381 if (bfd_seek (abfd
, offset
, 0) < 0)
1384 /* Allocate the desired table, plus a sentinel. */
1385 storage
->reset ((char *) xmalloc (size
+ local_linesz
));
1386 linetab
= storage
->get ();
1388 val
= bfd_bread (storage
->get (), size
, abfd
);
1392 /* Terminate it with an all-zero sentinel record. */
1393 memset (linetab
+ size
, 0, local_linesz
);
1398 #if !defined (L_LNNO32)
1399 #define L_LNNO32(lp) ((lp)->l_lnno)
1403 enter_linenos (file_ptr file_offset
, int first_line
,
1404 int last_line
, struct objfile
*objfile
)
1406 struct gdbarch
*gdbarch
= objfile
->arch ();
1408 struct internal_lineno lptr
;
1412 if (file_offset
< linetab_offset
)
1414 complaint (_("Line number pointer %s lower than start of line numbers"),
1415 plongest (file_offset
));
1416 if (file_offset
> linetab_size
) /* Too big to be an offset? */
1418 file_offset
+= linetab_offset
; /* Try reading at that linetab
1422 rawptr
= &linetab
[file_offset
- linetab_offset
];
1424 /* Skip first line entry for each function. */
1425 rawptr
+= local_linesz
;
1426 /* Line numbers start at one for the first line of the function. */
1429 /* If the line number table is full (e.g. 64K lines in COFF debug
1430 info), the next function's L_LNNO32 might not be zero, so don't
1431 overstep the table's end in any case. */
1432 while (rawptr
<= &linetab
[0] + linetab_size
)
1434 bfd_coff_swap_lineno_in (symfile_bfd
, rawptr
, &lptr
);
1435 rawptr
+= local_linesz
;
1436 /* The next function, or the sentinel, will have L_LNNO32 zero;
1438 if (L_LNNO32 (&lptr
) && L_LNNO32 (&lptr
) <= last_line
)
1440 CORE_ADDR addr
= lptr
.l_addr
.l_paddr
;
1441 addr
+= objfile
->text_section_offset ();
1442 record_line (get_current_subfile (),
1443 first_line
+ L_LNNO32 (&lptr
),
1444 gdbarch_addr_bits_remove (gdbarch
, addr
));
1452 patch_type (struct type
*type
, struct type
*real_type
)
1454 struct type
*target
= TYPE_TARGET_TYPE (type
);
1455 struct type
*real_target
= TYPE_TARGET_TYPE (real_type
);
1456 int field_size
= real_target
->num_fields () * sizeof (struct field
);
1458 TYPE_LENGTH (target
) = TYPE_LENGTH (real_target
);
1459 target
->set_num_fields (real_target
->num_fields ());
1461 field
*fields
= (struct field
*) TYPE_ALLOC (target
, field_size
);
1462 memcpy (fields
, real_target
->fields (), field_size
);
1463 target
->set_fields (fields
);
1465 if (real_target
->name ())
1467 /* The previous copy of TYPE_NAME is allocated by
1468 process_coff_symbol. */
1469 xfree ((char *) target
->name ());
1470 target
->set_name (xstrdup (real_target
->name ()));
1474 /* Patch up all appropriate typedef symbols in the opaque_type_chains
1475 so that they can be used to print out opaque data structures
1479 patch_opaque_types (struct symtab
*s
)
1481 const struct block
*b
;
1482 struct block_iterator iter
;
1483 struct symbol
*real_sym
;
1485 /* Go through the per-file symbols only. */
1486 b
= BLOCKVECTOR_BLOCK (s
->compunit ()->blockvector (), STATIC_BLOCK
);
1487 ALL_BLOCK_SYMBOLS (b
, iter
, real_sym
)
1489 /* Find completed typedefs to use to fix opaque ones.
1490 Remove syms from the chain when their types are stored,
1491 but search the whole chain, as there may be several syms
1492 from different files with the same name. */
1493 if (real_sym
->aclass () == LOC_TYPEDEF
1494 && real_sym
->domain () == VAR_DOMAIN
1495 && real_sym
->type ()->code () == TYPE_CODE_PTR
1496 && TYPE_LENGTH (TYPE_TARGET_TYPE (real_sym
->type ())) != 0)
1498 const char *name
= real_sym
->linkage_name ();
1499 int hash
= hashname (name
);
1500 struct symbol
*sym
, *prev
;
1503 for (sym
= opaque_type_chain
[hash
]; sym
;)
1505 if (name
[0] == sym
->linkage_name ()[0]
1506 && strcmp (name
+ 1, sym
->linkage_name () + 1) == 0)
1509 prev
->set_value_chain (sym
->value_chain ());
1511 opaque_type_chain
[hash
] = sym
->value_chain ();
1513 patch_type (sym
->type (), real_sym
->type ());
1516 sym
= prev
->value_chain ();
1518 sym
= opaque_type_chain
[hash
];
1523 sym
->set_value_chain (sym
);
1531 coff_reg_to_regnum (struct symbol
*sym
, struct gdbarch
*gdbarch
)
1533 return gdbarch_sdb_reg_to_regnum (gdbarch
, sym
->value_longest ());
1536 static const struct symbol_register_ops coff_register_funcs
= {
1540 /* The "aclass" index for computed COFF symbols. */
1542 static int coff_register_index
;
1544 static struct symbol
*
1545 process_coff_symbol (struct coff_symbol
*cs
,
1546 union internal_auxent
*aux
,
1547 struct objfile
*objfile
)
1549 struct symbol
*sym
= new (&objfile
->objfile_obstack
) symbol
;
1553 name
= EXTERNAL_NAME (name
, objfile
->obfd
);
1554 sym
->set_language (get_current_subfile ()->language
,
1555 &objfile
->objfile_obstack
);
1556 sym
->compute_and_set_names (name
, true, objfile
->per_bfd
);
1558 /* default assumptions */
1559 sym
->set_value_longest (cs
->c_value
);
1560 sym
->set_domain (VAR_DOMAIN
);
1561 sym
->set_section_index (cs_to_section (cs
, objfile
));
1563 if (ISFCN (cs
->c_type
))
1565 sym
->set_value_longest
1566 (sym
->value_longest () + objfile
->text_section_offset ());
1568 (lookup_function_type (decode_function_type (cs
, cs
->c_type
,
1571 sym
->set_aclass_index (LOC_BLOCK
);
1572 if (cs
->c_sclass
== C_STAT
|| cs
->c_sclass
== C_THUMBSTAT
1573 || cs
->c_sclass
== C_THUMBSTATFUNC
)
1574 add_symbol_to_list (sym
, get_file_symbols ());
1575 else if (cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXT
1576 || cs
->c_sclass
== C_THUMBEXTFUNC
)
1577 add_symbol_to_list (sym
, get_global_symbols ());
1581 sym
->set_type (decode_type (cs
, cs
->c_type
, aux
, objfile
));
1582 switch (cs
->c_sclass
)
1588 sym
->set_aclass_index (LOC_LOCAL
);
1589 add_symbol_to_list (sym
, get_local_symbols ());
1593 case C_THUMBEXTFUNC
:
1595 sym
->set_aclass_index (LOC_STATIC
);
1596 sym
->set_value_address ((CORE_ADDR
) cs
->c_value
1597 + objfile
->section_offsets
[SECT_OFF_TEXT (objfile
)]);
1598 add_symbol_to_list (sym
, get_global_symbols ());
1602 case C_THUMBSTATFUNC
:
1604 sym
->set_aclass_index (LOC_STATIC
);
1605 sym
->set_value_address ((CORE_ADDR
) cs
->c_value
1606 + objfile
->section_offsets
[SECT_OFF_TEXT (objfile
)]);
1607 if (within_function
)
1609 /* Static symbol of local scope. */
1610 add_symbol_to_list (sym
, get_local_symbols ());
1614 /* Static symbol at top level of file. */
1615 add_symbol_to_list (sym
, get_file_symbols ());
1619 #ifdef C_GLBLREG /* AMD coff */
1623 sym
->set_aclass_index (coff_register_index
);
1624 sym
->set_value_longest (cs
->c_value
);
1625 add_symbol_to_list (sym
, get_local_symbols ());
1633 sym
->set_aclass_index (LOC_ARG
);
1634 sym
->set_is_argument (1);
1635 add_symbol_to_list (sym
, get_local_symbols ());
1639 sym
->set_aclass_index (coff_register_index
);
1640 sym
->set_is_argument (1);
1641 sym
->set_value_longest (cs
->c_value
);
1642 add_symbol_to_list (sym
, get_local_symbols ());
1646 sym
->set_aclass_index (LOC_TYPEDEF
);
1647 sym
->set_domain (VAR_DOMAIN
);
1649 /* If type has no name, give it one. */
1650 if (sym
->type ()->name () == 0)
1652 if (sym
->type ()->code () == TYPE_CODE_PTR
1653 || sym
->type ()->code () == TYPE_CODE_FUNC
)
1655 /* If we are giving a name to a type such as
1656 "pointer to foo" or "function returning foo", we
1657 better not set the TYPE_NAME. If the program
1658 contains "typedef char *caddr_t;", we don't want
1659 all variables of type char * to print as caddr_t.
1660 This is not just a consequence of GDB's type
1661 management; CC and GCC (at least through version
1662 2.4) both output variables of either type char *
1663 or caddr_t with the type refering to the C_TPDEF
1664 symbol for caddr_t. If a future compiler cleans
1665 this up it GDB is not ready for it yet, but if it
1666 becomes ready we somehow need to disable this
1667 check (without breaking the PCC/GCC2.4 case).
1671 Fortunately, this check seems not to be necessary
1672 for anything except pointers or functions. */
1676 sym
->type ()->set_name (xstrdup (sym
->linkage_name ()));
1679 /* Keep track of any type which points to empty structured
1680 type, so it can be filled from a definition from another
1681 file. A simple forward reference (TYPE_CODE_UNDEF) is
1682 not an empty structured type, though; the forward
1683 references work themselves out via the magic of
1684 coff_lookup_type. */
1685 if (sym
->type ()->code () == TYPE_CODE_PTR
1686 && TYPE_LENGTH (TYPE_TARGET_TYPE (sym
->type ())) == 0
1687 && TYPE_TARGET_TYPE (sym
->type ())->code ()
1690 int i
= hashname (sym
->linkage_name ());
1692 sym
->set_value_chain (opaque_type_chain
[i
]);
1693 opaque_type_chain
[i
] = sym
;
1695 add_symbol_to_list (sym
, get_file_symbols ());
1701 sym
->set_aclass_index (LOC_TYPEDEF
);
1702 sym
->set_domain (STRUCT_DOMAIN
);
1704 /* Some compilers try to be helpful by inventing "fake"
1705 names for anonymous enums, structures, and unions, like
1706 "~0fake" or ".0fake". Thanks, but no thanks... */
1707 if (sym
->type ()->name () == 0)
1708 if (sym
->linkage_name () != NULL
1709 && *sym
->linkage_name () != '~'
1710 && *sym
->linkage_name () != '.')
1711 sym
->type ()->set_name (xstrdup (sym
->linkage_name ()));
1713 add_symbol_to_list (sym
, get_file_symbols ());
1723 /* Decode a coff type specifier; return the type that is meant. */
1725 static struct type
*
1726 decode_type (struct coff_symbol
*cs
, unsigned int c_type
,
1727 union internal_auxent
*aux
, struct objfile
*objfile
)
1729 struct type
*type
= 0;
1730 unsigned int new_c_type
;
1732 if (c_type
& ~N_BTMASK
)
1734 new_c_type
= DECREF (c_type
);
1737 type
= decode_type (cs
, new_c_type
, aux
, objfile
);
1738 type
= lookup_pointer_type (type
);
1740 else if (ISFCN (c_type
))
1742 type
= decode_type (cs
, new_c_type
, aux
, objfile
);
1743 type
= lookup_function_type (type
);
1745 else if (ISARY (c_type
))
1748 unsigned short *dim
;
1749 struct type
*base_type
, *index_type
, *range_type
;
1751 /* Define an array type. */
1752 /* auxent refers to array, not base type. */
1753 if (aux
->x_sym
.x_tagndx
.l
== 0)
1756 /* Shift the indices down. */
1757 dim
= &aux
->x_sym
.x_fcnary
.x_ary
.x_dimen
[0];
1760 for (i
= 0; *dim
&& i
< DIMNUM
- 1; i
++, dim
++)
1764 base_type
= decode_type (cs
, new_c_type
, aux
, objfile
);
1765 index_type
= objfile_type (objfile
)->builtin_int
;
1767 = create_static_range_type (NULL
, index_type
, 0, n
- 1);
1769 create_array_type (NULL
, base_type
, range_type
);
1774 /* Reference to existing type. This only occurs with the struct,
1775 union, and enum types. EPI a29k coff fakes us out by producing
1776 aux entries with a nonzero x_tagndx for definitions of structs,
1777 unions, and enums, so we have to check the c_sclass field. SCO
1778 3.2v4 cc gets confused with pointers to pointers to defined
1779 structs, and generates negative x_tagndx fields. */
1780 if (cs
->c_naux
> 0 && aux
->x_sym
.x_tagndx
.l
!= 0)
1782 if (cs
->c_sclass
!= C_STRTAG
1783 && cs
->c_sclass
!= C_UNTAG
1784 && cs
->c_sclass
!= C_ENTAG
1785 && aux
->x_sym
.x_tagndx
.l
>= 0)
1787 type
= coff_alloc_type (aux
->x_sym
.x_tagndx
.l
);
1792 complaint (_("Symbol table entry for %s has bad tagndx value"),
1794 /* And fall through to decode_base_type... */
1798 return decode_base_type (cs
, BTYPE (c_type
), aux
, objfile
);
1801 /* Decode a coff type specifier for function definition;
1802 return the type that the function returns. */
1804 static struct type
*
1805 decode_function_type (struct coff_symbol
*cs
,
1806 unsigned int c_type
,
1807 union internal_auxent
*aux
,
1808 struct objfile
*objfile
)
1810 if (aux
->x_sym
.x_tagndx
.l
== 0)
1811 cs
->c_naux
= 0; /* auxent refers to function, not base
1814 return decode_type (cs
, DECREF (c_type
), aux
, objfile
);
1817 /* Basic C types. */
1819 static struct type
*
1820 decode_base_type (struct coff_symbol
*cs
,
1821 unsigned int c_type
,
1822 union internal_auxent
*aux
,
1823 struct objfile
*objfile
)
1825 struct gdbarch
*gdbarch
= objfile
->arch ();
1831 /* Shows up with "void (*foo)();" structure members. */
1832 return objfile_type (objfile
)->builtin_void
;
1836 /* Intel 960 COFF has this symbol and meaning. */
1837 return objfile_type (objfile
)->builtin_void
;
1841 return objfile_type (objfile
)->builtin_char
;
1844 return objfile_type (objfile
)->builtin_short
;
1847 return objfile_type (objfile
)->builtin_int
;
1850 if (cs
->c_sclass
== C_FIELD
1851 && aux
->x_sym
.x_misc
.x_lnsz
.x_size
1852 > gdbarch_long_bit (gdbarch
))
1853 return objfile_type (objfile
)->builtin_long_long
;
1855 return objfile_type (objfile
)->builtin_long
;
1858 return objfile_type (objfile
)->builtin_float
;
1861 return objfile_type (objfile
)->builtin_double
;
1864 return objfile_type (objfile
)->builtin_long_double
;
1867 if (cs
->c_naux
!= 1)
1869 /* Anonymous structure type. */
1870 type
= coff_alloc_type (cs
->c_symnum
);
1871 type
->set_code (TYPE_CODE_STRUCT
);
1872 type
->set_name (NULL
);
1873 INIT_CPLUS_SPECIFIC (type
);
1874 TYPE_LENGTH (type
) = 0;
1875 type
->set_fields (nullptr);
1876 type
->set_num_fields (0);
1880 type
= coff_read_struct_type (cs
->c_symnum
,
1881 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1882 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
,
1888 if (cs
->c_naux
!= 1)
1890 /* Anonymous union type. */
1891 type
= coff_alloc_type (cs
->c_symnum
);
1892 type
->set_name (NULL
);
1893 INIT_CPLUS_SPECIFIC (type
);
1894 TYPE_LENGTH (type
) = 0;
1895 type
->set_fields (nullptr);
1896 type
->set_num_fields (0);
1900 type
= coff_read_struct_type (cs
->c_symnum
,
1901 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1902 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
,
1905 type
->set_code (TYPE_CODE_UNION
);
1909 if (cs
->c_naux
!= 1)
1911 /* Anonymous enum type. */
1912 type
= coff_alloc_type (cs
->c_symnum
);
1913 type
->set_code (TYPE_CODE_ENUM
);
1914 type
->set_name (NULL
);
1915 TYPE_LENGTH (type
) = 0;
1916 type
->set_fields (nullptr);
1917 type
->set_num_fields (0);
1921 type
= coff_read_enum_type (cs
->c_symnum
,
1922 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1923 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
,
1929 /* Shouldn't show up here. */
1933 return objfile_type (objfile
)->builtin_unsigned_char
;
1936 return objfile_type (objfile
)->builtin_unsigned_short
;
1939 return objfile_type (objfile
)->builtin_unsigned_int
;
1942 if (cs
->c_sclass
== C_FIELD
1943 && aux
->x_sym
.x_misc
.x_lnsz
.x_size
1944 > gdbarch_long_bit (gdbarch
))
1945 return objfile_type (objfile
)->builtin_unsigned_long_long
;
1947 return objfile_type (objfile
)->builtin_unsigned_long
;
1949 complaint (_("Unexpected type for symbol %s"), cs
->c_name
);
1950 return objfile_type (objfile
)->builtin_void
;
1953 /* This page contains subroutines of read_type. */
1955 /* Read the description of a structure (or union type) and return an
1956 object describing the type. */
1958 static struct type
*
1959 coff_read_struct_type (int index
, int length
, int lastsym
,
1960 struct objfile
*objfile
)
1964 struct nextfield
*next
;
1969 struct nextfield
*list
= 0;
1970 struct nextfield
*newobj
;
1974 struct coff_symbol member_sym
;
1975 struct coff_symbol
*ms
= &member_sym
;
1976 struct internal_syment sub_sym
;
1977 union internal_auxent sub_aux
;
1980 type
= coff_alloc_type (index
);
1981 type
->set_code (TYPE_CODE_STRUCT
);
1982 INIT_CPLUS_SPECIFIC (type
);
1983 TYPE_LENGTH (type
) = length
;
1985 while (!done
&& symnum
< lastsym
&& symnum
< nlist_nsyms_global
)
1987 read_one_sym (ms
, &sub_sym
, &sub_aux
);
1989 name
= EXTERNAL_NAME (name
, objfile
->obfd
);
1991 switch (ms
->c_sclass
)
1996 /* Get space to record the next field's data. */
1997 newobj
= XALLOCA (struct nextfield
);
1998 newobj
->next
= list
;
2001 /* Save the data. */
2002 list
->field
.set_name (obstack_strdup (&objfile
->objfile_obstack
,
2004 list
->field
.set_type (decode_type (ms
, ms
->c_type
, &sub_aux
,
2006 list
->field
.set_loc_bitpos (8 * ms
->c_value
);
2007 FIELD_BITSIZE (list
->field
) = 0;
2013 /* Get space to record the next field's data. */
2014 newobj
= XALLOCA (struct nextfield
);
2015 newobj
->next
= list
;
2018 /* Save the data. */
2019 list
->field
.set_name (obstack_strdup (&objfile
->objfile_obstack
,
2021 list
->field
.set_type (decode_type (ms
, ms
->c_type
, &sub_aux
,
2023 list
->field
.set_loc_bitpos (ms
->c_value
);
2024 FIELD_BITSIZE (list
->field
) = sub_aux
.x_sym
.x_misc
.x_lnsz
.x_size
;
2033 /* Now create the vector of fields, and record how big it is. */
2035 type
->set_num_fields (nfields
);
2037 ((struct field
*) TYPE_ALLOC (type
, sizeof (struct field
) * nfields
));
2039 /* Copy the saved-up fields into the field vector. */
2041 for (n
= nfields
; list
; list
= list
->next
)
2042 type
->field (--n
) = list
->field
;
2047 /* Read a definition of an enumeration type,
2048 and create and return a suitable type object.
2049 Also defines the symbols that represent the values of the type. */
2051 static struct type
*
2052 coff_read_enum_type (int index
, int length
, int lastsym
,
2053 struct objfile
*objfile
)
2055 struct gdbarch
*gdbarch
= objfile
->arch ();
2060 struct pending
**symlist
;
2061 struct coff_symbol member_sym
;
2062 struct coff_symbol
*ms
= &member_sym
;
2063 struct internal_syment sub_sym
;
2064 union internal_auxent sub_aux
;
2065 struct pending
*osyms
, *syms
;
2069 int unsigned_enum
= 1;
2071 type
= coff_alloc_type (index
);
2072 if (within_function
)
2073 symlist
= get_local_symbols ();
2075 symlist
= get_file_symbols ();
2077 o_nsyms
= osyms
? osyms
->nsyms
: 0;
2079 while (!done
&& symnum
< lastsym
&& symnum
< nlist_nsyms_global
)
2081 read_one_sym (ms
, &sub_sym
, &sub_aux
);
2083 name
= EXTERNAL_NAME (name
, objfile
->obfd
);
2085 switch (ms
->c_sclass
)
2088 sym
= new (&objfile
->objfile_obstack
) symbol
;
2090 name
= obstack_strdup (&objfile
->objfile_obstack
, name
);
2091 sym
->set_linkage_name (name
);
2092 sym
->set_aclass_index (LOC_CONST
);
2093 sym
->set_domain (VAR_DOMAIN
);
2094 sym
->set_value_longest (ms
->c_value
);
2095 add_symbol_to_list (sym
, symlist
);
2100 /* Sometimes the linker (on 386/ix 2.0.2 at least) screws
2101 up the count of how many symbols to read. So stop
2108 /* Now fill in the fields of the type-structure. */
2111 TYPE_LENGTH (type
) = length
;
2112 else /* Assume ints. */
2113 TYPE_LENGTH (type
) = gdbarch_int_bit (gdbarch
) / TARGET_CHAR_BIT
;
2114 type
->set_code (TYPE_CODE_ENUM
);
2115 type
->set_num_fields (nsyms
);
2117 ((struct field
*) TYPE_ALLOC (type
, sizeof (struct field
) * nsyms
));
2119 /* Find the symbols for the values and put them into the type.
2120 The symbols can be found in the symlist that we put them on
2121 to cause them to be defined. osyms contains the old value
2122 of that symlist; everything up to there was defined by us. */
2123 /* Note that we preserve the order of the enum constants, so
2124 that in something like "enum {FOO, LAST_THING=FOO}" we print
2125 FOO, not LAST_THING. */
2127 for (syms
= *symlist
, n
= 0; syms
; syms
= syms
->next
)
2133 for (; j
< syms
->nsyms
; j
++, n
++)
2135 struct symbol
*xsym
= syms
->symbol
[j
];
2137 xsym
->set_type (type
);
2138 type
->field (n
).set_name (xsym
->linkage_name ());
2139 type
->field (n
).set_loc_enumval (xsym
->value_longest ());
2140 if (xsym
->value_longest () < 0)
2142 TYPE_FIELD_BITSIZE (type
, n
) = 0;
2149 type
->set_is_unsigned (true);
2154 /* Register our ability to parse symbols for coff BFD files. */
2156 static const struct sym_fns coff_sym_fns
=
2158 coff_new_init
, /* sym_new_init: init anything gbl to
2160 coff_symfile_init
, /* sym_init: read initial info, setup
2162 coff_symfile_read
, /* sym_read: read a symbol file into
2164 coff_symfile_finish
, /* sym_finish: finished with file,
2166 default_symfile_offsets
, /* sym_offsets: xlate external to
2168 default_symfile_segments
, /* sym_segments: Get segment
2169 information from a file */
2170 NULL
, /* sym_read_linetable */
2172 default_symfile_relocate
, /* sym_relocate: Relocate a debug
2174 NULL
, /* sym_probe_fns */
2177 void _initialize_coffread ();
2179 _initialize_coffread ()
2181 add_symtab_fns (bfd_target_coff_flavour
, &coff_sym_fns
);
2184 = register_symbol_register_impl (LOC_REGISTER
, &coff_register_funcs
);