1 /* Read coff symbol tables and convert to internal format, for GDB.
2 Copyright (C) 1987-2014 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"
32 #include "coff/internal.h" /* Internal format of COFF symbols in BFD */
33 #include "libcoff.h" /* FIXME secret internal data from BFD */
36 #include "gdb-stabs.h"
37 #include "stabsread.h"
38 #include "complaints.h"
41 #include "dictionary.h"
43 #include "coff-pe-read.h"
47 extern void _initialize_coffread (void);
49 /* Key for COFF-associated data. */
51 static const struct objfile_data
*coff_objfile_data_key
;
53 /* The objfile we are currently reading. */
55 static struct objfile
*coffread_objfile
;
57 struct coff_symfile_info
59 file_ptr min_lineno_offset
; /* Where in file lowest line#s are. */
60 file_ptr max_lineno_offset
; /* 1+last byte of line#s in file. */
62 CORE_ADDR textaddr
; /* Addr of .text section. */
63 unsigned int textsize
; /* Size of .text section. */
64 struct stab_section_list
*stabsects
; /* .stab sections. */
65 asection
*stabstrsect
; /* Section pointer for .stab section. */
69 /* Translate an external name string into a user-visible name. */
70 #define EXTERNAL_NAME(string, abfd) \
71 (string[0] == bfd_get_symbol_leading_char (abfd) \
72 ? string + 1 : string)
74 /* To be an sdb debug type, type must have at least a basic or primary
75 derived type. Using this rather than checking against T_NULL is
76 said to prevent core dumps if we try to operate on Michael Bloom
79 #define SDB_TYPE(type) (BTYPE(type) | (type & N_TMASK))
81 /* Core address of start and end of text of current source file.
82 This comes from a ".text" symbol where x_nlinno > 0. */
84 static CORE_ADDR current_source_start_addr
;
85 static CORE_ADDR current_source_end_addr
;
87 /* The addresses of the symbol table stream and number of symbols
88 of the object file we are reading (as copied into core). */
90 static bfd
*nlist_bfd_global
;
91 static int nlist_nsyms_global
;
94 /* Pointers to scratch storage, used for reading raw symbols and
97 static char *temp_sym
;
98 static char *temp_aux
;
100 /* Local variables that hold the shift and mask values for the
101 COFF file that we are currently reading. These come back to us
102 from BFD, and are referenced by their macro names, as well as
103 internally to the BTYPE, ISPTR, ISFCN, ISARY, ISTAG, and DECREF
104 macros from include/coff/internal.h . */
106 static unsigned local_n_btmask
;
107 static unsigned local_n_btshft
;
108 static unsigned local_n_tmask
;
109 static unsigned local_n_tshift
;
111 #define N_BTMASK local_n_btmask
112 #define N_BTSHFT local_n_btshft
113 #define N_TMASK local_n_tmask
114 #define N_TSHIFT local_n_tshift
116 /* Local variables that hold the sizes in the file of various COFF
117 structures. (We only need to know this to read them from the file
118 -- BFD will then translate the data in them, into `internal_xxx'
119 structs in the right byte order, alignment, etc.) */
121 static unsigned local_linesz
;
122 static unsigned local_symesz
;
123 static unsigned local_auxesz
;
125 /* This is set if this is a PE format file. */
129 /* Chain of typedefs of pointers to empty struct/union types.
130 They are chained thru the SYMBOL_VALUE_CHAIN. */
132 static struct symbol
*opaque_type_chain
[HASHSIZE
];
134 /* Simplified internal version of coff symbol table information. */
139 int c_symnum
; /* Symbol number of this entry. */
140 int c_naux
; /* 0 if syment only, 1 if syment +
148 /* Vector of types defined so far, indexed by their type numbers. */
150 static struct type
**type_vector
;
152 /* Number of elements allocated for type_vector currently. */
154 static int type_vector_length
;
156 /* Initial size of type vector. Is realloc'd larger if needed, and
157 realloc'd down to the size actually used, when completed. */
159 #define INITIAL_TYPE_VECTOR_LENGTH 160
161 extern void stabsread_clear_cache (void);
163 static struct type
*coff_read_struct_type (int, int, int,
166 static struct type
*decode_base_type (struct coff_symbol
*,
168 union internal_auxent
*,
171 static struct type
*decode_type (struct coff_symbol
*, unsigned int,
172 union internal_auxent
*,
175 static struct type
*decode_function_type (struct coff_symbol
*,
177 union internal_auxent
*,
180 static struct type
*coff_read_enum_type (int, int, int,
183 static struct symbol
*process_coff_symbol (struct coff_symbol
*,
184 union internal_auxent
*,
187 static void patch_opaque_types (struct symtab
*);
189 static void enter_linenos (long, int, int, struct objfile
*);
191 static void free_linetab (void);
193 static void free_linetab_cleanup (void *ignore
);
195 static int init_lineno (bfd
*, long, int);
197 static char *getsymname (struct internal_syment
*);
199 static const char *coff_getfilename (union internal_auxent
*);
201 static void free_stringtab (void);
203 static void free_stringtab_cleanup (void *ignore
);
205 static int init_stringtab (bfd
*, long);
207 static void read_one_sym (struct coff_symbol
*,
208 struct internal_syment
*,
209 union internal_auxent
*);
211 static void coff_symtab_read (long, unsigned int, struct objfile
*);
213 /* We are called once per section from coff_symfile_read. We
214 need to examine each section we are passed, check to see
215 if it is something we are interested in processing, and
216 if so, stash away some access information for the section.
218 FIXME: The section names should not be hardwired strings (what
219 should they be? I don't think most object file formats have enough
220 section flags to specify what kind of debug section it is
224 coff_locate_sections (bfd
*abfd
, asection
*sectp
, void *csip
)
226 struct coff_symfile_info
*csi
;
229 csi
= (struct coff_symfile_info
*) csip
;
230 name
= bfd_get_section_name (abfd
, sectp
);
231 if (strcmp (name
, ".text") == 0)
233 csi
->textaddr
= bfd_section_vma (abfd
, sectp
);
234 csi
->textsize
+= bfd_section_size (abfd
, sectp
);
236 else if (strncmp (name
, ".text", sizeof ".text" - 1) == 0)
238 csi
->textsize
+= bfd_section_size (abfd
, sectp
);
240 else if (strcmp (name
, ".stabstr") == 0)
242 csi
->stabstrsect
= sectp
;
244 else if (strncmp (name
, ".stab", sizeof ".stab" - 1) == 0)
248 /* We can have multiple .stab sections if linked with
250 for (s
= name
+ sizeof ".stab" - 1; *s
!= '\0'; s
++)
255 struct stab_section_list
*n
, **pn
;
257 n
= ((struct stab_section_list
*)
258 xmalloc (sizeof (struct stab_section_list
)));
261 for (pn
= &csi
->stabsects
; *pn
!= NULL
; pn
= &(*pn
)->next
)
265 /* This will be run after coffstab_build_psymtabs is called
266 in coff_symfile_read, at which point we no longer need
268 make_cleanup (xfree
, n
);
273 /* Return the section_offsets* that CS points to. */
274 static int cs_to_section (struct coff_symbol
*, struct objfile
*);
276 struct find_targ_sec_arg
283 find_targ_sec (bfd
*abfd
, asection
*sect
, void *obj
)
285 struct find_targ_sec_arg
*args
= (struct find_targ_sec_arg
*) obj
;
287 if (sect
->target_index
== args
->targ_index
)
288 *args
->resultp
= sect
;
291 /* Return the bfd_section that CS points to. */
292 static struct bfd_section
*
293 cs_to_bfd_section (struct coff_symbol
*cs
, struct objfile
*objfile
)
295 asection
*sect
= NULL
;
296 struct find_targ_sec_arg args
;
298 args
.targ_index
= cs
->c_secnum
;
299 args
.resultp
= §
;
300 bfd_map_over_sections (objfile
->obfd
, find_targ_sec
, &args
);
304 /* Return the section number (SECT_OFF_*) that CS points to. */
306 cs_to_section (struct coff_symbol
*cs
, struct objfile
*objfile
)
308 asection
*sect
= cs_to_bfd_section (cs
, objfile
);
311 return SECT_OFF_TEXT (objfile
);
312 return gdb_bfd_section_index (objfile
->obfd
, sect
);
315 /* Return the address of the section of a COFF symbol. */
317 static CORE_ADDR
cs_section_address (struct coff_symbol
*, bfd
*);
320 cs_section_address (struct coff_symbol
*cs
, bfd
*abfd
)
322 asection
*sect
= NULL
;
323 struct find_targ_sec_arg args
;
326 args
.targ_index
= cs
->c_secnum
;
327 args
.resultp
= §
;
328 bfd_map_over_sections (abfd
, find_targ_sec
, &args
);
330 addr
= bfd_get_section_vma (abfd
, sect
);
334 /* Look up a coff type-number index. Return the address of the slot
335 where the type for that index is stored.
336 The type-number is in INDEX.
338 This can be used for finding the type associated with that index
339 or for associating a new type with the index. */
341 static struct type
**
342 coff_lookup_type (int index
)
344 if (index
>= type_vector_length
)
346 int old_vector_length
= type_vector_length
;
348 type_vector_length
*= 2;
349 if (index
/* is still */ >= type_vector_length
)
350 type_vector_length
= index
* 2;
352 type_vector
= (struct type
**)
353 xrealloc ((char *) type_vector
,
354 type_vector_length
* sizeof (struct type
*));
355 memset (&type_vector
[old_vector_length
], 0,
356 (type_vector_length
- old_vector_length
) * sizeof (struct type
*));
358 return &type_vector
[index
];
361 /* Make sure there is a type allocated for type number index
362 and return the type object.
363 This can create an empty (zeroed) type object. */
366 coff_alloc_type (int index
)
368 struct type
**type_addr
= coff_lookup_type (index
);
369 struct type
*type
= *type_addr
;
371 /* If we are referring to a type not known at all yet,
372 allocate an empty type for it.
373 We will fill it in later if we find out how. */
376 type
= alloc_type (coffread_objfile
);
382 /* Start a new symtab for a new source file.
383 This is called when a COFF ".file" symbol is seen;
384 it indicates the start of data for one original source file. */
387 coff_start_symtab (const char *name
)
390 /* We fill in the filename later. start_symtab puts this pointer
391 into last_source_file and we put it in subfiles->name, which
392 end_symtab frees; that's why it must be malloc'd. */
394 /* We never know the directory name for COFF. */
396 /* The start address is irrelevant, since we set
397 last_source_start_addr in coff_end_symtab. */
399 record_debugformat ("COFF");
402 /* Save the vital information from when starting to read a file,
403 for use when closing off the current file.
404 NAME is the file name the symbols came from, START_ADDR is the
405 first text address for the file, and SIZE is the number of bytes of
409 complete_symtab (const char *name
, CORE_ADDR start_addr
, unsigned int size
)
411 set_last_source_file (name
);
412 current_source_start_addr
= start_addr
;
413 current_source_end_addr
= start_addr
+ size
;
416 /* Finish the symbol definitions for one main source file, close off
417 all the lexical contexts for that file (creating struct block's for
418 them), then make the struct symtab for that file and put it in the
422 coff_end_symtab (struct objfile
*objfile
)
424 last_source_start_addr
= current_source_start_addr
;
426 end_symtab (current_source_end_addr
, objfile
,
427 SECT_OFF_TEXT (objfile
));
429 /* Reinitialize for beginning of new file. */
430 set_last_source_file (NULL
);
433 /* The linker sometimes generates some non-function symbols inside
434 functions referencing variables imported from another DLL.
435 Return nonzero if the given symbol corresponds to one of them. */
438 is_import_fixup_symbol (struct coff_symbol
*cs
,
439 enum minimal_symbol_type type
)
441 /* The following is a bit of a heuristic using the characterictics
442 of these fixup symbols, but should work well in practice... */
445 /* Must be a non-static text symbol. */
446 if (type
!= mst_text
)
449 /* Must be a non-function symbol. */
450 if (ISFCN (cs
->c_type
))
453 /* The name must start with "__fu<digits>__". */
454 if (strncmp (cs
->c_name
, "__fu", 4) != 0)
456 if (! isdigit (cs
->c_name
[4]))
458 for (i
= 5; cs
->c_name
[i
] != '\0' && isdigit (cs
->c_name
[i
]); i
++)
459 /* Nothing, just incrementing index past all digits. */;
460 if (cs
->c_name
[i
] != '_' || cs
->c_name
[i
+ 1] != '_')
466 static struct minimal_symbol
*
467 record_minimal_symbol (struct coff_symbol
*cs
, CORE_ADDR address
,
468 enum minimal_symbol_type type
, int section
,
469 struct objfile
*objfile
)
471 /* We don't want TDESC entry points in the minimal symbol table. */
472 if (cs
->c_name
[0] == '@')
475 if (is_import_fixup_symbol (cs
, type
))
477 /* Because the value of these symbols is within a function code
478 range, these symbols interfere with the symbol-from-address
479 reverse lookup; this manifests itselfs in backtraces, or any
480 other commands that prints symbolic addresses. Just pretend
481 these symbols do not exist. */
485 return prim_record_minimal_symbol_and_info (cs
->c_name
, address
,
486 type
, section
, objfile
);
489 /* coff_symfile_init ()
490 is the coff-specific initialization routine for reading symbols.
491 It is passed a struct objfile which contains, among other things,
492 the BFD for the file whose symbols are being read, and a slot for
493 a pointer to "private data" which we fill with cookies and other
494 treats for coff_symfile_read ().
496 We will only be called if this is a COFF or COFF-like file. BFD
497 handles figuring out the format of the file, and code in symtab.c
498 uses BFD's determination to vector to us.
500 The ultimate result is a new symtab (or, FIXME, eventually a
504 coff_symfile_init (struct objfile
*objfile
)
506 struct dbx_symfile_info
*dbx
;
507 struct coff_symfile_info
*coff
;
509 /* Allocate struct to keep track of stab reading. */
510 dbx
= XCNEW (struct dbx_symfile_info
);
511 set_objfile_data (objfile
, dbx_objfile_data_key
, dbx
);
513 /* Allocate struct to keep track of the symfile. */
514 coff
= XCNEW (struct coff_symfile_info
);
515 set_objfile_data (objfile
, coff_objfile_data_key
, coff
);
517 /* COFF objects may be reordered, so set OBJF_REORDERED. If we
518 find this causes a significant slowdown in gdb then we could
519 set it in the debug symbol readers only when necessary. */
520 objfile
->flags
|= OBJF_REORDERED
;
523 /* This function is called for every section; it finds the outer
524 limits of the line table (minimum and maximum file offset) so that
525 the mainline code can read the whole thing for efficiency. */
528 find_linenos (bfd
*abfd
, struct bfd_section
*asect
, void *vpinfo
)
530 struct coff_symfile_info
*info
;
532 file_ptr offset
, maxoff
;
534 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
535 count
= asect
->lineno_count
;
536 /* End of warning. */
540 size
= count
* local_linesz
;
542 info
= (struct coff_symfile_info
*) vpinfo
;
543 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
544 offset
= asect
->line_filepos
;
545 /* End of warning. */
547 if (offset
< info
->min_lineno_offset
|| info
->min_lineno_offset
== 0)
548 info
->min_lineno_offset
= offset
;
550 maxoff
= offset
+ size
;
551 if (maxoff
> info
->max_lineno_offset
)
552 info
->max_lineno_offset
= maxoff
;
556 /* The BFD for this file -- only good while we're actively reading
557 symbols into a psymtab or a symtab. */
559 static bfd
*symfile_bfd
;
561 /* Read a symbol file, after initialization by coff_symfile_init. */
564 coff_symfile_read (struct objfile
*objfile
, int symfile_flags
)
566 struct coff_symfile_info
*info
;
567 struct dbx_symfile_info
*dbxinfo
;
568 bfd
*abfd
= objfile
->obfd
;
569 coff_data_type
*cdata
= coff_data (abfd
);
570 char *name
= bfd_get_filename (abfd
);
572 unsigned int num_symbols
;
574 int stringtab_offset
;
575 struct cleanup
*back_to
, *cleanup_minimal_symbols
;
578 info
= objfile_data (objfile
, coff_objfile_data_key
);
579 dbxinfo
= DBX_SYMFILE_INFO (objfile
);
580 symfile_bfd
= abfd
; /* Kludge for swap routines. */
582 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
583 num_symbols
= bfd_get_symcount (abfd
); /* How many syms */
584 symtab_offset
= cdata
->sym_filepos
; /* Symbol table file offset */
585 stringtab_offset
= symtab_offset
+ /* String table file offset */
586 num_symbols
* cdata
->local_symesz
;
588 /* Set a few file-statics that give us specific information about
589 the particular COFF file format we're reading. */
590 local_n_btmask
= cdata
->local_n_btmask
;
591 local_n_btshft
= cdata
->local_n_btshft
;
592 local_n_tmask
= cdata
->local_n_tmask
;
593 local_n_tshift
= cdata
->local_n_tshift
;
594 local_linesz
= cdata
->local_linesz
;
595 local_symesz
= cdata
->local_symesz
;
596 local_auxesz
= cdata
->local_auxesz
;
598 /* Allocate space for raw symbol and aux entries, based on their
599 space requirements as reported by BFD. */
600 temp_sym
= (char *) xmalloc
601 (cdata
->local_symesz
+ cdata
->local_auxesz
);
602 temp_aux
= temp_sym
+ cdata
->local_symesz
;
603 back_to
= make_cleanup (free_current_contents
, &temp_sym
);
605 /* We need to know whether this is a PE file, because in PE files,
606 unlike standard COFF files, symbol values are stored as offsets
607 from the section address, rather than as absolute addresses.
608 FIXME: We should use BFD to read the symbol table, and thus avoid
611 strncmp (bfd_get_target (objfile
->obfd
), "pe", 2) == 0
612 || strncmp (bfd_get_target (objfile
->obfd
), "epoc-pe", 7) == 0;
614 /* End of warning. */
616 info
->min_lineno_offset
= 0;
617 info
->max_lineno_offset
= 0;
619 /* Only read line number information if we have symbols.
621 On Windows NT, some of the system's DLL's have sections with
622 PointerToLinenumbers fields that are non-zero, but point at
623 random places within the image file. (In the case I found,
624 KERNEL32.DLL's .text section has a line number info pointer that
625 points into the middle of the string `lib\\i386\kernel32.dll'.)
627 However, these DLL's also have no symbols. The line number
628 tables are meaningless without symbols. And in fact, GDB never
629 uses the line number information unless there are symbols. So we
630 can avoid spurious error messages (and maybe run a little
631 faster!) by not even reading the line number table unless we have
635 /* Read the line number table, all at once. */
636 bfd_map_over_sections (abfd
, find_linenos
, (void *) info
);
638 make_cleanup (free_linetab_cleanup
, 0 /*ignore*/);
639 val
= init_lineno (abfd
, info
->min_lineno_offset
,
640 info
->max_lineno_offset
- info
->min_lineno_offset
);
642 error (_("\"%s\": error reading line numbers."), name
);
645 /* Now read the string table, all at once. */
647 make_cleanup (free_stringtab_cleanup
, 0 /*ignore*/);
648 val
= init_stringtab (abfd
, stringtab_offset
);
650 error (_("\"%s\": can't get string table"), name
);
652 init_minimal_symbol_collection ();
653 cleanup_minimal_symbols
= make_cleanup_discard_minimal_symbols ();
655 /* Now that the executable file is positioned at symbol table,
656 process it and define symbols accordingly. */
658 coff_symtab_read ((long) symtab_offset
, num_symbols
, objfile
);
660 /* Install any minimal symbols that have been collected as the
661 current minimal symbols for this objfile. */
663 install_minimal_symbols (objfile
);
667 struct minimal_symbol
*msym
;
669 ALL_OBJFILE_MSYMBOLS (objfile
, msym
)
671 const char *name
= MSYMBOL_LINKAGE_NAME (msym
);
673 /* If the minimal symbols whose name are prefixed by "__imp_"
674 or "_imp_", get rid of the prefix, and search the minimal
675 symbol in OBJFILE. Note that 'maintenance print msymbols'
676 shows that type of these "_imp_XXXX" symbols is mst_data. */
677 if (MSYMBOL_TYPE (msym
) == mst_data
678 && (strncmp (name
, "__imp_", 6) == 0
679 || strncmp (name
, "_imp_", 5) == 0))
681 const char *name1
= (name
[1] == '_' ? &name
[7] : &name
[6]);
682 struct bound_minimal_symbol found
;
684 found
= lookup_minimal_symbol (name1
, NULL
, objfile
);
685 /* If found, there are symbols named "_imp_foo" and "foo"
686 respectively in OBJFILE. Set the type of symbol "foo"
687 as 'mst_solib_trampoline'. */
688 if (found
.minsym
!= NULL
689 && MSYMBOL_TYPE (found
.minsym
) == mst_text
)
690 MSYMBOL_TYPE (found
.minsym
) = mst_solib_trampoline
;
695 /* Free the installed minimal symbol data. */
696 do_cleanups (cleanup_minimal_symbols
);
698 bfd_map_over_sections (abfd
, coff_locate_sections
, (void *) info
);
702 if (!info
->stabstrsect
)
704 error (_("The debugging information in `%s' is corrupted.\nThe "
705 "file has a `.stabs' section, but no `.stabstr' section."),
709 /* FIXME: dubious. Why can't we use something normal like
710 bfd_get_section_contents? */
711 bfd_seek (abfd
, abfd
->where
, 0);
713 stabstrsize
= bfd_section_size (abfd
, info
->stabstrsect
);
715 coffstab_build_psymtabs (objfile
,
716 info
->textaddr
, info
->textsize
,
718 info
->stabstrsect
->filepos
, stabstrsize
);
720 if (dwarf2_has_info (objfile
, NULL
))
722 /* DWARF2 sections. */
723 dwarf2_build_psymtabs (objfile
);
726 dwarf2_build_frame_info (objfile
);
728 /* Try to add separate debug file if no symbols table found. */
729 if (!objfile_has_partial_symbols (objfile
))
733 debugfile
= find_separate_debug_file_by_debuglink (objfile
);
734 make_cleanup (xfree
, debugfile
);
738 bfd
*abfd
= symfile_bfd_open (debugfile
);
740 make_cleanup_bfd_unref (abfd
);
741 symbol_file_add_separate (abfd
, debugfile
, symfile_flags
, objfile
);
745 do_cleanups (back_to
);
749 coff_new_init (struct objfile
*ignore
)
753 /* Perform any local cleanups required when we are done with a
754 particular objfile. I.E, we are in the process of discarding all
755 symbol information for an objfile, freeing up all memory held for
756 it, and unlinking the objfile struct from the global list of known
760 coff_symfile_finish (struct objfile
*objfile
)
762 /* Let stabs reader clean up. */
763 stabsread_clear_cache ();
765 dwarf2_free_objfile (objfile
);
769 /* Given pointers to a symbol table in coff style exec file,
770 analyze them and create struct symtab's describing the symbols.
771 NSYMS is the number of symbols in the symbol table.
772 We read them one at a time using read_one_sym (). */
775 coff_symtab_read (long symtab_offset
, unsigned int nsyms
,
776 struct objfile
*objfile
)
778 struct gdbarch
*gdbarch
= get_objfile_arch (objfile
);
779 struct context_stack
*new;
780 struct coff_symbol coff_symbol
;
781 struct coff_symbol
*cs
= &coff_symbol
;
782 static struct internal_syment main_sym
;
783 static union internal_auxent main_aux
;
784 struct coff_symbol fcn_cs_saved
;
785 static struct internal_syment fcn_sym_saved
;
786 static union internal_auxent fcn_aux_saved
;
788 /* A .file is open. */
789 int in_source_file
= 0;
790 int next_file_symnum
= -1;
791 /* Name of the current file. */
792 const char *filestring
= "";
794 int fcn_first_line
= 0;
795 CORE_ADDR fcn_first_line_addr
= 0;
796 int fcn_last_line
= 0;
797 int fcn_start_addr
= 0;
798 long fcn_line_ptr
= 0;
801 struct minimal_symbol
*msym
;
803 /* Work around a stdio bug in SunOS4.1.1 (this makes me nervous....
804 it's hard to know I've really worked around it. The fix should
805 be harmless, anyway). The symptom of the bug is that the first
806 fread (in read_one_sym), will (in my example) actually get data
807 from file offset 268, when the fseek was to 264 (and ftell shows
808 264). This causes all hell to break loose. I was unable to
809 reproduce this on a short test program which operated on the same
810 file, performing (I think) the same sequence of operations.
812 It stopped happening when I put in this (former) rewind().
814 FIXME: Find out if this has been reported to Sun, whether it has
815 been fixed in a later release, etc. */
817 bfd_seek (objfile
->obfd
, 0, 0);
819 /* Position to read the symbol table. */
820 val
= bfd_seek (objfile
->obfd
, (long) symtab_offset
, 0);
822 perror_with_name (objfile_name (objfile
));
824 coffread_objfile
= objfile
;
825 nlist_bfd_global
= objfile
->obfd
;
826 nlist_nsyms_global
= nsyms
;
827 set_last_source_file (NULL
);
828 memset (opaque_type_chain
, 0, sizeof opaque_type_chain
);
830 if (type_vector
) /* Get rid of previous one. */
832 type_vector_length
= INITIAL_TYPE_VECTOR_LENGTH
;
833 type_vector
= (struct type
**)
834 xmalloc (type_vector_length
* sizeof (struct type
*));
835 memset (type_vector
, 0, type_vector_length
* sizeof (struct type
*));
837 coff_start_symtab ("");
840 while (symnum
< nsyms
)
842 QUIT
; /* Make this command interruptable. */
844 read_one_sym (cs
, &main_sym
, &main_aux
);
846 if (cs
->c_symnum
== next_file_symnum
&& cs
->c_sclass
!= C_FILE
)
848 if (get_last_source_file ())
849 coff_end_symtab (objfile
);
851 coff_start_symtab ("_globals_");
852 /* coff_start_symtab will set the language of this symtab to
853 language_unknown, since such a ``file name'' is not
854 recognized. Override that with the minimal language to
855 allow printing values in this symtab. */
856 current_subfile
->language
= language_minimal
;
857 complete_symtab ("_globals_", 0, 0);
858 /* Done with all files, everything from here on out is
862 /* Special case for file with type declarations only, no
864 if (!get_last_source_file () && SDB_TYPE (cs
->c_type
)
865 && cs
->c_secnum
== N_DEBUG
)
866 complete_symtab (filestring
, 0, 0);
868 /* Typedefs should not be treated as symbol definitions. */
869 if (ISFCN (cs
->c_type
) && cs
->c_sclass
!= C_TPDEF
)
871 /* Record all functions -- external and static -- in
873 int section
= cs_to_section (cs
, objfile
);
875 tmpaddr
= cs
->c_value
;
876 record_minimal_symbol (cs
, tmpaddr
, mst_text
,
879 fcn_line_ptr
= main_aux
.x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
;
880 fcn_start_addr
= tmpaddr
;
882 fcn_sym_saved
= main_sym
;
883 fcn_aux_saved
= main_aux
;
887 switch (cs
->c_sclass
)
896 complaint (&symfile_complaints
,
897 _("Bad n_sclass for symbol %s"),
902 /* c_value field contains symnum of next .file entry in
903 table or symnum of first global after last .file. */
904 next_file_symnum
= cs
->c_value
;
906 filestring
= coff_getfilename (&main_aux
);
910 /* Complete symbol table for last object file
911 containing debugging information. */
912 if (get_last_source_file ())
914 coff_end_symtab (objfile
);
915 coff_start_symtab (filestring
);
920 /* C_LABEL is used for labels and static functions.
921 Including it here allows gdb to see static functions when
922 no debug info is available. */
924 /* However, labels within a function can make weird
925 backtraces, so filter them out (from phdm@macqel.be). */
931 case C_THUMBSTATFUNC
:
932 if (cs
->c_name
[0] == '.')
934 if (strcmp (cs
->c_name
, ".text") == 0)
936 /* FIXME: don't wire in ".text" as section name or
938 /* Check for in_source_file deals with case of a
939 file with debugging symbols followed by a later
940 file with no symbols. */
942 complete_symtab (filestring
,
943 cs
->c_value
+ ANOFFSET (objfile
->section_offsets
,
944 SECT_OFF_TEXT (objfile
)),
945 main_aux
.x_scn
.x_scnlen
);
948 /* Flush rest of '.' symbols. */
951 else if (!SDB_TYPE (cs
->c_type
)
952 && cs
->c_name
[0] == 'L'
953 && (strncmp (cs
->c_name
, "LI%", 3) == 0
954 || strncmp (cs
->c_name
, "LF%", 3) == 0
955 || strncmp (cs
->c_name
, "LC%", 3) == 0
956 || strncmp (cs
->c_name
, "LP%", 3) == 0
957 || strncmp (cs
->c_name
, "LPB%", 4) == 0
958 || strncmp (cs
->c_name
, "LBB%", 4) == 0
959 || strncmp (cs
->c_name
, "LBE%", 4) == 0
960 || strncmp (cs
->c_name
, "LPBX%", 5) == 0))
961 /* At least on a 3b1, gcc generates swbeg and string labels
962 that look like this. Ignore them. */
964 /* Fall in for static symbols that don't start with '.' */
969 /* Record it in the minimal symbols regardless of
970 SDB_TYPE. This parallels what we do for other debug
971 formats, and probably is needed to make
972 print_address_symbolic work right without the (now
973 gone) "set fast-symbolic-addr off" kludge. */
975 enum minimal_symbol_type ms_type
;
977 CORE_ADDR offset
= 0;
979 if (cs
->c_secnum
== N_UNDEF
)
981 /* This is a common symbol. We used to rely on
982 the target to tell us whether it knows where
983 the symbol has been relocated to, but none of
984 the target implementations actually provided
985 that operation. So we just ignore the symbol,
986 the same way we would do if we had a target-side
987 symbol lookup which returned no match. */
990 else if (cs
->c_secnum
== N_ABS
)
992 /* Use the correct minimal symbol type (and don't
993 relocate) for absolute values. */
995 sec
= cs_to_section (cs
, objfile
);
996 tmpaddr
= cs
->c_value
;
1000 asection
*bfd_section
= cs_to_bfd_section (cs
, objfile
);
1002 sec
= cs_to_section (cs
, objfile
);
1003 tmpaddr
= cs
->c_value
;
1004 /* Statics in a PE file also get relocated. */
1005 if (cs
->c_sclass
== C_EXT
1006 || cs
->c_sclass
== C_THUMBEXTFUNC
1007 || cs
->c_sclass
== C_THUMBEXT
1008 || (pe_file
&& (cs
->c_sclass
== C_STAT
)))
1009 offset
= ANOFFSET (objfile
->section_offsets
, sec
);
1011 if (bfd_section
->flags
& SEC_CODE
)
1014 cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXTFUNC
1015 || cs
->c_sclass
== C_THUMBEXT
?
1016 mst_text
: mst_file_text
;
1017 tmpaddr
= gdbarch_addr_bits_remove (gdbarch
, tmpaddr
);
1019 else if (bfd_section
->flags
& SEC_ALLOC
1020 && bfd_section
->flags
& SEC_LOAD
)
1023 cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXT
1024 ? mst_data
: mst_file_data
;
1026 else if (bfd_section
->flags
& SEC_ALLOC
)
1029 cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXT
1030 ? mst_bss
: mst_file_bss
;
1033 ms_type
= mst_unknown
;
1036 msym
= record_minimal_symbol (cs
, tmpaddr
, ms_type
,
1039 gdbarch_coff_make_msymbol_special (gdbarch
,
1040 cs
->c_sclass
, msym
);
1042 if (SDB_TYPE (cs
->c_type
))
1046 sym
= process_coff_symbol
1047 (cs
, &main_aux
, objfile
);
1048 SYMBOL_VALUE (sym
) = tmpaddr
+ offset
;
1049 SYMBOL_SECTION (sym
) = sec
;
1055 if (strcmp (cs
->c_name
, ".bf") == 0)
1057 within_function
= 1;
1059 /* Value contains address of first non-init type
1061 /* main_aux.x_sym.x_misc.x_lnsz.x_lnno
1062 contains line number of '{' }. */
1063 if (cs
->c_naux
!= 1)
1064 complaint (&symfile_complaints
,
1065 _("`.bf' symbol %d has no aux entry"),
1067 fcn_first_line
= main_aux
.x_sym
.x_misc
.x_lnsz
.x_lnno
;
1068 fcn_first_line_addr
= cs
->c_value
;
1070 /* Might want to check that locals are 0 and
1071 context_stack_depth is zero, and complain if not. */
1074 new = push_context (depth
, fcn_start_addr
);
1075 fcn_cs_saved
.c_name
= getsymname (&fcn_sym_saved
);
1077 process_coff_symbol (&fcn_cs_saved
,
1078 &fcn_aux_saved
, objfile
);
1080 else if (strcmp (cs
->c_name
, ".ef") == 0)
1082 if (!within_function
)
1083 error (_("Bad coff function information."));
1084 /* The value of .ef is the address of epilogue code;
1085 not useful for gdb. */
1086 /* { main_aux.x_sym.x_misc.x_lnsz.x_lnno
1087 contains number of lines to '}' */
1089 if (context_stack_depth
<= 0)
1090 { /* We attempted to pop an empty context stack. */
1091 complaint (&symfile_complaints
,
1092 _("`.ef' symbol without matching `.bf' "
1093 "symbol ignored starting at symnum %d"),
1095 within_function
= 0;
1099 new = pop_context ();
1100 /* Stack must be empty now. */
1101 if (context_stack_depth
> 0 || new == NULL
)
1103 complaint (&symfile_complaints
,
1104 _("Unmatched .ef symbol(s) ignored "
1105 "starting at symnum %d"),
1107 within_function
= 0;
1110 if (cs
->c_naux
!= 1)
1112 complaint (&symfile_complaints
,
1113 _("`.ef' symbol %d has no aux entry"),
1115 fcn_last_line
= 0x7FFFFFFF;
1119 fcn_last_line
= main_aux
.x_sym
.x_misc
.x_lnsz
.x_lnno
;
1121 /* fcn_first_line is the line number of the opening '{'.
1122 Do not record it - because it would affect gdb's idea
1123 of the line number of the first statement of the
1124 function - except for one-line functions, for which
1125 it is also the line number of all the statements and
1126 of the closing '}', and for which we do not have any
1127 other statement-line-number. */
1128 if (fcn_last_line
== 1)
1129 record_line (current_subfile
, fcn_first_line
,
1130 gdbarch_addr_bits_remove (gdbarch
,
1131 fcn_first_line_addr
));
1133 enter_linenos (fcn_line_ptr
, fcn_first_line
,
1134 fcn_last_line
, objfile
);
1136 finish_block (new->name
, &local_symbols
,
1137 new->old_blocks
, new->start_addr
,
1138 fcn_cs_saved
.c_value
1139 + fcn_aux_saved
.x_sym
.x_misc
.x_fsize
1140 + ANOFFSET (objfile
->section_offsets
,
1141 SECT_OFF_TEXT (objfile
)),
1144 within_function
= 0;
1149 if (strcmp (cs
->c_name
, ".bb") == 0)
1151 tmpaddr
= cs
->c_value
;
1152 tmpaddr
+= ANOFFSET (objfile
->section_offsets
,
1153 SECT_OFF_TEXT (objfile
));
1154 push_context (++depth
, tmpaddr
);
1156 else if (strcmp (cs
->c_name
, ".eb") == 0)
1158 if (context_stack_depth
<= 0)
1159 { /* We attempted to pop an empty context stack. */
1160 complaint (&symfile_complaints
,
1161 _("`.eb' symbol without matching `.bb' "
1162 "symbol ignored starting at symnum %d"),
1167 new = pop_context ();
1168 if (depth
-- != new->depth
)
1170 complaint (&symfile_complaints
,
1171 _("Mismatched .eb symbol ignored "
1172 "starting at symnum %d"),
1176 if (local_symbols
&& context_stack_depth
> 0)
1179 cs
->c_value
+ ANOFFSET (objfile
->section_offsets
,
1180 SECT_OFF_TEXT (objfile
));
1181 /* Make a block for the local symbols within. */
1182 finish_block (0, &local_symbols
, new->old_blocks
,
1183 new->start_addr
, tmpaddr
, objfile
);
1185 /* Now pop locals of block just finished. */
1186 local_symbols
= new->locals
;
1191 process_coff_symbol (cs
, &main_aux
, objfile
);
1196 if ((nsyms
== 0) && (pe_file
))
1198 /* We've got no debugging symbols, but it's a portable
1199 executable, so try to read the export table. */
1200 read_pe_exported_syms (objfile
);
1203 if (get_last_source_file ())
1204 coff_end_symtab (objfile
);
1206 /* Patch up any opaque types (references to types that are not defined
1207 in the file where they are referenced, e.g. "struct foo *bar"). */
1208 ALL_OBJFILE_SYMTABS (objfile
, s
)
1209 patch_opaque_types (s
);
1211 coffread_objfile
= NULL
;
1214 /* Routines for reading headers and symbols from executable. */
1216 /* Read the next symbol, swap it, and return it in both
1217 internal_syment form, and coff_symbol form. Also return its first
1218 auxent, if any, in internal_auxent form, and skip any other
1222 read_one_sym (struct coff_symbol
*cs
,
1223 struct internal_syment
*sym
,
1224 union internal_auxent
*aux
)
1227 bfd_size_type bytes
;
1229 cs
->c_symnum
= symnum
;
1230 bytes
= bfd_bread (temp_sym
, local_symesz
, nlist_bfd_global
);
1231 if (bytes
!= local_symesz
)
1232 error (_("%s: error reading symbols"), objfile_name (coffread_objfile
));
1233 bfd_coff_swap_sym_in (symfile_bfd
, temp_sym
, (char *) sym
);
1234 cs
->c_naux
= sym
->n_numaux
& 0xff;
1235 if (cs
->c_naux
>= 1)
1237 bytes
= bfd_bread (temp_aux
, local_auxesz
, nlist_bfd_global
);
1238 if (bytes
!= local_auxesz
)
1239 error (_("%s: error reading symbols"), objfile_name (coffread_objfile
));
1240 bfd_coff_swap_aux_in (symfile_bfd
, temp_aux
,
1241 sym
->n_type
, sym
->n_sclass
,
1242 0, cs
->c_naux
, (char *) aux
);
1243 /* If more than one aux entry, read past it (only the first aux
1245 for (i
= 1; i
< cs
->c_naux
; i
++)
1247 bytes
= bfd_bread (temp_aux
, local_auxesz
, nlist_bfd_global
);
1248 if (bytes
!= local_auxesz
)
1249 error (_("%s: error reading symbols"),
1250 objfile_name (coffread_objfile
));
1253 cs
->c_name
= getsymname (sym
);
1254 cs
->c_value
= sym
->n_value
;
1255 cs
->c_sclass
= (sym
->n_sclass
& 0xff);
1256 cs
->c_secnum
= sym
->n_scnum
;
1257 cs
->c_type
= (unsigned) sym
->n_type
;
1258 if (!SDB_TYPE (cs
->c_type
))
1262 if (cs
->c_sclass
& 128)
1263 printf (_("thumb symbol %s, class 0x%x\n"), cs
->c_name
, cs
->c_sclass
);
1266 symnum
+= 1 + cs
->c_naux
;
1268 /* The PE file format stores symbol values as offsets within the
1269 section, rather than as absolute addresses. We correct that
1270 here, if the symbol has an appropriate storage class. FIXME: We
1271 should use BFD to read the symbols, rather than duplicating the
1275 switch (cs
->c_sclass
)
1279 case C_THUMBEXTFUNC
:
1284 case C_THUMBSTATFUNC
:
1290 if (cs
->c_secnum
!= 0)
1291 cs
->c_value
+= cs_section_address (cs
, symfile_bfd
);
1297 /* Support for string table handling. */
1299 static char *stringtab
= NULL
;
1302 init_stringtab (bfd
*abfd
, long offset
)
1306 unsigned char lengthbuf
[4];
1310 /* If the file is stripped, the offset might be zero, indicating no
1311 string table. Just return with `stringtab' set to null. */
1315 if (bfd_seek (abfd
, offset
, 0) < 0)
1318 val
= bfd_bread ((char *) lengthbuf
, sizeof lengthbuf
, abfd
);
1319 length
= bfd_h_get_32 (symfile_bfd
, lengthbuf
);
1321 /* If no string table is needed, then the file may end immediately
1322 after the symbols. Just return with `stringtab' set to null. */
1323 if (val
!= sizeof lengthbuf
|| length
< sizeof lengthbuf
)
1326 stringtab
= (char *) xmalloc (length
);
1327 /* This is in target format (probably not very useful, and not
1328 currently used), not host format. */
1329 memcpy (stringtab
, lengthbuf
, sizeof lengthbuf
);
1330 if (length
== sizeof length
) /* Empty table -- just the count. */
1333 val
= bfd_bread (stringtab
+ sizeof lengthbuf
,
1334 length
- sizeof lengthbuf
, abfd
);
1335 if (val
!= length
- sizeof lengthbuf
|| stringtab
[length
- 1] != '\0')
1342 free_stringtab (void)
1350 free_stringtab_cleanup (void *ignore
)
1356 getsymname (struct internal_syment
*symbol_entry
)
1358 static char buffer
[SYMNMLEN
+ 1];
1361 if (symbol_entry
->_n
._n_n
._n_zeroes
== 0)
1363 /* FIXME: Probably should be detecting corrupt symbol files by
1364 seeing whether offset points to within the stringtab. */
1365 result
= stringtab
+ symbol_entry
->_n
._n_n
._n_offset
;
1369 strncpy (buffer
, symbol_entry
->_n
._n_name
, SYMNMLEN
);
1370 buffer
[SYMNMLEN
] = '\0';
1376 /* Extract the file name from the aux entry of a C_FILE symbol.
1377 Return only the last component of the name. Result is in static
1378 storage and is only good for temporary use. */
1381 coff_getfilename (union internal_auxent
*aux_entry
)
1383 static char buffer
[BUFSIZ
];
1386 if (aux_entry
->x_file
.x_n
.x_zeroes
== 0)
1388 if (strlen (stringtab
+ aux_entry
->x_file
.x_n
.x_offset
) >= BUFSIZ
)
1389 internal_error (__FILE__
, __LINE__
, _("coff file name too long"));
1390 strcpy (buffer
, stringtab
+ aux_entry
->x_file
.x_n
.x_offset
);
1394 strncpy (buffer
, aux_entry
->x_file
.x_fname
, FILNMLEN
);
1395 buffer
[FILNMLEN
] = '\0';
1399 /* FIXME: We should not be throwing away the information about what
1400 directory. It should go into dirname of the symtab, or some such
1402 result
= lbasename (result
);
1406 /* Support for line number handling. */
1408 static char *linetab
= NULL
;
1409 static long linetab_offset
;
1410 static unsigned long linetab_size
;
1412 /* Read in all the line numbers for fast lookups later. Leave them in
1413 external (unswapped) format in memory; we'll swap them as we enter
1414 them into GDB's data structures. */
1417 init_lineno (bfd
*abfd
, long offset
, int size
)
1421 linetab_offset
= offset
;
1422 linetab_size
= size
;
1429 if (bfd_seek (abfd
, offset
, 0) < 0)
1432 /* Allocate the desired table, plus a sentinel. */
1433 linetab
= (char *) xmalloc (size
+ local_linesz
);
1435 val
= bfd_bread (linetab
, size
, abfd
);
1439 /* Terminate it with an all-zero sentinel record. */
1440 memset (linetab
+ size
, 0, local_linesz
);
1454 free_linetab_cleanup (void *ignore
)
1459 #if !defined (L_LNNO32)
1460 #define L_LNNO32(lp) ((lp)->l_lnno)
1464 enter_linenos (long file_offset
, int first_line
,
1465 int last_line
, struct objfile
*objfile
)
1467 struct gdbarch
*gdbarch
= get_objfile_arch (objfile
);
1469 struct internal_lineno lptr
;
1473 if (file_offset
< linetab_offset
)
1475 complaint (&symfile_complaints
,
1476 _("Line number pointer %ld lower than start of line numbers"),
1478 if (file_offset
> linetab_size
) /* Too big to be an offset? */
1480 file_offset
+= linetab_offset
; /* Try reading at that linetab
1484 rawptr
= &linetab
[file_offset
- linetab_offset
];
1486 /* Skip first line entry for each function. */
1487 rawptr
+= local_linesz
;
1488 /* Line numbers start at one for the first line of the function. */
1491 /* If the line number table is full (e.g. 64K lines in COFF debug
1492 info), the next function's L_LNNO32 might not be zero, so don't
1493 overstep the table's end in any case. */
1494 while (rawptr
<= &linetab
[0] + linetab_size
)
1496 bfd_coff_swap_lineno_in (symfile_bfd
, rawptr
, &lptr
);
1497 rawptr
+= local_linesz
;
1498 /* The next function, or the sentinel, will have L_LNNO32 zero;
1500 if (L_LNNO32 (&lptr
) && L_LNNO32 (&lptr
) <= last_line
)
1502 CORE_ADDR addr
= lptr
.l_addr
.l_paddr
;
1503 addr
+= ANOFFSET (objfile
->section_offsets
,
1504 SECT_OFF_TEXT (objfile
));
1505 record_line (current_subfile
,
1506 first_line
+ L_LNNO32 (&lptr
),
1507 gdbarch_addr_bits_remove (gdbarch
, addr
));
1515 patch_type (struct type
*type
, struct type
*real_type
)
1517 struct type
*target
= TYPE_TARGET_TYPE (type
);
1518 struct type
*real_target
= TYPE_TARGET_TYPE (real_type
);
1519 int field_size
= TYPE_NFIELDS (real_target
) * sizeof (struct field
);
1521 TYPE_LENGTH (target
) = TYPE_LENGTH (real_target
);
1522 TYPE_NFIELDS (target
) = TYPE_NFIELDS (real_target
);
1523 TYPE_FIELDS (target
) = (struct field
*) TYPE_ALLOC (target
,
1526 memcpy (TYPE_FIELDS (target
),
1527 TYPE_FIELDS (real_target
),
1530 if (TYPE_NAME (real_target
))
1532 /* The previous copy of TYPE_NAME is allocated by
1533 process_coff_symbol. */
1534 if (TYPE_NAME (target
))
1535 xfree ((char*) TYPE_NAME (target
));
1536 TYPE_NAME (target
) = xstrdup (TYPE_NAME (real_target
));
1540 /* Patch up all appropriate typedef symbols in the opaque_type_chains
1541 so that they can be used to print out opaque data structures
1545 patch_opaque_types (struct symtab
*s
)
1548 struct block_iterator iter
;
1549 struct symbol
*real_sym
;
1551 /* Go through the per-file symbols only. */
1552 b
= BLOCKVECTOR_BLOCK (BLOCKVECTOR (s
), STATIC_BLOCK
);
1553 ALL_BLOCK_SYMBOLS (b
, iter
, real_sym
)
1555 /* Find completed typedefs to use to fix opaque ones.
1556 Remove syms from the chain when their types are stored,
1557 but search the whole chain, as there may be several syms
1558 from different files with the same name. */
1559 if (SYMBOL_CLASS (real_sym
) == LOC_TYPEDEF
1560 && SYMBOL_DOMAIN (real_sym
) == VAR_DOMAIN
1561 && TYPE_CODE (SYMBOL_TYPE (real_sym
)) == TYPE_CODE_PTR
1562 && TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (real_sym
))) != 0)
1564 const char *name
= SYMBOL_LINKAGE_NAME (real_sym
);
1565 int hash
= hashname (name
);
1566 struct symbol
*sym
, *prev
;
1569 for (sym
= opaque_type_chain
[hash
]; sym
;)
1571 if (name
[0] == SYMBOL_LINKAGE_NAME (sym
)[0]
1572 && strcmp (name
+ 1, SYMBOL_LINKAGE_NAME (sym
) + 1) == 0)
1576 SYMBOL_VALUE_CHAIN (prev
) = SYMBOL_VALUE_CHAIN (sym
);
1580 opaque_type_chain
[hash
] = SYMBOL_VALUE_CHAIN (sym
);
1583 patch_type (SYMBOL_TYPE (sym
), SYMBOL_TYPE (real_sym
));
1587 sym
= SYMBOL_VALUE_CHAIN (prev
);
1591 sym
= opaque_type_chain
[hash
];
1597 sym
= SYMBOL_VALUE_CHAIN (sym
);
1605 coff_reg_to_regnum (struct symbol
*sym
, struct gdbarch
*gdbarch
)
1607 return gdbarch_sdb_reg_to_regnum (gdbarch
, SYMBOL_VALUE (sym
));
1610 static const struct symbol_register_ops coff_register_funcs
= {
1614 /* The "aclass" index for computed COFF symbols. */
1616 static int coff_register_index
;
1618 static struct symbol
*
1619 process_coff_symbol (struct coff_symbol
*cs
,
1620 union internal_auxent
*aux
,
1621 struct objfile
*objfile
)
1623 struct symbol
*sym
= allocate_symbol (objfile
);
1627 name
= EXTERNAL_NAME (name
, objfile
->obfd
);
1628 SYMBOL_SET_LANGUAGE (sym
, current_subfile
->language
,
1629 &objfile
->objfile_obstack
);
1630 SYMBOL_SET_NAMES (sym
, name
, strlen (name
), 1, objfile
);
1632 /* default assumptions */
1633 SYMBOL_VALUE (sym
) = cs
->c_value
;
1634 SYMBOL_DOMAIN (sym
) = VAR_DOMAIN
;
1635 SYMBOL_SECTION (sym
) = cs_to_section (cs
, objfile
);
1637 if (ISFCN (cs
->c_type
))
1639 SYMBOL_VALUE (sym
) += ANOFFSET (objfile
->section_offsets
,
1640 SECT_OFF_TEXT (objfile
));
1642 lookup_function_type (decode_function_type (cs
, cs
->c_type
,
1645 SYMBOL_ACLASS_INDEX (sym
) = LOC_BLOCK
;
1646 if (cs
->c_sclass
== C_STAT
|| cs
->c_sclass
== C_THUMBSTAT
1647 || cs
->c_sclass
== C_THUMBSTATFUNC
)
1648 add_symbol_to_list (sym
, &file_symbols
);
1649 else if (cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXT
1650 || cs
->c_sclass
== C_THUMBEXTFUNC
)
1651 add_symbol_to_list (sym
, &global_symbols
);
1655 SYMBOL_TYPE (sym
) = decode_type (cs
, cs
->c_type
, aux
, objfile
);
1656 switch (cs
->c_sclass
)
1662 SYMBOL_ACLASS_INDEX (sym
) = LOC_LOCAL
;
1663 add_symbol_to_list (sym
, &local_symbols
);
1667 case C_THUMBEXTFUNC
:
1669 SYMBOL_ACLASS_INDEX (sym
) = LOC_STATIC
;
1670 SYMBOL_VALUE_ADDRESS (sym
) = (CORE_ADDR
) cs
->c_value
;
1671 SYMBOL_VALUE_ADDRESS (sym
) += ANOFFSET (objfile
->section_offsets
,
1672 SECT_OFF_TEXT (objfile
));
1673 add_symbol_to_list (sym
, &global_symbols
);
1677 case C_THUMBSTATFUNC
:
1679 SYMBOL_ACLASS_INDEX (sym
) = LOC_STATIC
;
1680 SYMBOL_VALUE_ADDRESS (sym
) = (CORE_ADDR
) cs
->c_value
;
1681 SYMBOL_VALUE_ADDRESS (sym
) += ANOFFSET (objfile
->section_offsets
,
1682 SECT_OFF_TEXT (objfile
));
1683 if (within_function
)
1685 /* Static symbol of local scope. */
1686 add_symbol_to_list (sym
, &local_symbols
);
1690 /* Static symbol at top level of file. */
1691 add_symbol_to_list (sym
, &file_symbols
);
1695 #ifdef C_GLBLREG /* AMD coff */
1699 SYMBOL_ACLASS_INDEX (sym
) = coff_register_index
;
1700 SYMBOL_VALUE (sym
) = cs
->c_value
;
1701 add_symbol_to_list (sym
, &local_symbols
);
1709 SYMBOL_ACLASS_INDEX (sym
) = LOC_ARG
;
1710 SYMBOL_IS_ARGUMENT (sym
) = 1;
1711 add_symbol_to_list (sym
, &local_symbols
);
1715 SYMBOL_ACLASS_INDEX (sym
) = coff_register_index
;
1716 SYMBOL_IS_ARGUMENT (sym
) = 1;
1717 SYMBOL_VALUE (sym
) = cs
->c_value
;
1718 add_symbol_to_list (sym
, &local_symbols
);
1722 SYMBOL_ACLASS_INDEX (sym
) = LOC_TYPEDEF
;
1723 SYMBOL_DOMAIN (sym
) = VAR_DOMAIN
;
1725 /* If type has no name, give it one. */
1726 if (TYPE_NAME (SYMBOL_TYPE (sym
)) == 0)
1728 if (TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_PTR
1729 || TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_FUNC
)
1731 /* If we are giving a name to a type such as
1732 "pointer to foo" or "function returning foo", we
1733 better not set the TYPE_NAME. If the program
1734 contains "typedef char *caddr_t;", we don't want
1735 all variables of type char * to print as caddr_t.
1736 This is not just a consequence of GDB's type
1737 management; CC and GCC (at least through version
1738 2.4) both output variables of either type char *
1739 or caddr_t with the type refering to the C_TPDEF
1740 symbol for caddr_t. If a future compiler cleans
1741 this up it GDB is not ready for it yet, but if it
1742 becomes ready we somehow need to disable this
1743 check (without breaking the PCC/GCC2.4 case).
1747 Fortunately, this check seems not to be necessary
1748 for anything except pointers or functions. */
1752 TYPE_NAME (SYMBOL_TYPE (sym
)) =
1753 xstrdup (SYMBOL_LINKAGE_NAME (sym
));
1756 /* Keep track of any type which points to empty structured
1757 type, so it can be filled from a definition from another
1758 file. A simple forward reference (TYPE_CODE_UNDEF) is
1759 not an empty structured type, though; the forward
1760 references work themselves out via the magic of
1761 coff_lookup_type. */
1762 if (TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_PTR
1763 && TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym
))) == 0
1764 && TYPE_CODE (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym
)))
1767 int i
= hashname (SYMBOL_LINKAGE_NAME (sym
));
1769 SYMBOL_VALUE_CHAIN (sym
) = opaque_type_chain
[i
];
1770 opaque_type_chain
[i
] = sym
;
1772 add_symbol_to_list (sym
, &file_symbols
);
1778 SYMBOL_ACLASS_INDEX (sym
) = LOC_TYPEDEF
;
1779 SYMBOL_DOMAIN (sym
) = STRUCT_DOMAIN
;
1781 /* Some compilers try to be helpful by inventing "fake"
1782 names for anonymous enums, structures, and unions, like
1783 "~0fake" or ".0fake". Thanks, but no thanks... */
1784 if (TYPE_TAG_NAME (SYMBOL_TYPE (sym
)) == 0)
1785 if (SYMBOL_LINKAGE_NAME (sym
) != NULL
1786 && *SYMBOL_LINKAGE_NAME (sym
) != '~'
1787 && *SYMBOL_LINKAGE_NAME (sym
) != '.')
1788 TYPE_TAG_NAME (SYMBOL_TYPE (sym
)) =
1789 concat (SYMBOL_LINKAGE_NAME (sym
), (char *)NULL
);
1791 add_symbol_to_list (sym
, &file_symbols
);
1801 /* Decode a coff type specifier; return the type that is meant. */
1803 static struct type
*
1804 decode_type (struct coff_symbol
*cs
, unsigned int c_type
,
1805 union internal_auxent
*aux
, struct objfile
*objfile
)
1807 struct type
*type
= 0;
1808 unsigned int new_c_type
;
1810 if (c_type
& ~N_BTMASK
)
1812 new_c_type
= DECREF (c_type
);
1815 type
= decode_type (cs
, new_c_type
, aux
, objfile
);
1816 type
= lookup_pointer_type (type
);
1818 else if (ISFCN (c_type
))
1820 type
= decode_type (cs
, new_c_type
, aux
, objfile
);
1821 type
= lookup_function_type (type
);
1823 else if (ISARY (c_type
))
1826 unsigned short *dim
;
1827 struct type
*base_type
, *index_type
, *range_type
;
1829 /* Define an array type. */
1830 /* auxent refers to array, not base type. */
1831 if (aux
->x_sym
.x_tagndx
.l
== 0)
1834 /* Shift the indices down. */
1835 dim
= &aux
->x_sym
.x_fcnary
.x_ary
.x_dimen
[0];
1838 for (i
= 0; *dim
&& i
< DIMNUM
- 1; i
++, dim
++)
1842 base_type
= decode_type (cs
, new_c_type
, aux
, objfile
);
1843 index_type
= objfile_type (objfile
)->builtin_int
;
1845 = create_static_range_type ((struct type
*) NULL
,
1846 index_type
, 0, n
- 1);
1848 create_array_type ((struct type
*) NULL
,
1849 base_type
, range_type
);
1854 /* Reference to existing type. This only occurs with the struct,
1855 union, and enum types. EPI a29k coff fakes us out by producing
1856 aux entries with a nonzero x_tagndx for definitions of structs,
1857 unions, and enums, so we have to check the c_sclass field. SCO
1858 3.2v4 cc gets confused with pointers to pointers to defined
1859 structs, and generates negative x_tagndx fields. */
1860 if (cs
->c_naux
> 0 && aux
->x_sym
.x_tagndx
.l
!= 0)
1862 if (cs
->c_sclass
!= C_STRTAG
1863 && cs
->c_sclass
!= C_UNTAG
1864 && cs
->c_sclass
!= C_ENTAG
1865 && aux
->x_sym
.x_tagndx
.l
>= 0)
1867 type
= coff_alloc_type (aux
->x_sym
.x_tagndx
.l
);
1872 complaint (&symfile_complaints
,
1873 _("Symbol table entry for %s has bad tagndx value"),
1875 /* And fall through to decode_base_type... */
1879 return decode_base_type (cs
, BTYPE (c_type
), aux
, objfile
);
1882 /* Decode a coff type specifier for function definition;
1883 return the type that the function returns. */
1885 static struct type
*
1886 decode_function_type (struct coff_symbol
*cs
,
1887 unsigned int c_type
,
1888 union internal_auxent
*aux
,
1889 struct objfile
*objfile
)
1891 if (aux
->x_sym
.x_tagndx
.l
== 0)
1892 cs
->c_naux
= 0; /* auxent refers to function, not base
1895 return decode_type (cs
, DECREF (c_type
), aux
, objfile
);
1898 /* Basic C types. */
1900 static struct type
*
1901 decode_base_type (struct coff_symbol
*cs
,
1902 unsigned int c_type
,
1903 union internal_auxent
*aux
,
1904 struct objfile
*objfile
)
1906 struct gdbarch
*gdbarch
= get_objfile_arch (objfile
);
1912 /* Shows up with "void (*foo)();" structure members. */
1913 return objfile_type (objfile
)->builtin_void
;
1917 /* Intel 960 COFF has this symbol and meaning. */
1918 return objfile_type (objfile
)->builtin_void
;
1922 return objfile_type (objfile
)->builtin_char
;
1925 return objfile_type (objfile
)->builtin_short
;
1928 return objfile_type (objfile
)->builtin_int
;
1931 if (cs
->c_sclass
== C_FIELD
1932 && aux
->x_sym
.x_misc
.x_lnsz
.x_size
1933 > gdbarch_long_bit (gdbarch
))
1934 return objfile_type (objfile
)->builtin_long_long
;
1936 return objfile_type (objfile
)->builtin_long
;
1939 return objfile_type (objfile
)->builtin_float
;
1942 return objfile_type (objfile
)->builtin_double
;
1945 return objfile_type (objfile
)->builtin_long_double
;
1948 if (cs
->c_naux
!= 1)
1950 /* Anonymous structure type. */
1951 type
= coff_alloc_type (cs
->c_symnum
);
1952 TYPE_CODE (type
) = TYPE_CODE_STRUCT
;
1953 TYPE_NAME (type
) = NULL
;
1954 /* This used to set the tag to "<opaque>". But I think
1955 setting it to NULL is right, and the printing code can
1956 print it as "struct {...}". */
1957 TYPE_TAG_NAME (type
) = NULL
;
1958 INIT_CPLUS_SPECIFIC (type
);
1959 TYPE_LENGTH (type
) = 0;
1960 TYPE_FIELDS (type
) = 0;
1961 TYPE_NFIELDS (type
) = 0;
1965 type
= coff_read_struct_type (cs
->c_symnum
,
1966 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1967 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
,
1973 if (cs
->c_naux
!= 1)
1975 /* Anonymous union type. */
1976 type
= coff_alloc_type (cs
->c_symnum
);
1977 TYPE_NAME (type
) = NULL
;
1978 /* This used to set the tag to "<opaque>". But I think
1979 setting it to NULL is right, and the printing code can
1980 print it as "union {...}". */
1981 TYPE_TAG_NAME (type
) = NULL
;
1982 INIT_CPLUS_SPECIFIC (type
);
1983 TYPE_LENGTH (type
) = 0;
1984 TYPE_FIELDS (type
) = 0;
1985 TYPE_NFIELDS (type
) = 0;
1989 type
= coff_read_struct_type (cs
->c_symnum
,
1990 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1991 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
,
1994 TYPE_CODE (type
) = TYPE_CODE_UNION
;
1998 if (cs
->c_naux
!= 1)
2000 /* Anonymous enum type. */
2001 type
= coff_alloc_type (cs
->c_symnum
);
2002 TYPE_CODE (type
) = TYPE_CODE_ENUM
;
2003 TYPE_NAME (type
) = NULL
;
2004 /* This used to set the tag to "<opaque>". But I think
2005 setting it to NULL is right, and the printing code can
2006 print it as "enum {...}". */
2007 TYPE_TAG_NAME (type
) = NULL
;
2008 TYPE_LENGTH (type
) = 0;
2009 TYPE_FIELDS (type
) = 0;
2010 TYPE_NFIELDS (type
) = 0;
2014 type
= coff_read_enum_type (cs
->c_symnum
,
2015 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
2016 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
,
2022 /* Shouldn't show up here. */
2026 return objfile_type (objfile
)->builtin_unsigned_char
;
2029 return objfile_type (objfile
)->builtin_unsigned_short
;
2032 return objfile_type (objfile
)->builtin_unsigned_int
;
2035 if (cs
->c_sclass
== C_FIELD
2036 && aux
->x_sym
.x_misc
.x_lnsz
.x_size
2037 > gdbarch_long_bit (gdbarch
))
2038 return objfile_type (objfile
)->builtin_unsigned_long_long
;
2040 return objfile_type (objfile
)->builtin_unsigned_long
;
2042 complaint (&symfile_complaints
,
2043 _("Unexpected type for symbol %s"), cs
->c_name
);
2044 return objfile_type (objfile
)->builtin_void
;
2047 /* This page contains subroutines of read_type. */
2049 /* Read the description of a structure (or union type) and return an
2050 object describing the type. */
2052 static struct type
*
2053 coff_read_struct_type (int index
, int length
, int lastsym
,
2054 struct objfile
*objfile
)
2058 struct nextfield
*next
;
2063 struct nextfield
*list
= 0;
2064 struct nextfield
*new;
2068 struct coff_symbol member_sym
;
2069 struct coff_symbol
*ms
= &member_sym
;
2070 struct internal_syment sub_sym
;
2071 union internal_auxent sub_aux
;
2074 type
= coff_alloc_type (index
);
2075 TYPE_CODE (type
) = TYPE_CODE_STRUCT
;
2076 INIT_CPLUS_SPECIFIC (type
);
2077 TYPE_LENGTH (type
) = length
;
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
)
2090 /* Get space to record the next field's data. */
2091 new = (struct nextfield
*) alloca (sizeof (struct nextfield
));
2095 /* Save the data. */
2096 list
->field
.name
= obstack_copy0 (&objfile
->objfile_obstack
,
2097 name
, strlen (name
));
2098 FIELD_TYPE (list
->field
) = decode_type (ms
, ms
->c_type
,
2100 SET_FIELD_BITPOS (list
->field
, 8 * ms
->c_value
);
2101 FIELD_BITSIZE (list
->field
) = 0;
2107 /* Get space to record the next field's data. */
2108 new = (struct nextfield
*) alloca (sizeof (struct nextfield
));
2112 /* Save the data. */
2113 list
->field
.name
= obstack_copy0 (&objfile
->objfile_obstack
,
2114 name
, strlen (name
));
2115 FIELD_TYPE (list
->field
) = decode_type (ms
, ms
->c_type
,
2117 SET_FIELD_BITPOS (list
->field
, ms
->c_value
);
2118 FIELD_BITSIZE (list
->field
) = sub_aux
.x_sym
.x_misc
.x_lnsz
.x_size
;
2127 /* Now create the vector of fields, and record how big it is. */
2129 TYPE_NFIELDS (type
) = nfields
;
2130 TYPE_FIELDS (type
) = (struct field
*)
2131 TYPE_ALLOC (type
, sizeof (struct field
) * nfields
);
2133 /* Copy the saved-up fields into the field vector. */
2135 for (n
= nfields
; list
; list
= list
->next
)
2136 TYPE_FIELD (type
, --n
) = list
->field
;
2141 /* Read a definition of an enumeration type,
2142 and create and return a suitable type object.
2143 Also defines the symbols that represent the values of the type. */
2145 static struct type
*
2146 coff_read_enum_type (int index
, int length
, int lastsym
,
2147 struct objfile
*objfile
)
2149 struct gdbarch
*gdbarch
= get_objfile_arch (objfile
);
2154 struct pending
**symlist
;
2155 struct coff_symbol member_sym
;
2156 struct coff_symbol
*ms
= &member_sym
;
2157 struct internal_syment sub_sym
;
2158 union internal_auxent sub_aux
;
2159 struct pending
*osyms
, *syms
;
2163 int unsigned_enum
= 1;
2165 type
= coff_alloc_type (index
);
2166 if (within_function
)
2167 symlist
= &local_symbols
;
2169 symlist
= &file_symbols
;
2171 o_nsyms
= osyms
? osyms
->nsyms
: 0;
2173 while (!done
&& symnum
< lastsym
&& symnum
< nlist_nsyms_global
)
2175 read_one_sym (ms
, &sub_sym
, &sub_aux
);
2177 name
= EXTERNAL_NAME (name
, objfile
->obfd
);
2179 switch (ms
->c_sclass
)
2182 sym
= allocate_symbol (objfile
);
2184 SYMBOL_SET_LINKAGE_NAME (sym
,
2185 obstack_copy0 (&objfile
->objfile_obstack
,
2186 name
, strlen (name
)));
2187 SYMBOL_ACLASS_INDEX (sym
) = LOC_CONST
;
2188 SYMBOL_DOMAIN (sym
) = VAR_DOMAIN
;
2189 SYMBOL_VALUE (sym
) = ms
->c_value
;
2190 add_symbol_to_list (sym
, symlist
);
2195 /* Sometimes the linker (on 386/ix 2.0.2 at least) screws
2196 up the count of how many symbols to read. So stop
2203 /* Now fill in the fields of the type-structure. */
2206 TYPE_LENGTH (type
) = length
;
2207 else /* Assume ints. */
2208 TYPE_LENGTH (type
) = gdbarch_int_bit (gdbarch
) / TARGET_CHAR_BIT
;
2209 TYPE_CODE (type
) = TYPE_CODE_ENUM
;
2210 TYPE_NFIELDS (type
) = nsyms
;
2211 TYPE_FIELDS (type
) = (struct field
*)
2212 TYPE_ALLOC (type
, sizeof (struct field
) * nsyms
);
2214 /* Find the symbols for the values and put them into the type.
2215 The symbols can be found in the symlist that we put them on
2216 to cause them to be defined. osyms contains the old value
2217 of that symlist; everything up to there was defined by us. */
2218 /* Note that we preserve the order of the enum constants, so
2219 that in something like "enum {FOO, LAST_THING=FOO}" we print
2220 FOO, not LAST_THING. */
2222 for (syms
= *symlist
, n
= 0; syms
; syms
= syms
->next
)
2228 for (; j
< syms
->nsyms
; j
++, n
++)
2230 struct symbol
*xsym
= syms
->symbol
[j
];
2232 SYMBOL_TYPE (xsym
) = type
;
2233 TYPE_FIELD_NAME (type
, n
) = SYMBOL_LINKAGE_NAME (xsym
);
2234 SET_FIELD_ENUMVAL (TYPE_FIELD (type
, n
), SYMBOL_VALUE (xsym
));
2235 if (SYMBOL_VALUE (xsym
) < 0)
2237 TYPE_FIELD_BITSIZE (type
, n
) = 0;
2244 TYPE_UNSIGNED (type
) = 1;
2249 /* Register our ability to parse symbols for coff BFD files. */
2251 static const struct sym_fns coff_sym_fns
=
2253 coff_new_init
, /* sym_new_init: init anything gbl to
2255 coff_symfile_init
, /* sym_init: read initial info, setup
2257 coff_symfile_read
, /* sym_read: read a symbol file into
2259 NULL
, /* sym_read_psymbols */
2260 coff_symfile_finish
, /* sym_finish: finished with file,
2262 default_symfile_offsets
, /* sym_offsets: xlate external to
2264 default_symfile_segments
, /* sym_segments: Get segment
2265 information from a file */
2266 NULL
, /* sym_read_linetable */
2268 default_symfile_relocate
, /* sym_relocate: Relocate a debug
2270 NULL
, /* sym_probe_fns */
2274 /* Free the per-objfile COFF data. */
2277 coff_free_info (struct objfile
*objfile
, void *arg
)
2283 _initialize_coffread (void)
2285 add_symtab_fns (bfd_target_coff_flavour
, &coff_sym_fns
);
2287 coff_objfile_data_key
= register_objfile_data_with_cleanup (NULL
,
2291 = register_symbol_register_impl (LOC_REGISTER
, &coff_register_funcs
);