1 /* Read coff symbol tables and convert to internal format, for GDB.
2 Copyright (C) 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996,
3 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2007, 2008, 2009,
4 2010 Free Software Foundation, Inc.
5 Contributed by David D. Johnson, Brown University (ddj@cs.brown.edu).
7 This file is part of GDB.
9 This program is free software; you can redistribute it and/or modify
10 it under the terms of the GNU General Public License as published by
11 the Free Software Foundation; either version 3 of the License, or
12 (at your option) any later version.
14 This program is distributed in the hope that it will be useful,
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 GNU General Public License for more details.
19 You should have received a copy of the GNU General Public License
20 along with this program. If not, see <http://www.gnu.org/licenses/>. */
26 #include "breakpoint.h"
29 #include "gdb_obstack.h"
31 #include "gdb_string.h"
34 #include "coff/internal.h" /* Internal format of COFF symbols in BFD */
35 #include "libcoff.h" /* FIXME secret internal data from BFD */
38 #include "gdb-stabs.h"
39 #include "stabsread.h"
40 #include "complaints.h"
42 #include "gdb_assert.h"
44 #include "dictionary.h"
46 #include "coff-pe-read.h"
48 extern void _initialize_coffread (void);
50 struct coff_symfile_info
52 file_ptr min_lineno_offset
; /* Where in file lowest line#s are */
53 file_ptr max_lineno_offset
; /* 1+last byte of line#s in file */
55 CORE_ADDR textaddr
; /* Addr of .text section. */
56 unsigned int textsize
; /* Size of .text section. */
57 struct stab_section_list
*stabsects
; /* .stab sections. */
58 asection
*stabstrsect
; /* Section pointer for .stab section */
62 /* Translate an external name string into a user-visible name. */
63 #define EXTERNAL_NAME(string, abfd) \
64 (string[0] == bfd_get_symbol_leading_char(abfd)? string+1: string)
66 /* To be an sdb debug type, type must have at least a basic or primary
67 derived type. Using this rather than checking against T_NULL is
68 said to prevent core dumps if we try to operate on Michael Bloom
71 #define SDB_TYPE(type) (BTYPE(type) | (type & N_TMASK))
73 /* Core address of start and end of text of current source file.
74 This comes from a ".text" symbol where x_nlinno > 0. */
76 static CORE_ADDR current_source_start_addr
;
77 static CORE_ADDR current_source_end_addr
;
79 /* The addresses of the symbol table stream and number of symbols
80 of the object file we are reading (as copied into core). */
82 static bfd
*nlist_bfd_global
;
83 static int nlist_nsyms_global
;
86 /* Pointers to scratch storage, used for reading raw symbols and auxents. */
88 static char *temp_sym
;
89 static char *temp_aux
;
91 /* Local variables that hold the shift and mask values for the
92 COFF file that we are currently reading. These come back to us
93 from BFD, and are referenced by their macro names, as well as
94 internally to the BTYPE, ISPTR, ISFCN, ISARY, ISTAG, and DECREF
95 macros from include/coff/internal.h . */
97 static unsigned local_n_btmask
;
98 static unsigned local_n_btshft
;
99 static unsigned local_n_tmask
;
100 static unsigned local_n_tshift
;
102 #define N_BTMASK local_n_btmask
103 #define N_BTSHFT local_n_btshft
104 #define N_TMASK local_n_tmask
105 #define N_TSHIFT local_n_tshift
107 /* Local variables that hold the sizes in the file of various COFF structures.
108 (We only need to know this to read them from the file -- BFD will then
109 translate the data in them, into `internal_xxx' structs in the right
110 byte order, alignment, etc.) */
112 static unsigned local_linesz
;
113 static unsigned local_symesz
;
114 static unsigned local_auxesz
;
116 /* This is set if this is a PE format file. */
120 /* Chain of typedefs of pointers to empty struct/union types.
121 They are chained thru the SYMBOL_VALUE_CHAIN. */
123 static struct symbol
*opaque_type_chain
[HASHSIZE
];
125 /* Simplified internal version of coff symbol table information */
130 int c_symnum
; /* symbol number of this entry */
131 int c_naux
; /* 0 if syment only, 1 if syment + auxent, etc */
138 extern void stabsread_clear_cache (void);
140 static struct type
*coff_read_struct_type (int, int, int,
143 static struct type
*decode_base_type (struct coff_symbol
*,
144 unsigned int, union internal_auxent
*,
147 static struct type
*decode_type (struct coff_symbol
*, unsigned int,
148 union internal_auxent
*,
151 static struct type
*decode_function_type (struct coff_symbol
*,
153 union internal_auxent
*,
156 static struct type
*coff_read_enum_type (int, int, int,
159 static struct symbol
*process_coff_symbol (struct coff_symbol
*,
160 union internal_auxent
*,
163 static void patch_opaque_types (struct symtab
*);
165 static void enter_linenos (long, int, int, struct objfile
*);
167 static void free_linetab (void);
169 static void free_linetab_cleanup (void *ignore
);
171 static int init_lineno (bfd
*, long, int);
173 static char *getsymname (struct internal_syment
*);
175 static char *coff_getfilename (union internal_auxent
*);
177 static void free_stringtab (void);
179 static void free_stringtab_cleanup (void *ignore
);
181 static int init_stringtab (bfd
*, long);
183 static void read_one_sym (struct coff_symbol
*,
184 struct internal_syment
*, union internal_auxent
*);
186 static void coff_symtab_read (long, unsigned int, struct objfile
*);
188 /* We are called once per section from coff_symfile_read. We
189 need to examine each section we are passed, check to see
190 if it is something we are interested in processing, and
191 if so, stash away some access information for the section.
193 FIXME: The section names should not be hardwired strings (what
194 should they be? I don't think most object file formats have enough
195 section flags to specify what kind of debug section it is
199 coff_locate_sections (bfd
*abfd
, asection
*sectp
, void *csip
)
201 struct coff_symfile_info
*csi
;
204 csi
= (struct coff_symfile_info
*) csip
;
205 name
= bfd_get_section_name (abfd
, sectp
);
206 if (strcmp (name
, ".text") == 0)
208 csi
->textaddr
= bfd_section_vma (abfd
, sectp
);
209 csi
->textsize
+= bfd_section_size (abfd
, sectp
);
211 else if (strncmp (name
, ".text", sizeof ".text" - 1) == 0)
213 csi
->textsize
+= bfd_section_size (abfd
, sectp
);
215 else if (strcmp (name
, ".stabstr") == 0)
217 csi
->stabstrsect
= sectp
;
219 else if (strncmp (name
, ".stab", sizeof ".stab" - 1) == 0)
223 /* We can have multiple .stab sections if linked with
225 for (s
= name
+ sizeof ".stab" - 1; *s
!= '\0'; s
++)
230 struct stab_section_list
*n
, **pn
;
232 n
= ((struct stab_section_list
*)
233 xmalloc (sizeof (struct stab_section_list
)));
236 for (pn
= &csi
->stabsects
; *pn
!= NULL
; pn
= &(*pn
)->next
)
240 /* This will be run after coffstab_build_psymtabs is called
241 in coff_symfile_read, at which point we no longer need
243 make_cleanup (xfree
, n
);
248 /* Return the section_offsets* that CS points to. */
249 static int cs_to_section (struct coff_symbol
*, struct objfile
*);
251 struct find_targ_sec_arg
258 find_targ_sec (bfd
*abfd
, asection
*sect
, void *obj
)
260 struct find_targ_sec_arg
*args
= (struct find_targ_sec_arg
*) obj
;
261 if (sect
->target_index
== args
->targ_index
)
262 *args
->resultp
= sect
;
265 /* Return the bfd_section that CS points to. */
266 static struct bfd_section
*
267 cs_to_bfd_section (struct coff_symbol
*cs
, struct objfile
*objfile
)
269 asection
*sect
= NULL
;
270 struct find_targ_sec_arg args
;
272 args
.targ_index
= cs
->c_secnum
;
273 args
.resultp
= §
;
274 bfd_map_over_sections (objfile
->obfd
, find_targ_sec
, &args
);
278 /* Return the section number (SECT_OFF_*) that CS points to. */
280 cs_to_section (struct coff_symbol
*cs
, struct objfile
*objfile
)
282 asection
*sect
= cs_to_bfd_section (cs
, objfile
);
284 return SECT_OFF_TEXT (objfile
);
288 /* Return the address of the section of a COFF symbol. */
290 static CORE_ADDR
cs_section_address (struct coff_symbol
*, bfd
*);
293 cs_section_address (struct coff_symbol
*cs
, bfd
*abfd
)
295 asection
*sect
= NULL
;
296 struct find_targ_sec_arg args
;
299 args
.targ_index
= cs
->c_secnum
;
300 args
.resultp
= §
;
301 bfd_map_over_sections (abfd
, find_targ_sec
, &args
);
303 addr
= bfd_get_section_vma (objfile
->obfd
, sect
);
307 /* Look up a coff type-number index. Return the address of the slot
308 where the type for that index is stored.
309 The type-number is in INDEX.
311 This can be used for finding the type associated with that index
312 or for associating a new type with the index. */
314 static struct type
**
315 coff_lookup_type (int index
)
317 if (index
>= type_vector_length
)
319 int old_vector_length
= type_vector_length
;
321 type_vector_length
*= 2;
322 if (index
/* is still */ >= type_vector_length
)
323 type_vector_length
= index
* 2;
325 type_vector
= (struct type
**)
326 xrealloc ((char *) type_vector
,
327 type_vector_length
* sizeof (struct type
*));
328 memset (&type_vector
[old_vector_length
], 0,
329 (type_vector_length
- old_vector_length
) * sizeof (struct type
*));
331 return &type_vector
[index
];
334 /* Make sure there is a type allocated for type number index
335 and return the type object.
336 This can create an empty (zeroed) type object. */
339 coff_alloc_type (int index
)
341 struct type
**type_addr
= coff_lookup_type (index
);
342 struct type
*type
= *type_addr
;
344 /* If we are referring to a type not known at all yet,
345 allocate an empty type for it.
346 We will fill it in later if we find out how. */
349 type
= alloc_type (current_objfile
);
355 /* Start a new symtab for a new source file.
356 This is called when a COFF ".file" symbol is seen;
357 it indicates the start of data for one original source file. */
360 coff_start_symtab (char *name
)
363 /* We fill in the filename later. start_symtab puts
364 this pointer into last_source_file and we put it in
365 subfiles->name, which end_symtab frees; that's why
366 it must be malloc'd. */
368 /* We never know the directory name for COFF. */
370 /* The start address is irrelevant, since we set
371 last_source_start_addr in coff_end_symtab. */
373 record_debugformat ("COFF");
376 /* Save the vital information from when starting to read a file,
377 for use when closing off the current file.
378 NAME is the file name the symbols came from, START_ADDR is the first
379 text address for the file, and SIZE is the number of bytes of text. */
382 complete_symtab (char *name
, CORE_ADDR start_addr
, unsigned int size
)
384 if (last_source_file
!= NULL
)
385 xfree (last_source_file
);
386 last_source_file
= xstrdup (name
);
387 current_source_start_addr
= start_addr
;
388 current_source_end_addr
= start_addr
+ size
;
391 /* Finish the symbol definitions for one main source file,
392 close off all the lexical contexts for that file
393 (creating struct block's for them), then make the
394 struct symtab for that file and put it in the list of all such. */
397 coff_end_symtab (struct objfile
*objfile
)
399 struct symtab
*symtab
;
401 last_source_start_addr
= current_source_start_addr
;
403 symtab
= end_symtab (current_source_end_addr
, objfile
, SECT_OFF_TEXT (objfile
));
406 free_named_symtabs (symtab
->filename
);
408 /* Reinitialize for beginning of new file. */
409 last_source_file
= NULL
;
412 static struct minimal_symbol
*
413 record_minimal_symbol (struct coff_symbol
*cs
, CORE_ADDR address
,
414 enum minimal_symbol_type type
, int section
,
415 struct objfile
*objfile
)
417 struct bfd_section
*bfd_section
;
418 /* We don't want TDESC entry points in the minimal symbol table */
419 if (cs
->c_name
[0] == '@')
422 bfd_section
= cs_to_bfd_section (cs
, objfile
);
423 return prim_record_minimal_symbol_and_info (cs
->c_name
, address
, type
,
424 section
, bfd_section
, objfile
);
427 /* coff_symfile_init ()
428 is the coff-specific initialization routine for reading symbols.
429 It is passed a struct objfile which contains, among other things,
430 the BFD for the file whose symbols are being read, and a slot for
431 a pointer to "private data" which we fill with cookies and other
432 treats for coff_symfile_read ().
434 We will only be called if this is a COFF or COFF-like file.
435 BFD handles figuring out the format of the file, and code in symtab.c
436 uses BFD's determination to vector to us.
438 The ultimate result is a new symtab (or, FIXME, eventually a psymtab). */
441 coff_symfile_init (struct objfile
*objfile
)
443 /* Allocate struct to keep track of stab reading. */
444 objfile
->deprecated_sym_stab_info
= (struct dbx_symfile_info
*)
445 xmalloc (sizeof (struct dbx_symfile_info
));
447 memset (objfile
->deprecated_sym_stab_info
, 0,
448 sizeof (struct dbx_symfile_info
));
450 /* Allocate struct to keep track of the symfile */
451 objfile
->deprecated_sym_private
= xmalloc (sizeof (struct coff_symfile_info
));
453 memset (objfile
->deprecated_sym_private
, 0, sizeof (struct coff_symfile_info
));
455 /* COFF objects may be reordered, so set OBJF_REORDERED. If we
456 find this causes a significant slowdown in gdb then we could
457 set it in the debug symbol readers only when necessary. */
458 objfile
->flags
|= OBJF_REORDERED
;
460 init_entry_point_info (objfile
);
463 /* This function is called for every section; it finds the outer limits
464 of the line table (minimum and maximum file offset) so that the
465 mainline code can read the whole thing for efficiency. */
468 find_linenos (bfd
*abfd
, struct bfd_section
*asect
, void *vpinfo
)
470 struct coff_symfile_info
*info
;
472 file_ptr offset
, maxoff
;
474 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
475 count
= asect
->lineno_count
;
480 size
= count
* local_linesz
;
482 info
= (struct coff_symfile_info
*) vpinfo
;
483 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
484 offset
= asect
->line_filepos
;
487 if (offset
< info
->min_lineno_offset
|| info
->min_lineno_offset
== 0)
488 info
->min_lineno_offset
= offset
;
490 maxoff
= offset
+ size
;
491 if (maxoff
> info
->max_lineno_offset
)
492 info
->max_lineno_offset
= maxoff
;
496 /* The BFD for this file -- only good while we're actively reading
497 symbols into a psymtab or a symtab. */
499 static bfd
*symfile_bfd
;
501 /* Read a symbol file, after initialization by coff_symfile_init. */
504 coff_symfile_read (struct objfile
*objfile
, int symfile_flags
)
506 struct coff_symfile_info
*info
;
507 struct dbx_symfile_info
*dbxinfo
;
508 bfd
*abfd
= objfile
->obfd
;
509 coff_data_type
*cdata
= coff_data (abfd
);
510 char *name
= bfd_get_filename (abfd
);
512 unsigned int num_symbols
;
514 int stringtab_offset
;
515 struct cleanup
*back_to
, *cleanup_minimal_symbols
;
520 info
= (struct coff_symfile_info
*) objfile
->deprecated_sym_private
;
521 dbxinfo
= objfile
->deprecated_sym_stab_info
;
522 symfile_bfd
= abfd
; /* Kludge for swap routines */
524 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
525 num_symbols
= bfd_get_symcount (abfd
); /* How many syms */
526 symtab_offset
= cdata
->sym_filepos
; /* Symbol table file offset */
527 stringtab_offset
= symtab_offset
+ /* String table file offset */
528 num_symbols
* cdata
->local_symesz
;
530 /* Set a few file-statics that give us specific information about
531 the particular COFF file format we're reading. */
532 local_n_btmask
= cdata
->local_n_btmask
;
533 local_n_btshft
= cdata
->local_n_btshft
;
534 local_n_tmask
= cdata
->local_n_tmask
;
535 local_n_tshift
= cdata
->local_n_tshift
;
536 local_linesz
= cdata
->local_linesz
;
537 local_symesz
= cdata
->local_symesz
;
538 local_auxesz
= cdata
->local_auxesz
;
540 /* Allocate space for raw symbol and aux entries, based on their
541 space requirements as reported by BFD. */
542 temp_sym
= (char *) xmalloc
543 (cdata
->local_symesz
+ cdata
->local_auxesz
);
544 temp_aux
= temp_sym
+ cdata
->local_symesz
;
545 back_to
= make_cleanup (free_current_contents
, &temp_sym
);
547 /* We need to know whether this is a PE file, because in PE files,
548 unlike standard COFF files, symbol values are stored as offsets
549 from the section address, rather than as absolute addresses.
550 FIXME: We should use BFD to read the symbol table, and thus avoid
553 strncmp (bfd_get_target (objfile
->obfd
), "pe", 2) == 0
554 || strncmp (bfd_get_target (objfile
->obfd
), "epoc-pe", 7) == 0;
558 info
->min_lineno_offset
= 0;
559 info
->max_lineno_offset
= 0;
561 /* Only read line number information if we have symbols.
563 On Windows NT, some of the system's DLL's have sections with
564 PointerToLinenumbers fields that are non-zero, but point at
565 random places within the image file. (In the case I found,
566 KERNEL32.DLL's .text section has a line number info pointer that
567 points into the middle of the string `lib\\i386\kernel32.dll'.)
569 However, these DLL's also have no symbols. The line number
570 tables are meaningless without symbols. And in fact, GDB never
571 uses the line number information unless there are symbols. So we
572 can avoid spurious error messages (and maybe run a little
573 faster!) by not even reading the line number table unless we have
577 /* Read the line number table, all at once. */
578 bfd_map_over_sections (abfd
, find_linenos
, (void *) info
);
580 make_cleanup (free_linetab_cleanup
, 0 /*ignore*/);
581 val
= init_lineno (abfd
, info
->min_lineno_offset
,
582 info
->max_lineno_offset
- info
->min_lineno_offset
);
584 error (_("\"%s\": error reading line numbers."), name
);
587 /* Now read the string table, all at once. */
589 make_cleanup (free_stringtab_cleanup
, 0 /*ignore*/);
590 val
= init_stringtab (abfd
, stringtab_offset
);
592 error (_("\"%s\": can't get string table"), name
);
594 init_minimal_symbol_collection ();
595 cleanup_minimal_symbols
= make_cleanup_discard_minimal_symbols ();
597 /* Now that the executable file is positioned at symbol table,
598 process it and define symbols accordingly. */
600 coff_symtab_read ((long) symtab_offset
, num_symbols
, objfile
);
602 /* Install any minimal symbols that have been collected as the current
603 minimal symbols for this objfile. */
605 install_minimal_symbols (objfile
);
607 /* Free the installed minimal symbol data. */
608 do_cleanups (cleanup_minimal_symbols
);
610 bfd_map_over_sections (abfd
, coff_locate_sections
, (void *) info
);
614 if (!info
->stabstrsect
)
616 error (_("The debugging information in `%s' is corrupted.\n"
617 "The file has a `.stabs' section, but no `.stabstr' section."),
621 /* FIXME: dubious. Why can't we use something normal like
622 bfd_get_section_contents? */
623 bfd_seek (abfd
, abfd
->where
, 0);
625 stabstrsize
= bfd_section_size (abfd
, info
->stabstrsect
);
627 coffstab_build_psymtabs (objfile
,
628 info
->textaddr
, info
->textsize
,
630 info
->stabstrsect
->filepos
, stabstrsize
);
632 if (dwarf2_has_info (objfile
))
634 /* DWARF2 sections. */
635 dwarf2_build_psymtabs (objfile
);
638 dwarf2_build_frame_info (objfile
);
640 /* Try to add separate debug file if no symbols table found. */
641 if (!objfile_has_partial_symbols (objfile
))
645 debugfile
= find_separate_debug_file_by_debuglink (objfile
);
649 bfd
*abfd
= symfile_bfd_open (debugfile
);
650 symbol_file_add_separate (abfd
, symfile_flags
, objfile
);
655 do_cleanups (back_to
);
659 coff_new_init (struct objfile
*ignore
)
663 /* Perform any local cleanups required when we are done with a particular
664 objfile. I.E, we are in the process of discarding all symbol information
665 for an objfile, freeing up all memory held for it, and unlinking the
666 objfile struct from the global list of known objfiles. */
669 coff_symfile_finish (struct objfile
*objfile
)
671 if (objfile
->deprecated_sym_private
!= NULL
)
673 xfree (objfile
->deprecated_sym_private
);
676 /* Let stabs reader clean up */
677 stabsread_clear_cache ();
679 dwarf2_free_objfile (objfile
);
683 /* Given pointers to a symbol table in coff style exec file,
684 analyze them and create struct symtab's describing the symbols.
685 NSYMS is the number of symbols in the symbol table.
686 We read them one at a time using read_one_sym (). */
689 coff_symtab_read (long symtab_offset
, unsigned int nsyms
,
690 struct objfile
*objfile
)
692 struct gdbarch
*gdbarch
= get_objfile_arch (objfile
);
693 struct context_stack
*new;
694 struct coff_symbol coff_symbol
;
695 struct coff_symbol
*cs
= &coff_symbol
;
696 static struct internal_syment main_sym
;
697 static union internal_auxent main_aux
;
698 struct coff_symbol fcn_cs_saved
;
699 static struct internal_syment fcn_sym_saved
;
700 static union internal_auxent fcn_aux_saved
;
702 /* A .file is open. */
703 int in_source_file
= 0;
704 int next_file_symnum
= -1;
705 /* Name of the current file. */
706 char *filestring
= "";
708 int fcn_first_line
= 0;
709 CORE_ADDR fcn_first_line_addr
= 0;
710 int fcn_last_line
= 0;
711 int fcn_start_addr
= 0;
712 long fcn_line_ptr
= 0;
715 struct minimal_symbol
*msym
;
717 /* Work around a stdio bug in SunOS4.1.1 (this makes me nervous....
718 it's hard to know I've really worked around it. The fix should be
719 harmless, anyway). The symptom of the bug is that the first
720 fread (in read_one_sym), will (in my example) actually get data
721 from file offset 268, when the fseek was to 264 (and ftell shows
722 264). This causes all hell to break loose. I was unable to
723 reproduce this on a short test program which operated on the same
724 file, performing (I think) the same sequence of operations.
726 It stopped happening when I put in this (former) rewind().
728 FIXME: Find out if this has been reported to Sun, whether it has
729 been fixed in a later release, etc. */
731 bfd_seek (objfile
->obfd
, 0, 0);
733 /* Position to read the symbol table. */
734 val
= bfd_seek (objfile
->obfd
, (long) symtab_offset
, 0);
736 perror_with_name (objfile
->name
);
738 current_objfile
= objfile
;
739 nlist_bfd_global
= objfile
->obfd
;
740 nlist_nsyms_global
= nsyms
;
741 last_source_file
= NULL
;
742 memset (opaque_type_chain
, 0, sizeof opaque_type_chain
);
744 if (type_vector
) /* Get rid of previous one */
746 type_vector_length
= 160;
747 type_vector
= (struct type
**)
748 xmalloc (type_vector_length
* sizeof (struct type
*));
749 memset (type_vector
, 0, type_vector_length
* sizeof (struct type
*));
751 coff_start_symtab ("");
754 while (symnum
< nsyms
)
756 QUIT
; /* Make this command interruptable. */
758 read_one_sym (cs
, &main_sym
, &main_aux
);
760 if (cs
->c_symnum
== next_file_symnum
&& cs
->c_sclass
!= C_FILE
)
762 if (last_source_file
)
763 coff_end_symtab (objfile
);
765 coff_start_symtab ("_globals_");
766 /* coff_start_symtab will set the language of this symtab to
767 language_unknown, since such a ``file name'' is not
768 recognized. Override that with the minimal language to
769 allow printing values in this symtab. */
770 current_subfile
->language
= language_minimal
;
771 complete_symtab ("_globals_", 0, 0);
772 /* done with all files, everything from here on out is globals */
775 /* Special case for file with type declarations only, no text. */
776 if (!last_source_file
&& SDB_TYPE (cs
->c_type
)
777 && cs
->c_secnum
== N_DEBUG
)
778 complete_symtab (filestring
, 0, 0);
780 /* Typedefs should not be treated as symbol definitions. */
781 if (ISFCN (cs
->c_type
) && cs
->c_sclass
!= C_TPDEF
)
783 /* Record all functions -- external and static -- in minsyms. */
784 int section
= cs_to_section (cs
, objfile
);
785 tmpaddr
= cs
->c_value
+ ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
786 record_minimal_symbol (cs
, tmpaddr
, mst_text
, section
, objfile
);
788 fcn_line_ptr
= main_aux
.x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
;
789 fcn_start_addr
= tmpaddr
;
791 fcn_sym_saved
= main_sym
;
792 fcn_aux_saved
= main_aux
;
796 switch (cs
->c_sclass
)
805 complaint (&symfile_complaints
, _("Bad n_sclass for symbol %s"),
810 /* c_value field contains symnum of next .file entry in table
811 or symnum of first global after last .file. */
812 next_file_symnum
= cs
->c_value
;
814 filestring
= coff_getfilename (&main_aux
);
818 /* Complete symbol table for last object file
819 containing debugging information. */
820 if (last_source_file
)
822 coff_end_symtab (objfile
);
823 coff_start_symtab (filestring
);
828 /* C_LABEL is used for labels and static functions. Including
829 it here allows gdb to see static functions when no debug
830 info is available. */
832 /* However, labels within a function can make weird backtraces,
833 so filter them out (from phdm@macqel.be). */
839 case C_THUMBSTATFUNC
:
840 if (cs
->c_name
[0] == '.')
842 if (strcmp (cs
->c_name
, ".text") == 0)
844 /* FIXME: don't wire in ".text" as section name
846 /* Check for in_source_file deals with case of
847 a file with debugging symbols
848 followed by a later file with no symbols. */
850 complete_symtab (filestring
,
851 cs
->c_value
+ ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
)),
852 main_aux
.x_scn
.x_scnlen
);
855 /* flush rest of '.' symbols */
858 else if (!SDB_TYPE (cs
->c_type
)
859 && cs
->c_name
[0] == 'L'
860 && (strncmp (cs
->c_name
, "LI%", 3) == 0
861 || strncmp (cs
->c_name
, "LF%", 3) == 0
862 || strncmp (cs
->c_name
, "LC%", 3) == 0
863 || strncmp (cs
->c_name
, "LP%", 3) == 0
864 || strncmp (cs
->c_name
, "LPB%", 4) == 0
865 || strncmp (cs
->c_name
, "LBB%", 4) == 0
866 || strncmp (cs
->c_name
, "LBE%", 4) == 0
867 || strncmp (cs
->c_name
, "LPBX%", 5) == 0))
868 /* At least on a 3b1, gcc generates swbeg and string labels
869 that look like this. Ignore them. */
871 /* fall in for static symbols that don't start with '.' */
876 /* Record it in the minimal symbols regardless of
877 SDB_TYPE. This parallels what we do for other debug
878 formats, and probably is needed to make
879 print_address_symbolic work right without the (now
880 gone) "set fast-symbolic-addr off" kludge. */
882 enum minimal_symbol_type ms_type
;
885 if (cs
->c_secnum
== N_UNDEF
)
887 /* This is a common symbol. See if the target
888 environment knows where it has been relocated to. */
890 if (target_lookup_symbol (cs
->c_name
, &reladdr
))
892 /* Error in lookup; ignore symbol. */
896 /* The address has already been relocated; make sure that
897 objfile_relocate doesn't relocate it again. */
899 ms_type
= cs
->c_sclass
== C_EXT
900 || cs
->c_sclass
== C_THUMBEXT
?
901 mst_bss
: mst_file_bss
;
903 else if (cs
->c_secnum
== N_ABS
)
905 /* Use the correct minimal symbol type (and don't
906 relocate) for absolute values. */
908 sec
= cs_to_section (cs
, objfile
);
909 tmpaddr
= cs
->c_value
;
913 asection
*bfd_section
= cs_to_bfd_section (cs
, objfile
);
914 sec
= cs_to_section (cs
, objfile
);
915 tmpaddr
= cs
->c_value
;
916 /* Statics in a PE file also get relocated */
917 if (cs
->c_sclass
== C_EXT
918 || cs
->c_sclass
== C_THUMBEXTFUNC
919 || cs
->c_sclass
== C_THUMBEXT
920 || (pe_file
&& (cs
->c_sclass
== C_STAT
)))
921 tmpaddr
+= ANOFFSET (objfile
->section_offsets
, sec
);
923 if (bfd_section
->flags
& SEC_CODE
)
926 cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXTFUNC
927 || cs
->c_sclass
== C_THUMBEXT
?
928 mst_text
: mst_file_text
;
929 tmpaddr
= gdbarch_smash_text_address (gdbarch
, tmpaddr
);
931 else if (bfd_section
->flags
& SEC_ALLOC
932 && bfd_section
->flags
& SEC_LOAD
)
935 cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXT
?
936 mst_data
: mst_file_data
;
938 else if (bfd_section
->flags
& SEC_ALLOC
)
941 cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXT
?
942 mst_bss
: mst_file_bss
;
945 ms_type
= mst_unknown
;
948 msym
= record_minimal_symbol (cs
, tmpaddr
, ms_type
, sec
, objfile
);
950 gdbarch_coff_make_msymbol_special (gdbarch
, cs
->c_sclass
, msym
);
952 if (SDB_TYPE (cs
->c_type
))
955 sym
= process_coff_symbol
956 (cs
, &main_aux
, objfile
);
957 SYMBOL_VALUE (sym
) = tmpaddr
;
958 SYMBOL_SECTION (sym
) = sec
;
964 if (strcmp (cs
->c_name
, ".bf") == 0)
968 /* value contains address of first non-init type code */
969 /* main_aux.x_sym.x_misc.x_lnsz.x_lnno
970 contains line number of '{' } */
972 complaint (&symfile_complaints
,
973 _("`.bf' symbol %d has no aux entry"), cs
->c_symnum
);
974 fcn_first_line
= main_aux
.x_sym
.x_misc
.x_lnsz
.x_lnno
;
975 fcn_first_line_addr
= cs
->c_value
;
977 /* Might want to check that locals are 0 and
978 context_stack_depth is zero, and complain if not. */
981 new = push_context (depth
, fcn_start_addr
);
982 fcn_cs_saved
.c_name
= getsymname (&fcn_sym_saved
);
984 process_coff_symbol (&fcn_cs_saved
, &fcn_aux_saved
, objfile
);
986 else if (strcmp (cs
->c_name
, ".ef") == 0)
988 if (!within_function
)
989 error (_("Bad coff function information."));
990 /* the value of .ef is the address of epilogue code;
991 not useful for gdb. */
992 /* { main_aux.x_sym.x_misc.x_lnsz.x_lnno
993 contains number of lines to '}' */
995 if (context_stack_depth
<= 0)
996 { /* We attempted to pop an empty context stack */
997 complaint (&symfile_complaints
,
998 _("`.ef' symbol without matching `.bf' symbol ignored starting at symnum %d"),
1000 within_function
= 0;
1004 new = pop_context ();
1005 /* Stack must be empty now. */
1006 if (context_stack_depth
> 0 || new == NULL
)
1008 complaint (&symfile_complaints
,
1009 _("Unmatched .ef symbol(s) ignored starting at symnum %d"),
1011 within_function
= 0;
1014 if (cs
->c_naux
!= 1)
1016 complaint (&symfile_complaints
,
1017 _("`.ef' symbol %d has no aux entry"), cs
->c_symnum
);
1018 fcn_last_line
= 0x7FFFFFFF;
1022 fcn_last_line
= main_aux
.x_sym
.x_misc
.x_lnsz
.x_lnno
;
1024 /* fcn_first_line is the line number of the opening '{'.
1025 Do not record it - because it would affect gdb's idea
1026 of the line number of the first statement of the function -
1027 except for one-line functions, for which it is also the line
1028 number of all the statements and of the closing '}', and
1029 for which we do not have any other statement-line-number. */
1030 if (fcn_last_line
== 1)
1031 record_line (current_subfile
, fcn_first_line
,
1032 gdbarch_addr_bits_remove (gdbarch
,
1033 fcn_first_line_addr
));
1035 enter_linenos (fcn_line_ptr
, fcn_first_line
, fcn_last_line
,
1038 finish_block (new->name
, &local_symbols
, new->old_blocks
,
1040 fcn_cs_saved
.c_value
1041 + fcn_aux_saved
.x_sym
.x_misc
.x_fsize
1042 + ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
)),
1045 within_function
= 0;
1050 if (strcmp (cs
->c_name
, ".bb") == 0)
1052 tmpaddr
= cs
->c_value
;
1053 tmpaddr
+= ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
1054 push_context (++depth
, tmpaddr
);
1056 else if (strcmp (cs
->c_name
, ".eb") == 0)
1058 if (context_stack_depth
<= 0)
1059 { /* We attempted to pop an empty context stack */
1060 complaint (&symfile_complaints
,
1061 _("`.eb' symbol without matching `.bb' symbol ignored starting at symnum %d"),
1066 new = pop_context ();
1067 if (depth
-- != new->depth
)
1069 complaint (&symfile_complaints
,
1070 _("Mismatched .eb symbol ignored starting at symnum %d"),
1074 if (local_symbols
&& context_stack_depth
> 0)
1077 cs
->c_value
+ ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
1078 /* Make a block for the local symbols within. */
1079 finish_block (0, &local_symbols
, new->old_blocks
,
1080 new->start_addr
, tmpaddr
, objfile
);
1082 /* Now pop locals of block just finished. */
1083 local_symbols
= new->locals
;
1088 process_coff_symbol (cs
, &main_aux
, objfile
);
1093 if ((nsyms
== 0) && (pe_file
))
1095 /* We've got no debugging symbols, but it's a portable
1096 executable, so try to read the export table */
1097 read_pe_exported_syms (objfile
);
1100 if (last_source_file
)
1101 coff_end_symtab (objfile
);
1103 /* Patch up any opaque types (references to types that are not defined
1104 in the file where they are referenced, e.g. "struct foo *bar"). */
1105 ALL_OBJFILE_SYMTABS (objfile
, s
)
1106 patch_opaque_types (s
);
1108 current_objfile
= NULL
;
1111 /* Routines for reading headers and symbols from executable. */
1113 /* Read the next symbol, swap it, and return it in both internal_syment
1114 form, and coff_symbol form. Also return its first auxent, if any,
1115 in internal_auxent form, and skip any other auxents. */
1118 read_one_sym (struct coff_symbol
*cs
,
1119 struct internal_syment
*sym
,
1120 union internal_auxent
*aux
)
1123 bfd_size_type bytes
;
1125 cs
->c_symnum
= symnum
;
1126 bytes
= bfd_bread (temp_sym
, local_symesz
, nlist_bfd_global
);
1127 if (bytes
!= local_symesz
)
1128 error ("%s: error reading symbols", current_objfile
->name
);
1129 bfd_coff_swap_sym_in (symfile_bfd
, temp_sym
, (char *) sym
);
1130 cs
->c_naux
= sym
->n_numaux
& 0xff;
1131 if (cs
->c_naux
>= 1)
1133 bytes
= bfd_bread (temp_aux
, local_auxesz
, nlist_bfd_global
);
1134 if (bytes
!= local_auxesz
)
1135 error ("%s: error reading symbols", current_objfile
->name
);
1136 bfd_coff_swap_aux_in (symfile_bfd
, temp_aux
, sym
->n_type
, sym
->n_sclass
,
1137 0, cs
->c_naux
, (char *) aux
);
1138 /* If more than one aux entry, read past it (only the first aux
1140 for (i
= 1; i
< cs
->c_naux
; i
++)
1142 bytes
= bfd_bread (temp_aux
, local_auxesz
, nlist_bfd_global
);
1143 if (bytes
!= local_auxesz
)
1144 error ("%s: error reading symbols", current_objfile
->name
);
1147 cs
->c_name
= getsymname (sym
);
1148 cs
->c_value
= sym
->n_value
;
1149 cs
->c_sclass
= (sym
->n_sclass
& 0xff);
1150 cs
->c_secnum
= sym
->n_scnum
;
1151 cs
->c_type
= (unsigned) sym
->n_type
;
1152 if (!SDB_TYPE (cs
->c_type
))
1156 if (cs
->c_sclass
& 128)
1157 printf (_("thumb symbol %s, class 0x%x\n"), cs
->c_name
, cs
->c_sclass
);
1160 symnum
+= 1 + cs
->c_naux
;
1162 /* The PE file format stores symbol values as offsets within the
1163 section, rather than as absolute addresses. We correct that
1164 here, if the symbol has an appropriate storage class. FIXME: We
1165 should use BFD to read the symbols, rather than duplicating the
1169 switch (cs
->c_sclass
)
1173 case C_THUMBEXTFUNC
:
1178 case C_THUMBSTATFUNC
:
1184 if (cs
->c_secnum
!= 0)
1185 cs
->c_value
+= cs_section_address (cs
, symfile_bfd
);
1191 /* Support for string table handling */
1193 static char *stringtab
= NULL
;
1196 init_stringtab (bfd
*abfd
, long offset
)
1200 unsigned char lengthbuf
[4];
1204 /* If the file is stripped, the offset might be zero, indicating no
1205 string table. Just return with `stringtab' set to null. */
1209 if (bfd_seek (abfd
, offset
, 0) < 0)
1212 val
= bfd_bread ((char *) lengthbuf
, sizeof lengthbuf
, abfd
);
1213 length
= bfd_h_get_32 (symfile_bfd
, lengthbuf
);
1215 /* If no string table is needed, then the file may end immediately
1216 after the symbols. Just return with `stringtab' set to null. */
1217 if (val
!= sizeof lengthbuf
|| length
< sizeof lengthbuf
)
1220 stringtab
= (char *) xmalloc (length
);
1221 /* This is in target format (probably not very useful, and not currently
1222 used), not host format. */
1223 memcpy (stringtab
, lengthbuf
, sizeof lengthbuf
);
1224 if (length
== sizeof length
) /* Empty table -- just the count */
1227 val
= bfd_bread (stringtab
+ sizeof lengthbuf
, length
- sizeof lengthbuf
,
1229 if (val
!= length
- sizeof lengthbuf
|| stringtab
[length
- 1] != '\0')
1236 free_stringtab (void)
1244 free_stringtab_cleanup (void *ignore
)
1250 getsymname (struct internal_syment
*symbol_entry
)
1252 static char buffer
[SYMNMLEN
+ 1];
1255 if (symbol_entry
->_n
._n_n
._n_zeroes
== 0)
1257 /* FIXME: Probably should be detecting corrupt symbol files by
1258 seeing whether offset points to within the stringtab. */
1259 result
= stringtab
+ symbol_entry
->_n
._n_n
._n_offset
;
1263 strncpy (buffer
, symbol_entry
->_n
._n_name
, SYMNMLEN
);
1264 buffer
[SYMNMLEN
] = '\0';
1270 /* Extract the file name from the aux entry of a C_FILE symbol. Return
1271 only the last component of the name. Result is in static storage and
1272 is only good for temporary use. */
1275 coff_getfilename (union internal_auxent
*aux_entry
)
1277 static char buffer
[BUFSIZ
];
1281 if (aux_entry
->x_file
.x_n
.x_zeroes
== 0)
1282 strcpy (buffer
, stringtab
+ aux_entry
->x_file
.x_n
.x_offset
);
1285 strncpy (buffer
, aux_entry
->x_file
.x_fname
, FILNMLEN
);
1286 buffer
[FILNMLEN
] = '\0';
1290 /* FIXME: We should not be throwing away the information about what
1291 directory. It should go into dirname of the symtab, or some such
1293 if ((temp
= strrchr (result
, '/')) != NULL
)
1298 /* Support for line number handling. */
1300 static char *linetab
= NULL
;
1301 static long linetab_offset
;
1302 static unsigned long linetab_size
;
1304 /* Read in all the line numbers for fast lookups later. Leave them in
1305 external (unswapped) format in memory; we'll swap them as we enter
1306 them into GDB's data structures. */
1309 init_lineno (bfd
*abfd
, long offset
, int size
)
1313 linetab_offset
= offset
;
1314 linetab_size
= size
;
1321 if (bfd_seek (abfd
, offset
, 0) < 0)
1324 /* Allocate the desired table, plus a sentinel */
1325 linetab
= (char *) xmalloc (size
+ local_linesz
);
1327 val
= bfd_bread (linetab
, size
, abfd
);
1331 /* Terminate it with an all-zero sentinel record */
1332 memset (linetab
+ size
, 0, local_linesz
);
1346 free_linetab_cleanup (void *ignore
)
1351 #if !defined (L_LNNO32)
1352 #define L_LNNO32(lp) ((lp)->l_lnno)
1356 enter_linenos (long file_offset
, int first_line
,
1357 int last_line
, struct objfile
*objfile
)
1359 struct gdbarch
*gdbarch
= get_objfile_arch (objfile
);
1361 struct internal_lineno lptr
;
1365 if (file_offset
< linetab_offset
)
1367 complaint (&symfile_complaints
,
1368 _("Line number pointer %ld lower than start of line numbers"),
1370 if (file_offset
> linetab_size
) /* Too big to be an offset? */
1372 file_offset
+= linetab_offset
; /* Try reading at that linetab offset */
1375 rawptr
= &linetab
[file_offset
- linetab_offset
];
1377 /* skip first line entry for each function */
1378 rawptr
+= local_linesz
;
1379 /* line numbers start at one for the first line of the function */
1382 /* If the line number table is full (e.g. 64K lines in COFF debug
1383 info), the next function's L_LNNO32 might not be zero, so don't
1384 overstep the table's end in any case. */
1385 while (rawptr
<= &linetab
[0] + linetab_size
)
1387 bfd_coff_swap_lineno_in (symfile_bfd
, rawptr
, &lptr
);
1388 rawptr
+= local_linesz
;
1389 /* The next function, or the sentinel, will have L_LNNO32 zero;
1391 if (L_LNNO32 (&lptr
) && L_LNNO32 (&lptr
) <= last_line
)
1393 CORE_ADDR addr
= lptr
.l_addr
.l_paddr
;
1394 addr
+= ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
1395 record_line (current_subfile
, first_line
+ L_LNNO32 (&lptr
),
1396 gdbarch_addr_bits_remove (gdbarch
, addr
));
1404 patch_type (struct type
*type
, struct type
*real_type
)
1406 struct type
*target
= TYPE_TARGET_TYPE (type
);
1407 struct type
*real_target
= TYPE_TARGET_TYPE (real_type
);
1408 int field_size
= TYPE_NFIELDS (real_target
) * sizeof (struct field
);
1410 TYPE_LENGTH (target
) = TYPE_LENGTH (real_target
);
1411 TYPE_NFIELDS (target
) = TYPE_NFIELDS (real_target
);
1412 TYPE_FIELDS (target
) = (struct field
*) TYPE_ALLOC (target
, field_size
);
1414 memcpy (TYPE_FIELDS (target
), TYPE_FIELDS (real_target
), field_size
);
1416 if (TYPE_NAME (real_target
))
1418 if (TYPE_NAME (target
))
1419 xfree (TYPE_NAME (target
));
1420 TYPE_NAME (target
) = concat (TYPE_NAME (real_target
), (char *)NULL
);
1424 /* Patch up all appropriate typedef symbols in the opaque_type_chains
1425 so that they can be used to print out opaque data structures properly. */
1428 patch_opaque_types (struct symtab
*s
)
1431 struct dict_iterator iter
;
1432 struct symbol
*real_sym
;
1434 /* Go through the per-file symbols only */
1435 b
= BLOCKVECTOR_BLOCK (BLOCKVECTOR (s
), STATIC_BLOCK
);
1436 ALL_BLOCK_SYMBOLS (b
, iter
, real_sym
)
1438 /* Find completed typedefs to use to fix opaque ones.
1439 Remove syms from the chain when their types are stored,
1440 but search the whole chain, as there may be several syms
1441 from different files with the same name. */
1442 if (SYMBOL_CLASS (real_sym
) == LOC_TYPEDEF
1443 && SYMBOL_DOMAIN (real_sym
) == VAR_DOMAIN
1444 && TYPE_CODE (SYMBOL_TYPE (real_sym
)) == TYPE_CODE_PTR
1445 && TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (real_sym
))) != 0)
1447 char *name
= SYMBOL_LINKAGE_NAME (real_sym
);
1448 int hash
= hashname (name
);
1449 struct symbol
*sym
, *prev
;
1452 for (sym
= opaque_type_chain
[hash
]; sym
;)
1454 if (name
[0] == SYMBOL_LINKAGE_NAME (sym
)[0]
1455 && strcmp (name
+ 1, SYMBOL_LINKAGE_NAME (sym
) + 1) == 0)
1459 SYMBOL_VALUE_CHAIN (prev
) = SYMBOL_VALUE_CHAIN (sym
);
1463 opaque_type_chain
[hash
] = SYMBOL_VALUE_CHAIN (sym
);
1466 patch_type (SYMBOL_TYPE (sym
), SYMBOL_TYPE (real_sym
));
1470 sym
= SYMBOL_VALUE_CHAIN (prev
);
1474 sym
= opaque_type_chain
[hash
];
1480 sym
= SYMBOL_VALUE_CHAIN (sym
);
1488 coff_reg_to_regnum (struct symbol
*sym
, struct gdbarch
*gdbarch
)
1490 return gdbarch_sdb_reg_to_regnum (gdbarch
, SYMBOL_VALUE (sym
));
1493 static const struct symbol_register_ops coff_register_funcs
= {
1497 static struct symbol
*
1498 process_coff_symbol (struct coff_symbol
*cs
,
1499 union internal_auxent
*aux
,
1500 struct objfile
*objfile
)
1503 = (struct symbol
*) obstack_alloc (&objfile
->objfile_obstack
,
1504 sizeof (struct symbol
));
1507 memset (sym
, 0, sizeof (struct symbol
));
1509 name
= EXTERNAL_NAME (name
, objfile
->obfd
);
1510 SYMBOL_LANGUAGE (sym
) = current_subfile
->language
;
1511 SYMBOL_SET_NAMES (sym
, name
, strlen (name
), 1, objfile
);
1513 /* default assumptions */
1514 SYMBOL_VALUE (sym
) = cs
->c_value
;
1515 SYMBOL_DOMAIN (sym
) = VAR_DOMAIN
;
1516 SYMBOL_SECTION (sym
) = cs_to_section (cs
, objfile
);
1518 if (ISFCN (cs
->c_type
))
1520 SYMBOL_VALUE (sym
) += ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
1522 lookup_function_type (decode_function_type (cs
, cs
->c_type
, aux
, objfile
));
1524 SYMBOL_CLASS (sym
) = LOC_BLOCK
;
1525 if (cs
->c_sclass
== C_STAT
|| cs
->c_sclass
== C_THUMBSTAT
1526 || cs
->c_sclass
== C_THUMBSTATFUNC
)
1527 add_symbol_to_list (sym
, &file_symbols
);
1528 else if (cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXT
1529 || cs
->c_sclass
== C_THUMBEXTFUNC
)
1530 add_symbol_to_list (sym
, &global_symbols
);
1534 SYMBOL_TYPE (sym
) = decode_type (cs
, cs
->c_type
, aux
, objfile
);
1535 switch (cs
->c_sclass
)
1541 SYMBOL_CLASS (sym
) = LOC_LOCAL
;
1542 add_symbol_to_list (sym
, &local_symbols
);
1546 case C_THUMBEXTFUNC
:
1548 SYMBOL_CLASS (sym
) = LOC_STATIC
;
1549 SYMBOL_VALUE_ADDRESS (sym
) = (CORE_ADDR
) cs
->c_value
;
1550 SYMBOL_VALUE_ADDRESS (sym
) += ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
1551 add_symbol_to_list (sym
, &global_symbols
);
1555 case C_THUMBSTATFUNC
:
1557 SYMBOL_CLASS (sym
) = LOC_STATIC
;
1558 SYMBOL_VALUE_ADDRESS (sym
) = (CORE_ADDR
) cs
->c_value
;
1559 SYMBOL_VALUE_ADDRESS (sym
) += ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
1560 if (within_function
)
1562 /* Static symbol of local scope */
1563 add_symbol_to_list (sym
, &local_symbols
);
1567 /* Static symbol at top level of file */
1568 add_symbol_to_list (sym
, &file_symbols
);
1572 #ifdef C_GLBLREG /* AMD coff */
1576 SYMBOL_CLASS (sym
) = LOC_REGISTER
;
1577 SYMBOL_REGISTER_OPS (sym
) = &coff_register_funcs
;
1578 SYMBOL_VALUE (sym
) = cs
->c_value
;
1579 add_symbol_to_list (sym
, &local_symbols
);
1587 SYMBOL_CLASS (sym
) = LOC_ARG
;
1588 SYMBOL_IS_ARGUMENT (sym
) = 1;
1589 add_symbol_to_list (sym
, &local_symbols
);
1593 SYMBOL_CLASS (sym
) = LOC_REGISTER
;
1594 SYMBOL_REGISTER_OPS (sym
) = &coff_register_funcs
;
1595 SYMBOL_IS_ARGUMENT (sym
) = 1;
1596 SYMBOL_VALUE (sym
) = cs
->c_value
;
1597 add_symbol_to_list (sym
, &local_symbols
);
1601 SYMBOL_CLASS (sym
) = LOC_TYPEDEF
;
1602 SYMBOL_DOMAIN (sym
) = VAR_DOMAIN
;
1604 /* If type has no name, give it one */
1605 if (TYPE_NAME (SYMBOL_TYPE (sym
)) == 0)
1607 if (TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_PTR
1608 || TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_FUNC
)
1610 /* If we are giving a name to a type such as "pointer to
1611 foo" or "function returning foo", we better not set
1612 the TYPE_NAME. If the program contains "typedef char
1613 *caddr_t;", we don't want all variables of type char
1614 * to print as caddr_t. This is not just a
1615 consequence of GDB's type management; CC and GCC (at
1616 least through version 2.4) both output variables of
1617 either type char * or caddr_t with the type
1618 refering to the C_TPDEF symbol for caddr_t. If a future
1619 compiler cleans this up it GDB is not ready for it
1620 yet, but if it becomes ready we somehow need to
1621 disable this check (without breaking the PCC/GCC2.4
1626 Fortunately, this check seems not to be necessary
1627 for anything except pointers or functions. */
1631 TYPE_NAME (SYMBOL_TYPE (sym
)) =
1632 concat (SYMBOL_LINKAGE_NAME (sym
), (char *)NULL
);
1635 /* Keep track of any type which points to empty structured type,
1636 so it can be filled from a definition from another file. A
1637 simple forward reference (TYPE_CODE_UNDEF) is not an
1638 empty structured type, though; the forward references
1639 work themselves out via the magic of coff_lookup_type. */
1640 if (TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_PTR
1641 && TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym
))) == 0
1642 && TYPE_CODE (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym
)))
1645 int i
= hashname (SYMBOL_LINKAGE_NAME (sym
));
1647 SYMBOL_VALUE_CHAIN (sym
) = opaque_type_chain
[i
];
1648 opaque_type_chain
[i
] = sym
;
1650 add_symbol_to_list (sym
, &file_symbols
);
1656 SYMBOL_CLASS (sym
) = LOC_TYPEDEF
;
1657 SYMBOL_DOMAIN (sym
) = STRUCT_DOMAIN
;
1659 /* Some compilers try to be helpful by inventing "fake"
1660 names for anonymous enums, structures, and unions, like
1661 "~0fake" or ".0fake". Thanks, but no thanks... */
1662 if (TYPE_TAG_NAME (SYMBOL_TYPE (sym
)) == 0)
1663 if (SYMBOL_LINKAGE_NAME (sym
) != NULL
1664 && *SYMBOL_LINKAGE_NAME (sym
) != '~'
1665 && *SYMBOL_LINKAGE_NAME (sym
) != '.')
1666 TYPE_TAG_NAME (SYMBOL_TYPE (sym
)) =
1667 concat (SYMBOL_LINKAGE_NAME (sym
), (char *)NULL
);
1669 add_symbol_to_list (sym
, &file_symbols
);
1679 /* Decode a coff type specifier; return the type that is meant. */
1681 static struct type
*
1682 decode_type (struct coff_symbol
*cs
, unsigned int c_type
,
1683 union internal_auxent
*aux
, struct objfile
*objfile
)
1685 struct type
*type
= 0;
1686 unsigned int new_c_type
;
1688 if (c_type
& ~N_BTMASK
)
1690 new_c_type
= DECREF (c_type
);
1693 type
= decode_type (cs
, new_c_type
, aux
, objfile
);
1694 type
= lookup_pointer_type (type
);
1696 else if (ISFCN (c_type
))
1698 type
= decode_type (cs
, new_c_type
, aux
, objfile
);
1699 type
= lookup_function_type (type
);
1701 else if (ISARY (c_type
))
1704 unsigned short *dim
;
1705 struct type
*base_type
, *index_type
, *range_type
;
1707 /* Define an array type. */
1708 /* auxent refers to array, not base type */
1709 if (aux
->x_sym
.x_tagndx
.l
== 0)
1712 /* shift the indices down */
1713 dim
= &aux
->x_sym
.x_fcnary
.x_ary
.x_dimen
[0];
1716 for (i
= 0; *dim
&& i
< DIMNUM
- 1; i
++, dim
++)
1720 base_type
= decode_type (cs
, new_c_type
, aux
, objfile
);
1721 index_type
= objfile_type (objfile
)->builtin_int
;
1723 create_range_type ((struct type
*) NULL
, index_type
, 0, n
- 1);
1725 create_array_type ((struct type
*) NULL
, base_type
, range_type
);
1730 /* Reference to existing type. This only occurs with the
1731 struct, union, and enum types. EPI a29k coff
1732 fakes us out by producing aux entries with a nonzero
1733 x_tagndx for definitions of structs, unions, and enums, so we
1734 have to check the c_sclass field. SCO 3.2v4 cc gets confused
1735 with pointers to pointers to defined structs, and generates
1736 negative x_tagndx fields. */
1737 if (cs
->c_naux
> 0 && aux
->x_sym
.x_tagndx
.l
!= 0)
1739 if (cs
->c_sclass
!= C_STRTAG
1740 && cs
->c_sclass
!= C_UNTAG
1741 && cs
->c_sclass
!= C_ENTAG
1742 && aux
->x_sym
.x_tagndx
.l
>= 0)
1744 type
= coff_alloc_type (aux
->x_sym
.x_tagndx
.l
);
1749 complaint (&symfile_complaints
,
1750 _("Symbol table entry for %s has bad tagndx value"),
1752 /* And fall through to decode_base_type... */
1756 return decode_base_type (cs
, BTYPE (c_type
), aux
, objfile
);
1759 /* Decode a coff type specifier for function definition;
1760 return the type that the function returns. */
1762 static struct type
*
1763 decode_function_type (struct coff_symbol
*cs
, unsigned int c_type
,
1764 union internal_auxent
*aux
, struct objfile
*objfile
)
1766 if (aux
->x_sym
.x_tagndx
.l
== 0)
1767 cs
->c_naux
= 0; /* auxent refers to function, not base type */
1769 return decode_type (cs
, DECREF (c_type
), aux
, objfile
);
1774 static struct type
*
1775 decode_base_type (struct coff_symbol
*cs
, unsigned int c_type
,
1776 union internal_auxent
*aux
, struct objfile
*objfile
)
1778 struct gdbarch
*gdbarch
= get_objfile_arch (objfile
);
1784 /* shows up with "void (*foo)();" structure members */
1785 return objfile_type (objfile
)->builtin_void
;
1789 /* Intel 960 COFF has this symbol and meaning. */
1790 return objfile_type (objfile
)->builtin_void
;
1794 return objfile_type (objfile
)->builtin_char
;
1797 return objfile_type (objfile
)->builtin_short
;
1800 return objfile_type (objfile
)->builtin_int
;
1803 if (cs
->c_sclass
== C_FIELD
1804 && aux
->x_sym
.x_misc
.x_lnsz
.x_size
1805 > gdbarch_long_bit (gdbarch
))
1806 return objfile_type (objfile
)->builtin_long_long
;
1808 return objfile_type (objfile
)->builtin_long
;
1811 return objfile_type (objfile
)->builtin_float
;
1814 return objfile_type (objfile
)->builtin_double
;
1817 return objfile_type (objfile
)->builtin_long_double
;
1820 if (cs
->c_naux
!= 1)
1822 /* anonymous structure type */
1823 type
= coff_alloc_type (cs
->c_symnum
);
1824 TYPE_CODE (type
) = TYPE_CODE_STRUCT
;
1825 TYPE_NAME (type
) = NULL
;
1826 /* This used to set the tag to "<opaque>". But I think setting it
1827 to NULL is right, and the printing code can print it as
1829 TYPE_TAG_NAME (type
) = NULL
;
1830 INIT_CPLUS_SPECIFIC (type
);
1831 TYPE_LENGTH (type
) = 0;
1832 TYPE_FIELDS (type
) = 0;
1833 TYPE_NFIELDS (type
) = 0;
1837 type
= coff_read_struct_type (cs
->c_symnum
,
1838 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1839 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
,
1845 if (cs
->c_naux
!= 1)
1847 /* anonymous union type */
1848 type
= coff_alloc_type (cs
->c_symnum
);
1849 TYPE_NAME (type
) = NULL
;
1850 /* This used to set the tag to "<opaque>". But I think setting it
1851 to NULL is right, and the printing code can print it as
1853 TYPE_TAG_NAME (type
) = NULL
;
1854 INIT_CPLUS_SPECIFIC (type
);
1855 TYPE_LENGTH (type
) = 0;
1856 TYPE_FIELDS (type
) = 0;
1857 TYPE_NFIELDS (type
) = 0;
1861 type
= coff_read_struct_type (cs
->c_symnum
,
1862 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1863 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
,
1866 TYPE_CODE (type
) = TYPE_CODE_UNION
;
1870 if (cs
->c_naux
!= 1)
1872 /* anonymous enum type */
1873 type
= coff_alloc_type (cs
->c_symnum
);
1874 TYPE_CODE (type
) = TYPE_CODE_ENUM
;
1875 TYPE_NAME (type
) = NULL
;
1876 /* This used to set the tag to "<opaque>". But I think setting it
1877 to NULL is right, and the printing code can print it as
1879 TYPE_TAG_NAME (type
) = NULL
;
1880 TYPE_LENGTH (type
) = 0;
1881 TYPE_FIELDS (type
) = 0;
1882 TYPE_NFIELDS (type
) = 0;
1886 type
= coff_read_enum_type (cs
->c_symnum
,
1887 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1888 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
,
1894 /* shouldn't show up here */
1898 return objfile_type (objfile
)->builtin_unsigned_char
;
1901 return objfile_type (objfile
)->builtin_unsigned_short
;
1904 return objfile_type (objfile
)->builtin_unsigned_int
;
1907 if (cs
->c_sclass
== C_FIELD
1908 && aux
->x_sym
.x_misc
.x_lnsz
.x_size
1909 > gdbarch_long_bit (gdbarch
))
1910 return objfile_type (objfile
)->builtin_unsigned_long_long
;
1912 return objfile_type (objfile
)->builtin_unsigned_long
;
1914 complaint (&symfile_complaints
, _("Unexpected type for symbol %s"), cs
->c_name
);
1915 return objfile_type (objfile
)->builtin_void
;
1918 /* This page contains subroutines of read_type. */
1920 /* Read the description of a structure (or union type) and return an
1921 object describing the type. */
1923 static struct type
*
1924 coff_read_struct_type (int index
, int length
, int lastsym
,
1925 struct objfile
*objfile
)
1929 struct nextfield
*next
;
1934 struct nextfield
*list
= 0;
1935 struct nextfield
*new;
1939 struct coff_symbol member_sym
;
1940 struct coff_symbol
*ms
= &member_sym
;
1941 struct internal_syment sub_sym
;
1942 union internal_auxent sub_aux
;
1945 type
= coff_alloc_type (index
);
1946 TYPE_CODE (type
) = TYPE_CODE_STRUCT
;
1947 INIT_CPLUS_SPECIFIC (type
);
1948 TYPE_LENGTH (type
) = length
;
1950 while (!done
&& symnum
< lastsym
&& symnum
< nlist_nsyms_global
)
1952 read_one_sym (ms
, &sub_sym
, &sub_aux
);
1954 name
= EXTERNAL_NAME (name
, objfile
->obfd
);
1956 switch (ms
->c_sclass
)
1961 /* Get space to record the next field's data. */
1962 new = (struct nextfield
*) alloca (sizeof (struct nextfield
));
1966 /* Save the data. */
1968 obsavestring (name
, strlen (name
), &objfile
->objfile_obstack
);
1969 FIELD_TYPE (list
->field
) = decode_type (ms
, ms
->c_type
, &sub_aux
,
1971 SET_FIELD_BITPOS (list
->field
, 8 * ms
->c_value
);
1972 FIELD_BITSIZE (list
->field
) = 0;
1978 /* Get space to record the next field's data. */
1979 new = (struct nextfield
*) alloca (sizeof (struct nextfield
));
1983 /* Save the data. */
1985 obsavestring (name
, strlen (name
), &objfile
->objfile_obstack
);
1986 FIELD_TYPE (list
->field
) = decode_type (ms
, ms
->c_type
, &sub_aux
,
1988 SET_FIELD_BITPOS (list
->field
, ms
->c_value
);
1989 FIELD_BITSIZE (list
->field
) = sub_aux
.x_sym
.x_misc
.x_lnsz
.x_size
;
1998 /* Now create the vector of fields, and record how big it is. */
2000 TYPE_NFIELDS (type
) = nfields
;
2001 TYPE_FIELDS (type
) = (struct field
*)
2002 TYPE_ALLOC (type
, sizeof (struct field
) * nfields
);
2004 /* Copy the saved-up fields into the field vector. */
2006 for (n
= nfields
; list
; list
= list
->next
)
2007 TYPE_FIELD (type
, --n
) = list
->field
;
2012 /* Read a definition of an enumeration type,
2013 and create and return a suitable type object.
2014 Also defines the symbols that represent the values of the type. */
2016 static struct type
*
2017 coff_read_enum_type (int index
, int length
, int lastsym
,
2018 struct objfile
*objfile
)
2020 struct gdbarch
*gdbarch
= get_objfile_arch (objfile
);
2025 struct pending
**symlist
;
2026 struct coff_symbol member_sym
;
2027 struct coff_symbol
*ms
= &member_sym
;
2028 struct internal_syment sub_sym
;
2029 union internal_auxent sub_aux
;
2030 struct pending
*osyms
, *syms
;
2034 int unsigned_enum
= 1;
2036 type
= coff_alloc_type (index
);
2037 if (within_function
)
2038 symlist
= &local_symbols
;
2040 symlist
= &file_symbols
;
2042 o_nsyms
= osyms
? osyms
->nsyms
: 0;
2044 while (!done
&& symnum
< lastsym
&& symnum
< nlist_nsyms_global
)
2046 read_one_sym (ms
, &sub_sym
, &sub_aux
);
2048 name
= EXTERNAL_NAME (name
, objfile
->obfd
);
2050 switch (ms
->c_sclass
)
2053 sym
= (struct symbol
*) obstack_alloc
2054 (&objfile
->objfile_obstack
, sizeof (struct symbol
));
2055 memset (sym
, 0, sizeof (struct symbol
));
2057 SYMBOL_SET_LINKAGE_NAME (sym
,
2058 obsavestring (name
, strlen (name
),
2059 &objfile
->objfile_obstack
));
2060 SYMBOL_CLASS (sym
) = LOC_CONST
;
2061 SYMBOL_DOMAIN (sym
) = VAR_DOMAIN
;
2062 SYMBOL_VALUE (sym
) = ms
->c_value
;
2063 add_symbol_to_list (sym
, symlist
);
2068 /* Sometimes the linker (on 386/ix 2.0.2 at least) screws
2069 up the count of how many symbols to read. So stop
2076 /* Now fill in the fields of the type-structure. */
2079 TYPE_LENGTH (type
) = length
;
2080 else /* Assume ints. */
2081 TYPE_LENGTH (type
) = gdbarch_int_bit (gdbarch
) / TARGET_CHAR_BIT
;
2082 TYPE_CODE (type
) = TYPE_CODE_ENUM
;
2083 TYPE_NFIELDS (type
) = nsyms
;
2084 TYPE_FIELDS (type
) = (struct field
*)
2085 TYPE_ALLOC (type
, sizeof (struct field
) * nsyms
);
2087 /* Find the symbols for the values and put them into the type.
2088 The symbols can be found in the symlist that we put them on
2089 to cause them to be defined. osyms contains the old value
2090 of that symlist; everything up to there was defined by us. */
2091 /* Note that we preserve the order of the enum constants, so
2092 that in something like "enum {FOO, LAST_THING=FOO}" we print
2093 FOO, not LAST_THING. */
2095 for (syms
= *symlist
, n
= 0; syms
; syms
= syms
->next
)
2101 for (; j
< syms
->nsyms
; j
++, n
++)
2103 struct symbol
*xsym
= syms
->symbol
[j
];
2104 SYMBOL_TYPE (xsym
) = type
;
2105 TYPE_FIELD_NAME (type
, n
) = SYMBOL_LINKAGE_NAME (xsym
);
2106 SET_FIELD_BITPOS (TYPE_FIELD (type
, n
), SYMBOL_VALUE (xsym
));
2107 if (SYMBOL_VALUE (xsym
) < 0)
2109 TYPE_FIELD_BITSIZE (type
, n
) = 0;
2116 TYPE_UNSIGNED (type
) = 1;
2121 /* Register our ability to parse symbols for coff BFD files. */
2123 static struct sym_fns coff_sym_fns
=
2125 bfd_target_coff_flavour
,
2126 coff_new_init
, /* sym_new_init: init anything gbl to entire symtab */
2127 coff_symfile_init
, /* sym_init: read initial info, setup for sym_read() */
2128 coff_symfile_read
, /* sym_read: read a symbol file into symtab */
2129 coff_symfile_finish
, /* sym_finish: finished with file, cleanup */
2130 default_symfile_offsets
, /* sym_offsets: xlate external to internal form */
2131 default_symfile_segments
, /* sym_segments: Get segment information from
2133 NULL
, /* sym_read_linetable */
2134 NULL
/* next: pointer to next struct sym_fns */
2138 _initialize_coffread (void)
2140 add_symtab_fns (&coff_sym_fns
);