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"
50 extern void _initialize_coffread (void);
52 struct coff_symfile_info
54 file_ptr min_lineno_offset
; /* Where in file lowest line#s are */
55 file_ptr max_lineno_offset
; /* 1+last byte of line#s in file */
57 CORE_ADDR textaddr
; /* Addr of .text section. */
58 unsigned int textsize
; /* Size of .text section. */
59 struct stab_section_list
*stabsects
; /* .stab sections. */
60 asection
*stabstrsect
; /* Section pointer for .stab section */
64 /* Translate an external name string into a user-visible name. */
65 #define EXTERNAL_NAME(string, abfd) \
66 (string[0] == bfd_get_symbol_leading_char(abfd)? string+1: string)
68 /* To be an sdb debug type, type must have at least a basic or primary
69 derived type. Using this rather than checking against T_NULL is
70 said to prevent core dumps if we try to operate on Michael Bloom
73 #define SDB_TYPE(type) (BTYPE(type) | (type & N_TMASK))
75 /* Core address of start and end of text of current source file.
76 This comes from a ".text" symbol where x_nlinno > 0. */
78 static CORE_ADDR current_source_start_addr
;
79 static CORE_ADDR current_source_end_addr
;
81 /* The addresses of the symbol table stream and number of symbols
82 of the object file we are reading (as copied into core). */
84 static bfd
*nlist_bfd_global
;
85 static int nlist_nsyms_global
;
88 /* Pointers to scratch storage, used for reading raw symbols and auxents. */
90 static char *temp_sym
;
91 static char *temp_aux
;
93 /* Local variables that hold the shift and mask values for the
94 COFF file that we are currently reading. These come back to us
95 from BFD, and are referenced by their macro names, as well as
96 internally to the BTYPE, ISPTR, ISFCN, ISARY, ISTAG, and DECREF
97 macros from include/coff/internal.h . */
99 static unsigned local_n_btmask
;
100 static unsigned local_n_btshft
;
101 static unsigned local_n_tmask
;
102 static unsigned local_n_tshift
;
104 #define N_BTMASK local_n_btmask
105 #define N_BTSHFT local_n_btshft
106 #define N_TMASK local_n_tmask
107 #define N_TSHIFT local_n_tshift
109 /* Local variables that hold the sizes in the file of various COFF structures.
110 (We only need to know this to read them from the file -- BFD will then
111 translate the data in them, into `internal_xxx' structs in the right
112 byte order, alignment, etc.) */
114 static unsigned local_linesz
;
115 static unsigned local_symesz
;
116 static unsigned local_auxesz
;
118 /* This is set if this is a PE format file. */
122 /* Chain of typedefs of pointers to empty struct/union types.
123 They are chained thru the SYMBOL_VALUE_CHAIN. */
125 static struct symbol
*opaque_type_chain
[HASHSIZE
];
127 /* Simplified internal version of coff symbol table information */
132 int c_symnum
; /* symbol number of this entry */
133 int c_naux
; /* 0 if syment only, 1 if syment + auxent, etc */
140 extern void stabsread_clear_cache (void);
142 static struct type
*coff_read_struct_type (int, int, int,
145 static struct type
*decode_base_type (struct coff_symbol
*,
146 unsigned int, union internal_auxent
*,
149 static struct type
*decode_type (struct coff_symbol
*, unsigned int,
150 union internal_auxent
*,
153 static struct type
*decode_function_type (struct coff_symbol
*,
155 union internal_auxent
*,
158 static struct type
*coff_read_enum_type (int, int, int,
161 static struct symbol
*process_coff_symbol (struct coff_symbol
*,
162 union internal_auxent
*,
165 static void patch_opaque_types (struct symtab
*);
167 static void enter_linenos (long, int, int, struct objfile
*);
169 static void free_linetab (void);
171 static void free_linetab_cleanup (void *ignore
);
173 static int init_lineno (bfd
*, long, int);
175 static char *getsymname (struct internal_syment
*);
177 static char *coff_getfilename (union internal_auxent
*);
179 static void free_stringtab (void);
181 static void free_stringtab_cleanup (void *ignore
);
183 static int init_stringtab (bfd
*, long);
185 static void read_one_sym (struct coff_symbol
*,
186 struct internal_syment
*, union internal_auxent
*);
188 static void coff_symtab_read (long, unsigned int, struct objfile
*);
190 /* We are called once per section from coff_symfile_read. We
191 need to examine each section we are passed, check to see
192 if it is something we are interested in processing, and
193 if so, stash away some access information for the section.
195 FIXME: The section names should not be hardwired strings (what
196 should they be? I don't think most object file formats have enough
197 section flags to specify what kind of debug section it is
201 coff_locate_sections (bfd
*abfd
, asection
*sectp
, void *csip
)
203 struct coff_symfile_info
*csi
;
206 csi
= (struct coff_symfile_info
*) csip
;
207 name
= bfd_get_section_name (abfd
, sectp
);
208 if (strcmp (name
, ".text") == 0)
210 csi
->textaddr
= bfd_section_vma (abfd
, sectp
);
211 csi
->textsize
+= bfd_section_size (abfd
, sectp
);
213 else if (strncmp (name
, ".text", sizeof ".text" - 1) == 0)
215 csi
->textsize
+= bfd_section_size (abfd
, sectp
);
217 else if (strcmp (name
, ".stabstr") == 0)
219 csi
->stabstrsect
= sectp
;
221 else if (strncmp (name
, ".stab", sizeof ".stab" - 1) == 0)
225 /* We can have multiple .stab sections if linked with
227 for (s
= name
+ sizeof ".stab" - 1; *s
!= '\0'; s
++)
232 struct stab_section_list
*n
, **pn
;
234 n
= ((struct stab_section_list
*)
235 xmalloc (sizeof (struct stab_section_list
)));
238 for (pn
= &csi
->stabsects
; *pn
!= NULL
; pn
= &(*pn
)->next
)
242 /* This will be run after coffstab_build_psymtabs is called
243 in coff_symfile_read, at which point we no longer need
245 make_cleanup (xfree
, n
);
250 /* Return the section_offsets* that CS points to. */
251 static int cs_to_section (struct coff_symbol
*, struct objfile
*);
253 struct find_targ_sec_arg
260 find_targ_sec (bfd
*abfd
, asection
*sect
, void *obj
)
262 struct find_targ_sec_arg
*args
= (struct find_targ_sec_arg
*) obj
;
263 if (sect
->target_index
== args
->targ_index
)
264 *args
->resultp
= sect
;
267 /* Return the bfd_section that CS points to. */
268 static struct bfd_section
*
269 cs_to_bfd_section (struct coff_symbol
*cs
, struct objfile
*objfile
)
271 asection
*sect
= NULL
;
272 struct find_targ_sec_arg args
;
274 args
.targ_index
= cs
->c_secnum
;
275 args
.resultp
= §
;
276 bfd_map_over_sections (objfile
->obfd
, find_targ_sec
, &args
);
280 /* Return the section number (SECT_OFF_*) that CS points to. */
282 cs_to_section (struct coff_symbol
*cs
, struct objfile
*objfile
)
284 asection
*sect
= cs_to_bfd_section (cs
, objfile
);
286 return SECT_OFF_TEXT (objfile
);
290 /* Return the address of the section of a COFF symbol. */
292 static CORE_ADDR
cs_section_address (struct coff_symbol
*, bfd
*);
295 cs_section_address (struct coff_symbol
*cs
, bfd
*abfd
)
297 asection
*sect
= NULL
;
298 struct find_targ_sec_arg args
;
301 args
.targ_index
= cs
->c_secnum
;
302 args
.resultp
= §
;
303 bfd_map_over_sections (abfd
, find_targ_sec
, &args
);
305 addr
= bfd_get_section_vma (objfile
->obfd
, sect
);
309 /* Look up a coff type-number index. Return the address of the slot
310 where the type for that index is stored.
311 The type-number is in INDEX.
313 This can be used for finding the type associated with that index
314 or for associating a new type with the index. */
316 static struct type
**
317 coff_lookup_type (int index
)
319 if (index
>= type_vector_length
)
321 int old_vector_length
= type_vector_length
;
323 type_vector_length
*= 2;
324 if (index
/* is still */ >= type_vector_length
)
325 type_vector_length
= index
* 2;
327 type_vector
= (struct type
**)
328 xrealloc ((char *) type_vector
,
329 type_vector_length
* sizeof (struct type
*));
330 memset (&type_vector
[old_vector_length
], 0,
331 (type_vector_length
- old_vector_length
) * sizeof (struct type
*));
333 return &type_vector
[index
];
336 /* Make sure there is a type allocated for type number index
337 and return the type object.
338 This can create an empty (zeroed) type object. */
341 coff_alloc_type (int index
)
343 struct type
**type_addr
= coff_lookup_type (index
);
344 struct type
*type
= *type_addr
;
346 /* If we are referring to a type not known at all yet,
347 allocate an empty type for it.
348 We will fill it in later if we find out how. */
351 type
= alloc_type (current_objfile
);
357 /* Start a new symtab for a new source file.
358 This is called when a COFF ".file" symbol is seen;
359 it indicates the start of data for one original source file. */
362 coff_start_symtab (char *name
)
365 /* We fill in the filename later. start_symtab puts
366 this pointer into last_source_file and we put it in
367 subfiles->name, which end_symtab frees; that's why
368 it must be malloc'd. */
370 /* We never know the directory name for COFF. */
372 /* The start address is irrelevant, since we set
373 last_source_start_addr in coff_end_symtab. */
375 record_debugformat ("COFF");
378 /* Save the vital information from when starting to read a file,
379 for use when closing off the current file.
380 NAME is the file name the symbols came from, START_ADDR is the first
381 text address for the file, and SIZE is the number of bytes of text. */
384 complete_symtab (char *name
, CORE_ADDR start_addr
, unsigned int size
)
386 if (last_source_file
!= NULL
)
387 xfree (last_source_file
);
388 last_source_file
= xstrdup (name
);
389 current_source_start_addr
= start_addr
;
390 current_source_end_addr
= start_addr
+ size
;
393 /* Finish the symbol definitions for one main source file,
394 close off all the lexical contexts for that file
395 (creating struct block's for them), then make the
396 struct symtab for that file and put it in the list of all such. */
399 coff_end_symtab (struct objfile
*objfile
)
401 struct symtab
*symtab
;
403 last_source_start_addr
= current_source_start_addr
;
405 symtab
= end_symtab (current_source_end_addr
, objfile
, SECT_OFF_TEXT (objfile
));
407 /* Reinitialize for beginning of new file. */
408 last_source_file
= NULL
;
411 static struct minimal_symbol
*
412 record_minimal_symbol (struct coff_symbol
*cs
, CORE_ADDR address
,
413 enum minimal_symbol_type type
, int section
,
414 struct objfile
*objfile
)
416 struct bfd_section
*bfd_section
;
417 /* We don't want TDESC entry points in the minimal symbol table */
418 if (cs
->c_name
[0] == '@')
421 bfd_section
= cs_to_bfd_section (cs
, objfile
);
422 return prim_record_minimal_symbol_and_info (cs
->c_name
, address
, type
,
423 section
, bfd_section
, objfile
);
426 /* coff_symfile_init ()
427 is the coff-specific initialization routine for reading symbols.
428 It is passed a struct objfile which contains, among other things,
429 the BFD for the file whose symbols are being read, and a slot for
430 a pointer to "private data" which we fill with cookies and other
431 treats for coff_symfile_read ().
433 We will only be called if this is a COFF or COFF-like file.
434 BFD handles figuring out the format of the file, and code in symtab.c
435 uses BFD's determination to vector to us.
437 The ultimate result is a new symtab (or, FIXME, eventually a psymtab). */
440 coff_symfile_init (struct objfile
*objfile
)
442 /* Allocate struct to keep track of stab reading. */
443 objfile
->deprecated_sym_stab_info
= (struct dbx_symfile_info
*)
444 xmalloc (sizeof (struct dbx_symfile_info
));
446 memset (objfile
->deprecated_sym_stab_info
, 0,
447 sizeof (struct dbx_symfile_info
));
449 /* Allocate struct to keep track of the symfile */
450 objfile
->deprecated_sym_private
= xmalloc (sizeof (struct coff_symfile_info
));
452 memset (objfile
->deprecated_sym_private
, 0, sizeof (struct coff_symfile_info
));
454 /* COFF objects may be reordered, so set OBJF_REORDERED. If we
455 find this causes a significant slowdown in gdb then we could
456 set it in the debug symbol readers only when necessary. */
457 objfile
->flags
|= OBJF_REORDERED
;
459 init_entry_point_info (objfile
);
462 /* This function is called for every section; it finds the outer limits
463 of the line table (minimum and maximum file offset) so that the
464 mainline code can read the whole thing for efficiency. */
467 find_linenos (bfd
*abfd
, struct bfd_section
*asect
, void *vpinfo
)
469 struct coff_symfile_info
*info
;
471 file_ptr offset
, maxoff
;
473 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
474 count
= asect
->lineno_count
;
479 size
= count
* local_linesz
;
481 info
= (struct coff_symfile_info
*) vpinfo
;
482 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
483 offset
= asect
->line_filepos
;
486 if (offset
< info
->min_lineno_offset
|| info
->min_lineno_offset
== 0)
487 info
->min_lineno_offset
= offset
;
489 maxoff
= offset
+ size
;
490 if (maxoff
> info
->max_lineno_offset
)
491 info
->max_lineno_offset
= maxoff
;
495 /* The BFD for this file -- only good while we're actively reading
496 symbols into a psymtab or a symtab. */
498 static bfd
*symfile_bfd
;
500 /* Read a symbol file, after initialization by coff_symfile_init. */
503 coff_symfile_read (struct objfile
*objfile
, int symfile_flags
)
505 struct coff_symfile_info
*info
;
506 struct dbx_symfile_info
*dbxinfo
;
507 bfd
*abfd
= objfile
->obfd
;
508 coff_data_type
*cdata
= coff_data (abfd
);
509 char *name
= bfd_get_filename (abfd
);
511 unsigned int num_symbols
;
513 int stringtab_offset
;
514 struct cleanup
*back_to
, *cleanup_minimal_symbols
;
517 info
= (struct coff_symfile_info
*) objfile
->deprecated_sym_private
;
518 dbxinfo
= objfile
->deprecated_sym_stab_info
;
519 symfile_bfd
= abfd
; /* Kludge for swap routines */
521 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
522 num_symbols
= bfd_get_symcount (abfd
); /* How many syms */
523 symtab_offset
= cdata
->sym_filepos
; /* Symbol table file offset */
524 stringtab_offset
= symtab_offset
+ /* String table file offset */
525 num_symbols
* cdata
->local_symesz
;
527 /* Set a few file-statics that give us specific information about
528 the particular COFF file format we're reading. */
529 local_n_btmask
= cdata
->local_n_btmask
;
530 local_n_btshft
= cdata
->local_n_btshft
;
531 local_n_tmask
= cdata
->local_n_tmask
;
532 local_n_tshift
= cdata
->local_n_tshift
;
533 local_linesz
= cdata
->local_linesz
;
534 local_symesz
= cdata
->local_symesz
;
535 local_auxesz
= cdata
->local_auxesz
;
537 /* Allocate space for raw symbol and aux entries, based on their
538 space requirements as reported by BFD. */
539 temp_sym
= (char *) xmalloc
540 (cdata
->local_symesz
+ cdata
->local_auxesz
);
541 temp_aux
= temp_sym
+ cdata
->local_symesz
;
542 back_to
= make_cleanup (free_current_contents
, &temp_sym
);
544 /* We need to know whether this is a PE file, because in PE files,
545 unlike standard COFF files, symbol values are stored as offsets
546 from the section address, rather than as absolute addresses.
547 FIXME: We should use BFD to read the symbol table, and thus avoid
550 strncmp (bfd_get_target (objfile
->obfd
), "pe", 2) == 0
551 || strncmp (bfd_get_target (objfile
->obfd
), "epoc-pe", 7) == 0;
555 info
->min_lineno_offset
= 0;
556 info
->max_lineno_offset
= 0;
558 /* Only read line number information if we have symbols.
560 On Windows NT, some of the system's DLL's have sections with
561 PointerToLinenumbers fields that are non-zero, but point at
562 random places within the image file. (In the case I found,
563 KERNEL32.DLL's .text section has a line number info pointer that
564 points into the middle of the string `lib\\i386\kernel32.dll'.)
566 However, these DLL's also have no symbols. The line number
567 tables are meaningless without symbols. And in fact, GDB never
568 uses the line number information unless there are symbols. So we
569 can avoid spurious error messages (and maybe run a little
570 faster!) by not even reading the line number table unless we have
574 /* Read the line number table, all at once. */
575 bfd_map_over_sections (abfd
, find_linenos
, (void *) info
);
577 make_cleanup (free_linetab_cleanup
, 0 /*ignore*/);
578 val
= init_lineno (abfd
, info
->min_lineno_offset
,
579 info
->max_lineno_offset
- info
->min_lineno_offset
);
581 error (_("\"%s\": error reading line numbers."), name
);
584 /* Now read the string table, all at once. */
586 make_cleanup (free_stringtab_cleanup
, 0 /*ignore*/);
587 val
= init_stringtab (abfd
, stringtab_offset
);
589 error (_("\"%s\": can't get string table"), name
);
591 init_minimal_symbol_collection ();
592 cleanup_minimal_symbols
= make_cleanup_discard_minimal_symbols ();
594 /* Now that the executable file is positioned at symbol table,
595 process it and define symbols accordingly. */
597 coff_symtab_read ((long) symtab_offset
, num_symbols
, objfile
);
599 /* Install any minimal symbols that have been collected as the current
600 minimal symbols for this objfile. */
602 install_minimal_symbols (objfile
);
604 /* Free the installed minimal symbol data. */
605 do_cleanups (cleanup_minimal_symbols
);
607 bfd_map_over_sections (abfd
, coff_locate_sections
, (void *) info
);
611 if (!info
->stabstrsect
)
613 error (_("The debugging information in `%s' is corrupted.\n"
614 "The file has a `.stabs' section, but no `.stabstr' section."),
618 /* FIXME: dubious. Why can't we use something normal like
619 bfd_get_section_contents? */
620 bfd_seek (abfd
, abfd
->where
, 0);
622 stabstrsize
= bfd_section_size (abfd
, info
->stabstrsect
);
624 coffstab_build_psymtabs (objfile
,
625 info
->textaddr
, info
->textsize
,
627 info
->stabstrsect
->filepos
, stabstrsize
);
629 if (dwarf2_has_info (objfile
))
631 /* DWARF2 sections. */
632 dwarf2_build_psymtabs (objfile
);
635 dwarf2_build_frame_info (objfile
);
637 /* Try to add separate debug file if no symbols table found. */
638 if (!objfile_has_partial_symbols (objfile
))
642 debugfile
= find_separate_debug_file_by_debuglink (objfile
);
646 bfd
*abfd
= symfile_bfd_open (debugfile
);
647 symbol_file_add_separate (abfd
, symfile_flags
, objfile
);
652 do_cleanups (back_to
);
656 coff_new_init (struct objfile
*ignore
)
660 /* Perform any local cleanups required when we are done with a particular
661 objfile. I.E, we are in the process of discarding all symbol information
662 for an objfile, freeing up all memory held for it, and unlinking the
663 objfile struct from the global list of known objfiles. */
666 coff_symfile_finish (struct objfile
*objfile
)
668 if (objfile
->deprecated_sym_private
!= NULL
)
670 xfree (objfile
->deprecated_sym_private
);
673 /* Let stabs reader clean up */
674 stabsread_clear_cache ();
676 dwarf2_free_objfile (objfile
);
680 /* Given pointers to a symbol table in coff style exec file,
681 analyze them and create struct symtab's describing the symbols.
682 NSYMS is the number of symbols in the symbol table.
683 We read them one at a time using read_one_sym (). */
686 coff_symtab_read (long symtab_offset
, unsigned int nsyms
,
687 struct objfile
*objfile
)
689 struct gdbarch
*gdbarch
= get_objfile_arch (objfile
);
690 struct context_stack
*new;
691 struct coff_symbol coff_symbol
;
692 struct coff_symbol
*cs
= &coff_symbol
;
693 static struct internal_syment main_sym
;
694 static union internal_auxent main_aux
;
695 struct coff_symbol fcn_cs_saved
;
696 static struct internal_syment fcn_sym_saved
;
697 static union internal_auxent fcn_aux_saved
;
699 /* A .file is open. */
700 int in_source_file
= 0;
701 int next_file_symnum
= -1;
702 /* Name of the current file. */
703 char *filestring
= "";
705 int fcn_first_line
= 0;
706 CORE_ADDR fcn_first_line_addr
= 0;
707 int fcn_last_line
= 0;
708 int fcn_start_addr
= 0;
709 long fcn_line_ptr
= 0;
712 struct minimal_symbol
*msym
;
714 /* Work around a stdio bug in SunOS4.1.1 (this makes me nervous....
715 it's hard to know I've really worked around it. The fix should be
716 harmless, anyway). The symptom of the bug is that the first
717 fread (in read_one_sym), will (in my example) actually get data
718 from file offset 268, when the fseek was to 264 (and ftell shows
719 264). This causes all hell to break loose. I was unable to
720 reproduce this on a short test program which operated on the same
721 file, performing (I think) the same sequence of operations.
723 It stopped happening when I put in this (former) rewind().
725 FIXME: Find out if this has been reported to Sun, whether it has
726 been fixed in a later release, etc. */
728 bfd_seek (objfile
->obfd
, 0, 0);
730 /* Position to read the symbol table. */
731 val
= bfd_seek (objfile
->obfd
, (long) symtab_offset
, 0);
733 perror_with_name (objfile
->name
);
735 current_objfile
= objfile
;
736 nlist_bfd_global
= objfile
->obfd
;
737 nlist_nsyms_global
= nsyms
;
738 last_source_file
= NULL
;
739 memset (opaque_type_chain
, 0, sizeof opaque_type_chain
);
741 if (type_vector
) /* Get rid of previous one */
743 type_vector_length
= 160;
744 type_vector
= (struct type
**)
745 xmalloc (type_vector_length
* sizeof (struct type
*));
746 memset (type_vector
, 0, type_vector_length
* sizeof (struct type
*));
748 coff_start_symtab ("");
751 while (symnum
< nsyms
)
753 QUIT
; /* Make this command interruptable. */
755 read_one_sym (cs
, &main_sym
, &main_aux
);
757 if (cs
->c_symnum
== next_file_symnum
&& cs
->c_sclass
!= C_FILE
)
759 if (last_source_file
)
760 coff_end_symtab (objfile
);
762 coff_start_symtab ("_globals_");
763 /* coff_start_symtab will set the language of this symtab to
764 language_unknown, since such a ``file name'' is not
765 recognized. Override that with the minimal language to
766 allow printing values in this symtab. */
767 current_subfile
->language
= language_minimal
;
768 complete_symtab ("_globals_", 0, 0);
769 /* done with all files, everything from here on out is globals */
772 /* Special case for file with type declarations only, no text. */
773 if (!last_source_file
&& SDB_TYPE (cs
->c_type
)
774 && cs
->c_secnum
== N_DEBUG
)
775 complete_symtab (filestring
, 0, 0);
777 /* Typedefs should not be treated as symbol definitions. */
778 if (ISFCN (cs
->c_type
) && cs
->c_sclass
!= C_TPDEF
)
780 /* Record all functions -- external and static -- in minsyms. */
781 int section
= cs_to_section (cs
, objfile
);
782 tmpaddr
= cs
->c_value
+ ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
783 record_minimal_symbol (cs
, tmpaddr
, mst_text
, section
, objfile
);
785 fcn_line_ptr
= main_aux
.x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
;
786 fcn_start_addr
= tmpaddr
;
788 fcn_sym_saved
= main_sym
;
789 fcn_aux_saved
= main_aux
;
793 switch (cs
->c_sclass
)
802 complaint (&symfile_complaints
, _("Bad n_sclass for symbol %s"),
807 /* c_value field contains symnum of next .file entry in table
808 or symnum of first global after last .file. */
809 next_file_symnum
= cs
->c_value
;
811 filestring
= coff_getfilename (&main_aux
);
815 /* Complete symbol table for last object file
816 containing debugging information. */
817 if (last_source_file
)
819 coff_end_symtab (objfile
);
820 coff_start_symtab (filestring
);
825 /* C_LABEL is used for labels and static functions. Including
826 it here allows gdb to see static functions when no debug
827 info is available. */
829 /* However, labels within a function can make weird backtraces,
830 so filter them out (from phdm@macqel.be). */
836 case C_THUMBSTATFUNC
:
837 if (cs
->c_name
[0] == '.')
839 if (strcmp (cs
->c_name
, ".text") == 0)
841 /* FIXME: don't wire in ".text" as section name
843 /* Check for in_source_file deals with case of
844 a file with debugging symbols
845 followed by a later file with no symbols. */
847 complete_symtab (filestring
,
848 cs
->c_value
+ ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
)),
849 main_aux
.x_scn
.x_scnlen
);
852 /* flush rest of '.' symbols */
855 else if (!SDB_TYPE (cs
->c_type
)
856 && cs
->c_name
[0] == 'L'
857 && (strncmp (cs
->c_name
, "LI%", 3) == 0
858 || strncmp (cs
->c_name
, "LF%", 3) == 0
859 || strncmp (cs
->c_name
, "LC%", 3) == 0
860 || strncmp (cs
->c_name
, "LP%", 3) == 0
861 || strncmp (cs
->c_name
, "LPB%", 4) == 0
862 || strncmp (cs
->c_name
, "LBB%", 4) == 0
863 || strncmp (cs
->c_name
, "LBE%", 4) == 0
864 || strncmp (cs
->c_name
, "LPBX%", 5) == 0))
865 /* At least on a 3b1, gcc generates swbeg and string labels
866 that look like this. Ignore them. */
868 /* fall in for static symbols that don't start with '.' */
873 /* Record it in the minimal symbols regardless of
874 SDB_TYPE. This parallels what we do for other debug
875 formats, and probably is needed to make
876 print_address_symbolic work right without the (now
877 gone) "set fast-symbolic-addr off" kludge. */
879 enum minimal_symbol_type ms_type
;
882 if (cs
->c_secnum
== N_UNDEF
)
884 /* This is a common symbol. See if the target
885 environment knows where it has been relocated to. */
887 if (target_lookup_symbol (cs
->c_name
, &reladdr
))
889 /* Error in lookup; ignore symbol. */
893 /* The address has already been relocated; make sure that
894 objfile_relocate doesn't relocate it again. */
896 ms_type
= cs
->c_sclass
== C_EXT
897 || cs
->c_sclass
== C_THUMBEXT
?
898 mst_bss
: mst_file_bss
;
900 else if (cs
->c_secnum
== N_ABS
)
902 /* Use the correct minimal symbol type (and don't
903 relocate) for absolute values. */
905 sec
= cs_to_section (cs
, objfile
);
906 tmpaddr
= cs
->c_value
;
910 asection
*bfd_section
= cs_to_bfd_section (cs
, objfile
);
911 sec
= cs_to_section (cs
, objfile
);
912 tmpaddr
= cs
->c_value
;
913 /* Statics in a PE file also get relocated */
914 if (cs
->c_sclass
== C_EXT
915 || cs
->c_sclass
== C_THUMBEXTFUNC
916 || cs
->c_sclass
== C_THUMBEXT
917 || (pe_file
&& (cs
->c_sclass
== C_STAT
)))
918 tmpaddr
+= ANOFFSET (objfile
->section_offsets
, sec
);
920 if (bfd_section
->flags
& SEC_CODE
)
923 cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXTFUNC
924 || cs
->c_sclass
== C_THUMBEXT
?
925 mst_text
: mst_file_text
;
926 tmpaddr
= gdbarch_smash_text_address (gdbarch
, tmpaddr
);
928 else if (bfd_section
->flags
& SEC_ALLOC
929 && bfd_section
->flags
& SEC_LOAD
)
932 cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXT
?
933 mst_data
: mst_file_data
;
935 else if (bfd_section
->flags
& SEC_ALLOC
)
938 cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXT
?
939 mst_bss
: mst_file_bss
;
942 ms_type
= mst_unknown
;
945 msym
= record_minimal_symbol (cs
, tmpaddr
, ms_type
, sec
, objfile
);
947 gdbarch_coff_make_msymbol_special (gdbarch
, cs
->c_sclass
, msym
);
949 if (SDB_TYPE (cs
->c_type
))
952 sym
= process_coff_symbol
953 (cs
, &main_aux
, objfile
);
954 SYMBOL_VALUE (sym
) = tmpaddr
;
955 SYMBOL_SECTION (sym
) = sec
;
961 if (strcmp (cs
->c_name
, ".bf") == 0)
965 /* value contains address of first non-init type code */
966 /* main_aux.x_sym.x_misc.x_lnsz.x_lnno
967 contains line number of '{' } */
969 complaint (&symfile_complaints
,
970 _("`.bf' symbol %d has no aux entry"), cs
->c_symnum
);
971 fcn_first_line
= main_aux
.x_sym
.x_misc
.x_lnsz
.x_lnno
;
972 fcn_first_line_addr
= cs
->c_value
;
974 /* Might want to check that locals are 0 and
975 context_stack_depth is zero, and complain if not. */
978 new = push_context (depth
, fcn_start_addr
);
979 fcn_cs_saved
.c_name
= getsymname (&fcn_sym_saved
);
981 process_coff_symbol (&fcn_cs_saved
, &fcn_aux_saved
, objfile
);
983 else if (strcmp (cs
->c_name
, ".ef") == 0)
985 if (!within_function
)
986 error (_("Bad coff function information."));
987 /* the value of .ef is the address of epilogue code;
988 not useful for gdb. */
989 /* { main_aux.x_sym.x_misc.x_lnsz.x_lnno
990 contains number of lines to '}' */
992 if (context_stack_depth
<= 0)
993 { /* We attempted to pop an empty context stack */
994 complaint (&symfile_complaints
,
995 _("`.ef' symbol without matching `.bf' symbol ignored starting at symnum %d"),
1001 new = pop_context ();
1002 /* Stack must be empty now. */
1003 if (context_stack_depth
> 0 || new == NULL
)
1005 complaint (&symfile_complaints
,
1006 _("Unmatched .ef symbol(s) ignored starting at symnum %d"),
1008 within_function
= 0;
1011 if (cs
->c_naux
!= 1)
1013 complaint (&symfile_complaints
,
1014 _("`.ef' symbol %d has no aux entry"), cs
->c_symnum
);
1015 fcn_last_line
= 0x7FFFFFFF;
1019 fcn_last_line
= main_aux
.x_sym
.x_misc
.x_lnsz
.x_lnno
;
1021 /* fcn_first_line is the line number of the opening '{'.
1022 Do not record it - because it would affect gdb's idea
1023 of the line number of the first statement of the function -
1024 except for one-line functions, for which it is also the line
1025 number of all the statements and of the closing '}', and
1026 for which we do not have any other statement-line-number. */
1027 if (fcn_last_line
== 1)
1028 record_line (current_subfile
, fcn_first_line
,
1029 gdbarch_addr_bits_remove (gdbarch
,
1030 fcn_first_line_addr
));
1032 enter_linenos (fcn_line_ptr
, fcn_first_line
, fcn_last_line
,
1035 finish_block (new->name
, &local_symbols
, new->old_blocks
,
1037 fcn_cs_saved
.c_value
1038 + fcn_aux_saved
.x_sym
.x_misc
.x_fsize
1039 + ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
)),
1042 within_function
= 0;
1047 if (strcmp (cs
->c_name
, ".bb") == 0)
1049 tmpaddr
= cs
->c_value
;
1050 tmpaddr
+= ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
1051 push_context (++depth
, tmpaddr
);
1053 else if (strcmp (cs
->c_name
, ".eb") == 0)
1055 if (context_stack_depth
<= 0)
1056 { /* We attempted to pop an empty context stack */
1057 complaint (&symfile_complaints
,
1058 _("`.eb' symbol without matching `.bb' symbol ignored starting at symnum %d"),
1063 new = pop_context ();
1064 if (depth
-- != new->depth
)
1066 complaint (&symfile_complaints
,
1067 _("Mismatched .eb symbol ignored starting at symnum %d"),
1071 if (local_symbols
&& context_stack_depth
> 0)
1074 cs
->c_value
+ ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
1075 /* Make a block for the local symbols within. */
1076 finish_block (0, &local_symbols
, new->old_blocks
,
1077 new->start_addr
, tmpaddr
, objfile
);
1079 /* Now pop locals of block just finished. */
1080 local_symbols
= new->locals
;
1085 process_coff_symbol (cs
, &main_aux
, objfile
);
1090 if ((nsyms
== 0) && (pe_file
))
1092 /* We've got no debugging symbols, but it's a portable
1093 executable, so try to read the export table */
1094 read_pe_exported_syms (objfile
);
1097 if (last_source_file
)
1098 coff_end_symtab (objfile
);
1100 /* Patch up any opaque types (references to types that are not defined
1101 in the file where they are referenced, e.g. "struct foo *bar"). */
1102 ALL_OBJFILE_SYMTABS (objfile
, s
)
1103 patch_opaque_types (s
);
1105 current_objfile
= NULL
;
1108 /* Routines for reading headers and symbols from executable. */
1110 /* Read the next symbol, swap it, and return it in both internal_syment
1111 form, and coff_symbol form. Also return its first auxent, if any,
1112 in internal_auxent form, and skip any other auxents. */
1115 read_one_sym (struct coff_symbol
*cs
,
1116 struct internal_syment
*sym
,
1117 union internal_auxent
*aux
)
1120 bfd_size_type bytes
;
1122 cs
->c_symnum
= symnum
;
1123 bytes
= bfd_bread (temp_sym
, local_symesz
, nlist_bfd_global
);
1124 if (bytes
!= local_symesz
)
1125 error ("%s: error reading symbols", current_objfile
->name
);
1126 bfd_coff_swap_sym_in (symfile_bfd
, temp_sym
, (char *) sym
);
1127 cs
->c_naux
= sym
->n_numaux
& 0xff;
1128 if (cs
->c_naux
>= 1)
1130 bytes
= bfd_bread (temp_aux
, local_auxesz
, nlist_bfd_global
);
1131 if (bytes
!= local_auxesz
)
1132 error ("%s: error reading symbols", current_objfile
->name
);
1133 bfd_coff_swap_aux_in (symfile_bfd
, temp_aux
, sym
->n_type
, sym
->n_sclass
,
1134 0, cs
->c_naux
, (char *) aux
);
1135 /* If more than one aux entry, read past it (only the first aux
1137 for (i
= 1; i
< cs
->c_naux
; i
++)
1139 bytes
= bfd_bread (temp_aux
, local_auxesz
, nlist_bfd_global
);
1140 if (bytes
!= local_auxesz
)
1141 error ("%s: error reading symbols", current_objfile
->name
);
1144 cs
->c_name
= getsymname (sym
);
1145 cs
->c_value
= sym
->n_value
;
1146 cs
->c_sclass
= (sym
->n_sclass
& 0xff);
1147 cs
->c_secnum
= sym
->n_scnum
;
1148 cs
->c_type
= (unsigned) sym
->n_type
;
1149 if (!SDB_TYPE (cs
->c_type
))
1153 if (cs
->c_sclass
& 128)
1154 printf (_("thumb symbol %s, class 0x%x\n"), cs
->c_name
, cs
->c_sclass
);
1157 symnum
+= 1 + cs
->c_naux
;
1159 /* The PE file format stores symbol values as offsets within the
1160 section, rather than as absolute addresses. We correct that
1161 here, if the symbol has an appropriate storage class. FIXME: We
1162 should use BFD to read the symbols, rather than duplicating the
1166 switch (cs
->c_sclass
)
1170 case C_THUMBEXTFUNC
:
1175 case C_THUMBSTATFUNC
:
1181 if (cs
->c_secnum
!= 0)
1182 cs
->c_value
+= cs_section_address (cs
, symfile_bfd
);
1188 /* Support for string table handling */
1190 static char *stringtab
= NULL
;
1193 init_stringtab (bfd
*abfd
, long offset
)
1197 unsigned char lengthbuf
[4];
1201 /* If the file is stripped, the offset might be zero, indicating no
1202 string table. Just return with `stringtab' set to null. */
1206 if (bfd_seek (abfd
, offset
, 0) < 0)
1209 val
= bfd_bread ((char *) lengthbuf
, sizeof lengthbuf
, abfd
);
1210 length
= bfd_h_get_32 (symfile_bfd
, lengthbuf
);
1212 /* If no string table is needed, then the file may end immediately
1213 after the symbols. Just return with `stringtab' set to null. */
1214 if (val
!= sizeof lengthbuf
|| length
< sizeof lengthbuf
)
1217 stringtab
= (char *) xmalloc (length
);
1218 /* This is in target format (probably not very useful, and not currently
1219 used), not host format. */
1220 memcpy (stringtab
, lengthbuf
, sizeof lengthbuf
);
1221 if (length
== sizeof length
) /* Empty table -- just the count */
1224 val
= bfd_bread (stringtab
+ sizeof lengthbuf
, length
- sizeof lengthbuf
,
1226 if (val
!= length
- sizeof lengthbuf
|| stringtab
[length
- 1] != '\0')
1233 free_stringtab (void)
1241 free_stringtab_cleanup (void *ignore
)
1247 getsymname (struct internal_syment
*symbol_entry
)
1249 static char buffer
[SYMNMLEN
+ 1];
1252 if (symbol_entry
->_n
._n_n
._n_zeroes
== 0)
1254 /* FIXME: Probably should be detecting corrupt symbol files by
1255 seeing whether offset points to within the stringtab. */
1256 result
= stringtab
+ symbol_entry
->_n
._n_n
._n_offset
;
1260 strncpy (buffer
, symbol_entry
->_n
._n_name
, SYMNMLEN
);
1261 buffer
[SYMNMLEN
] = '\0';
1267 /* Extract the file name from the aux entry of a C_FILE symbol. Return
1268 only the last component of the name. Result is in static storage and
1269 is only good for temporary use. */
1272 coff_getfilename (union internal_auxent
*aux_entry
)
1274 static char buffer
[BUFSIZ
];
1278 if (aux_entry
->x_file
.x_n
.x_zeroes
== 0)
1279 strcpy (buffer
, stringtab
+ aux_entry
->x_file
.x_n
.x_offset
);
1282 strncpy (buffer
, aux_entry
->x_file
.x_fname
, FILNMLEN
);
1283 buffer
[FILNMLEN
] = '\0';
1287 /* FIXME: We should not be throwing away the information about what
1288 directory. It should go into dirname of the symtab, or some such
1290 if ((temp
= strrchr (result
, '/')) != NULL
)
1295 /* Support for line number handling. */
1297 static char *linetab
= NULL
;
1298 static long linetab_offset
;
1299 static unsigned long linetab_size
;
1301 /* Read in all the line numbers for fast lookups later. Leave them in
1302 external (unswapped) format in memory; we'll swap them as we enter
1303 them into GDB's data structures. */
1306 init_lineno (bfd
*abfd
, long offset
, int size
)
1310 linetab_offset
= offset
;
1311 linetab_size
= size
;
1318 if (bfd_seek (abfd
, offset
, 0) < 0)
1321 /* Allocate the desired table, plus a sentinel */
1322 linetab
= (char *) xmalloc (size
+ local_linesz
);
1324 val
= bfd_bread (linetab
, size
, abfd
);
1328 /* Terminate it with an all-zero sentinel record */
1329 memset (linetab
+ size
, 0, local_linesz
);
1343 free_linetab_cleanup (void *ignore
)
1348 #if !defined (L_LNNO32)
1349 #define L_LNNO32(lp) ((lp)->l_lnno)
1353 enter_linenos (long file_offset
, int first_line
,
1354 int last_line
, struct objfile
*objfile
)
1356 struct gdbarch
*gdbarch
= get_objfile_arch (objfile
);
1358 struct internal_lineno lptr
;
1362 if (file_offset
< linetab_offset
)
1364 complaint (&symfile_complaints
,
1365 _("Line number pointer %ld lower than start of line numbers"),
1367 if (file_offset
> linetab_size
) /* Too big to be an offset? */
1369 file_offset
+= linetab_offset
; /* Try reading at that linetab offset */
1372 rawptr
= &linetab
[file_offset
- linetab_offset
];
1374 /* skip first line entry for each function */
1375 rawptr
+= local_linesz
;
1376 /* line numbers start at one for the first line of the function */
1379 /* If the line number table is full (e.g. 64K lines in COFF debug
1380 info), the next function's L_LNNO32 might not be zero, so don't
1381 overstep the table's end in any case. */
1382 while (rawptr
<= &linetab
[0] + linetab_size
)
1384 bfd_coff_swap_lineno_in (symfile_bfd
, rawptr
, &lptr
);
1385 rawptr
+= local_linesz
;
1386 /* The next function, or the sentinel, will have L_LNNO32 zero;
1388 if (L_LNNO32 (&lptr
) && L_LNNO32 (&lptr
) <= last_line
)
1390 CORE_ADDR addr
= lptr
.l_addr
.l_paddr
;
1391 addr
+= ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
1392 record_line (current_subfile
, first_line
+ L_LNNO32 (&lptr
),
1393 gdbarch_addr_bits_remove (gdbarch
, addr
));
1401 patch_type (struct type
*type
, struct type
*real_type
)
1403 struct type
*target
= TYPE_TARGET_TYPE (type
);
1404 struct type
*real_target
= TYPE_TARGET_TYPE (real_type
);
1405 int field_size
= TYPE_NFIELDS (real_target
) * sizeof (struct field
);
1407 TYPE_LENGTH (target
) = TYPE_LENGTH (real_target
);
1408 TYPE_NFIELDS (target
) = TYPE_NFIELDS (real_target
);
1409 TYPE_FIELDS (target
) = (struct field
*) TYPE_ALLOC (target
, field_size
);
1411 memcpy (TYPE_FIELDS (target
), TYPE_FIELDS (real_target
), field_size
);
1413 if (TYPE_NAME (real_target
))
1415 if (TYPE_NAME (target
))
1416 xfree (TYPE_NAME (target
));
1417 TYPE_NAME (target
) = concat (TYPE_NAME (real_target
), (char *)NULL
);
1421 /* Patch up all appropriate typedef symbols in the opaque_type_chains
1422 so that they can be used to print out opaque data structures properly. */
1425 patch_opaque_types (struct symtab
*s
)
1428 struct dict_iterator iter
;
1429 struct symbol
*real_sym
;
1431 /* Go through the per-file symbols only */
1432 b
= BLOCKVECTOR_BLOCK (BLOCKVECTOR (s
), STATIC_BLOCK
);
1433 ALL_BLOCK_SYMBOLS (b
, iter
, real_sym
)
1435 /* Find completed typedefs to use to fix opaque ones.
1436 Remove syms from the chain when their types are stored,
1437 but search the whole chain, as there may be several syms
1438 from different files with the same name. */
1439 if (SYMBOL_CLASS (real_sym
) == LOC_TYPEDEF
1440 && SYMBOL_DOMAIN (real_sym
) == VAR_DOMAIN
1441 && TYPE_CODE (SYMBOL_TYPE (real_sym
)) == TYPE_CODE_PTR
1442 && TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (real_sym
))) != 0)
1444 char *name
= SYMBOL_LINKAGE_NAME (real_sym
);
1445 int hash
= hashname (name
);
1446 struct symbol
*sym
, *prev
;
1449 for (sym
= opaque_type_chain
[hash
]; sym
;)
1451 if (name
[0] == SYMBOL_LINKAGE_NAME (sym
)[0]
1452 && strcmp (name
+ 1, SYMBOL_LINKAGE_NAME (sym
) + 1) == 0)
1456 SYMBOL_VALUE_CHAIN (prev
) = SYMBOL_VALUE_CHAIN (sym
);
1460 opaque_type_chain
[hash
] = SYMBOL_VALUE_CHAIN (sym
);
1463 patch_type (SYMBOL_TYPE (sym
), SYMBOL_TYPE (real_sym
));
1467 sym
= SYMBOL_VALUE_CHAIN (prev
);
1471 sym
= opaque_type_chain
[hash
];
1477 sym
= SYMBOL_VALUE_CHAIN (sym
);
1485 coff_reg_to_regnum (struct symbol
*sym
, struct gdbarch
*gdbarch
)
1487 return gdbarch_sdb_reg_to_regnum (gdbarch
, SYMBOL_VALUE (sym
));
1490 static const struct symbol_register_ops coff_register_funcs
= {
1494 static struct symbol
*
1495 process_coff_symbol (struct coff_symbol
*cs
,
1496 union internal_auxent
*aux
,
1497 struct objfile
*objfile
)
1500 = (struct symbol
*) obstack_alloc (&objfile
->objfile_obstack
,
1501 sizeof (struct symbol
));
1504 memset (sym
, 0, sizeof (struct symbol
));
1506 name
= EXTERNAL_NAME (name
, objfile
->obfd
);
1507 SYMBOL_LANGUAGE (sym
) = current_subfile
->language
;
1508 SYMBOL_SET_NAMES (sym
, name
, strlen (name
), 1, objfile
);
1510 /* default assumptions */
1511 SYMBOL_VALUE (sym
) = cs
->c_value
;
1512 SYMBOL_DOMAIN (sym
) = VAR_DOMAIN
;
1513 SYMBOL_SECTION (sym
) = cs_to_section (cs
, objfile
);
1515 if (ISFCN (cs
->c_type
))
1517 SYMBOL_VALUE (sym
) += ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
1519 lookup_function_type (decode_function_type (cs
, cs
->c_type
, aux
, objfile
));
1521 SYMBOL_CLASS (sym
) = LOC_BLOCK
;
1522 if (cs
->c_sclass
== C_STAT
|| cs
->c_sclass
== C_THUMBSTAT
1523 || cs
->c_sclass
== C_THUMBSTATFUNC
)
1524 add_symbol_to_list (sym
, &file_symbols
);
1525 else if (cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXT
1526 || cs
->c_sclass
== C_THUMBEXTFUNC
)
1527 add_symbol_to_list (sym
, &global_symbols
);
1531 SYMBOL_TYPE (sym
) = decode_type (cs
, cs
->c_type
, aux
, objfile
);
1532 switch (cs
->c_sclass
)
1538 SYMBOL_CLASS (sym
) = LOC_LOCAL
;
1539 add_symbol_to_list (sym
, &local_symbols
);
1543 case C_THUMBEXTFUNC
:
1545 SYMBOL_CLASS (sym
) = LOC_STATIC
;
1546 SYMBOL_VALUE_ADDRESS (sym
) = (CORE_ADDR
) cs
->c_value
;
1547 SYMBOL_VALUE_ADDRESS (sym
) += ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
1548 add_symbol_to_list (sym
, &global_symbols
);
1552 case C_THUMBSTATFUNC
:
1554 SYMBOL_CLASS (sym
) = LOC_STATIC
;
1555 SYMBOL_VALUE_ADDRESS (sym
) = (CORE_ADDR
) cs
->c_value
;
1556 SYMBOL_VALUE_ADDRESS (sym
) += ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
1557 if (within_function
)
1559 /* Static symbol of local scope */
1560 add_symbol_to_list (sym
, &local_symbols
);
1564 /* Static symbol at top level of file */
1565 add_symbol_to_list (sym
, &file_symbols
);
1569 #ifdef C_GLBLREG /* AMD coff */
1573 SYMBOL_CLASS (sym
) = LOC_REGISTER
;
1574 SYMBOL_REGISTER_OPS (sym
) = &coff_register_funcs
;
1575 SYMBOL_VALUE (sym
) = cs
->c_value
;
1576 add_symbol_to_list (sym
, &local_symbols
);
1584 SYMBOL_CLASS (sym
) = LOC_ARG
;
1585 SYMBOL_IS_ARGUMENT (sym
) = 1;
1586 add_symbol_to_list (sym
, &local_symbols
);
1590 SYMBOL_CLASS (sym
) = LOC_REGISTER
;
1591 SYMBOL_REGISTER_OPS (sym
) = &coff_register_funcs
;
1592 SYMBOL_IS_ARGUMENT (sym
) = 1;
1593 SYMBOL_VALUE (sym
) = cs
->c_value
;
1594 add_symbol_to_list (sym
, &local_symbols
);
1598 SYMBOL_CLASS (sym
) = LOC_TYPEDEF
;
1599 SYMBOL_DOMAIN (sym
) = VAR_DOMAIN
;
1601 /* If type has no name, give it one */
1602 if (TYPE_NAME (SYMBOL_TYPE (sym
)) == 0)
1604 if (TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_PTR
1605 || TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_FUNC
)
1607 /* If we are giving a name to a type such as "pointer to
1608 foo" or "function returning foo", we better not set
1609 the TYPE_NAME. If the program contains "typedef char
1610 *caddr_t;", we don't want all variables of type char
1611 * to print as caddr_t. This is not just a
1612 consequence of GDB's type management; CC and GCC (at
1613 least through version 2.4) both output variables of
1614 either type char * or caddr_t with the type
1615 refering to the C_TPDEF symbol for caddr_t. If a future
1616 compiler cleans this up it GDB is not ready for it
1617 yet, but if it becomes ready we somehow need to
1618 disable this check (without breaking the PCC/GCC2.4
1623 Fortunately, this check seems not to be necessary
1624 for anything except pointers or functions. */
1628 TYPE_NAME (SYMBOL_TYPE (sym
)) =
1629 concat (SYMBOL_LINKAGE_NAME (sym
), (char *)NULL
);
1632 /* Keep track of any type which points to empty structured type,
1633 so it can be filled from a definition from another file. A
1634 simple forward reference (TYPE_CODE_UNDEF) is not an
1635 empty structured type, though; the forward references
1636 work themselves out via the magic of coff_lookup_type. */
1637 if (TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_PTR
1638 && TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym
))) == 0
1639 && TYPE_CODE (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym
)))
1642 int i
= hashname (SYMBOL_LINKAGE_NAME (sym
));
1644 SYMBOL_VALUE_CHAIN (sym
) = opaque_type_chain
[i
];
1645 opaque_type_chain
[i
] = sym
;
1647 add_symbol_to_list (sym
, &file_symbols
);
1653 SYMBOL_CLASS (sym
) = LOC_TYPEDEF
;
1654 SYMBOL_DOMAIN (sym
) = STRUCT_DOMAIN
;
1656 /* Some compilers try to be helpful by inventing "fake"
1657 names for anonymous enums, structures, and unions, like
1658 "~0fake" or ".0fake". Thanks, but no thanks... */
1659 if (TYPE_TAG_NAME (SYMBOL_TYPE (sym
)) == 0)
1660 if (SYMBOL_LINKAGE_NAME (sym
) != NULL
1661 && *SYMBOL_LINKAGE_NAME (sym
) != '~'
1662 && *SYMBOL_LINKAGE_NAME (sym
) != '.')
1663 TYPE_TAG_NAME (SYMBOL_TYPE (sym
)) =
1664 concat (SYMBOL_LINKAGE_NAME (sym
), (char *)NULL
);
1666 add_symbol_to_list (sym
, &file_symbols
);
1676 /* Decode a coff type specifier; return the type that is meant. */
1678 static struct type
*
1679 decode_type (struct coff_symbol
*cs
, unsigned int c_type
,
1680 union internal_auxent
*aux
, struct objfile
*objfile
)
1682 struct type
*type
= 0;
1683 unsigned int new_c_type
;
1685 if (c_type
& ~N_BTMASK
)
1687 new_c_type
= DECREF (c_type
);
1690 type
= decode_type (cs
, new_c_type
, aux
, objfile
);
1691 type
= lookup_pointer_type (type
);
1693 else if (ISFCN (c_type
))
1695 type
= decode_type (cs
, new_c_type
, aux
, objfile
);
1696 type
= lookup_function_type (type
);
1698 else if (ISARY (c_type
))
1701 unsigned short *dim
;
1702 struct type
*base_type
, *index_type
, *range_type
;
1704 /* Define an array type. */
1705 /* auxent refers to array, not base type */
1706 if (aux
->x_sym
.x_tagndx
.l
== 0)
1709 /* shift the indices down */
1710 dim
= &aux
->x_sym
.x_fcnary
.x_ary
.x_dimen
[0];
1713 for (i
= 0; *dim
&& i
< DIMNUM
- 1; i
++, dim
++)
1717 base_type
= decode_type (cs
, new_c_type
, aux
, objfile
);
1718 index_type
= objfile_type (objfile
)->builtin_int
;
1720 create_range_type ((struct type
*) NULL
, index_type
, 0, n
- 1);
1722 create_array_type ((struct type
*) NULL
, base_type
, range_type
);
1727 /* Reference to existing type. This only occurs with the
1728 struct, union, and enum types. EPI a29k coff
1729 fakes us out by producing aux entries with a nonzero
1730 x_tagndx for definitions of structs, unions, and enums, so we
1731 have to check the c_sclass field. SCO 3.2v4 cc gets confused
1732 with pointers to pointers to defined structs, and generates
1733 negative x_tagndx fields. */
1734 if (cs
->c_naux
> 0 && aux
->x_sym
.x_tagndx
.l
!= 0)
1736 if (cs
->c_sclass
!= C_STRTAG
1737 && cs
->c_sclass
!= C_UNTAG
1738 && cs
->c_sclass
!= C_ENTAG
1739 && aux
->x_sym
.x_tagndx
.l
>= 0)
1741 type
= coff_alloc_type (aux
->x_sym
.x_tagndx
.l
);
1746 complaint (&symfile_complaints
,
1747 _("Symbol table entry for %s has bad tagndx value"),
1749 /* And fall through to decode_base_type... */
1753 return decode_base_type (cs
, BTYPE (c_type
), aux
, objfile
);
1756 /* Decode a coff type specifier for function definition;
1757 return the type that the function returns. */
1759 static struct type
*
1760 decode_function_type (struct coff_symbol
*cs
, unsigned int c_type
,
1761 union internal_auxent
*aux
, struct objfile
*objfile
)
1763 if (aux
->x_sym
.x_tagndx
.l
== 0)
1764 cs
->c_naux
= 0; /* auxent refers to function, not base type */
1766 return decode_type (cs
, DECREF (c_type
), aux
, objfile
);
1771 static struct type
*
1772 decode_base_type (struct coff_symbol
*cs
, unsigned int c_type
,
1773 union internal_auxent
*aux
, struct objfile
*objfile
)
1775 struct gdbarch
*gdbarch
= get_objfile_arch (objfile
);
1781 /* shows up with "void (*foo)();" structure members */
1782 return objfile_type (objfile
)->builtin_void
;
1786 /* Intel 960 COFF has this symbol and meaning. */
1787 return objfile_type (objfile
)->builtin_void
;
1791 return objfile_type (objfile
)->builtin_char
;
1794 return objfile_type (objfile
)->builtin_short
;
1797 return objfile_type (objfile
)->builtin_int
;
1800 if (cs
->c_sclass
== C_FIELD
1801 && aux
->x_sym
.x_misc
.x_lnsz
.x_size
1802 > gdbarch_long_bit (gdbarch
))
1803 return objfile_type (objfile
)->builtin_long_long
;
1805 return objfile_type (objfile
)->builtin_long
;
1808 return objfile_type (objfile
)->builtin_float
;
1811 return objfile_type (objfile
)->builtin_double
;
1814 return objfile_type (objfile
)->builtin_long_double
;
1817 if (cs
->c_naux
!= 1)
1819 /* anonymous structure type */
1820 type
= coff_alloc_type (cs
->c_symnum
);
1821 TYPE_CODE (type
) = TYPE_CODE_STRUCT
;
1822 TYPE_NAME (type
) = NULL
;
1823 /* This used to set the tag to "<opaque>". But I think setting it
1824 to NULL is right, and the printing code can print it as
1826 TYPE_TAG_NAME (type
) = NULL
;
1827 INIT_CPLUS_SPECIFIC (type
);
1828 TYPE_LENGTH (type
) = 0;
1829 TYPE_FIELDS (type
) = 0;
1830 TYPE_NFIELDS (type
) = 0;
1834 type
= coff_read_struct_type (cs
->c_symnum
,
1835 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1836 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
,
1842 if (cs
->c_naux
!= 1)
1844 /* anonymous union type */
1845 type
= coff_alloc_type (cs
->c_symnum
);
1846 TYPE_NAME (type
) = NULL
;
1847 /* This used to set the tag to "<opaque>". But I think setting it
1848 to NULL is right, and the printing code can print it as
1850 TYPE_TAG_NAME (type
) = NULL
;
1851 INIT_CPLUS_SPECIFIC (type
);
1852 TYPE_LENGTH (type
) = 0;
1853 TYPE_FIELDS (type
) = 0;
1854 TYPE_NFIELDS (type
) = 0;
1858 type
= coff_read_struct_type (cs
->c_symnum
,
1859 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1860 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
,
1863 TYPE_CODE (type
) = TYPE_CODE_UNION
;
1867 if (cs
->c_naux
!= 1)
1869 /* anonymous enum type */
1870 type
= coff_alloc_type (cs
->c_symnum
);
1871 TYPE_CODE (type
) = TYPE_CODE_ENUM
;
1872 TYPE_NAME (type
) = NULL
;
1873 /* This used to set the tag to "<opaque>". But I think setting it
1874 to NULL is right, and the printing code can print it as
1876 TYPE_TAG_NAME (type
) = NULL
;
1877 TYPE_LENGTH (type
) = 0;
1878 TYPE_FIELDS (type
) = 0;
1879 TYPE_NFIELDS (type
) = 0;
1883 type
= coff_read_enum_type (cs
->c_symnum
,
1884 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1885 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
,
1891 /* shouldn't show up here */
1895 return objfile_type (objfile
)->builtin_unsigned_char
;
1898 return objfile_type (objfile
)->builtin_unsigned_short
;
1901 return objfile_type (objfile
)->builtin_unsigned_int
;
1904 if (cs
->c_sclass
== C_FIELD
1905 && aux
->x_sym
.x_misc
.x_lnsz
.x_size
1906 > gdbarch_long_bit (gdbarch
))
1907 return objfile_type (objfile
)->builtin_unsigned_long_long
;
1909 return objfile_type (objfile
)->builtin_unsigned_long
;
1911 complaint (&symfile_complaints
, _("Unexpected type for symbol %s"), cs
->c_name
);
1912 return objfile_type (objfile
)->builtin_void
;
1915 /* This page contains subroutines of read_type. */
1917 /* Read the description of a structure (or union type) and return an
1918 object describing the type. */
1920 static struct type
*
1921 coff_read_struct_type (int index
, int length
, int lastsym
,
1922 struct objfile
*objfile
)
1926 struct nextfield
*next
;
1931 struct nextfield
*list
= 0;
1932 struct nextfield
*new;
1936 struct coff_symbol member_sym
;
1937 struct coff_symbol
*ms
= &member_sym
;
1938 struct internal_syment sub_sym
;
1939 union internal_auxent sub_aux
;
1942 type
= coff_alloc_type (index
);
1943 TYPE_CODE (type
) = TYPE_CODE_STRUCT
;
1944 INIT_CPLUS_SPECIFIC (type
);
1945 TYPE_LENGTH (type
) = length
;
1947 while (!done
&& symnum
< lastsym
&& symnum
< nlist_nsyms_global
)
1949 read_one_sym (ms
, &sub_sym
, &sub_aux
);
1951 name
= EXTERNAL_NAME (name
, objfile
->obfd
);
1953 switch (ms
->c_sclass
)
1958 /* Get space to record the next field's data. */
1959 new = (struct nextfield
*) alloca (sizeof (struct nextfield
));
1963 /* Save the data. */
1965 obsavestring (name
, strlen (name
), &objfile
->objfile_obstack
);
1966 FIELD_TYPE (list
->field
) = decode_type (ms
, ms
->c_type
, &sub_aux
,
1968 SET_FIELD_BITPOS (list
->field
, 8 * ms
->c_value
);
1969 FIELD_BITSIZE (list
->field
) = 0;
1975 /* Get space to record the next field's data. */
1976 new = (struct nextfield
*) alloca (sizeof (struct nextfield
));
1980 /* Save the data. */
1982 obsavestring (name
, strlen (name
), &objfile
->objfile_obstack
);
1983 FIELD_TYPE (list
->field
) = decode_type (ms
, ms
->c_type
, &sub_aux
,
1985 SET_FIELD_BITPOS (list
->field
, ms
->c_value
);
1986 FIELD_BITSIZE (list
->field
) = sub_aux
.x_sym
.x_misc
.x_lnsz
.x_size
;
1995 /* Now create the vector of fields, and record how big it is. */
1997 TYPE_NFIELDS (type
) = nfields
;
1998 TYPE_FIELDS (type
) = (struct field
*)
1999 TYPE_ALLOC (type
, sizeof (struct field
) * nfields
);
2001 /* Copy the saved-up fields into the field vector. */
2003 for (n
= nfields
; list
; list
= list
->next
)
2004 TYPE_FIELD (type
, --n
) = list
->field
;
2009 /* Read a definition of an enumeration type,
2010 and create and return a suitable type object.
2011 Also defines the symbols that represent the values of the type. */
2013 static struct type
*
2014 coff_read_enum_type (int index
, int length
, int lastsym
,
2015 struct objfile
*objfile
)
2017 struct gdbarch
*gdbarch
= get_objfile_arch (objfile
);
2022 struct pending
**symlist
;
2023 struct coff_symbol member_sym
;
2024 struct coff_symbol
*ms
= &member_sym
;
2025 struct internal_syment sub_sym
;
2026 union internal_auxent sub_aux
;
2027 struct pending
*osyms
, *syms
;
2031 int unsigned_enum
= 1;
2033 type
= coff_alloc_type (index
);
2034 if (within_function
)
2035 symlist
= &local_symbols
;
2037 symlist
= &file_symbols
;
2039 o_nsyms
= osyms
? osyms
->nsyms
: 0;
2041 while (!done
&& symnum
< lastsym
&& symnum
< nlist_nsyms_global
)
2043 read_one_sym (ms
, &sub_sym
, &sub_aux
);
2045 name
= EXTERNAL_NAME (name
, objfile
->obfd
);
2047 switch (ms
->c_sclass
)
2050 sym
= (struct symbol
*) obstack_alloc
2051 (&objfile
->objfile_obstack
, sizeof (struct symbol
));
2052 memset (sym
, 0, sizeof (struct symbol
));
2054 SYMBOL_SET_LINKAGE_NAME (sym
,
2055 obsavestring (name
, strlen (name
),
2056 &objfile
->objfile_obstack
));
2057 SYMBOL_CLASS (sym
) = LOC_CONST
;
2058 SYMBOL_DOMAIN (sym
) = VAR_DOMAIN
;
2059 SYMBOL_VALUE (sym
) = ms
->c_value
;
2060 add_symbol_to_list (sym
, symlist
);
2065 /* Sometimes the linker (on 386/ix 2.0.2 at least) screws
2066 up the count of how many symbols to read. So stop
2073 /* Now fill in the fields of the type-structure. */
2076 TYPE_LENGTH (type
) = length
;
2077 else /* Assume ints. */
2078 TYPE_LENGTH (type
) = gdbarch_int_bit (gdbarch
) / TARGET_CHAR_BIT
;
2079 TYPE_CODE (type
) = TYPE_CODE_ENUM
;
2080 TYPE_NFIELDS (type
) = nsyms
;
2081 TYPE_FIELDS (type
) = (struct field
*)
2082 TYPE_ALLOC (type
, sizeof (struct field
) * nsyms
);
2084 /* Find the symbols for the values and put them into the type.
2085 The symbols can be found in the symlist that we put them on
2086 to cause them to be defined. osyms contains the old value
2087 of that symlist; everything up to there was defined by us. */
2088 /* Note that we preserve the order of the enum constants, so
2089 that in something like "enum {FOO, LAST_THING=FOO}" we print
2090 FOO, not LAST_THING. */
2092 for (syms
= *symlist
, n
= 0; syms
; syms
= syms
->next
)
2098 for (; j
< syms
->nsyms
; j
++, n
++)
2100 struct symbol
*xsym
= syms
->symbol
[j
];
2101 SYMBOL_TYPE (xsym
) = type
;
2102 TYPE_FIELD_NAME (type
, n
) = SYMBOL_LINKAGE_NAME (xsym
);
2103 SET_FIELD_BITPOS (TYPE_FIELD (type
, n
), SYMBOL_VALUE (xsym
));
2104 if (SYMBOL_VALUE (xsym
) < 0)
2106 TYPE_FIELD_BITSIZE (type
, n
) = 0;
2113 TYPE_UNSIGNED (type
) = 1;
2118 /* Register our ability to parse symbols for coff BFD files. */
2120 static struct sym_fns coff_sym_fns
=
2122 bfd_target_coff_flavour
,
2123 coff_new_init
, /* sym_new_init: init anything gbl to entire symtab */
2124 coff_symfile_init
, /* sym_init: read initial info, setup for sym_read() */
2125 coff_symfile_read
, /* sym_read: read a symbol file into symtab */
2126 coff_symfile_finish
, /* sym_finish: finished with file, cleanup */
2127 default_symfile_offsets
, /* sym_offsets: xlate external to internal form */
2128 default_symfile_segments
, /* sym_segments: Get segment information from
2130 NULL
, /* sym_read_linetable */
2131 default_symfile_relocate
, /* sym_relocate: Relocate a debug section. */
2133 NULL
/* next: pointer to next struct sym_fns */
2137 _initialize_coffread (void)
2139 add_symtab_fns (&coff_sym_fns
);