1 /* Read coff symbol tables and convert to internal format, for GDB.
2 Copyright 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996,
3 1997, 1998, 1999, 2000, 2001, 2002
4 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 2 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, write to the Free Software
21 Foundation, Inc., 59 Temple Place - Suite 330,
22 Boston, MA 02111-1307, USA. */
28 #include "breakpoint.h"
31 #include "gdb_obstack.h"
33 #include "gdb_string.h"
36 #include "coff/internal.h" /* Internal format of COFF symbols in BFD */
37 #include "libcoff.h" /* FIXME secret internal data from BFD */
42 #include "gdb-stabs.h"
43 #include "stabsread.h"
44 #include "complaints.h"
46 #include "gdb_assert.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 /* Complaints about various problems in the file being read */
127 struct complaint ef_complaint
=
128 {"Unmatched .ef symbol(s) ignored starting at symnum %d", 0, 0};
130 struct complaint ef_stack_complaint
=
131 {"`.ef' symbol without matching `.bf' symbol ignored starting at symnum %d", 0, 0};
133 struct complaint eb_stack_complaint
=
134 {"`.eb' symbol without matching `.bb' symbol ignored starting at symnum %d", 0, 0};
136 struct complaint bf_no_aux_complaint
=
137 {"`.bf' symbol %d has no aux entry", 0, 0};
139 struct complaint ef_no_aux_complaint
=
140 {"`.ef' symbol %d has no aux entry", 0, 0};
142 struct complaint lineno_complaint
=
143 {"Line number pointer %d lower than start of line numbers", 0, 0};
145 struct complaint unexpected_type_complaint
=
146 {"Unexpected type for symbol %s", 0, 0};
148 struct complaint bad_sclass_complaint
=
149 {"Bad n_sclass for symbol %s", 0, 0};
151 struct complaint misordered_blocks_complaint
=
152 {"Blocks out of order at address %x", 0, 0};
154 struct complaint tagndx_bad_complaint
=
155 {"Symbol table entry for %s has bad tagndx value", 0, 0};
157 struct complaint eb_complaint
=
158 {"Mismatched .eb symbol ignored starting at symnum %d", 0, 0};
160 /* Simplified internal version of coff symbol table information */
165 int c_symnum
; /* symbol number of this entry */
166 int c_naux
; /* 0 if syment only, 1 if syment + auxent, etc */
173 extern void stabsread_clear_cache (void);
175 static struct type
*coff_read_struct_type (int, int, int);
177 static struct type
*decode_base_type (struct coff_symbol
*,
178 unsigned int, union internal_auxent
*);
180 static struct type
*decode_type (struct coff_symbol
*, unsigned int,
181 union internal_auxent
*);
183 static struct type
*decode_function_type (struct coff_symbol
*,
185 union internal_auxent
*);
187 static struct type
*coff_read_enum_type (int, int, int);
189 static struct symbol
*process_coff_symbol (struct coff_symbol
*,
190 union internal_auxent
*,
193 static void patch_opaque_types (struct symtab
*);
195 static void enter_linenos (long, int, int, struct objfile
*);
197 static void free_linetab (void);
199 static void free_linetab_cleanup (void *ignore
);
201 static int init_lineno (bfd
*, long, int);
203 static char *getsymname (struct internal_syment
*);
205 static char *coff_getfilename (union internal_auxent
*);
207 static void free_stringtab (void);
209 static void free_stringtab_cleanup (void *ignore
);
211 static int init_stringtab (bfd
*, long);
213 static void read_one_sym (struct coff_symbol
*,
214 struct internal_syment
*, union internal_auxent
*);
216 static void coff_symtab_read (long, unsigned int, struct objfile
*);
218 /* We are called once per section from coff_symfile_read. We
219 need to examine each section we are passed, check to see
220 if it is something we are interested in processing, and
221 if so, stash away some access information for the section.
223 FIXME: The section names should not be hardwired strings (what
224 should they be? I don't think most object file formats have enough
225 section flags to specify what kind of debug section it is
229 coff_locate_sections (bfd
*abfd
, asection
*sectp
, void *csip
)
231 register struct coff_symfile_info
*csi
;
234 csi
= (struct coff_symfile_info
*) csip
;
235 name
= bfd_get_section_name (abfd
, sectp
);
236 if (STREQ (name
, ".text"))
238 csi
->textaddr
= bfd_section_vma (abfd
, sectp
);
239 csi
->textsize
+= bfd_section_size (abfd
, sectp
);
241 else if (strncmp (name
, ".text", sizeof ".text" - 1) == 0)
243 csi
->textsize
+= bfd_section_size (abfd
, sectp
);
245 else if (STREQ (name
, ".stabstr"))
247 csi
->stabstrsect
= sectp
;
249 else if (strncmp (name
, ".stab", sizeof ".stab" - 1) == 0)
253 /* We can have multiple .stab sections if linked with
255 for (s
= name
+ sizeof ".stab" - 1; *s
!= '\0'; s
++)
260 struct stab_section_list
*n
, **pn
;
262 n
= ((struct stab_section_list
*)
263 xmalloc (sizeof (struct stab_section_list
)));
266 for (pn
= &csi
->stabsects
; *pn
!= NULL
; pn
= &(*pn
)->next
)
270 /* This will be run after coffstab_build_psymtabs is called
271 in coff_symfile_read, at which point we no longer need
273 make_cleanup (xfree
, n
);
278 /* Return the section_offsets* that CS points to. */
279 static int cs_to_section (struct coff_symbol
*, struct objfile
*);
281 struct find_targ_sec_arg
288 find_targ_sec (bfd
*abfd
, asection
*sect
, void *obj
)
290 struct find_targ_sec_arg
*args
= (struct find_targ_sec_arg
*) obj
;
291 if (sect
->target_index
== args
->targ_index
)
292 *args
->resultp
= sect
;
295 /* Return the section number (SECT_OFF_*) that CS points to. */
297 cs_to_section (struct coff_symbol
*cs
, struct objfile
*objfile
)
299 asection
*sect
= NULL
;
300 struct find_targ_sec_arg args
;
301 int off
= SECT_OFF_TEXT (objfile
);
303 args
.targ_index
= cs
->c_secnum
;
304 args
.resultp
= §
;
305 bfd_map_over_sections (objfile
->obfd
, find_targ_sec
, &args
);
308 /* This is the section. Figure out what SECT_OFF_* code it is. */
309 if (bfd_get_section_flags (abfd
, sect
) & SEC_CODE
)
310 off
= SECT_OFF_TEXT (objfile
);
311 else if (bfd_get_section_flags (abfd
, sect
) & SEC_LOAD
)
312 off
= SECT_OFF_DATA (objfile
);
314 /* Just return the bfd section index. */
320 /* Return the address of the section of a COFF symbol. */
322 static CORE_ADDR
cs_section_address (struct coff_symbol
*, bfd
*);
325 cs_section_address (struct coff_symbol
*cs
, bfd
*abfd
)
327 asection
*sect
= NULL
;
328 struct find_targ_sec_arg args
;
331 args
.targ_index
= cs
->c_secnum
;
332 args
.resultp
= §
;
333 bfd_map_over_sections (abfd
, find_targ_sec
, &args
);
335 addr
= bfd_get_section_vma (objfile
->obfd
, sect
);
339 /* Look up a coff type-number index. Return the address of the slot
340 where the type for that index is stored.
341 The type-number is in INDEX.
343 This can be used for finding the type associated with that index
344 or for associating a new type with the index. */
346 static struct type
**
347 coff_lookup_type (register int index
)
349 if (index
>= type_vector_length
)
351 int old_vector_length
= type_vector_length
;
353 type_vector_length
*= 2;
354 if (index
/* is still */ >= type_vector_length
)
355 type_vector_length
= index
* 2;
357 type_vector
= (struct type
**)
358 xrealloc ((char *) type_vector
,
359 type_vector_length
* sizeof (struct type
*));
360 memset (&type_vector
[old_vector_length
], 0,
361 (type_vector_length
- old_vector_length
) * sizeof (struct type
*));
363 return &type_vector
[index
];
366 /* Make sure there is a type allocated for type number index
367 and return the type object.
368 This can create an empty (zeroed) type object. */
371 coff_alloc_type (int index
)
373 register struct type
**type_addr
= coff_lookup_type (index
);
374 register struct type
*type
= *type_addr
;
376 /* If we are referring to a type not known at all yet,
377 allocate an empty type for it.
378 We will fill it in later if we find out how. */
381 type
= alloc_type (current_objfile
);
387 /* Start a new symtab for a new source file.
388 This is called when a COFF ".file" symbol is seen;
389 it indicates the start of data for one original source file. */
392 coff_start_symtab (char *name
)
395 /* We fill in the filename later. start_symtab puts
396 this pointer into last_source_file and we put it in
397 subfiles->name, which end_symtab frees; that's why
398 it must be malloc'd. */
399 savestring (name
, strlen (name
)),
400 /* We never know the directory name for COFF. */
402 /* The start address is irrelevant, since we set
403 last_source_start_addr in coff_end_symtab. */
405 record_debugformat ("COFF");
408 /* Save the vital information from when starting to read a file,
409 for use when closing off the current file.
410 NAME is the file name the symbols came from, START_ADDR is the first
411 text address for the file, and SIZE is the number of bytes of text. */
414 complete_symtab (char *name
, CORE_ADDR start_addr
, unsigned int size
)
416 if (last_source_file
!= NULL
)
417 xfree (last_source_file
);
418 last_source_file
= savestring (name
, strlen (name
));
419 current_source_start_addr
= start_addr
;
420 current_source_end_addr
= start_addr
+ size
;
422 if (current_objfile
->ei
.entry_point
>= current_source_start_addr
&&
423 current_objfile
->ei
.entry_point
< current_source_end_addr
)
425 current_objfile
->ei
.entry_file_lowpc
= current_source_start_addr
;
426 current_objfile
->ei
.entry_file_highpc
= current_source_end_addr
;
430 /* Finish the symbol definitions for one main source file,
431 close off all the lexical contexts for that file
432 (creating struct block's for them), then make the
433 struct symtab for that file and put it in the list of all such. */
436 coff_end_symtab (struct objfile
*objfile
)
438 struct symtab
*symtab
;
440 last_source_start_addr
= current_source_start_addr
;
442 symtab
= end_symtab (current_source_end_addr
, objfile
, SECT_OFF_TEXT (objfile
));
445 free_named_symtabs (symtab
->filename
);
447 /* Reinitialize for beginning of new file. */
448 last_source_file
= NULL
;
452 record_minimal_symbol (char *name
, CORE_ADDR address
,
453 enum minimal_symbol_type type
, struct objfile
*objfile
)
455 /* We don't want TDESC entry points in the minimal symbol table */
459 prim_record_minimal_symbol (name
, address
, type
, objfile
);
462 /* coff_symfile_init ()
463 is the coff-specific initialization routine for reading symbols.
464 It is passed a struct objfile which contains, among other things,
465 the BFD for the file whose symbols are being read, and a slot for
466 a pointer to "private data" which we fill with cookies and other
467 treats for coff_symfile_read ().
469 We will only be called if this is a COFF or COFF-like file.
470 BFD handles figuring out the format of the file, and code in symtab.c
471 uses BFD's determination to vector to us.
473 The ultimate result is a new symtab (or, FIXME, eventually a psymtab). */
476 coff_symfile_init (struct objfile
*objfile
)
478 /* Allocate struct to keep track of stab reading. */
479 objfile
->sym_stab_info
= (struct dbx_symfile_info
*)
480 xmmalloc (objfile
->md
, sizeof (struct dbx_symfile_info
));
482 memset (objfile
->sym_stab_info
, 0,
483 sizeof (struct dbx_symfile_info
));
485 /* Allocate struct to keep track of the symfile */
486 objfile
->sym_private
= xmmalloc (objfile
->md
,
487 sizeof (struct coff_symfile_info
));
489 memset (objfile
->sym_private
, 0, sizeof (struct coff_symfile_info
));
491 /* COFF objects may be reordered, so set OBJF_REORDERED. If we
492 find this causes a significant slowdown in gdb then we could
493 set it in the debug symbol readers only when necessary. */
494 objfile
->flags
|= OBJF_REORDERED
;
496 init_entry_point_info (objfile
);
499 /* This function is called for every section; it finds the outer limits
500 of the line table (minimum and maximum file offset) so that the
501 mainline code can read the whole thing for efficiency. */
505 find_linenos (bfd
*abfd
, sec_ptr asect
, void *vpinfo
)
507 struct coff_symfile_info
*info
;
509 file_ptr offset
, maxoff
;
511 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
512 count
= asect
->lineno_count
;
517 size
= count
* local_linesz
;
519 info
= (struct coff_symfile_info
*) vpinfo
;
520 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
521 offset
= asect
->line_filepos
;
524 if (offset
< info
->min_lineno_offset
|| info
->min_lineno_offset
== 0)
525 info
->min_lineno_offset
= offset
;
527 maxoff
= offset
+ size
;
528 if (maxoff
> info
->max_lineno_offset
)
529 info
->max_lineno_offset
= maxoff
;
533 /* The BFD for this file -- only good while we're actively reading
534 symbols into a psymtab or a symtab. */
536 static bfd
*symfile_bfd
;
538 /* Read a symbol file, after initialization by coff_symfile_init. */
542 coff_symfile_read (struct objfile
*objfile
, int mainline
)
544 struct coff_symfile_info
*info
;
545 struct dbx_symfile_info
*dbxinfo
;
546 bfd
*abfd
= objfile
->obfd
;
547 coff_data_type
*cdata
= coff_data (abfd
);
548 char *name
= bfd_get_filename (abfd
);
550 unsigned int num_symbols
;
552 int stringtab_offset
;
553 struct cleanup
*back_to
;
558 info
= (struct coff_symfile_info
*) objfile
->sym_private
;
559 dbxinfo
= objfile
->sym_stab_info
;
560 symfile_bfd
= abfd
; /* Kludge for swap routines */
562 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
563 num_symbols
= bfd_get_symcount (abfd
); /* How many syms */
564 symtab_offset
= cdata
->sym_filepos
; /* Symbol table file offset */
565 stringtab_offset
= symtab_offset
+ /* String table file offset */
566 num_symbols
* cdata
->local_symesz
;
568 /* Set a few file-statics that give us specific information about
569 the particular COFF file format we're reading. */
570 local_n_btmask
= cdata
->local_n_btmask
;
571 local_n_btshft
= cdata
->local_n_btshft
;
572 local_n_tmask
= cdata
->local_n_tmask
;
573 local_n_tshift
= cdata
->local_n_tshift
;
574 local_linesz
= cdata
->local_linesz
;
575 local_symesz
= cdata
->local_symesz
;
576 local_auxesz
= cdata
->local_auxesz
;
578 /* Allocate space for raw symbol and aux entries, based on their
579 space requirements as reported by BFD. */
580 temp_sym
= (char *) xmalloc
581 (cdata
->local_symesz
+ cdata
->local_auxesz
);
582 temp_aux
= temp_sym
+ cdata
->local_symesz
;
583 back_to
= make_cleanup (free_current_contents
, &temp_sym
);
585 /* We need to know whether this is a PE file, because in PE files,
586 unlike standard COFF files, symbol values are stored as offsets
587 from the section address, rather than as absolute addresses.
588 FIXME: We should use BFD to read the symbol table, and thus avoid
591 strncmp (bfd_get_target (objfile
->obfd
), "pe", 2) == 0
592 || strncmp (bfd_get_target (objfile
->obfd
), "epoc-pe", 7) == 0;
596 info
->min_lineno_offset
= 0;
597 info
->max_lineno_offset
= 0;
599 /* Only read line number information if we have symbols.
601 On Windows NT, some of the system's DLL's have sections with
602 PointerToLinenumbers fields that are non-zero, but point at
603 random places within the image file. (In the case I found,
604 KERNEL32.DLL's .text section has a line number info pointer that
605 points into the middle of the string `lib\\i386\kernel32.dll'.)
607 However, these DLL's also have no symbols. The line number
608 tables are meaningless without symbols. And in fact, GDB never
609 uses the line number information unless there are symbols. So we
610 can avoid spurious error messages (and maybe run a little
611 faster!) by not even reading the line number table unless we have
615 /* Read the line number table, all at once. */
616 bfd_map_over_sections (abfd
, find_linenos
, (void *) info
);
618 make_cleanup (free_linetab_cleanup
, 0 /*ignore*/);
619 val
= init_lineno (abfd
, info
->min_lineno_offset
,
620 info
->max_lineno_offset
- info
->min_lineno_offset
);
622 error ("\"%s\": error reading line numbers\n", name
);
625 /* Now read the string table, all at once. */
627 make_cleanup (free_stringtab_cleanup
, 0 /*ignore*/);
628 val
= init_stringtab (abfd
, stringtab_offset
);
630 error ("\"%s\": can't get string table", name
);
632 init_minimal_symbol_collection ();
633 make_cleanup_discard_minimal_symbols ();
635 /* Now that the executable file is positioned at symbol table,
636 process it and define symbols accordingly. */
638 coff_symtab_read ((long) symtab_offset
, num_symbols
, objfile
);
640 /* Sort symbols alphabetically within each block. */
645 for (s
= objfile
->symtabs
; s
!= NULL
; s
= s
->next
)
646 sort_symtab_syms (s
);
649 /* Install any minimal symbols that have been collected as the current
650 minimal symbols for this objfile. */
652 install_minimal_symbols (objfile
);
654 bfd_map_over_sections (abfd
, coff_locate_sections
, (void *) info
);
658 if (!info
->stabstrsect
)
660 error (("The debugging information in `%s' is corrupted.\n"
661 "The file has a `.stabs' section, but no `.stabstr' "
666 /* FIXME: dubious. Why can't we use something normal like
667 bfd_get_section_contents? */
668 bfd_seek (abfd
, abfd
->where
, 0);
670 stabstrsize
= bfd_section_size (abfd
, info
->stabstrsect
);
672 coffstab_build_psymtabs (objfile
,
674 info
->textaddr
, info
->textsize
,
676 info
->stabstrsect
->filepos
, stabstrsize
);
678 if (dwarf2_has_info (abfd
))
680 /* DWARF2 sections. */
681 dwarf2_build_psymtabs (objfile
, mainline
);
684 do_cleanups (back_to
);
688 coff_new_init (struct objfile
*ignore
)
692 /* Perform any local cleanups required when we are done with a particular
693 objfile. I.E, we are in the process of discarding all symbol information
694 for an objfile, freeing up all memory held for it, and unlinking the
695 objfile struct from the global list of known objfiles. */
698 coff_symfile_finish (struct objfile
*objfile
)
700 if (objfile
->sym_private
!= NULL
)
702 xmfree (objfile
->md
, objfile
->sym_private
);
705 /* Let stabs reader clean up */
706 stabsread_clear_cache ();
710 /* Given pointers to a symbol table in coff style exec file,
711 analyze them and create struct symtab's describing the symbols.
712 NSYMS is the number of symbols in the symbol table.
713 We read them one at a time using read_one_sym (). */
716 coff_symtab_read (long symtab_offset
, unsigned int nsyms
,
717 struct objfile
*objfile
)
719 register struct context_stack
*new;
720 struct coff_symbol coff_symbol
;
721 register struct coff_symbol
*cs
= &coff_symbol
;
722 static struct internal_syment main_sym
;
723 static union internal_auxent main_aux
;
724 struct coff_symbol fcn_cs_saved
;
725 static struct internal_syment fcn_sym_saved
;
726 static union internal_auxent fcn_aux_saved
;
728 /* A .file is open. */
729 int in_source_file
= 0;
730 int next_file_symnum
= -1;
731 /* Name of the current file. */
732 char *filestring
= "";
734 int fcn_first_line
= 0;
735 CORE_ADDR fcn_first_line_addr
= 0;
736 int fcn_last_line
= 0;
737 int fcn_start_addr
= 0;
738 long fcn_line_ptr
= 0;
742 /* Work around a stdio bug in SunOS4.1.1 (this makes me nervous....
743 it's hard to know I've really worked around it. The fix should be
744 harmless, anyway). The symptom of the bug is that the first
745 fread (in read_one_sym), will (in my example) actually get data
746 from file offset 268, when the fseek was to 264 (and ftell shows
747 264). This causes all hell to break loose. I was unable to
748 reproduce this on a short test program which operated on the same
749 file, performing (I think) the same sequence of operations.
751 It stopped happening when I put in this (former) rewind().
753 FIXME: Find out if this has been reported to Sun, whether it has
754 been fixed in a later release, etc. */
756 bfd_seek (objfile
->obfd
, 0, 0);
758 /* Position to read the symbol table. */
759 val
= bfd_seek (objfile
->obfd
, (long) symtab_offset
, 0);
761 perror_with_name (objfile
->name
);
763 current_objfile
= objfile
;
764 nlist_bfd_global
= objfile
->obfd
;
765 nlist_nsyms_global
= nsyms
;
766 last_source_file
= NULL
;
767 memset (opaque_type_chain
, 0, sizeof opaque_type_chain
);
769 if (type_vector
) /* Get rid of previous one */
771 type_vector_length
= 160;
772 type_vector
= (struct type
**)
773 xmalloc (type_vector_length
* sizeof (struct type
*));
774 memset (type_vector
, 0, type_vector_length
* sizeof (struct type
*));
776 coff_start_symtab ("");
779 while (symnum
< nsyms
)
781 QUIT
; /* Make this command interruptable. */
783 read_one_sym (cs
, &main_sym
, &main_aux
);
785 if (cs
->c_symnum
== next_file_symnum
&& cs
->c_sclass
!= C_FILE
)
787 if (last_source_file
)
788 coff_end_symtab (objfile
);
790 coff_start_symtab ("_globals_");
791 complete_symtab ("_globals_", 0, 0);
792 /* done with all files, everything from here on out is globals */
795 /* Special case for file with type declarations only, no text. */
796 if (!last_source_file
&& SDB_TYPE (cs
->c_type
)
797 && cs
->c_secnum
== N_DEBUG
)
798 complete_symtab (filestring
, 0, 0);
800 /* Typedefs should not be treated as symbol definitions. */
801 if (ISFCN (cs
->c_type
) && cs
->c_sclass
!= C_TPDEF
)
803 /* Record all functions -- external and static -- in minsyms. */
804 tmpaddr
= cs
->c_value
+ ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
805 record_minimal_symbol (cs
->c_name
, tmpaddr
, mst_text
, objfile
);
807 fcn_line_ptr
= main_aux
.x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
;
808 fcn_start_addr
= tmpaddr
;
810 fcn_sym_saved
= main_sym
;
811 fcn_aux_saved
= main_aux
;
815 switch (cs
->c_sclass
)
824 complain (&bad_sclass_complaint
, cs
->c_name
);
828 /* c_value field contains symnum of next .file entry in table
829 or symnum of first global after last .file. */
830 next_file_symnum
= cs
->c_value
;
832 filestring
= coff_getfilename (&main_aux
);
836 /* Complete symbol table for last object file
837 containing debugging information. */
838 if (last_source_file
)
840 coff_end_symtab (objfile
);
841 coff_start_symtab (filestring
);
846 /* C_LABEL is used for labels and static functions. Including
847 it here allows gdb to see static functions when no debug
848 info is available. */
850 /* However, labels within a function can make weird backtraces,
851 so filter them out (from phdm@macqel.be). */
857 case C_THUMBSTATFUNC
:
858 if (cs
->c_name
[0] == '.')
860 if (STREQ (cs
->c_name
, ".text"))
862 /* FIXME: don't wire in ".text" as section name
864 /* Check for in_source_file deals with case of
865 a file with debugging symbols
866 followed by a later file with no symbols. */
868 complete_symtab (filestring
,
869 cs
->c_value
+ ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
)),
870 main_aux
.x_scn
.x_scnlen
);
873 /* flush rest of '.' symbols */
876 else if (!SDB_TYPE (cs
->c_type
)
877 && cs
->c_name
[0] == 'L'
878 && (strncmp (cs
->c_name
, "LI%", 3) == 0
879 || strncmp (cs
->c_name
, "LF%", 3) == 0
880 || strncmp (cs
->c_name
, "LC%", 3) == 0
881 || strncmp (cs
->c_name
, "LP%", 3) == 0
882 || strncmp (cs
->c_name
, "LPB%", 4) == 0
883 || strncmp (cs
->c_name
, "LBB%", 4) == 0
884 || strncmp (cs
->c_name
, "LBE%", 4) == 0
885 || strncmp (cs
->c_name
, "LPBX%", 5) == 0))
886 /* At least on a 3b1, gcc generates swbeg and string labels
887 that look like this. Ignore them. */
889 /* fall in for static symbols that don't start with '.' */
894 /* Record it in the minimal symbols regardless of
895 SDB_TYPE. This parallels what we do for other debug
896 formats, and probably is needed to make
897 print_address_symbolic work right without the (now
898 gone) "set fast-symbolic-addr off" kludge. */
900 /* FIXME: should use mst_abs, and not relocate, if absolute. */
901 enum minimal_symbol_type ms_type
;
904 if (cs
->c_secnum
== N_UNDEF
)
906 /* This is a common symbol. See if the target
907 environment knows where it has been relocated to. */
909 if (target_lookup_symbol (cs
->c_name
, &reladdr
))
911 /* Error in lookup; ignore symbol. */
915 /* The address has already been relocated; make sure that
916 objfile_relocate doesn't relocate it again. */
918 ms_type
= cs
->c_sclass
== C_EXT
919 || cs
->c_sclass
== C_THUMBEXT
?
920 mst_bss
: mst_file_bss
;
924 sec
= cs_to_section (cs
, objfile
);
925 tmpaddr
= cs
->c_value
;
926 if (cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXTFUNC
927 || cs
->c_sclass
== C_THUMBEXT
)
928 tmpaddr
+= ANOFFSET (objfile
->section_offsets
, sec
);
930 if (sec
== SECT_OFF_TEXT (objfile
))
933 cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXTFUNC
934 || cs
->c_sclass
== C_THUMBEXT
?
935 mst_text
: mst_file_text
;
936 tmpaddr
= SMASH_TEXT_ADDRESS (tmpaddr
);
938 else if (sec
== SECT_OFF_DATA (objfile
))
941 cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXT
?
942 mst_data
: mst_file_data
;
944 else if (sec
== SECT_OFF_BSS (objfile
))
947 cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXT
?
948 mst_data
: mst_file_data
;
951 ms_type
= mst_unknown
;
954 if (cs
->c_name
[0] != '@' /* Skip tdesc symbols */ )
956 struct minimal_symbol
*msym
;
958 /* FIXME: cagney/2001-02-01: The nasty (int) -> (long)
959 -> (void*) cast is to ensure that that the value of
960 cs->c_sclass can be correctly stored in a void
961 pointer in MSYMBOL_INFO. Better solutions
963 gdb_assert (sizeof (void *) >= sizeof (cs
->c_sclass
));
964 msym
= prim_record_minimal_symbol_and_info
965 (cs
->c_name
, tmpaddr
, ms_type
, (void *) (long) cs
->c_sclass
,
968 COFF_MAKE_MSYMBOL_SPECIAL (cs
->c_sclass
, msym
);
970 if (SDB_TYPE (cs
->c_type
))
973 sym
= process_coff_symbol
974 (cs
, &main_aux
, objfile
);
975 SYMBOL_VALUE (sym
) = tmpaddr
;
976 SYMBOL_SECTION (sym
) = sec
;
982 if (STREQ (cs
->c_name
, ".bf"))
986 /* value contains address of first non-init type code */
987 /* main_aux.x_sym.x_misc.x_lnsz.x_lnno
988 contains line number of '{' } */
990 complain (&bf_no_aux_complaint
, cs
->c_symnum
);
991 fcn_first_line
= main_aux
.x_sym
.x_misc
.x_lnsz
.x_lnno
;
992 fcn_first_line_addr
= cs
->c_value
;
994 /* Might want to check that locals are 0 and
995 context_stack_depth is zero, and complain if not. */
998 new = push_context (depth
, fcn_start_addr
);
999 fcn_cs_saved
.c_name
= getsymname (&fcn_sym_saved
);
1001 process_coff_symbol (&fcn_cs_saved
, &fcn_aux_saved
, objfile
);
1003 else if (STREQ (cs
->c_name
, ".ef"))
1005 if (!within_function
)
1006 error ("Bad coff function information\n");
1007 /* the value of .ef is the address of epilogue code;
1008 not useful for gdb. */
1009 /* { main_aux.x_sym.x_misc.x_lnsz.x_lnno
1010 contains number of lines to '}' */
1012 if (context_stack_depth
<= 0)
1013 { /* We attempted to pop an empty context stack */
1014 complain (&ef_stack_complaint
, cs
->c_symnum
);
1015 within_function
= 0;
1019 new = pop_context ();
1020 /* Stack must be empty now. */
1021 if (context_stack_depth
> 0 || new == NULL
)
1023 complain (&ef_complaint
, cs
->c_symnum
);
1024 within_function
= 0;
1027 if (cs
->c_naux
!= 1)
1029 complain (&ef_no_aux_complaint
, cs
->c_symnum
);
1030 fcn_last_line
= 0x7FFFFFFF;
1034 fcn_last_line
= main_aux
.x_sym
.x_misc
.x_lnsz
.x_lnno
;
1036 /* fcn_first_line is the line number of the opening '{'.
1037 Do not record it - because it would affect gdb's idea
1038 of the line number of the first statement of the function -
1039 except for one-line functions, for which it is also the line
1040 number of all the statements and of the closing '}', and
1041 for which we do not have any other statement-line-number. */
1042 if (fcn_last_line
== 1)
1043 record_line (current_subfile
, fcn_first_line
,
1044 fcn_first_line_addr
);
1046 enter_linenos (fcn_line_ptr
, fcn_first_line
, fcn_last_line
,
1049 finish_block (new->name
, &local_symbols
, new->old_blocks
,
1051 #if defined (FUNCTION_EPILOGUE_SIZE)
1052 /* This macro should be defined only on
1054 fcn_aux_saved.x_sym.x_misc.x_fsize
1055 field is always zero.
1056 So use the .bf record information that
1057 points to the epilogue and add the size
1060 + FUNCTION_EPILOGUE_SIZE
1061 + ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
)),
1063 fcn_cs_saved
.c_value
1064 + fcn_aux_saved
.x_sym
.x_misc
.x_fsize
1065 + ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
)),
1069 within_function
= 0;
1074 if (STREQ (cs
->c_name
, ".bb"))
1076 tmpaddr
= cs
->c_value
;
1077 tmpaddr
+= ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
1078 push_context (++depth
, tmpaddr
);
1080 else if (STREQ (cs
->c_name
, ".eb"))
1082 if (context_stack_depth
<= 0)
1083 { /* We attempted to pop an empty context stack */
1084 complain (&eb_stack_complaint
, cs
->c_symnum
);
1088 new = pop_context ();
1089 if (depth
-- != new->depth
)
1091 complain (&eb_complaint
, symnum
);
1094 if (local_symbols
&& context_stack_depth
> 0)
1097 cs
->c_value
+ ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
1098 /* Make a block for the local symbols within. */
1099 finish_block (0, &local_symbols
, new->old_blocks
,
1100 new->start_addr
, tmpaddr
, objfile
);
1102 /* Now pop locals of block just finished. */
1103 local_symbols
= new->locals
;
1108 process_coff_symbol (cs
, &main_aux
, objfile
);
1113 if (last_source_file
)
1114 coff_end_symtab (objfile
);
1116 /* Patch up any opaque types (references to types that are not defined
1117 in the file where they are referenced, e.g. "struct foo *bar"). */
1118 ALL_OBJFILE_SYMTABS (objfile
, s
)
1119 patch_opaque_types (s
);
1121 current_objfile
= NULL
;
1124 /* Routines for reading headers and symbols from executable. */
1126 /* Read the next symbol, swap it, and return it in both internal_syment
1127 form, and coff_symbol form. Also return its first auxent, if any,
1128 in internal_auxent form, and skip any other auxents. */
1131 read_one_sym (register struct coff_symbol
*cs
,
1132 register struct internal_syment
*sym
,
1133 register union internal_auxent
*aux
)
1137 cs
->c_symnum
= symnum
;
1138 bfd_bread (temp_sym
, local_symesz
, nlist_bfd_global
);
1139 bfd_coff_swap_sym_in (symfile_bfd
, temp_sym
, (char *) sym
);
1140 cs
->c_naux
= sym
->n_numaux
& 0xff;
1141 if (cs
->c_naux
>= 1)
1143 bfd_bread (temp_aux
, local_auxesz
, nlist_bfd_global
);
1144 bfd_coff_swap_aux_in (symfile_bfd
, temp_aux
, sym
->n_type
, sym
->n_sclass
,
1145 0, cs
->c_naux
, (char *) aux
);
1146 /* If more than one aux entry, read past it (only the first aux
1148 for (i
= 1; i
< cs
->c_naux
; i
++)
1149 bfd_bread (temp_aux
, local_auxesz
, nlist_bfd_global
);
1151 cs
->c_name
= getsymname (sym
);
1152 cs
->c_value
= sym
->n_value
;
1153 cs
->c_sclass
= (sym
->n_sclass
& 0xff);
1154 cs
->c_secnum
= sym
->n_scnum
;
1155 cs
->c_type
= (unsigned) sym
->n_type
;
1156 if (!SDB_TYPE (cs
->c_type
))
1160 if (cs
->c_sclass
& 128)
1161 printf ("thumb symbol %s, class 0x%x\n", cs
->c_name
, cs
->c_sclass
);
1164 symnum
+= 1 + cs
->c_naux
;
1166 /* The PE file format stores symbol values as offsets within the
1167 section, rather than as absolute addresses. We correct that
1168 here, if the symbol has an appropriate storage class. FIXME: We
1169 should use BFD to read the symbols, rather than duplicating the
1173 switch (cs
->c_sclass
)
1177 case C_THUMBEXTFUNC
:
1182 case C_THUMBSTATFUNC
:
1188 if (cs
->c_secnum
!= 0)
1189 cs
->c_value
+= cs_section_address (cs
, symfile_bfd
);
1195 /* Support for string table handling */
1197 static char *stringtab
= NULL
;
1200 init_stringtab (bfd
*abfd
, long offset
)
1204 unsigned char lengthbuf
[4];
1208 /* If the file is stripped, the offset might be zero, indicating no
1209 string table. Just return with `stringtab' set to null. */
1213 if (bfd_seek (abfd
, offset
, 0) < 0)
1216 val
= bfd_bread ((char *) lengthbuf
, sizeof lengthbuf
, abfd
);
1217 length
= bfd_h_get_32 (symfile_bfd
, lengthbuf
);
1219 /* If no string table is needed, then the file may end immediately
1220 after the symbols. Just return with `stringtab' set to null. */
1221 if (val
!= sizeof lengthbuf
|| length
< sizeof lengthbuf
)
1224 stringtab
= (char *) xmalloc (length
);
1225 /* This is in target format (probably not very useful, and not currently
1226 used), not host format. */
1227 memcpy (stringtab
, lengthbuf
, sizeof lengthbuf
);
1228 if (length
== sizeof length
) /* Empty table -- just the count */
1231 val
= bfd_bread (stringtab
+ sizeof lengthbuf
, length
- sizeof lengthbuf
,
1233 if (val
!= length
- sizeof lengthbuf
|| stringtab
[length
- 1] != '\0')
1240 free_stringtab (void)
1248 free_stringtab_cleanup (void *ignore
)
1254 getsymname (struct internal_syment
*symbol_entry
)
1256 static char buffer
[SYMNMLEN
+ 1];
1259 if (symbol_entry
->_n
._n_n
._n_zeroes
== 0)
1261 /* FIXME: Probably should be detecting corrupt symbol files by
1262 seeing whether offset points to within the stringtab. */
1263 result
= stringtab
+ symbol_entry
->_n
._n_n
._n_offset
;
1267 strncpy (buffer
, symbol_entry
->_n
._n_name
, SYMNMLEN
);
1268 buffer
[SYMNMLEN
] = '\0';
1274 /* Extract the file name from the aux entry of a C_FILE symbol. Return
1275 only the last component of the name. Result is in static storage and
1276 is only good for temporary use. */
1279 coff_getfilename (union internal_auxent
*aux_entry
)
1281 static char buffer
[BUFSIZ
];
1282 register char *temp
;
1285 if (aux_entry
->x_file
.x_n
.x_zeroes
== 0)
1286 strcpy (buffer
, stringtab
+ aux_entry
->x_file
.x_n
.x_offset
);
1289 strncpy (buffer
, aux_entry
->x_file
.x_fname
, FILNMLEN
);
1290 buffer
[FILNMLEN
] = '\0';
1294 /* FIXME: We should not be throwing away the information about what
1295 directory. It should go into dirname of the symtab, or some such
1297 if ((temp
= strrchr (result
, '/')) != NULL
)
1302 /* Support for line number handling. */
1304 static char *linetab
= NULL
;
1305 static long linetab_offset
;
1306 static unsigned long linetab_size
;
1308 /* Read in all the line numbers for fast lookups later. Leave them in
1309 external (unswapped) format in memory; we'll swap them as we enter
1310 them into GDB's data structures. */
1313 init_lineno (bfd
*abfd
, long offset
, int size
)
1317 linetab_offset
= offset
;
1318 linetab_size
= size
;
1325 if (bfd_seek (abfd
, offset
, 0) < 0)
1328 /* Allocate the desired table, plus a sentinel */
1329 linetab
= (char *) xmalloc (size
+ local_linesz
);
1331 val
= bfd_bread (linetab
, size
, abfd
);
1335 /* Terminate it with an all-zero sentinel record */
1336 memset (linetab
+ size
, 0, local_linesz
);
1350 free_linetab_cleanup (void *ignore
)
1355 #if !defined (L_LNNO32)
1356 #define L_LNNO32(lp) ((lp)->l_lnno)
1360 enter_linenos (long file_offset
, register int first_line
,
1361 register int last_line
, struct objfile
*objfile
)
1363 register char *rawptr
;
1364 struct internal_lineno lptr
;
1368 if (file_offset
< linetab_offset
)
1370 complain (&lineno_complaint
, file_offset
);
1371 if (file_offset
> linetab_size
) /* Too big to be an offset? */
1373 file_offset
+= linetab_offset
; /* Try reading at that linetab offset */
1376 rawptr
= &linetab
[file_offset
- linetab_offset
];
1378 /* skip first line entry for each function */
1379 rawptr
+= local_linesz
;
1380 /* line numbers start at one for the first line of the function */
1385 bfd_coff_swap_lineno_in (symfile_bfd
, rawptr
, &lptr
);
1386 rawptr
+= local_linesz
;
1387 /* The next function, or the sentinel, will have L_LNNO32 zero; we exit. */
1388 if (L_LNNO32 (&lptr
) && L_LNNO32 (&lptr
) <= last_line
)
1389 record_line (current_subfile
, first_line
+ L_LNNO32 (&lptr
),
1391 + ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
)));
1398 patch_type (struct type
*type
, struct type
*real_type
)
1400 register struct type
*target
= TYPE_TARGET_TYPE (type
);
1401 register struct type
*real_target
= TYPE_TARGET_TYPE (real_type
);
1402 int field_size
= TYPE_NFIELDS (real_target
) * sizeof (struct field
);
1404 TYPE_LENGTH (target
) = TYPE_LENGTH (real_target
);
1405 TYPE_NFIELDS (target
) = TYPE_NFIELDS (real_target
);
1406 TYPE_FIELDS (target
) = (struct field
*) TYPE_ALLOC (target
, field_size
);
1408 memcpy (TYPE_FIELDS (target
), TYPE_FIELDS (real_target
), field_size
);
1410 if (TYPE_NAME (real_target
))
1412 if (TYPE_NAME (target
))
1413 xfree (TYPE_NAME (target
));
1414 TYPE_NAME (target
) = concat (TYPE_NAME (real_target
), NULL
);
1418 /* Patch up all appropriate typedef symbols in the opaque_type_chains
1419 so that they can be used to print out opaque data structures properly. */
1422 patch_opaque_types (struct symtab
*s
)
1424 register struct block
*b
;
1426 register struct symbol
*real_sym
;
1428 /* Go through the per-file symbols only */
1429 b
= BLOCKVECTOR_BLOCK (BLOCKVECTOR (s
), STATIC_BLOCK
);
1430 ALL_BLOCK_SYMBOLS (b
, i
, real_sym
)
1432 /* Find completed typedefs to use to fix opaque ones.
1433 Remove syms from the chain when their types are stored,
1434 but search the whole chain, as there may be several syms
1435 from different files with the same name. */
1436 if (SYMBOL_CLASS (real_sym
) == LOC_TYPEDEF
&&
1437 SYMBOL_NAMESPACE (real_sym
) == VAR_NAMESPACE
&&
1438 TYPE_CODE (SYMBOL_TYPE (real_sym
)) == TYPE_CODE_PTR
&&
1439 TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (real_sym
))) != 0)
1441 register char *name
= SYMBOL_NAME (real_sym
);
1442 register int hash
= hashname (name
);
1443 register struct symbol
*sym
, *prev
;
1446 for (sym
= opaque_type_chain
[hash
]; sym
;)
1448 if (name
[0] == SYMBOL_NAME (sym
)[0] &&
1449 STREQ (name
+ 1, SYMBOL_NAME (sym
) + 1))
1453 SYMBOL_VALUE_CHAIN (prev
) = SYMBOL_VALUE_CHAIN (sym
);
1457 opaque_type_chain
[hash
] = SYMBOL_VALUE_CHAIN (sym
);
1460 patch_type (SYMBOL_TYPE (sym
), SYMBOL_TYPE (real_sym
));
1464 sym
= SYMBOL_VALUE_CHAIN (prev
);
1468 sym
= opaque_type_chain
[hash
];
1474 sym
= SYMBOL_VALUE_CHAIN (sym
);
1481 static struct symbol
*
1482 process_coff_symbol (register struct coff_symbol
*cs
,
1483 register union internal_auxent
*aux
,
1484 struct objfile
*objfile
)
1486 register struct symbol
*sym
1487 = (struct symbol
*) obstack_alloc (&objfile
->symbol_obstack
,
1488 sizeof (struct symbol
));
1491 memset (sym
, 0, sizeof (struct symbol
));
1493 name
= EXTERNAL_NAME (name
, objfile
->obfd
);
1494 SYMBOL_NAME (sym
) = obsavestring (name
, strlen (name
),
1495 &objfile
->symbol_obstack
);
1496 SYMBOL_LANGUAGE (sym
) = language_auto
;
1497 SYMBOL_INIT_DEMANGLED_NAME (sym
, &objfile
->symbol_obstack
);
1499 /* default assumptions */
1500 SYMBOL_VALUE (sym
) = cs
->c_value
;
1501 SYMBOL_NAMESPACE (sym
) = VAR_NAMESPACE
;
1502 SYMBOL_SECTION (sym
) = cs_to_section (cs
, objfile
);
1504 if (ISFCN (cs
->c_type
))
1506 SYMBOL_VALUE (sym
) += ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
1508 lookup_function_type (decode_function_type (cs
, cs
->c_type
, aux
));
1510 SYMBOL_CLASS (sym
) = LOC_BLOCK
;
1511 if (cs
->c_sclass
== C_STAT
|| cs
->c_sclass
== C_THUMBSTAT
1512 || cs
->c_sclass
== C_THUMBSTATFUNC
)
1513 add_symbol_to_list (sym
, &file_symbols
);
1514 else if (cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXT
1515 || cs
->c_sclass
== C_THUMBEXTFUNC
)
1516 add_symbol_to_list (sym
, &global_symbols
);
1520 SYMBOL_TYPE (sym
) = decode_type (cs
, cs
->c_type
, aux
);
1521 switch (cs
->c_sclass
)
1527 SYMBOL_CLASS (sym
) = LOC_LOCAL
;
1528 add_symbol_to_list (sym
, &local_symbols
);
1532 case C_THUMBEXTFUNC
:
1534 SYMBOL_CLASS (sym
) = LOC_STATIC
;
1535 SYMBOL_VALUE_ADDRESS (sym
) = (CORE_ADDR
) cs
->c_value
;
1536 SYMBOL_VALUE_ADDRESS (sym
) += ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
1537 add_symbol_to_list (sym
, &global_symbols
);
1541 case C_THUMBSTATFUNC
:
1543 SYMBOL_CLASS (sym
) = LOC_STATIC
;
1544 SYMBOL_VALUE_ADDRESS (sym
) = (CORE_ADDR
) cs
->c_value
;
1545 SYMBOL_VALUE_ADDRESS (sym
) += ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
1546 if (within_function
)
1548 /* Static symbol of local scope */
1549 add_symbol_to_list (sym
, &local_symbols
);
1553 /* Static symbol at top level of file */
1554 add_symbol_to_list (sym
, &file_symbols
);
1558 #ifdef C_GLBLREG /* AMD coff */
1562 SYMBOL_CLASS (sym
) = LOC_REGISTER
;
1563 SYMBOL_VALUE (sym
) = SDB_REG_TO_REGNUM (cs
->c_value
);
1564 add_symbol_to_list (sym
, &local_symbols
);
1572 SYMBOL_CLASS (sym
) = LOC_ARG
;
1573 add_symbol_to_list (sym
, &local_symbols
);
1574 #if !defined (BELIEVE_PCC_PROMOTION)
1575 if (TARGET_BYTE_ORDER
== BFD_ENDIAN_BIG
)
1577 /* If PCC says a parameter is a short or a char,
1578 aligned on an int boundary, realign it to the
1579 "little end" of the int. */
1580 struct type
*temptype
;
1581 temptype
= lookup_fundamental_type (current_objfile
,
1583 if (TYPE_LENGTH (SYMBOL_TYPE (sym
)) < TYPE_LENGTH (temptype
)
1584 && TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_INT
1585 && 0 == SYMBOL_VALUE (sym
) % TYPE_LENGTH (temptype
))
1587 SYMBOL_VALUE (sym
) +=
1588 TYPE_LENGTH (temptype
)
1589 - TYPE_LENGTH (SYMBOL_TYPE (sym
));
1596 SYMBOL_CLASS (sym
) = LOC_REGPARM
;
1597 SYMBOL_VALUE (sym
) = SDB_REG_TO_REGNUM (cs
->c_value
);
1598 add_symbol_to_list (sym
, &local_symbols
);
1599 #if !defined (BELIEVE_PCC_PROMOTION)
1600 /* FIXME: This should retain the current type, since it's just
1601 a register value. gnu@adobe, 26Feb93 */
1603 /* If PCC says a parameter is a short or a char,
1604 it is really an int. */
1605 struct type
*temptype
;
1607 lookup_fundamental_type (current_objfile
, FT_INTEGER
);
1608 if (TYPE_LENGTH (SYMBOL_TYPE (sym
)) < TYPE_LENGTH (temptype
)
1609 && TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_INT
)
1612 (TYPE_UNSIGNED (SYMBOL_TYPE (sym
))
1613 ? lookup_fundamental_type (current_objfile
,
1614 FT_UNSIGNED_INTEGER
)
1622 SYMBOL_CLASS (sym
) = LOC_TYPEDEF
;
1623 SYMBOL_NAMESPACE (sym
) = VAR_NAMESPACE
;
1625 /* If type has no name, give it one */
1626 if (TYPE_NAME (SYMBOL_TYPE (sym
)) == 0)
1628 if (TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_PTR
1629 || TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_FUNC
)
1631 /* If we are giving a name to a type such as "pointer to
1632 foo" or "function returning foo", we better not set
1633 the TYPE_NAME. If the program contains "typedef char
1634 *caddr_t;", we don't want all variables of type char
1635 * to print as caddr_t. This is not just a
1636 consequence of GDB's type management; CC and GCC (at
1637 least through version 2.4) both output variables of
1638 either type char * or caddr_t with the type
1639 refering to the C_TPDEF symbol for caddr_t. If a future
1640 compiler cleans this up it GDB is not ready for it
1641 yet, but if it becomes ready we somehow need to
1642 disable this check (without breaking the PCC/GCC2.4
1647 Fortunately, this check seems not to be necessary
1648 for anything except pointers or functions. */
1652 TYPE_NAME (SYMBOL_TYPE (sym
)) =
1653 concat (SYMBOL_NAME (sym
), NULL
);
1656 /* Ignore vendor section for Harris CX/UX targets. */
1657 else if (cs
->c_name
[0] == '$')
1659 #endif /* CXUX_TARGET */
1661 /* Keep track of any type which points to empty structured type,
1662 so it can be filled from a definition from another file. A
1663 simple forward reference (TYPE_CODE_UNDEF) is not an
1664 empty structured type, though; the forward references
1665 work themselves out via the magic of coff_lookup_type. */
1666 if (TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_PTR
&&
1667 TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym
))) == 0 &&
1668 TYPE_CODE (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym
))) !=
1671 register int i
= hashname (SYMBOL_NAME (sym
));
1673 SYMBOL_VALUE_CHAIN (sym
) = opaque_type_chain
[i
];
1674 opaque_type_chain
[i
] = sym
;
1676 add_symbol_to_list (sym
, &file_symbols
);
1682 SYMBOL_CLASS (sym
) = LOC_TYPEDEF
;
1683 SYMBOL_NAMESPACE (sym
) = STRUCT_NAMESPACE
;
1685 /* Some compilers try to be helpful by inventing "fake"
1686 names for anonymous enums, structures, and unions, like
1687 "~0fake" or ".0fake". Thanks, but no thanks... */
1688 if (TYPE_TAG_NAME (SYMBOL_TYPE (sym
)) == 0)
1689 if (SYMBOL_NAME (sym
) != NULL
1690 && *SYMBOL_NAME (sym
) != '~'
1691 && *SYMBOL_NAME (sym
) != '.')
1692 TYPE_TAG_NAME (SYMBOL_TYPE (sym
)) =
1693 concat (SYMBOL_NAME (sym
), NULL
);
1695 add_symbol_to_list (sym
, &file_symbols
);
1705 /* Decode a coff type specifier; return the type that is meant. */
1707 static struct type
*
1708 decode_type (register struct coff_symbol
*cs
, unsigned int c_type
,
1709 register union internal_auxent
*aux
)
1711 register struct type
*type
= 0;
1712 unsigned int new_c_type
;
1714 if (c_type
& ~N_BTMASK
)
1716 new_c_type
= DECREF (c_type
);
1719 type
= decode_type (cs
, new_c_type
, aux
);
1720 type
= lookup_pointer_type (type
);
1722 else if (ISFCN (c_type
))
1724 type
= decode_type (cs
, new_c_type
, aux
);
1725 type
= lookup_function_type (type
);
1727 else if (ISARY (c_type
))
1730 register unsigned short *dim
;
1731 struct type
*base_type
, *index_type
, *range_type
;
1733 /* Define an array type. */
1734 /* auxent refers to array, not base type */
1735 if (aux
->x_sym
.x_tagndx
.l
== 0)
1738 /* shift the indices down */
1739 dim
= &aux
->x_sym
.x_fcnary
.x_ary
.x_dimen
[0];
1742 for (i
= 0; *dim
&& i
< DIMNUM
- 1; i
++, dim
++)
1746 base_type
= decode_type (cs
, new_c_type
, aux
);
1747 index_type
= lookup_fundamental_type (current_objfile
, FT_INTEGER
);
1749 create_range_type ((struct type
*) NULL
, index_type
, 0, n
- 1);
1751 create_array_type ((struct type
*) NULL
, base_type
, range_type
);
1756 /* Reference to existing type. This only occurs with the
1757 struct, union, and enum types. EPI a29k coff
1758 fakes us out by producing aux entries with a nonzero
1759 x_tagndx for definitions of structs, unions, and enums, so we
1760 have to check the c_sclass field. SCO 3.2v4 cc gets confused
1761 with pointers to pointers to defined structs, and generates
1762 negative x_tagndx fields. */
1763 if (cs
->c_naux
> 0 && aux
->x_sym
.x_tagndx
.l
!= 0)
1765 if (cs
->c_sclass
!= C_STRTAG
1766 && cs
->c_sclass
!= C_UNTAG
1767 && cs
->c_sclass
!= C_ENTAG
1768 && aux
->x_sym
.x_tagndx
.l
>= 0)
1770 type
= coff_alloc_type (aux
->x_sym
.x_tagndx
.l
);
1775 complain (&tagndx_bad_complaint
, cs
->c_name
);
1776 /* And fall through to decode_base_type... */
1780 return decode_base_type (cs
, BTYPE (c_type
), aux
);
1783 /* Decode a coff type specifier for function definition;
1784 return the type that the function returns. */
1786 static struct type
*
1787 decode_function_type (register struct coff_symbol
*cs
, unsigned int c_type
,
1788 register union internal_auxent
*aux
)
1790 if (aux
->x_sym
.x_tagndx
.l
== 0)
1791 cs
->c_naux
= 0; /* auxent refers to function, not base type */
1793 return decode_type (cs
, DECREF (c_type
), aux
);
1798 static struct type
*
1799 decode_base_type (register struct coff_symbol
*cs
, unsigned int c_type
,
1800 register union internal_auxent
*aux
)
1807 /* shows up with "void (*foo)();" structure members */
1808 return lookup_fundamental_type (current_objfile
, FT_VOID
);
1811 /* DGUX actually defines both T_ARG and T_VOID to the same value. */
1814 /* Shows up in DGUX, I think. Not sure where. */
1815 return lookup_fundamental_type (current_objfile
, FT_VOID
); /* shouldn't show up here */
1821 /* Intel 960 COFF has this symbol and meaning. */
1822 return lookup_fundamental_type (current_objfile
, FT_VOID
);
1826 return lookup_fundamental_type (current_objfile
, FT_CHAR
);
1829 return lookup_fundamental_type (current_objfile
, FT_SHORT
);
1832 return lookup_fundamental_type (current_objfile
, FT_INTEGER
);
1835 if (cs
->c_sclass
== C_FIELD
1836 && aux
->x_sym
.x_misc
.x_lnsz
.x_size
> TARGET_LONG_BIT
)
1837 return lookup_fundamental_type (current_objfile
, FT_LONG_LONG
);
1839 return lookup_fundamental_type (current_objfile
, FT_LONG
);
1842 return lookup_fundamental_type (current_objfile
, FT_FLOAT
);
1845 return lookup_fundamental_type (current_objfile
, FT_DBL_PREC_FLOAT
);
1848 return lookup_fundamental_type (current_objfile
, FT_EXT_PREC_FLOAT
);
1851 if (cs
->c_naux
!= 1)
1853 /* anonymous structure type */
1854 type
= coff_alloc_type (cs
->c_symnum
);
1855 TYPE_CODE (type
) = TYPE_CODE_STRUCT
;
1856 TYPE_NAME (type
) = NULL
;
1857 /* This used to set the tag to "<opaque>". But I think setting it
1858 to NULL is right, and the printing code can print it as
1860 TYPE_TAG_NAME (type
) = NULL
;
1861 INIT_CPLUS_SPECIFIC (type
);
1862 TYPE_LENGTH (type
) = 0;
1863 TYPE_FIELDS (type
) = 0;
1864 TYPE_NFIELDS (type
) = 0;
1868 type
= coff_read_struct_type (cs
->c_symnum
,
1869 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1870 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
);
1875 if (cs
->c_naux
!= 1)
1877 /* anonymous union type */
1878 type
= coff_alloc_type (cs
->c_symnum
);
1879 TYPE_NAME (type
) = NULL
;
1880 /* This used to set the tag to "<opaque>". But I think setting it
1881 to NULL is right, and the printing code can print it as
1883 TYPE_TAG_NAME (type
) = NULL
;
1884 INIT_CPLUS_SPECIFIC (type
);
1885 TYPE_LENGTH (type
) = 0;
1886 TYPE_FIELDS (type
) = 0;
1887 TYPE_NFIELDS (type
) = 0;
1891 type
= coff_read_struct_type (cs
->c_symnum
,
1892 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1893 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
);
1895 TYPE_CODE (type
) = TYPE_CODE_UNION
;
1899 if (cs
->c_naux
!= 1)
1901 /* anonymous enum type */
1902 type
= coff_alloc_type (cs
->c_symnum
);
1903 TYPE_CODE (type
) = TYPE_CODE_ENUM
;
1904 TYPE_NAME (type
) = NULL
;
1905 /* This used to set the tag to "<opaque>". But I think setting it
1906 to NULL is right, and the printing code can print it as
1908 TYPE_TAG_NAME (type
) = NULL
;
1909 TYPE_LENGTH (type
) = 0;
1910 TYPE_FIELDS (type
) = 0;
1911 TYPE_NFIELDS (type
) = 0;
1915 type
= coff_read_enum_type (cs
->c_symnum
,
1916 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1917 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
);
1922 /* shouldn't show up here */
1926 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_CHAR
);
1929 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_SHORT
);
1932 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_INTEGER
);
1935 if (cs
->c_sclass
== C_FIELD
1936 && aux
->x_sym
.x_misc
.x_lnsz
.x_size
> TARGET_LONG_BIT
)
1937 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_LONG_LONG
);
1939 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_LONG
);
1941 complain (&unexpected_type_complaint
, cs
->c_name
);
1942 return lookup_fundamental_type (current_objfile
, FT_VOID
);
1945 /* This page contains subroutines of read_type. */
1947 /* Read the description of a structure (or union type) and return an
1948 object describing the type. */
1950 static struct type
*
1951 coff_read_struct_type (int index
, int length
, int lastsym
)
1955 struct nextfield
*next
;
1959 register struct type
*type
;
1960 register struct nextfield
*list
= 0;
1961 struct nextfield
*new;
1965 struct coff_symbol member_sym
;
1966 register struct coff_symbol
*ms
= &member_sym
;
1967 struct internal_syment sub_sym
;
1968 union internal_auxent sub_aux
;
1971 type
= coff_alloc_type (index
);
1972 TYPE_CODE (type
) = TYPE_CODE_STRUCT
;
1973 INIT_CPLUS_SPECIFIC (type
);
1974 TYPE_LENGTH (type
) = length
;
1976 while (!done
&& symnum
< lastsym
&& symnum
< nlist_nsyms_global
)
1978 read_one_sym (ms
, &sub_sym
, &sub_aux
);
1980 name
= EXTERNAL_NAME (name
, current_objfile
->obfd
);
1982 switch (ms
->c_sclass
)
1987 /* Get space to record the next field's data. */
1988 new = (struct nextfield
*) alloca (sizeof (struct nextfield
));
1992 /* Save the data. */
1996 ¤t_objfile
->symbol_obstack
);
1997 FIELD_TYPE (list
->field
) = decode_type (ms
, ms
->c_type
, &sub_aux
);
1998 FIELD_BITPOS (list
->field
) = 8 * ms
->c_value
;
1999 FIELD_BITSIZE (list
->field
) = 0;
2005 /* Get space to record the next field's data. */
2006 new = (struct nextfield
*) alloca (sizeof (struct nextfield
));
2010 /* Save the data. */
2014 ¤t_objfile
->symbol_obstack
);
2015 FIELD_TYPE (list
->field
) = decode_type (ms
, ms
->c_type
, &sub_aux
);
2016 FIELD_BITPOS (list
->field
) = ms
->c_value
;
2017 FIELD_BITSIZE (list
->field
) = sub_aux
.x_sym
.x_misc
.x_lnsz
.x_size
;
2026 /* Now create the vector of fields, and record how big it is. */
2028 TYPE_NFIELDS (type
) = nfields
;
2029 TYPE_FIELDS (type
) = (struct field
*)
2030 TYPE_ALLOC (type
, sizeof (struct field
) * nfields
);
2032 /* Copy the saved-up fields into the field vector. */
2034 for (n
= nfields
; list
; list
= list
->next
)
2035 TYPE_FIELD (type
, --n
) = list
->field
;
2040 /* Read a definition of an enumeration type,
2041 and create and return a suitable type object.
2042 Also defines the symbols that represent the values of the type. */
2045 static struct type
*
2046 coff_read_enum_type (int index
, int length
, int lastsym
)
2048 register struct symbol
*sym
;
2049 register struct type
*type
;
2052 struct pending
**symlist
;
2053 struct coff_symbol member_sym
;
2054 register struct coff_symbol
*ms
= &member_sym
;
2055 struct internal_syment sub_sym
;
2056 union internal_auxent sub_aux
;
2057 struct pending
*osyms
, *syms
;
2061 int unsigned_enum
= 1;
2063 type
= coff_alloc_type (index
);
2064 if (within_function
)
2065 symlist
= &local_symbols
;
2067 symlist
= &file_symbols
;
2069 o_nsyms
= osyms
? osyms
->nsyms
: 0;
2071 while (!done
&& symnum
< lastsym
&& symnum
< nlist_nsyms_global
)
2073 read_one_sym (ms
, &sub_sym
, &sub_aux
);
2075 name
= EXTERNAL_NAME (name
, current_objfile
->obfd
);
2077 switch (ms
->c_sclass
)
2080 sym
= (struct symbol
*) obstack_alloc
2081 (¤t_objfile
->symbol_obstack
,
2082 sizeof (struct symbol
));
2083 memset (sym
, 0, sizeof (struct symbol
));
2086 obsavestring (name
, strlen (name
),
2087 ¤t_objfile
->symbol_obstack
);
2088 SYMBOL_CLASS (sym
) = LOC_CONST
;
2089 SYMBOL_NAMESPACE (sym
) = VAR_NAMESPACE
;
2090 SYMBOL_VALUE (sym
) = ms
->c_value
;
2091 add_symbol_to_list (sym
, symlist
);
2096 /* Sometimes the linker (on 386/ix 2.0.2 at least) screws
2097 up the count of how many symbols to read. So stop
2104 /* Now fill in the fields of the type-structure. */
2107 TYPE_LENGTH (type
) = length
;
2109 TYPE_LENGTH (type
) = TARGET_INT_BIT
/ TARGET_CHAR_BIT
; /* Assume ints */
2110 TYPE_CODE (type
) = TYPE_CODE_ENUM
;
2111 TYPE_NFIELDS (type
) = nsyms
;
2112 TYPE_FIELDS (type
) = (struct field
*)
2113 TYPE_ALLOC (type
, sizeof (struct field
) * nsyms
);
2115 /* Find the symbols for the values and put them into the type.
2116 The symbols can be found in the symlist that we put them on
2117 to cause them to be defined. osyms contains the old value
2118 of that symlist; everything up to there was defined by us. */
2119 /* Note that we preserve the order of the enum constants, so
2120 that in something like "enum {FOO, LAST_THING=FOO}" we print
2121 FOO, not LAST_THING. */
2123 for (syms
= *symlist
, n
= 0; syms
; syms
= syms
->next
)
2129 for (; j
< syms
->nsyms
; j
++, n
++)
2131 struct symbol
*xsym
= syms
->symbol
[j
];
2132 SYMBOL_TYPE (xsym
) = type
;
2133 TYPE_FIELD_NAME (type
, n
) = SYMBOL_NAME (xsym
);
2134 TYPE_FIELD_BITPOS (type
, n
) = SYMBOL_VALUE (xsym
);
2135 if (SYMBOL_VALUE (xsym
) < 0)
2137 TYPE_FIELD_BITSIZE (type
, n
) = 0;
2144 TYPE_FLAGS (type
) |= TYPE_FLAG_UNSIGNED
;
2149 /* Register our ability to parse symbols for coff BFD files. */
2151 static struct sym_fns coff_sym_fns
=
2153 bfd_target_coff_flavour
,
2154 coff_new_init
, /* sym_new_init: init anything gbl to entire symtab */
2155 coff_symfile_init
, /* sym_init: read initial info, setup for sym_read() */
2156 coff_symfile_read
, /* sym_read: read a symbol file into symtab */
2157 coff_symfile_finish
, /* sym_finish: finished with file, cleanup */
2158 default_symfile_offsets
, /* sym_offsets: xlate external to internal form */
2159 NULL
/* next: pointer to next struct sym_fns */
2163 _initialize_coffread (void)
2165 add_symtab_fns (&coff_sym_fns
);