1 /* Read coff symbol tables and convert to internal format, for GDB.
2 Copyright (C) 1987-2005, 2007-2012 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"
29 #include "gdb_string.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"
40 #include "gdb_assert.h"
42 #include "dictionary.h"
44 #include "coff-pe-read.h"
48 extern void _initialize_coffread (void);
50 /* Key for COFF-associated data. */
52 static const struct objfile_data
*coff_objfile_data_key
;
54 /* The objfile we are currently reading. */
56 static struct objfile
*coffread_objfile
;
58 struct coff_symfile_info
60 file_ptr min_lineno_offset
; /* Where in file lowest line#s are. */
61 file_ptr max_lineno_offset
; /* 1+last byte of line#s in file. */
63 CORE_ADDR textaddr
; /* Addr of .text section. */
64 unsigned int textsize
; /* Size of .text section. */
65 struct stab_section_list
*stabsects
; /* .stab sections. */
66 asection
*stabstrsect
; /* Section pointer for .stab section. */
70 /* Translate an external name string into a user-visible name. */
71 #define EXTERNAL_NAME(string, abfd) \
72 (string[0] == bfd_get_symbol_leading_char (abfd) \
73 ? string + 1 : string)
75 /* To be an sdb debug type, type must have at least a basic or primary
76 derived type. Using this rather than checking against T_NULL is
77 said to prevent core dumps if we try to operate on Michael Bloom
80 #define SDB_TYPE(type) (BTYPE(type) | (type & N_TMASK))
82 /* Core address of start and end of text of current source file.
83 This comes from a ".text" symbol where x_nlinno > 0. */
85 static CORE_ADDR current_source_start_addr
;
86 static CORE_ADDR current_source_end_addr
;
88 /* The addresses of the symbol table stream and number of symbols
89 of the object file we are reading (as copied into core). */
91 static bfd
*nlist_bfd_global
;
92 static int nlist_nsyms_global
;
95 /* Pointers to scratch storage, used for reading raw symbols and
98 static char *temp_sym
;
99 static char *temp_aux
;
101 /* Local variables that hold the shift and mask values for the
102 COFF file that we are currently reading. These come back to us
103 from BFD, and are referenced by their macro names, as well as
104 internally to the BTYPE, ISPTR, ISFCN, ISARY, ISTAG, and DECREF
105 macros from include/coff/internal.h . */
107 static unsigned local_n_btmask
;
108 static unsigned local_n_btshft
;
109 static unsigned local_n_tmask
;
110 static unsigned local_n_tshift
;
112 #define N_BTMASK local_n_btmask
113 #define N_BTSHFT local_n_btshft
114 #define N_TMASK local_n_tmask
115 #define N_TSHIFT local_n_tshift
117 /* Local variables that hold the sizes in the file of various COFF
118 structures. (We only need to know this to read them from the file
119 -- BFD will then translate the data in them, into `internal_xxx'
120 structs in the right byte order, alignment, etc.) */
122 static unsigned local_linesz
;
123 static unsigned local_symesz
;
124 static unsigned local_auxesz
;
126 /* This is set if this is a PE format file. */
130 /* Chain of typedefs of pointers to empty struct/union types.
131 They are chained thru the SYMBOL_VALUE_CHAIN. */
133 static struct symbol
*opaque_type_chain
[HASHSIZE
];
135 /* Simplified internal version of coff symbol table information. */
140 int c_symnum
; /* Symbol number of this entry. */
141 int c_naux
; /* 0 if syment only, 1 if syment +
149 extern void stabsread_clear_cache (void);
151 static struct type
*coff_read_struct_type (int, int, int,
154 static struct type
*decode_base_type (struct coff_symbol
*,
156 union internal_auxent
*,
159 static struct type
*decode_type (struct coff_symbol
*, unsigned int,
160 union internal_auxent
*,
163 static struct type
*decode_function_type (struct coff_symbol
*,
165 union internal_auxent
*,
168 static struct type
*coff_read_enum_type (int, int, int,
171 static struct symbol
*process_coff_symbol (struct coff_symbol
*,
172 union internal_auxent
*,
175 static void patch_opaque_types (struct symtab
*);
177 static void enter_linenos (long, int, int, struct objfile
*);
179 static void free_linetab (void);
181 static void free_linetab_cleanup (void *ignore
);
183 static int init_lineno (bfd
*, long, int);
185 static char *getsymname (struct internal_syment
*);
187 static const char *coff_getfilename (union internal_auxent
*);
189 static void free_stringtab (void);
191 static void free_stringtab_cleanup (void *ignore
);
193 static int init_stringtab (bfd
*, long);
195 static void read_one_sym (struct coff_symbol
*,
196 struct internal_syment
*,
197 union internal_auxent
*);
199 static void coff_symtab_read (long, unsigned int, struct objfile
*);
201 /* We are called once per section from coff_symfile_read. We
202 need to examine each section we are passed, check to see
203 if it is something we are interested in processing, and
204 if so, stash away some access information for the section.
206 FIXME: The section names should not be hardwired strings (what
207 should they be? I don't think most object file formats have enough
208 section flags to specify what kind of debug section it is
212 coff_locate_sections (bfd
*abfd
, asection
*sectp
, void *csip
)
214 struct coff_symfile_info
*csi
;
217 csi
= (struct coff_symfile_info
*) csip
;
218 name
= bfd_get_section_name (abfd
, sectp
);
219 if (strcmp (name
, ".text") == 0)
221 csi
->textaddr
= bfd_section_vma (abfd
, sectp
);
222 csi
->textsize
+= bfd_section_size (abfd
, sectp
);
224 else if (strncmp (name
, ".text", sizeof ".text" - 1) == 0)
226 csi
->textsize
+= bfd_section_size (abfd
, sectp
);
228 else if (strcmp (name
, ".stabstr") == 0)
230 csi
->stabstrsect
= sectp
;
232 else if (strncmp (name
, ".stab", sizeof ".stab" - 1) == 0)
236 /* We can have multiple .stab sections if linked with
238 for (s
= name
+ sizeof ".stab" - 1; *s
!= '\0'; s
++)
243 struct stab_section_list
*n
, **pn
;
245 n
= ((struct stab_section_list
*)
246 xmalloc (sizeof (struct stab_section_list
)));
249 for (pn
= &csi
->stabsects
; *pn
!= NULL
; pn
= &(*pn
)->next
)
253 /* This will be run after coffstab_build_psymtabs is called
254 in coff_symfile_read, at which point we no longer need
256 make_cleanup (xfree
, n
);
261 /* Return the section_offsets* that CS points to. */
262 static int cs_to_section (struct coff_symbol
*, struct objfile
*);
264 struct find_targ_sec_arg
271 find_targ_sec (bfd
*abfd
, asection
*sect
, void *obj
)
273 struct find_targ_sec_arg
*args
= (struct find_targ_sec_arg
*) obj
;
275 if (sect
->target_index
== args
->targ_index
)
276 *args
->resultp
= sect
;
279 /* Return the bfd_section that CS points to. */
280 static struct bfd_section
*
281 cs_to_bfd_section (struct coff_symbol
*cs
, struct objfile
*objfile
)
283 asection
*sect
= NULL
;
284 struct find_targ_sec_arg args
;
286 args
.targ_index
= cs
->c_secnum
;
287 args
.resultp
= §
;
288 bfd_map_over_sections (objfile
->obfd
, find_targ_sec
, &args
);
292 /* Return the section number (SECT_OFF_*) that CS points to. */
294 cs_to_section (struct coff_symbol
*cs
, struct objfile
*objfile
)
296 asection
*sect
= cs_to_bfd_section (cs
, objfile
);
299 return SECT_OFF_TEXT (objfile
);
303 /* Return the address of the section of a COFF symbol. */
305 static CORE_ADDR
cs_section_address (struct coff_symbol
*, bfd
*);
308 cs_section_address (struct coff_symbol
*cs
, bfd
*abfd
)
310 asection
*sect
= NULL
;
311 struct find_targ_sec_arg args
;
314 args
.targ_index
= cs
->c_secnum
;
315 args
.resultp
= §
;
316 bfd_map_over_sections (abfd
, find_targ_sec
, &args
);
318 addr
= bfd_get_section_vma (abfd
, sect
);
322 /* Look up a coff type-number index. Return the address of the slot
323 where the type for that index is stored.
324 The type-number is in INDEX.
326 This can be used for finding the type associated with that index
327 or for associating a new type with the index. */
329 static struct type
**
330 coff_lookup_type (int index
)
332 if (index
>= type_vector_length
)
334 int old_vector_length
= type_vector_length
;
336 type_vector_length
*= 2;
337 if (index
/* is still */ >= type_vector_length
)
338 type_vector_length
= index
* 2;
340 type_vector
= (struct type
**)
341 xrealloc ((char *) type_vector
,
342 type_vector_length
* sizeof (struct type
*));
343 memset (&type_vector
[old_vector_length
], 0,
344 (type_vector_length
- old_vector_length
) * sizeof (struct type
*));
346 return &type_vector
[index
];
349 /* Make sure there is a type allocated for type number index
350 and return the type object.
351 This can create an empty (zeroed) type object. */
354 coff_alloc_type (int index
)
356 struct type
**type_addr
= coff_lookup_type (index
);
357 struct type
*type
= *type_addr
;
359 /* If we are referring to a type not known at all yet,
360 allocate an empty type for it.
361 We will fill it in later if we find out how. */
364 type
= alloc_type (coffread_objfile
);
370 /* Start a new symtab for a new source file.
371 This is called when a COFF ".file" symbol is seen;
372 it indicates the start of data for one original source file. */
375 coff_start_symtab (const char *name
)
378 /* We fill in the filename later. start_symtab puts this pointer
379 into last_source_file and we put it in subfiles->name, which
380 end_symtab frees; that's why it must be malloc'd. */
382 /* We never know the directory name for COFF. */
384 /* The start address is irrelevant, since we set
385 last_source_start_addr in coff_end_symtab. */
387 record_debugformat ("COFF");
390 /* Save the vital information from when starting to read a file,
391 for use when closing off the current file.
392 NAME is the file name the symbols came from, START_ADDR is the
393 first text address for the file, and SIZE is the number of bytes of
397 complete_symtab (const char *name
, CORE_ADDR start_addr
, unsigned int size
)
399 if (last_source_file
!= NULL
)
400 xfree (last_source_file
);
401 last_source_file
= xstrdup (name
);
402 current_source_start_addr
= start_addr
;
403 current_source_end_addr
= start_addr
+ size
;
406 /* Finish the symbol definitions for one main source file, close off
407 all the lexical contexts for that file (creating struct block's for
408 them), then make the struct symtab for that file and put it in the
412 coff_end_symtab (struct objfile
*objfile
)
414 last_source_start_addr
= current_source_start_addr
;
416 end_symtab (current_source_end_addr
, objfile
,
417 SECT_OFF_TEXT (objfile
));
419 /* Reinitialize for beginning of new file. */
420 last_source_file
= NULL
;
423 static struct minimal_symbol
*
424 record_minimal_symbol (struct coff_symbol
*cs
, CORE_ADDR address
,
425 enum minimal_symbol_type type
, int section
,
426 struct objfile
*objfile
)
428 struct bfd_section
*bfd_section
;
430 /* We don't want TDESC entry points in the minimal symbol table. */
431 if (cs
->c_name
[0] == '@')
434 bfd_section
= cs_to_bfd_section (cs
, objfile
);
435 return prim_record_minimal_symbol_and_info (cs
->c_name
, address
,
437 bfd_section
, objfile
);
440 /* coff_symfile_init ()
441 is the coff-specific initialization routine for reading symbols.
442 It is passed a struct objfile which contains, among other things,
443 the BFD for the file whose symbols are being read, and a slot for
444 a pointer to "private data" which we fill with cookies and other
445 treats for coff_symfile_read ().
447 We will only be called if this is a COFF or COFF-like file. BFD
448 handles figuring out the format of the file, and code in symtab.c
449 uses BFD's determination to vector to us.
451 The ultimate result is a new symtab (or, FIXME, eventually a
455 coff_symfile_init (struct objfile
*objfile
)
457 struct dbx_symfile_info
*dbx
;
458 struct coff_symfile_info
*coff
;
460 /* Allocate struct to keep track of stab reading. */
461 dbx
= XCNEW (struct dbx_symfile_info
);
462 set_objfile_data (objfile
, dbx_objfile_data_key
, dbx
);
464 /* Allocate struct to keep track of the symfile. */
465 coff
= XCNEW (struct coff_symfile_info
);
466 set_objfile_data (objfile
, coff_objfile_data_key
, coff
);
468 /* COFF objects may be reordered, so set OBJF_REORDERED. If we
469 find this causes a significant slowdown in gdb then we could
470 set it in the debug symbol readers only when necessary. */
471 objfile
->flags
|= OBJF_REORDERED
;
473 init_entry_point_info (objfile
);
476 /* This function is called for every section; it finds the outer
477 limits of the line table (minimum and maximum file offset) so that
478 the mainline code can read the whole thing for efficiency. */
481 find_linenos (bfd
*abfd
, struct bfd_section
*asect
, void *vpinfo
)
483 struct coff_symfile_info
*info
;
485 file_ptr offset
, maxoff
;
487 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
488 count
= asect
->lineno_count
;
489 /* End of warning. */
493 size
= count
* local_linesz
;
495 info
= (struct coff_symfile_info
*) vpinfo
;
496 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
497 offset
= asect
->line_filepos
;
498 /* End of warning. */
500 if (offset
< info
->min_lineno_offset
|| info
->min_lineno_offset
== 0)
501 info
->min_lineno_offset
= offset
;
503 maxoff
= offset
+ size
;
504 if (maxoff
> info
->max_lineno_offset
)
505 info
->max_lineno_offset
= maxoff
;
509 /* The BFD for this file -- only good while we're actively reading
510 symbols into a psymtab or a symtab. */
512 static bfd
*symfile_bfd
;
514 /* Read a symbol file, after initialization by coff_symfile_init. */
517 coff_symfile_read (struct objfile
*objfile
, int symfile_flags
)
519 struct coff_symfile_info
*info
;
520 struct dbx_symfile_info
*dbxinfo
;
521 bfd
*abfd
= objfile
->obfd
;
522 coff_data_type
*cdata
= coff_data (abfd
);
523 char *name
= bfd_get_filename (abfd
);
525 unsigned int num_symbols
;
527 int stringtab_offset
;
528 struct cleanup
*back_to
, *cleanup_minimal_symbols
;
531 info
= objfile_data (objfile
, coff_objfile_data_key
);
532 dbxinfo
= DBX_SYMFILE_INFO (objfile
);
533 symfile_bfd
= abfd
; /* Kludge for swap routines. */
535 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
536 num_symbols
= bfd_get_symcount (abfd
); /* How many syms */
537 symtab_offset
= cdata
->sym_filepos
; /* Symbol table file offset */
538 stringtab_offset
= symtab_offset
+ /* String table file offset */
539 num_symbols
* cdata
->local_symesz
;
541 /* Set a few file-statics that give us specific information about
542 the particular COFF file format we're reading. */
543 local_n_btmask
= cdata
->local_n_btmask
;
544 local_n_btshft
= cdata
->local_n_btshft
;
545 local_n_tmask
= cdata
->local_n_tmask
;
546 local_n_tshift
= cdata
->local_n_tshift
;
547 local_linesz
= cdata
->local_linesz
;
548 local_symesz
= cdata
->local_symesz
;
549 local_auxesz
= cdata
->local_auxesz
;
551 /* Allocate space for raw symbol and aux entries, based on their
552 space requirements as reported by BFD. */
553 temp_sym
= (char *) xmalloc
554 (cdata
->local_symesz
+ cdata
->local_auxesz
);
555 temp_aux
= temp_sym
+ cdata
->local_symesz
;
556 back_to
= make_cleanup (free_current_contents
, &temp_sym
);
558 /* We need to know whether this is a PE file, because in PE files,
559 unlike standard COFF files, symbol values are stored as offsets
560 from the section address, rather than as absolute addresses.
561 FIXME: We should use BFD to read the symbol table, and thus avoid
564 strncmp (bfd_get_target (objfile
->obfd
), "pe", 2) == 0
565 || strncmp (bfd_get_target (objfile
->obfd
), "epoc-pe", 7) == 0;
567 /* End of warning. */
569 info
->min_lineno_offset
= 0;
570 info
->max_lineno_offset
= 0;
572 /* Only read line number information if we have symbols.
574 On Windows NT, some of the system's DLL's have sections with
575 PointerToLinenumbers fields that are non-zero, but point at
576 random places within the image file. (In the case I found,
577 KERNEL32.DLL's .text section has a line number info pointer that
578 points into the middle of the string `lib\\i386\kernel32.dll'.)
580 However, these DLL's also have no symbols. The line number
581 tables are meaningless without symbols. And in fact, GDB never
582 uses the line number information unless there are symbols. So we
583 can avoid spurious error messages (and maybe run a little
584 faster!) by not even reading the line number table unless we have
588 /* Read the line number table, all at once. */
589 bfd_map_over_sections (abfd
, find_linenos
, (void *) info
);
591 make_cleanup (free_linetab_cleanup
, 0 /*ignore*/);
592 val
= init_lineno (abfd
, info
->min_lineno_offset
,
593 info
->max_lineno_offset
- info
->min_lineno_offset
);
595 error (_("\"%s\": error reading line numbers."), name
);
598 /* Now read the string table, all at once. */
600 make_cleanup (free_stringtab_cleanup
, 0 /*ignore*/);
601 val
= init_stringtab (abfd
, stringtab_offset
);
603 error (_("\"%s\": can't get string table"), name
);
605 init_minimal_symbol_collection ();
606 cleanup_minimal_symbols
= make_cleanup_discard_minimal_symbols ();
608 /* Now that the executable file is positioned at symbol table,
609 process it and define symbols accordingly. */
611 coff_symtab_read ((long) symtab_offset
, num_symbols
, objfile
);
613 /* Install any minimal symbols that have been collected as the
614 current minimal symbols for this objfile. */
616 install_minimal_symbols (objfile
);
618 /* Free the installed minimal symbol data. */
619 do_cleanups (cleanup_minimal_symbols
);
621 bfd_map_over_sections (abfd
, coff_locate_sections
, (void *) info
);
625 if (!info
->stabstrsect
)
627 error (_("The debugging information in `%s' is corrupted.\nThe "
628 "file has a `.stabs' section, but no `.stabstr' section."),
632 /* FIXME: dubious. Why can't we use something normal like
633 bfd_get_section_contents? */
634 bfd_seek (abfd
, abfd
->where
, 0);
636 stabstrsize
= bfd_section_size (abfd
, info
->stabstrsect
);
638 coffstab_build_psymtabs (objfile
,
639 info
->textaddr
, info
->textsize
,
641 info
->stabstrsect
->filepos
, stabstrsize
);
643 if (dwarf2_has_info (objfile
, NULL
))
645 /* DWARF2 sections. */
646 dwarf2_build_psymtabs (objfile
);
649 dwarf2_build_frame_info (objfile
);
651 /* Try to add separate debug file if no symbols table found. */
652 if (!objfile_has_partial_symbols (objfile
))
656 debugfile
= find_separate_debug_file_by_debuglink (objfile
);
657 make_cleanup (xfree
, debugfile
);
661 bfd
*abfd
= symfile_bfd_open (debugfile
);
663 make_cleanup_bfd_unref (abfd
);
664 symbol_file_add_separate (abfd
, symfile_flags
, objfile
);
668 do_cleanups (back_to
);
672 coff_new_init (struct objfile
*ignore
)
676 /* Perform any local cleanups required when we are done with a
677 particular objfile. I.E, we are in the process of discarding all
678 symbol information for an objfile, freeing up all memory held for
679 it, and unlinking the objfile struct from the global list of known
683 coff_symfile_finish (struct objfile
*objfile
)
685 /* Let stabs reader clean up. */
686 stabsread_clear_cache ();
688 dwarf2_free_objfile (objfile
);
692 /* Given pointers to a symbol table in coff style exec file,
693 analyze them and create struct symtab's describing the symbols.
694 NSYMS is the number of symbols in the symbol table.
695 We read them one at a time using read_one_sym (). */
698 coff_symtab_read (long symtab_offset
, unsigned int nsyms
,
699 struct objfile
*objfile
)
701 struct gdbarch
*gdbarch
= get_objfile_arch (objfile
);
702 struct context_stack
*new;
703 struct coff_symbol coff_symbol
;
704 struct coff_symbol
*cs
= &coff_symbol
;
705 static struct internal_syment main_sym
;
706 static union internal_auxent main_aux
;
707 struct coff_symbol fcn_cs_saved
;
708 static struct internal_syment fcn_sym_saved
;
709 static union internal_auxent fcn_aux_saved
;
711 /* A .file is open. */
712 int in_source_file
= 0;
713 int next_file_symnum
= -1;
714 /* Name of the current file. */
715 const char *filestring
= "";
717 int fcn_first_line
= 0;
718 CORE_ADDR fcn_first_line_addr
= 0;
719 int fcn_last_line
= 0;
720 int fcn_start_addr
= 0;
721 long fcn_line_ptr
= 0;
724 struct minimal_symbol
*msym
;
726 /* Work around a stdio bug in SunOS4.1.1 (this makes me nervous....
727 it's hard to know I've really worked around it. The fix should
728 be harmless, anyway). The symptom of the bug is that the first
729 fread (in read_one_sym), will (in my example) actually get data
730 from file offset 268, when the fseek was to 264 (and ftell shows
731 264). This causes all hell to break loose. I was unable to
732 reproduce this on a short test program which operated on the same
733 file, performing (I think) the same sequence of operations.
735 It stopped happening when I put in this (former) rewind().
737 FIXME: Find out if this has been reported to Sun, whether it has
738 been fixed in a later release, etc. */
740 bfd_seek (objfile
->obfd
, 0, 0);
742 /* Position to read the symbol table. */
743 val
= bfd_seek (objfile
->obfd
, (long) symtab_offset
, 0);
745 perror_with_name (objfile
->name
);
747 coffread_objfile
= objfile
;
748 nlist_bfd_global
= objfile
->obfd
;
749 nlist_nsyms_global
= nsyms
;
750 last_source_file
= NULL
;
751 memset (opaque_type_chain
, 0, sizeof opaque_type_chain
);
753 if (type_vector
) /* Get rid of previous one. */
755 type_vector_length
= 160;
756 type_vector
= (struct type
**)
757 xmalloc (type_vector_length
* sizeof (struct type
*));
758 memset (type_vector
, 0, type_vector_length
* sizeof (struct type
*));
760 coff_start_symtab ("");
763 while (symnum
< nsyms
)
765 QUIT
; /* Make this command interruptable. */
767 read_one_sym (cs
, &main_sym
, &main_aux
);
769 if (cs
->c_symnum
== next_file_symnum
&& cs
->c_sclass
!= C_FILE
)
771 if (last_source_file
)
772 coff_end_symtab (objfile
);
774 coff_start_symtab ("_globals_");
775 /* coff_start_symtab will set the language of this symtab to
776 language_unknown, since such a ``file name'' is not
777 recognized. Override that with the minimal language to
778 allow printing values in this symtab. */
779 current_subfile
->language
= language_minimal
;
780 complete_symtab ("_globals_", 0, 0);
781 /* Done with all files, everything from here on out is
785 /* Special case for file with type declarations only, no
787 if (!last_source_file
&& SDB_TYPE (cs
->c_type
)
788 && cs
->c_secnum
== N_DEBUG
)
789 complete_symtab (filestring
, 0, 0);
791 /* Typedefs should not be treated as symbol definitions. */
792 if (ISFCN (cs
->c_type
) && cs
->c_sclass
!= C_TPDEF
)
794 /* Record all functions -- external and static -- in
796 int section
= cs_to_section (cs
, objfile
);
798 tmpaddr
= cs
->c_value
+ ANOFFSET (objfile
->section_offsets
,
799 SECT_OFF_TEXT (objfile
));
800 record_minimal_symbol (cs
, tmpaddr
, mst_text
,
803 fcn_line_ptr
= main_aux
.x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
;
804 fcn_start_addr
= tmpaddr
;
806 fcn_sym_saved
= main_sym
;
807 fcn_aux_saved
= main_aux
;
811 switch (cs
->c_sclass
)
820 complaint (&symfile_complaints
,
821 _("Bad n_sclass for symbol %s"),
826 /* c_value field contains symnum of next .file entry in
827 table or symnum of first global after last .file. */
828 next_file_symnum
= cs
->c_value
;
830 filestring
= coff_getfilename (&main_aux
);
834 /* Complete symbol table for last object file
835 containing debugging information. */
836 if (last_source_file
)
838 coff_end_symtab (objfile
);
839 coff_start_symtab (filestring
);
844 /* C_LABEL is used for labels and static functions.
845 Including it here allows gdb to see static functions when
846 no debug info is available. */
848 /* However, labels within a function can make weird
849 backtraces, so filter them out (from phdm@macqel.be). */
855 case C_THUMBSTATFUNC
:
856 if (cs
->c_name
[0] == '.')
858 if (strcmp (cs
->c_name
, ".text") == 0)
860 /* FIXME: don't wire in ".text" as section name or
862 /* Check for in_source_file deals with case of a
863 file with debugging symbols followed by a later
864 file with no symbols. */
866 complete_symtab (filestring
,
867 cs
->c_value
+ ANOFFSET (objfile
->section_offsets
,
868 SECT_OFF_TEXT (objfile
)),
869 main_aux
.x_scn
.x_scnlen
);
872 /* Flush rest of '.' symbols. */
875 else if (!SDB_TYPE (cs
->c_type
)
876 && cs
->c_name
[0] == 'L'
877 && (strncmp (cs
->c_name
, "LI%", 3) == 0
878 || strncmp (cs
->c_name
, "LF%", 3) == 0
879 || strncmp (cs
->c_name
, "LC%", 3) == 0
880 || strncmp (cs
->c_name
, "LP%", 3) == 0
881 || strncmp (cs
->c_name
, "LPB%", 4) == 0
882 || strncmp (cs
->c_name
, "LBB%", 4) == 0
883 || strncmp (cs
->c_name
, "LBE%", 4) == 0
884 || strncmp (cs
->c_name
, "LPBX%", 5) == 0))
885 /* At least on a 3b1, gcc generates swbeg and string labels
886 that look like this. Ignore them. */
888 /* Fall in for static symbols that don't start with '.' */
893 /* Record it in the minimal symbols regardless of
894 SDB_TYPE. This parallels what we do for other debug
895 formats, and probably is needed to make
896 print_address_symbolic work right without the (now
897 gone) "set fast-symbolic-addr off" kludge. */
899 enum minimal_symbol_type ms_type
;
902 if (cs
->c_secnum
== N_UNDEF
)
904 /* This is a common symbol. We used to rely on
905 the target to tell us whether it knows where
906 the symbol has been relocated to, but none of
907 the target implementations actually provided
908 that operation. So we just ignore the symbol,
909 the same way we would do if we had a target-side
910 symbol lookup which returned no match. */
913 else if (cs
->c_secnum
== N_ABS
)
915 /* Use the correct minimal symbol type (and don't
916 relocate) for absolute values. */
918 sec
= cs_to_section (cs
, objfile
);
919 tmpaddr
= cs
->c_value
;
923 asection
*bfd_section
= cs_to_bfd_section (cs
, objfile
);
925 sec
= cs_to_section (cs
, objfile
);
926 tmpaddr
= cs
->c_value
;
927 /* Statics in a PE file also get relocated. */
928 if (cs
->c_sclass
== C_EXT
929 || cs
->c_sclass
== C_THUMBEXTFUNC
930 || cs
->c_sclass
== C_THUMBEXT
931 || (pe_file
&& (cs
->c_sclass
== C_STAT
)))
932 tmpaddr
+= ANOFFSET (objfile
->section_offsets
, sec
);
934 if (bfd_section
->flags
& SEC_CODE
)
937 cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXTFUNC
938 || cs
->c_sclass
== C_THUMBEXT
?
939 mst_text
: mst_file_text
;
940 tmpaddr
= gdbarch_addr_bits_remove (gdbarch
, tmpaddr
);
942 else if (bfd_section
->flags
& SEC_ALLOC
943 && bfd_section
->flags
& SEC_LOAD
)
946 cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXT
947 ? mst_data
: mst_file_data
;
949 else if (bfd_section
->flags
& SEC_ALLOC
)
952 cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXT
953 ? mst_bss
: mst_file_bss
;
956 ms_type
= mst_unknown
;
959 msym
= record_minimal_symbol (cs
, tmpaddr
, ms_type
,
962 gdbarch_coff_make_msymbol_special (gdbarch
,
965 if (SDB_TYPE (cs
->c_type
))
969 sym
= process_coff_symbol
970 (cs
, &main_aux
, objfile
);
971 SYMBOL_VALUE (sym
) = tmpaddr
;
972 SYMBOL_SECTION (sym
) = sec
;
978 if (strcmp (cs
->c_name
, ".bf") == 0)
982 /* Value contains address of first non-init type
984 /* main_aux.x_sym.x_misc.x_lnsz.x_lnno
985 contains line number of '{' }. */
987 complaint (&symfile_complaints
,
988 _("`.bf' symbol %d has no aux entry"),
990 fcn_first_line
= main_aux
.x_sym
.x_misc
.x_lnsz
.x_lnno
;
991 fcn_first_line_addr
= cs
->c_value
;
993 /* Might want to check that locals are 0 and
994 context_stack_depth is zero, and complain if not. */
997 new = push_context (depth
, fcn_start_addr
);
998 fcn_cs_saved
.c_name
= getsymname (&fcn_sym_saved
);
1000 process_coff_symbol (&fcn_cs_saved
,
1001 &fcn_aux_saved
, objfile
);
1003 else if (strcmp (cs
->c_name
, ".ef") == 0)
1005 if (!within_function
)
1006 error (_("Bad coff function information."));
1007 /* The value of .ef is the address of epilogue code;
1008 not useful for gdb. */
1009 /* { main_aux.x_sym.x_misc.x_lnsz.x_lnno
1010 contains number of lines to '}' */
1012 if (context_stack_depth
<= 0)
1013 { /* We attempted to pop an empty context stack. */
1014 complaint (&symfile_complaints
,
1015 _("`.ef' symbol without matching `.bf' "
1016 "symbol ignored starting at symnum %d"),
1018 within_function
= 0;
1022 new = pop_context ();
1023 /* Stack must be empty now. */
1024 if (context_stack_depth
> 0 || new == NULL
)
1026 complaint (&symfile_complaints
,
1027 _("Unmatched .ef symbol(s) ignored "
1028 "starting at symnum %d"),
1030 within_function
= 0;
1033 if (cs
->c_naux
!= 1)
1035 complaint (&symfile_complaints
,
1036 _("`.ef' symbol %d has no aux entry"),
1038 fcn_last_line
= 0x7FFFFFFF;
1042 fcn_last_line
= main_aux
.x_sym
.x_misc
.x_lnsz
.x_lnno
;
1044 /* fcn_first_line is the line number of the opening '{'.
1045 Do not record it - because it would affect gdb's idea
1046 of the line number of the first statement of the
1047 function - except for one-line functions, for which
1048 it is also the line number of all the statements and
1049 of the closing '}', and for which we do not have any
1050 other statement-line-number. */
1051 if (fcn_last_line
== 1)
1052 record_line (current_subfile
, fcn_first_line
,
1053 gdbarch_addr_bits_remove (gdbarch
,
1054 fcn_first_line_addr
));
1056 enter_linenos (fcn_line_ptr
, fcn_first_line
,
1057 fcn_last_line
, objfile
);
1059 finish_block (new->name
, &local_symbols
,
1060 new->old_blocks
, new->start_addr
,
1061 fcn_cs_saved
.c_value
1062 + fcn_aux_saved
.x_sym
.x_misc
.x_fsize
1063 + ANOFFSET (objfile
->section_offsets
,
1064 SECT_OFF_TEXT (objfile
)),
1067 within_function
= 0;
1072 if (strcmp (cs
->c_name
, ".bb") == 0)
1074 tmpaddr
= cs
->c_value
;
1075 tmpaddr
+= ANOFFSET (objfile
->section_offsets
,
1076 SECT_OFF_TEXT (objfile
));
1077 push_context (++depth
, tmpaddr
);
1079 else if (strcmp (cs
->c_name
, ".eb") == 0)
1081 if (context_stack_depth
<= 0)
1082 { /* We attempted to pop an empty context stack. */
1083 complaint (&symfile_complaints
,
1084 _("`.eb' symbol without matching `.bb' "
1085 "symbol ignored starting at symnum %d"),
1090 new = pop_context ();
1091 if (depth
-- != new->depth
)
1093 complaint (&symfile_complaints
,
1094 _("Mismatched .eb symbol ignored "
1095 "starting at symnum %d"),
1099 if (local_symbols
&& context_stack_depth
> 0)
1102 cs
->c_value
+ ANOFFSET (objfile
->section_offsets
,
1103 SECT_OFF_TEXT (objfile
));
1104 /* Make a block for the local symbols within. */
1105 finish_block (0, &local_symbols
, new->old_blocks
,
1106 new->start_addr
, tmpaddr
, objfile
);
1108 /* Now pop locals of block just finished. */
1109 local_symbols
= new->locals
;
1114 process_coff_symbol (cs
, &main_aux
, objfile
);
1119 if ((nsyms
== 0) && (pe_file
))
1121 /* We've got no debugging symbols, but it's a portable
1122 executable, so try to read the export table. */
1123 read_pe_exported_syms (objfile
);
1126 if (last_source_file
)
1127 coff_end_symtab (objfile
);
1129 /* Patch up any opaque types (references to types that are not defined
1130 in the file where they are referenced, e.g. "struct foo *bar"). */
1131 ALL_OBJFILE_SYMTABS (objfile
, s
)
1132 patch_opaque_types (s
);
1134 coffread_objfile
= NULL
;
1137 /* Routines for reading headers and symbols from executable. */
1139 /* Read the next symbol, swap it, and return it in both
1140 internal_syment form, and coff_symbol form. Also return its first
1141 auxent, if any, in internal_auxent form, and skip any other
1145 read_one_sym (struct coff_symbol
*cs
,
1146 struct internal_syment
*sym
,
1147 union internal_auxent
*aux
)
1150 bfd_size_type bytes
;
1152 cs
->c_symnum
= symnum
;
1153 bytes
= bfd_bread (temp_sym
, local_symesz
, nlist_bfd_global
);
1154 if (bytes
!= local_symesz
)
1155 error (_("%s: error reading symbols"), coffread_objfile
->name
);
1156 bfd_coff_swap_sym_in (symfile_bfd
, temp_sym
, (char *) sym
);
1157 cs
->c_naux
= sym
->n_numaux
& 0xff;
1158 if (cs
->c_naux
>= 1)
1160 bytes
= bfd_bread (temp_aux
, local_auxesz
, nlist_bfd_global
);
1161 if (bytes
!= local_auxesz
)
1162 error (_("%s: error reading symbols"), coffread_objfile
->name
);
1163 bfd_coff_swap_aux_in (symfile_bfd
, temp_aux
,
1164 sym
->n_type
, sym
->n_sclass
,
1165 0, cs
->c_naux
, (char *) aux
);
1166 /* If more than one aux entry, read past it (only the first aux
1168 for (i
= 1; i
< cs
->c_naux
; i
++)
1170 bytes
= bfd_bread (temp_aux
, local_auxesz
, nlist_bfd_global
);
1171 if (bytes
!= local_auxesz
)
1172 error (_("%s: error reading symbols"), coffread_objfile
->name
);
1175 cs
->c_name
= getsymname (sym
);
1176 cs
->c_value
= sym
->n_value
;
1177 cs
->c_sclass
= (sym
->n_sclass
& 0xff);
1178 cs
->c_secnum
= sym
->n_scnum
;
1179 cs
->c_type
= (unsigned) sym
->n_type
;
1180 if (!SDB_TYPE (cs
->c_type
))
1184 if (cs
->c_sclass
& 128)
1185 printf (_("thumb symbol %s, class 0x%x\n"), cs
->c_name
, cs
->c_sclass
);
1188 symnum
+= 1 + cs
->c_naux
;
1190 /* The PE file format stores symbol values as offsets within the
1191 section, rather than as absolute addresses. We correct that
1192 here, if the symbol has an appropriate storage class. FIXME: We
1193 should use BFD to read the symbols, rather than duplicating the
1197 switch (cs
->c_sclass
)
1201 case C_THUMBEXTFUNC
:
1206 case C_THUMBSTATFUNC
:
1212 if (cs
->c_secnum
!= 0)
1213 cs
->c_value
+= cs_section_address (cs
, symfile_bfd
);
1219 /* Support for string table handling. */
1221 static char *stringtab
= NULL
;
1224 init_stringtab (bfd
*abfd
, long offset
)
1228 unsigned char lengthbuf
[4];
1232 /* If the file is stripped, the offset might be zero, indicating no
1233 string table. Just return with `stringtab' set to null. */
1237 if (bfd_seek (abfd
, offset
, 0) < 0)
1240 val
= bfd_bread ((char *) lengthbuf
, sizeof lengthbuf
, abfd
);
1241 length
= bfd_h_get_32 (symfile_bfd
, lengthbuf
);
1243 /* If no string table is needed, then the file may end immediately
1244 after the symbols. Just return with `stringtab' set to null. */
1245 if (val
!= sizeof lengthbuf
|| length
< sizeof lengthbuf
)
1248 stringtab
= (char *) xmalloc (length
);
1249 /* This is in target format (probably not very useful, and not
1250 currently used), not host format. */
1251 memcpy (stringtab
, lengthbuf
, sizeof lengthbuf
);
1252 if (length
== sizeof length
) /* Empty table -- just the count. */
1255 val
= bfd_bread (stringtab
+ sizeof lengthbuf
,
1256 length
- sizeof lengthbuf
, abfd
);
1257 if (val
!= length
- sizeof lengthbuf
|| stringtab
[length
- 1] != '\0')
1264 free_stringtab (void)
1272 free_stringtab_cleanup (void *ignore
)
1278 getsymname (struct internal_syment
*symbol_entry
)
1280 static char buffer
[SYMNMLEN
+ 1];
1283 if (symbol_entry
->_n
._n_n
._n_zeroes
== 0)
1285 /* FIXME: Probably should be detecting corrupt symbol files by
1286 seeing whether offset points to within the stringtab. */
1287 result
= stringtab
+ symbol_entry
->_n
._n_n
._n_offset
;
1291 strncpy (buffer
, symbol_entry
->_n
._n_name
, SYMNMLEN
);
1292 buffer
[SYMNMLEN
] = '\0';
1298 /* Extract the file name from the aux entry of a C_FILE symbol.
1299 Return only the last component of the name. Result is in static
1300 storage and is only good for temporary use. */
1303 coff_getfilename (union internal_auxent
*aux_entry
)
1305 static char buffer
[BUFSIZ
];
1308 if (aux_entry
->x_file
.x_n
.x_zeroes
== 0)
1310 if (strlen (stringtab
+ aux_entry
->x_file
.x_n
.x_offset
) >= BUFSIZ
)
1311 internal_error (__FILE__
, __LINE__
, _("coff file name too long"));
1312 strcpy (buffer
, stringtab
+ aux_entry
->x_file
.x_n
.x_offset
);
1316 strncpy (buffer
, aux_entry
->x_file
.x_fname
, FILNMLEN
);
1317 buffer
[FILNMLEN
] = '\0';
1321 /* FIXME: We should not be throwing away the information about what
1322 directory. It should go into dirname of the symtab, or some such
1324 result
= lbasename (result
);
1328 /* Support for line number handling. */
1330 static char *linetab
= NULL
;
1331 static long linetab_offset
;
1332 static unsigned long linetab_size
;
1334 /* Read in all the line numbers for fast lookups later. Leave them in
1335 external (unswapped) format in memory; we'll swap them as we enter
1336 them into GDB's data structures. */
1339 init_lineno (bfd
*abfd
, long offset
, int size
)
1343 linetab_offset
= offset
;
1344 linetab_size
= size
;
1351 if (bfd_seek (abfd
, offset
, 0) < 0)
1354 /* Allocate the desired table, plus a sentinel. */
1355 linetab
= (char *) xmalloc (size
+ local_linesz
);
1357 val
= bfd_bread (linetab
, size
, abfd
);
1361 /* Terminate it with an all-zero sentinel record. */
1362 memset (linetab
+ size
, 0, local_linesz
);
1376 free_linetab_cleanup (void *ignore
)
1381 #if !defined (L_LNNO32)
1382 #define L_LNNO32(lp) ((lp)->l_lnno)
1386 enter_linenos (long file_offset
, int first_line
,
1387 int last_line
, struct objfile
*objfile
)
1389 struct gdbarch
*gdbarch
= get_objfile_arch (objfile
);
1391 struct internal_lineno lptr
;
1395 if (file_offset
< linetab_offset
)
1397 complaint (&symfile_complaints
,
1398 _("Line number pointer %ld lower than start of line numbers"),
1400 if (file_offset
> linetab_size
) /* Too big to be an offset? */
1402 file_offset
+= linetab_offset
; /* Try reading at that linetab
1406 rawptr
= &linetab
[file_offset
- linetab_offset
];
1408 /* Skip first line entry for each function. */
1409 rawptr
+= local_linesz
;
1410 /* Line numbers start at one for the first line of the function. */
1413 /* If the line number table is full (e.g. 64K lines in COFF debug
1414 info), the next function's L_LNNO32 might not be zero, so don't
1415 overstep the table's end in any case. */
1416 while (rawptr
<= &linetab
[0] + linetab_size
)
1418 bfd_coff_swap_lineno_in (symfile_bfd
, rawptr
, &lptr
);
1419 rawptr
+= local_linesz
;
1420 /* The next function, or the sentinel, will have L_LNNO32 zero;
1422 if (L_LNNO32 (&lptr
) && L_LNNO32 (&lptr
) <= last_line
)
1424 CORE_ADDR addr
= lptr
.l_addr
.l_paddr
;
1425 addr
+= ANOFFSET (objfile
->section_offsets
,
1426 SECT_OFF_TEXT (objfile
));
1427 record_line (current_subfile
,
1428 first_line
+ L_LNNO32 (&lptr
),
1429 gdbarch_addr_bits_remove (gdbarch
, addr
));
1437 patch_type (struct type
*type
, struct type
*real_type
)
1439 struct type
*target
= TYPE_TARGET_TYPE (type
);
1440 struct type
*real_target
= TYPE_TARGET_TYPE (real_type
);
1441 int field_size
= TYPE_NFIELDS (real_target
) * sizeof (struct field
);
1443 TYPE_LENGTH (target
) = TYPE_LENGTH (real_target
);
1444 TYPE_NFIELDS (target
) = TYPE_NFIELDS (real_target
);
1445 TYPE_FIELDS (target
) = (struct field
*) TYPE_ALLOC (target
,
1448 memcpy (TYPE_FIELDS (target
),
1449 TYPE_FIELDS (real_target
),
1452 if (TYPE_NAME (real_target
))
1454 /* The previous copy of TYPE_NAME is allocated by
1455 process_coff_symbol. */
1456 if (TYPE_NAME (target
))
1457 xfree ((char*) TYPE_NAME (target
));
1458 TYPE_NAME (target
) = xstrdup (TYPE_NAME (real_target
));
1462 /* Patch up all appropriate typedef symbols in the opaque_type_chains
1463 so that they can be used to print out opaque data structures
1467 patch_opaque_types (struct symtab
*s
)
1470 struct block_iterator iter
;
1471 struct symbol
*real_sym
;
1473 /* Go through the per-file symbols only. */
1474 b
= BLOCKVECTOR_BLOCK (BLOCKVECTOR (s
), STATIC_BLOCK
);
1475 ALL_BLOCK_SYMBOLS (b
, iter
, real_sym
)
1477 /* Find completed typedefs to use to fix opaque ones.
1478 Remove syms from the chain when their types are stored,
1479 but search the whole chain, as there may be several syms
1480 from different files with the same name. */
1481 if (SYMBOL_CLASS (real_sym
) == LOC_TYPEDEF
1482 && SYMBOL_DOMAIN (real_sym
) == VAR_DOMAIN
1483 && TYPE_CODE (SYMBOL_TYPE (real_sym
)) == TYPE_CODE_PTR
1484 && TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (real_sym
))) != 0)
1486 const char *name
= SYMBOL_LINKAGE_NAME (real_sym
);
1487 int hash
= hashname (name
);
1488 struct symbol
*sym
, *prev
;
1491 for (sym
= opaque_type_chain
[hash
]; sym
;)
1493 if (name
[0] == SYMBOL_LINKAGE_NAME (sym
)[0]
1494 && strcmp (name
+ 1, SYMBOL_LINKAGE_NAME (sym
) + 1) == 0)
1498 SYMBOL_VALUE_CHAIN (prev
) = SYMBOL_VALUE_CHAIN (sym
);
1502 opaque_type_chain
[hash
] = SYMBOL_VALUE_CHAIN (sym
);
1505 patch_type (SYMBOL_TYPE (sym
), SYMBOL_TYPE (real_sym
));
1509 sym
= SYMBOL_VALUE_CHAIN (prev
);
1513 sym
= opaque_type_chain
[hash
];
1519 sym
= SYMBOL_VALUE_CHAIN (sym
);
1527 coff_reg_to_regnum (struct symbol
*sym
, struct gdbarch
*gdbarch
)
1529 return gdbarch_sdb_reg_to_regnum (gdbarch
, SYMBOL_VALUE (sym
));
1532 static const struct symbol_register_ops coff_register_funcs
= {
1536 static struct symbol
*
1537 process_coff_symbol (struct coff_symbol
*cs
,
1538 union internal_auxent
*aux
,
1539 struct objfile
*objfile
)
1542 = (struct symbol
*) obstack_alloc (&objfile
->objfile_obstack
,
1543 sizeof (struct symbol
));
1546 memset (sym
, 0, sizeof (struct symbol
));
1548 name
= EXTERNAL_NAME (name
, objfile
->obfd
);
1549 SYMBOL_SET_LANGUAGE (sym
, current_subfile
->language
);
1550 SYMBOL_SET_NAMES (sym
, name
, strlen (name
), 1, objfile
);
1552 /* default assumptions */
1553 SYMBOL_VALUE (sym
) = cs
->c_value
;
1554 SYMBOL_DOMAIN (sym
) = VAR_DOMAIN
;
1555 SYMBOL_SECTION (sym
) = cs_to_section (cs
, objfile
);
1557 if (ISFCN (cs
->c_type
))
1559 SYMBOL_VALUE (sym
) += ANOFFSET (objfile
->section_offsets
,
1560 SECT_OFF_TEXT (objfile
));
1562 lookup_function_type (decode_function_type (cs
, cs
->c_type
,
1565 SYMBOL_CLASS (sym
) = LOC_BLOCK
;
1566 if (cs
->c_sclass
== C_STAT
|| cs
->c_sclass
== C_THUMBSTAT
1567 || cs
->c_sclass
== C_THUMBSTATFUNC
)
1568 add_symbol_to_list (sym
, &file_symbols
);
1569 else if (cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXT
1570 || cs
->c_sclass
== C_THUMBEXTFUNC
)
1571 add_symbol_to_list (sym
, &global_symbols
);
1575 SYMBOL_TYPE (sym
) = decode_type (cs
, cs
->c_type
, aux
, objfile
);
1576 switch (cs
->c_sclass
)
1582 SYMBOL_CLASS (sym
) = LOC_LOCAL
;
1583 add_symbol_to_list (sym
, &local_symbols
);
1587 case C_THUMBEXTFUNC
:
1589 SYMBOL_CLASS (sym
) = LOC_STATIC
;
1590 SYMBOL_VALUE_ADDRESS (sym
) = (CORE_ADDR
) cs
->c_value
;
1591 SYMBOL_VALUE_ADDRESS (sym
) += ANOFFSET (objfile
->section_offsets
,
1592 SECT_OFF_TEXT (objfile
));
1593 add_symbol_to_list (sym
, &global_symbols
);
1597 case C_THUMBSTATFUNC
:
1599 SYMBOL_CLASS (sym
) = LOC_STATIC
;
1600 SYMBOL_VALUE_ADDRESS (sym
) = (CORE_ADDR
) cs
->c_value
;
1601 SYMBOL_VALUE_ADDRESS (sym
) += ANOFFSET (objfile
->section_offsets
,
1602 SECT_OFF_TEXT (objfile
));
1603 if (within_function
)
1605 /* Static symbol of local scope. */
1606 add_symbol_to_list (sym
, &local_symbols
);
1610 /* Static symbol at top level of file. */
1611 add_symbol_to_list (sym
, &file_symbols
);
1615 #ifdef C_GLBLREG /* AMD coff */
1619 SYMBOL_CLASS (sym
) = LOC_REGISTER
;
1620 SYMBOL_REGISTER_OPS (sym
) = &coff_register_funcs
;
1621 SYMBOL_VALUE (sym
) = cs
->c_value
;
1622 add_symbol_to_list (sym
, &local_symbols
);
1630 SYMBOL_CLASS (sym
) = LOC_ARG
;
1631 SYMBOL_IS_ARGUMENT (sym
) = 1;
1632 add_symbol_to_list (sym
, &local_symbols
);
1636 SYMBOL_CLASS (sym
) = LOC_REGISTER
;
1637 SYMBOL_REGISTER_OPS (sym
) = &coff_register_funcs
;
1638 SYMBOL_IS_ARGUMENT (sym
) = 1;
1639 SYMBOL_VALUE (sym
) = cs
->c_value
;
1640 add_symbol_to_list (sym
, &local_symbols
);
1644 SYMBOL_CLASS (sym
) = LOC_TYPEDEF
;
1645 SYMBOL_DOMAIN (sym
) = VAR_DOMAIN
;
1647 /* If type has no name, give it one. */
1648 if (TYPE_NAME (SYMBOL_TYPE (sym
)) == 0)
1650 if (TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_PTR
1651 || TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_FUNC
)
1653 /* If we are giving a name to a type such as
1654 "pointer to foo" or "function returning foo", we
1655 better not set the TYPE_NAME. If the program
1656 contains "typedef char *caddr_t;", we don't want
1657 all variables of type char * to print as caddr_t.
1658 This is not just a consequence of GDB's type
1659 management; CC and GCC (at least through version
1660 2.4) both output variables of either type char *
1661 or caddr_t with the type refering to the C_TPDEF
1662 symbol for caddr_t. If a future compiler cleans
1663 this up it GDB is not ready for it yet, but if it
1664 becomes ready we somehow need to disable this
1665 check (without breaking the PCC/GCC2.4 case).
1669 Fortunately, this check seems not to be necessary
1670 for anything except pointers or functions. */
1674 TYPE_NAME (SYMBOL_TYPE (sym
)) =
1675 xstrdup (SYMBOL_LINKAGE_NAME (sym
));
1678 /* Keep track of any type which points to empty structured
1679 type, so it can be filled from a definition from another
1680 file. A simple forward reference (TYPE_CODE_UNDEF) is
1681 not an empty structured type, though; the forward
1682 references work themselves out via the magic of
1683 coff_lookup_type. */
1684 if (TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_PTR
1685 && TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym
))) == 0
1686 && TYPE_CODE (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym
)))
1689 int i
= hashname (SYMBOL_LINKAGE_NAME (sym
));
1691 SYMBOL_VALUE_CHAIN (sym
) = opaque_type_chain
[i
];
1692 opaque_type_chain
[i
] = sym
;
1694 add_symbol_to_list (sym
, &file_symbols
);
1700 SYMBOL_CLASS (sym
) = LOC_TYPEDEF
;
1701 SYMBOL_DOMAIN (sym
) = STRUCT_DOMAIN
;
1703 /* Some compilers try to be helpful by inventing "fake"
1704 names for anonymous enums, structures, and unions, like
1705 "~0fake" or ".0fake". Thanks, but no thanks... */
1706 if (TYPE_TAG_NAME (SYMBOL_TYPE (sym
)) == 0)
1707 if (SYMBOL_LINKAGE_NAME (sym
) != NULL
1708 && *SYMBOL_LINKAGE_NAME (sym
) != '~'
1709 && *SYMBOL_LINKAGE_NAME (sym
) != '.')
1710 TYPE_TAG_NAME (SYMBOL_TYPE (sym
)) =
1711 concat (SYMBOL_LINKAGE_NAME (sym
), (char *)NULL
);
1713 add_symbol_to_list (sym
, &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_range_type ((struct type
*) NULL
,
1768 index_type
, 0, n
- 1);
1770 create_array_type ((struct type
*) NULL
,
1771 base_type
, range_type
);
1776 /* Reference to existing type. This only occurs with the struct,
1777 union, and enum types. EPI a29k coff fakes us out by producing
1778 aux entries with a nonzero x_tagndx for definitions of structs,
1779 unions, and enums, so we have to check the c_sclass field. SCO
1780 3.2v4 cc gets confused with pointers to pointers to defined
1781 structs, and generates negative x_tagndx fields. */
1782 if (cs
->c_naux
> 0 && aux
->x_sym
.x_tagndx
.l
!= 0)
1784 if (cs
->c_sclass
!= C_STRTAG
1785 && cs
->c_sclass
!= C_UNTAG
1786 && cs
->c_sclass
!= C_ENTAG
1787 && aux
->x_sym
.x_tagndx
.l
>= 0)
1789 type
= coff_alloc_type (aux
->x_sym
.x_tagndx
.l
);
1794 complaint (&symfile_complaints
,
1795 _("Symbol table entry for %s has bad tagndx value"),
1797 /* And fall through to decode_base_type... */
1801 return decode_base_type (cs
, BTYPE (c_type
), aux
, objfile
);
1804 /* Decode a coff type specifier for function definition;
1805 return the type that the function returns. */
1807 static struct type
*
1808 decode_function_type (struct coff_symbol
*cs
,
1809 unsigned int c_type
,
1810 union internal_auxent
*aux
,
1811 struct objfile
*objfile
)
1813 if (aux
->x_sym
.x_tagndx
.l
== 0)
1814 cs
->c_naux
= 0; /* auxent refers to function, not base
1817 return decode_type (cs
, DECREF (c_type
), aux
, objfile
);
1820 /* Basic C types. */
1822 static struct type
*
1823 decode_base_type (struct coff_symbol
*cs
,
1824 unsigned int c_type
,
1825 union internal_auxent
*aux
,
1826 struct objfile
*objfile
)
1828 struct gdbarch
*gdbarch
= get_objfile_arch (objfile
);
1834 /* Shows up with "void (*foo)();" structure members. */
1835 return objfile_type (objfile
)->builtin_void
;
1839 /* Intel 960 COFF has this symbol and meaning. */
1840 return objfile_type (objfile
)->builtin_void
;
1844 return objfile_type (objfile
)->builtin_char
;
1847 return objfile_type (objfile
)->builtin_short
;
1850 return objfile_type (objfile
)->builtin_int
;
1853 if (cs
->c_sclass
== C_FIELD
1854 && aux
->x_sym
.x_misc
.x_lnsz
.x_size
1855 > gdbarch_long_bit (gdbarch
))
1856 return objfile_type (objfile
)->builtin_long_long
;
1858 return objfile_type (objfile
)->builtin_long
;
1861 return objfile_type (objfile
)->builtin_float
;
1864 return objfile_type (objfile
)->builtin_double
;
1867 return objfile_type (objfile
)->builtin_long_double
;
1870 if (cs
->c_naux
!= 1)
1872 /* Anonymous structure type. */
1873 type
= coff_alloc_type (cs
->c_symnum
);
1874 TYPE_CODE (type
) = TYPE_CODE_STRUCT
;
1875 TYPE_NAME (type
) = NULL
;
1876 /* This used to set the tag to "<opaque>". But I think
1877 setting it to NULL is right, and the printing code can
1878 print it as "struct {...}". */
1879 TYPE_TAG_NAME (type
) = NULL
;
1880 INIT_CPLUS_SPECIFIC (type
);
1881 TYPE_LENGTH (type
) = 0;
1882 TYPE_FIELDS (type
) = 0;
1883 TYPE_NFIELDS (type
) = 0;
1887 type
= coff_read_struct_type (cs
->c_symnum
,
1888 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1889 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
,
1895 if (cs
->c_naux
!= 1)
1897 /* Anonymous union type. */
1898 type
= coff_alloc_type (cs
->c_symnum
);
1899 TYPE_NAME (type
) = NULL
;
1900 /* This used to set the tag to "<opaque>". But I think
1901 setting it to NULL is right, and the printing code can
1902 print it as "union {...}". */
1903 TYPE_TAG_NAME (type
) = NULL
;
1904 INIT_CPLUS_SPECIFIC (type
);
1905 TYPE_LENGTH (type
) = 0;
1906 TYPE_FIELDS (type
) = 0;
1907 TYPE_NFIELDS (type
) = 0;
1911 type
= coff_read_struct_type (cs
->c_symnum
,
1912 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1913 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
,
1916 TYPE_CODE (type
) = TYPE_CODE_UNION
;
1920 if (cs
->c_naux
!= 1)
1922 /* Anonymous enum type. */
1923 type
= coff_alloc_type (cs
->c_symnum
);
1924 TYPE_CODE (type
) = TYPE_CODE_ENUM
;
1925 TYPE_NAME (type
) = NULL
;
1926 /* This used to set the tag to "<opaque>". But I think
1927 setting it to NULL is right, and the printing code can
1928 print it as "enum {...}". */
1929 TYPE_TAG_NAME (type
) = NULL
;
1930 TYPE_LENGTH (type
) = 0;
1931 TYPE_FIELDS (type
) = 0;
1932 TYPE_NFIELDS (type
) = 0;
1936 type
= coff_read_enum_type (cs
->c_symnum
,
1937 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1938 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
,
1944 /* Shouldn't show up here. */
1948 return objfile_type (objfile
)->builtin_unsigned_char
;
1951 return objfile_type (objfile
)->builtin_unsigned_short
;
1954 return objfile_type (objfile
)->builtin_unsigned_int
;
1957 if (cs
->c_sclass
== C_FIELD
1958 && aux
->x_sym
.x_misc
.x_lnsz
.x_size
1959 > gdbarch_long_bit (gdbarch
))
1960 return objfile_type (objfile
)->builtin_unsigned_long_long
;
1962 return objfile_type (objfile
)->builtin_unsigned_long
;
1964 complaint (&symfile_complaints
,
1965 _("Unexpected type for symbol %s"), cs
->c_name
);
1966 return objfile_type (objfile
)->builtin_void
;
1969 /* This page contains subroutines of read_type. */
1971 /* Read the description of a structure (or union type) and return an
1972 object describing the type. */
1974 static struct type
*
1975 coff_read_struct_type (int index
, int length
, int lastsym
,
1976 struct objfile
*objfile
)
1980 struct nextfield
*next
;
1985 struct nextfield
*list
= 0;
1986 struct nextfield
*new;
1990 struct coff_symbol member_sym
;
1991 struct coff_symbol
*ms
= &member_sym
;
1992 struct internal_syment sub_sym
;
1993 union internal_auxent sub_aux
;
1996 type
= coff_alloc_type (index
);
1997 TYPE_CODE (type
) = TYPE_CODE_STRUCT
;
1998 INIT_CPLUS_SPECIFIC (type
);
1999 TYPE_LENGTH (type
) = length
;
2001 while (!done
&& symnum
< lastsym
&& symnum
< nlist_nsyms_global
)
2003 read_one_sym (ms
, &sub_sym
, &sub_aux
);
2005 name
= EXTERNAL_NAME (name
, objfile
->obfd
);
2007 switch (ms
->c_sclass
)
2012 /* Get space to record the next field's data. */
2013 new = (struct nextfield
*) alloca (sizeof (struct nextfield
));
2017 /* Save the data. */
2018 list
->field
.name
= obsavestring (name
, strlen (name
),
2019 &objfile
->objfile_obstack
);
2020 FIELD_TYPE (list
->field
) = decode_type (ms
, ms
->c_type
,
2022 SET_FIELD_BITPOS (list
->field
, 8 * ms
->c_value
);
2023 FIELD_BITSIZE (list
->field
) = 0;
2029 /* Get space to record the next field's data. */
2030 new = (struct nextfield
*) alloca (sizeof (struct nextfield
));
2034 /* Save the data. */
2035 list
->field
.name
= obsavestring (name
, strlen (name
),
2036 &objfile
->objfile_obstack
);
2037 FIELD_TYPE (list
->field
) = decode_type (ms
, ms
->c_type
,
2039 SET_FIELD_BITPOS (list
->field
, ms
->c_value
);
2040 FIELD_BITSIZE (list
->field
) = sub_aux
.x_sym
.x_misc
.x_lnsz
.x_size
;
2049 /* Now create the vector of fields, and record how big it is. */
2051 TYPE_NFIELDS (type
) = nfields
;
2052 TYPE_FIELDS (type
) = (struct field
*)
2053 TYPE_ALLOC (type
, sizeof (struct field
) * nfields
);
2055 /* Copy the saved-up fields into the field vector. */
2057 for (n
= nfields
; list
; list
= list
->next
)
2058 TYPE_FIELD (type
, --n
) = list
->field
;
2063 /* Read a definition of an enumeration type,
2064 and create and return a suitable type object.
2065 Also defines the symbols that represent the values of the type. */
2067 static struct type
*
2068 coff_read_enum_type (int index
, int length
, int lastsym
,
2069 struct objfile
*objfile
)
2071 struct gdbarch
*gdbarch
= get_objfile_arch (objfile
);
2076 struct pending
**symlist
;
2077 struct coff_symbol member_sym
;
2078 struct coff_symbol
*ms
= &member_sym
;
2079 struct internal_syment sub_sym
;
2080 union internal_auxent sub_aux
;
2081 struct pending
*osyms
, *syms
;
2085 int unsigned_enum
= 1;
2087 type
= coff_alloc_type (index
);
2088 if (within_function
)
2089 symlist
= &local_symbols
;
2091 symlist
= &file_symbols
;
2093 o_nsyms
= osyms
? osyms
->nsyms
: 0;
2095 while (!done
&& symnum
< lastsym
&& symnum
< nlist_nsyms_global
)
2097 read_one_sym (ms
, &sub_sym
, &sub_aux
);
2099 name
= EXTERNAL_NAME (name
, objfile
->obfd
);
2101 switch (ms
->c_sclass
)
2104 sym
= (struct symbol
*) obstack_alloc
2105 (&objfile
->objfile_obstack
, sizeof (struct symbol
));
2106 memset (sym
, 0, sizeof (struct symbol
));
2108 SYMBOL_SET_LINKAGE_NAME (sym
,
2109 obsavestring (name
, strlen (name
),
2110 &objfile
->objfile_obstack
));
2111 SYMBOL_CLASS (sym
) = LOC_CONST
;
2112 SYMBOL_DOMAIN (sym
) = VAR_DOMAIN
;
2113 SYMBOL_VALUE (sym
) = ms
->c_value
;
2114 add_symbol_to_list (sym
, symlist
);
2119 /* Sometimes the linker (on 386/ix 2.0.2 at least) screws
2120 up the count of how many symbols to read. So stop
2127 /* Now fill in the fields of the type-structure. */
2130 TYPE_LENGTH (type
) = length
;
2131 else /* Assume ints. */
2132 TYPE_LENGTH (type
) = gdbarch_int_bit (gdbarch
) / TARGET_CHAR_BIT
;
2133 TYPE_CODE (type
) = TYPE_CODE_ENUM
;
2134 TYPE_NFIELDS (type
) = nsyms
;
2135 TYPE_FIELDS (type
) = (struct field
*)
2136 TYPE_ALLOC (type
, sizeof (struct field
) * nsyms
);
2138 /* Find the symbols for the values and put them into the type.
2139 The symbols can be found in the symlist that we put them on
2140 to cause them to be defined. osyms contains the old value
2141 of that symlist; everything up to there was defined by us. */
2142 /* Note that we preserve the order of the enum constants, so
2143 that in something like "enum {FOO, LAST_THING=FOO}" we print
2144 FOO, not LAST_THING. */
2146 for (syms
= *symlist
, n
= 0; syms
; syms
= syms
->next
)
2152 for (; j
< syms
->nsyms
; j
++, n
++)
2154 struct symbol
*xsym
= syms
->symbol
[j
];
2156 SYMBOL_TYPE (xsym
) = type
;
2157 TYPE_FIELD_NAME (type
, n
) = SYMBOL_LINKAGE_NAME (xsym
);
2158 SET_FIELD_ENUMVAL (TYPE_FIELD (type
, n
), SYMBOL_VALUE (xsym
));
2159 if (SYMBOL_VALUE (xsym
) < 0)
2161 TYPE_FIELD_BITSIZE (type
, n
) = 0;
2168 TYPE_UNSIGNED (type
) = 1;
2173 /* Register our ability to parse symbols for coff BFD files. */
2175 static const struct sym_fns coff_sym_fns
=
2177 bfd_target_coff_flavour
,
2178 coff_new_init
, /* sym_new_init: init anything gbl to
2180 coff_symfile_init
, /* sym_init: read initial info, setup
2182 coff_symfile_read
, /* sym_read: read a symbol file into
2184 NULL
, /* sym_read_psymbols */
2185 coff_symfile_finish
, /* sym_finish: finished with file,
2187 default_symfile_offsets
, /* sym_offsets: xlate external to
2189 default_symfile_segments
, /* sym_segments: Get segment
2190 information from a file */
2191 NULL
, /* sym_read_linetable */
2193 default_symfile_relocate
, /* sym_relocate: Relocate a debug
2195 NULL
, /* sym_probe_fns */
2199 /* Free the per-objfile COFF data. */
2202 coff_free_info (struct objfile
*objfile
, void *arg
)
2208 _initialize_coffread (void)
2210 add_symtab_fns (&coff_sym_fns
);
2212 coff_objfile_data_key
= register_objfile_data_with_cleanup (NULL
,