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, 2003
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 #include "dictionary.h"
50 #include "coff-pe-read.h"
52 extern void _initialize_coffread (void);
54 struct coff_symfile_info
56 file_ptr min_lineno_offset
; /* Where in file lowest line#s are */
57 file_ptr max_lineno_offset
; /* 1+last byte of line#s in file */
59 CORE_ADDR textaddr
; /* Addr of .text section. */
60 unsigned int textsize
; /* Size of .text section. */
61 struct stab_section_list
*stabsects
; /* .stab sections. */
62 asection
*stabstrsect
; /* Section pointer for .stab section */
66 /* Translate an external name string into a user-visible name. */
67 #define EXTERNAL_NAME(string, abfd) \
68 (string[0] == bfd_get_symbol_leading_char(abfd)? string+1: string)
70 /* To be an sdb debug type, type must have at least a basic or primary
71 derived type. Using this rather than checking against T_NULL is
72 said to prevent core dumps if we try to operate on Michael Bloom
75 #define SDB_TYPE(type) (BTYPE(type) | (type & N_TMASK))
77 /* Core address of start and end of text of current source file.
78 This comes from a ".text" symbol where x_nlinno > 0. */
80 static CORE_ADDR current_source_start_addr
;
81 static CORE_ADDR current_source_end_addr
;
83 /* The addresses of the symbol table stream and number of symbols
84 of the object file we are reading (as copied into core). */
86 static bfd
*nlist_bfd_global
;
87 static int nlist_nsyms_global
;
90 /* Pointers to scratch storage, used for reading raw symbols and auxents. */
92 static char *temp_sym
;
93 static char *temp_aux
;
95 /* Local variables that hold the shift and mask values for the
96 COFF file that we are currently reading. These come back to us
97 from BFD, and are referenced by their macro names, as well as
98 internally to the BTYPE, ISPTR, ISFCN, ISARY, ISTAG, and DECREF
99 macros from include/coff/internal.h . */
101 static unsigned local_n_btmask
;
102 static unsigned local_n_btshft
;
103 static unsigned local_n_tmask
;
104 static unsigned local_n_tshift
;
106 #define N_BTMASK local_n_btmask
107 #define N_BTSHFT local_n_btshft
108 #define N_TMASK local_n_tmask
109 #define N_TSHIFT local_n_tshift
111 /* Local variables that hold the sizes in the file of various COFF structures.
112 (We only need to know this to read them from the file -- BFD will then
113 translate the data in them, into `internal_xxx' structs in the right
114 byte order, alignment, etc.) */
116 static unsigned local_linesz
;
117 static unsigned local_symesz
;
118 static unsigned local_auxesz
;
120 /* This is set if this is a PE format file. */
124 /* Chain of typedefs of pointers to empty struct/union types.
125 They are chained thru the SYMBOL_VALUE_CHAIN. */
127 static struct symbol
*opaque_type_chain
[HASHSIZE
];
129 /* Simplified internal version of coff symbol table information */
134 int c_symnum
; /* symbol number of this entry */
135 int c_naux
; /* 0 if syment only, 1 if syment + auxent, etc */
142 extern void stabsread_clear_cache (void);
144 static struct type
*coff_read_struct_type (int, int, int);
146 static struct type
*decode_base_type (struct coff_symbol
*,
147 unsigned int, union internal_auxent
*);
149 static struct type
*decode_type (struct coff_symbol
*, unsigned int,
150 union internal_auxent
*);
152 static struct type
*decode_function_type (struct coff_symbol
*,
154 union internal_auxent
*);
156 static struct type
*coff_read_enum_type (int, int, int);
158 static struct symbol
*process_coff_symbol (struct coff_symbol
*,
159 union internal_auxent
*,
162 static void patch_opaque_types (struct symtab
*);
164 static void enter_linenos (long, int, int, struct objfile
*);
166 static void free_linetab (void);
168 static void free_linetab_cleanup (void *ignore
);
170 static int init_lineno (bfd
*, long, int);
172 static char *getsymname (struct internal_syment
*);
174 static char *coff_getfilename (union internal_auxent
*);
176 static void free_stringtab (void);
178 static void free_stringtab_cleanup (void *ignore
);
180 static int init_stringtab (bfd
*, long);
182 static void read_one_sym (struct coff_symbol
*,
183 struct internal_syment
*, union internal_auxent
*);
185 static void coff_symtab_read (long, unsigned int, struct objfile
*);
187 /* We are called once per section from coff_symfile_read. We
188 need to examine each section we are passed, check to see
189 if it is something we are interested in processing, and
190 if so, stash away some access information for the section.
192 FIXME: The section names should not be hardwired strings (what
193 should they be? I don't think most object file formats have enough
194 section flags to specify what kind of debug section it is
198 coff_locate_sections (bfd
*abfd
, asection
*sectp
, void *csip
)
200 struct coff_symfile_info
*csi
;
203 csi
= (struct coff_symfile_info
*) csip
;
204 name
= bfd_get_section_name (abfd
, sectp
);
205 if (STREQ (name
, ".text"))
207 csi
->textaddr
= bfd_section_vma (abfd
, sectp
);
208 csi
->textsize
+= bfd_section_size (abfd
, sectp
);
210 else if (strncmp (name
, ".text", sizeof ".text" - 1) == 0)
212 csi
->textsize
+= bfd_section_size (abfd
, sectp
);
214 else if (STREQ (name
, ".stabstr"))
216 csi
->stabstrsect
= sectp
;
218 else if (strncmp (name
, ".stab", sizeof ".stab" - 1) == 0)
222 /* We can have multiple .stab sections if linked with
224 for (s
= name
+ sizeof ".stab" - 1; *s
!= '\0'; s
++)
229 struct stab_section_list
*n
, **pn
;
231 n
= ((struct stab_section_list
*)
232 xmalloc (sizeof (struct stab_section_list
)));
235 for (pn
= &csi
->stabsects
; *pn
!= NULL
; pn
= &(*pn
)->next
)
239 /* This will be run after coffstab_build_psymtabs is called
240 in coff_symfile_read, at which point we no longer need
242 make_cleanup (xfree
, n
);
247 /* Return the section_offsets* that CS points to. */
248 static int cs_to_section (struct coff_symbol
*, struct objfile
*);
250 struct find_targ_sec_arg
257 find_targ_sec (bfd
*abfd
, asection
*sect
, void *obj
)
259 struct find_targ_sec_arg
*args
= (struct find_targ_sec_arg
*) obj
;
260 if (sect
->target_index
== args
->targ_index
)
261 *args
->resultp
= sect
;
264 /* Return the section number (SECT_OFF_*) that CS points to. */
266 cs_to_section (struct coff_symbol
*cs
, struct objfile
*objfile
)
268 asection
*sect
= NULL
;
269 struct find_targ_sec_arg args
;
270 int off
= SECT_OFF_TEXT (objfile
);
272 args
.targ_index
= cs
->c_secnum
;
273 args
.resultp
= §
;
274 bfd_map_over_sections (objfile
->obfd
, find_targ_sec
, &args
);
277 /* This is the section. Figure out what SECT_OFF_* code it is. */
278 if (bfd_get_section_flags (abfd
, sect
) & SEC_CODE
)
279 off
= SECT_OFF_TEXT (objfile
);
280 else if (bfd_get_section_flags (abfd
, sect
) & SEC_LOAD
)
281 off
= SECT_OFF_DATA (objfile
);
283 /* Just return the bfd section index. */
289 /* Return the address of the section of a COFF symbol. */
291 static CORE_ADDR
cs_section_address (struct coff_symbol
*, bfd
*);
294 cs_section_address (struct coff_symbol
*cs
, bfd
*abfd
)
296 asection
*sect
= NULL
;
297 struct find_targ_sec_arg args
;
300 args
.targ_index
= cs
->c_secnum
;
301 args
.resultp
= §
;
302 bfd_map_over_sections (abfd
, find_targ_sec
, &args
);
304 addr
= bfd_get_section_vma (objfile
->obfd
, sect
);
308 /* Look up a coff type-number index. Return the address of the slot
309 where the type for that index is stored.
310 The type-number is in INDEX.
312 This can be used for finding the type associated with that index
313 or for associating a new type with the index. */
315 static struct type
**
316 coff_lookup_type (int index
)
318 if (index
>= type_vector_length
)
320 int old_vector_length
= type_vector_length
;
322 type_vector_length
*= 2;
323 if (index
/* is still */ >= type_vector_length
)
324 type_vector_length
= index
* 2;
326 type_vector
= (struct type
**)
327 xrealloc ((char *) type_vector
,
328 type_vector_length
* sizeof (struct type
*));
329 memset (&type_vector
[old_vector_length
], 0,
330 (type_vector_length
- old_vector_length
) * sizeof (struct type
*));
332 return &type_vector
[index
];
335 /* Make sure there is a type allocated for type number index
336 and return the type object.
337 This can create an empty (zeroed) type object. */
340 coff_alloc_type (int index
)
342 struct type
**type_addr
= coff_lookup_type (index
);
343 struct type
*type
= *type_addr
;
345 /* If we are referring to a type not known at all yet,
346 allocate an empty type for it.
347 We will fill it in later if we find out how. */
350 type
= alloc_type (current_objfile
);
356 /* Start a new symtab for a new source file.
357 This is called when a COFF ".file" symbol is seen;
358 it indicates the start of data for one original source file. */
361 coff_start_symtab (char *name
)
364 /* We fill in the filename later. start_symtab puts
365 this pointer into last_source_file and we put it in
366 subfiles->name, which end_symtab frees; that's why
367 it must be malloc'd. */
368 savestring (name
, strlen (name
)),
369 /* We never know the directory name for COFF. */
371 /* The start address is irrelevant, since we set
372 last_source_start_addr in coff_end_symtab. */
374 record_debugformat ("COFF");
377 /* Save the vital information from when starting to read a file,
378 for use when closing off the current file.
379 NAME is the file name the symbols came from, START_ADDR is the first
380 text address for the file, and SIZE is the number of bytes of text. */
383 complete_symtab (char *name
, CORE_ADDR start_addr
, unsigned int size
)
385 if (last_source_file
!= NULL
)
386 xfree (last_source_file
);
387 last_source_file
= savestring (name
, strlen (name
));
388 current_source_start_addr
= start_addr
;
389 current_source_end_addr
= start_addr
+ size
;
391 if (current_objfile
->ei
.entry_point
>= current_source_start_addr
&&
392 current_objfile
->ei
.entry_point
< current_source_end_addr
)
394 current_objfile
->ei
.deprecated_entry_file_lowpc
= current_source_start_addr
;
395 current_objfile
->ei
.deprecated_entry_file_highpc
= current_source_end_addr
;
399 /* Finish the symbol definitions for one main source file,
400 close off all the lexical contexts for that file
401 (creating struct block's for them), then make the
402 struct symtab for that file and put it in the list of all such. */
405 coff_end_symtab (struct objfile
*objfile
)
407 struct symtab
*symtab
;
409 last_source_start_addr
= current_source_start_addr
;
411 symtab
= end_symtab (current_source_end_addr
, objfile
, SECT_OFF_TEXT (objfile
));
414 free_named_symtabs (symtab
->filename
);
416 /* Reinitialize for beginning of new file. */
417 last_source_file
= NULL
;
421 record_minimal_symbol (char *name
, CORE_ADDR address
,
422 enum minimal_symbol_type type
, struct objfile
*objfile
)
424 /* We don't want TDESC entry points in the minimal symbol table */
428 prim_record_minimal_symbol (name
, address
, type
, objfile
);
431 /* coff_symfile_init ()
432 is the coff-specific initialization routine for reading symbols.
433 It is passed a struct objfile which contains, among other things,
434 the BFD for the file whose symbols are being read, and a slot for
435 a pointer to "private data" which we fill with cookies and other
436 treats for coff_symfile_read ().
438 We will only be called if this is a COFF or COFF-like file.
439 BFD handles figuring out the format of the file, and code in symtab.c
440 uses BFD's determination to vector to us.
442 The ultimate result is a new symtab (or, FIXME, eventually a psymtab). */
445 coff_symfile_init (struct objfile
*objfile
)
447 /* Allocate struct to keep track of stab reading. */
448 objfile
->sym_stab_info
= (struct dbx_symfile_info
*)
449 xmmalloc (objfile
->md
, sizeof (struct dbx_symfile_info
));
451 memset (objfile
->sym_stab_info
, 0,
452 sizeof (struct dbx_symfile_info
));
454 /* Allocate struct to keep track of the symfile */
455 objfile
->sym_private
= xmmalloc (objfile
->md
,
456 sizeof (struct coff_symfile_info
));
458 memset (objfile
->sym_private
, 0, sizeof (struct coff_symfile_info
));
460 /* COFF objects may be reordered, so set OBJF_REORDERED. If we
461 find this causes a significant slowdown in gdb then we could
462 set it in the debug symbol readers only when necessary. */
463 objfile
->flags
|= OBJF_REORDERED
;
465 init_entry_point_info (objfile
);
468 /* This function is called for every section; it finds the outer limits
469 of the line table (minimum and maximum file offset) so that the
470 mainline code can read the whole thing for efficiency. */
473 find_linenos (bfd
*abfd
, sec_ptr asect
, void *vpinfo
)
475 struct coff_symfile_info
*info
;
477 file_ptr offset
, maxoff
;
479 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
480 count
= asect
->lineno_count
;
485 size
= count
* local_linesz
;
487 info
= (struct coff_symfile_info
*) vpinfo
;
488 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
489 offset
= asect
->line_filepos
;
492 if (offset
< info
->min_lineno_offset
|| info
->min_lineno_offset
== 0)
493 info
->min_lineno_offset
= offset
;
495 maxoff
= offset
+ size
;
496 if (maxoff
> info
->max_lineno_offset
)
497 info
->max_lineno_offset
= maxoff
;
501 /* The BFD for this file -- only good while we're actively reading
502 symbols into a psymtab or a symtab. */
504 static bfd
*symfile_bfd
;
506 /* Read a symbol file, after initialization by coff_symfile_init. */
509 coff_symfile_read (struct objfile
*objfile
, int mainline
)
511 struct coff_symfile_info
*info
;
512 struct dbx_symfile_info
*dbxinfo
;
513 bfd
*abfd
= objfile
->obfd
;
514 coff_data_type
*cdata
= coff_data (abfd
);
515 char *name
= bfd_get_filename (abfd
);
517 unsigned int num_symbols
;
519 int stringtab_offset
;
520 struct cleanup
*back_to
, *cleanup_minimal_symbols
;
525 info
= (struct coff_symfile_info
*) objfile
->sym_private
;
526 dbxinfo
= objfile
->sym_stab_info
;
527 symfile_bfd
= abfd
; /* Kludge for swap routines */
529 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
530 num_symbols
= bfd_get_symcount (abfd
); /* How many syms */
531 symtab_offset
= cdata
->sym_filepos
; /* Symbol table file offset */
532 stringtab_offset
= symtab_offset
+ /* String table file offset */
533 num_symbols
* cdata
->local_symesz
;
535 /* Set a few file-statics that give us specific information about
536 the particular COFF file format we're reading. */
537 local_n_btmask
= cdata
->local_n_btmask
;
538 local_n_btshft
= cdata
->local_n_btshft
;
539 local_n_tmask
= cdata
->local_n_tmask
;
540 local_n_tshift
= cdata
->local_n_tshift
;
541 local_linesz
= cdata
->local_linesz
;
542 local_symesz
= cdata
->local_symesz
;
543 local_auxesz
= cdata
->local_auxesz
;
545 /* Allocate space for raw symbol and aux entries, based on their
546 space requirements as reported by BFD. */
547 temp_sym
= (char *) xmalloc
548 (cdata
->local_symesz
+ cdata
->local_auxesz
);
549 temp_aux
= temp_sym
+ cdata
->local_symesz
;
550 back_to
= make_cleanup (free_current_contents
, &temp_sym
);
552 /* We need to know whether this is a PE file, because in PE files,
553 unlike standard COFF files, symbol values are stored as offsets
554 from the section address, rather than as absolute addresses.
555 FIXME: We should use BFD to read the symbol table, and thus avoid
558 strncmp (bfd_get_target (objfile
->obfd
), "pe", 2) == 0
559 || strncmp (bfd_get_target (objfile
->obfd
), "epoc-pe", 7) == 0;
563 info
->min_lineno_offset
= 0;
564 info
->max_lineno_offset
= 0;
566 /* Only read line number information if we have symbols.
568 On Windows NT, some of the system's DLL's have sections with
569 PointerToLinenumbers fields that are non-zero, but point at
570 random places within the image file. (In the case I found,
571 KERNEL32.DLL's .text section has a line number info pointer that
572 points into the middle of the string `lib\\i386\kernel32.dll'.)
574 However, these DLL's also have no symbols. The line number
575 tables are meaningless without symbols. And in fact, GDB never
576 uses the line number information unless there are symbols. So we
577 can avoid spurious error messages (and maybe run a little
578 faster!) by not even reading the line number table unless we have
582 /* Read the line number table, all at once. */
583 bfd_map_over_sections (abfd
, find_linenos
, (void *) info
);
585 make_cleanup (free_linetab_cleanup
, 0 /*ignore*/);
586 val
= init_lineno (abfd
, info
->min_lineno_offset
,
587 info
->max_lineno_offset
- info
->min_lineno_offset
);
589 error ("\"%s\": error reading line numbers\n", name
);
592 /* Now read the string table, all at once. */
594 make_cleanup (free_stringtab_cleanup
, 0 /*ignore*/);
595 val
= init_stringtab (abfd
, stringtab_offset
);
597 error ("\"%s\": can't get string table", name
);
599 init_minimal_symbol_collection ();
600 cleanup_minimal_symbols
= make_cleanup_discard_minimal_symbols ();
602 /* Now that the executable file is positioned at symbol table,
603 process it and define symbols accordingly. */
605 coff_symtab_read ((long) symtab_offset
, num_symbols
, objfile
);
607 /* Install any minimal symbols that have been collected as the current
608 minimal symbols for this objfile. */
610 install_minimal_symbols (objfile
);
612 /* Free the installed minimal symbol data. */
613 do_cleanups (cleanup_minimal_symbols
);
615 bfd_map_over_sections (abfd
, coff_locate_sections
, (void *) info
);
619 if (!info
->stabstrsect
)
621 error (("The debugging information in `%s' is corrupted.\n"
622 "The file has a `.stabs' section, but no `.stabstr' "
627 /* FIXME: dubious. Why can't we use something normal like
628 bfd_get_section_contents? */
629 bfd_seek (abfd
, abfd
->where
, 0);
631 stabstrsize
= bfd_section_size (abfd
, info
->stabstrsect
);
633 coffstab_build_psymtabs (objfile
,
635 info
->textaddr
, info
->textsize
,
637 info
->stabstrsect
->filepos
, stabstrsize
);
639 if (dwarf2_has_info (abfd
))
641 /* DWARF2 sections. */
642 dwarf2_build_psymtabs (objfile
, mainline
);
645 do_cleanups (back_to
);
649 coff_new_init (struct objfile
*ignore
)
653 /* Perform any local cleanups required when we are done with a particular
654 objfile. I.E, we are in the process of discarding all symbol information
655 for an objfile, freeing up all memory held for it, and unlinking the
656 objfile struct from the global list of known objfiles. */
659 coff_symfile_finish (struct objfile
*objfile
)
661 if (objfile
->sym_private
!= NULL
)
663 xmfree (objfile
->md
, objfile
->sym_private
);
666 /* Let stabs reader clean up */
667 stabsread_clear_cache ();
671 /* Given pointers to a symbol table in coff style exec file,
672 analyze them and create struct symtab's describing the symbols.
673 NSYMS is the number of symbols in the symbol table.
674 We read them one at a time using read_one_sym (). */
677 coff_symtab_read (long symtab_offset
, unsigned int nsyms
,
678 struct objfile
*objfile
)
680 struct context_stack
*new;
681 struct coff_symbol coff_symbol
;
682 struct coff_symbol
*cs
= &coff_symbol
;
683 static struct internal_syment main_sym
;
684 static union internal_auxent main_aux
;
685 struct coff_symbol fcn_cs_saved
;
686 static struct internal_syment fcn_sym_saved
;
687 static union internal_auxent fcn_aux_saved
;
689 /* A .file is open. */
690 int in_source_file
= 0;
691 int next_file_symnum
= -1;
692 /* Name of the current file. */
693 char *filestring
= "";
695 int fcn_first_line
= 0;
696 CORE_ADDR fcn_first_line_addr
= 0;
697 int fcn_last_line
= 0;
698 int fcn_start_addr
= 0;
699 long fcn_line_ptr
= 0;
703 /* Work around a stdio bug in SunOS4.1.1 (this makes me nervous....
704 it's hard to know I've really worked around it. The fix should be
705 harmless, anyway). The symptom of the bug is that the first
706 fread (in read_one_sym), will (in my example) actually get data
707 from file offset 268, when the fseek was to 264 (and ftell shows
708 264). This causes all hell to break loose. I was unable to
709 reproduce this on a short test program which operated on the same
710 file, performing (I think) the same sequence of operations.
712 It stopped happening when I put in this (former) rewind().
714 FIXME: Find out if this has been reported to Sun, whether it has
715 been fixed in a later release, etc. */
717 bfd_seek (objfile
->obfd
, 0, 0);
719 /* Position to read the symbol table. */
720 val
= bfd_seek (objfile
->obfd
, (long) symtab_offset
, 0);
722 perror_with_name (objfile
->name
);
724 current_objfile
= objfile
;
725 nlist_bfd_global
= objfile
->obfd
;
726 nlist_nsyms_global
= nsyms
;
727 last_source_file
= NULL
;
728 memset (opaque_type_chain
, 0, sizeof opaque_type_chain
);
730 if (type_vector
) /* Get rid of previous one */
732 type_vector_length
= 160;
733 type_vector
= (struct type
**)
734 xmalloc (type_vector_length
* sizeof (struct type
*));
735 memset (type_vector
, 0, type_vector_length
* sizeof (struct type
*));
737 coff_start_symtab ("");
740 while (symnum
< nsyms
)
742 QUIT
; /* Make this command interruptable. */
744 read_one_sym (cs
, &main_sym
, &main_aux
);
746 if (cs
->c_symnum
== next_file_symnum
&& cs
->c_sclass
!= C_FILE
)
748 if (last_source_file
)
749 coff_end_symtab (objfile
);
751 coff_start_symtab ("_globals_");
752 complete_symtab ("_globals_", 0, 0);
753 /* done with all files, everything from here on out is globals */
756 /* Special case for file with type declarations only, no text. */
757 if (!last_source_file
&& SDB_TYPE (cs
->c_type
)
758 && cs
->c_secnum
== N_DEBUG
)
759 complete_symtab (filestring
, 0, 0);
761 /* Typedefs should not be treated as symbol definitions. */
762 if (ISFCN (cs
->c_type
) && cs
->c_sclass
!= C_TPDEF
)
764 /* Record all functions -- external and static -- in minsyms. */
765 tmpaddr
= cs
->c_value
+ ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
766 record_minimal_symbol (cs
->c_name
, tmpaddr
, mst_text
, objfile
);
768 fcn_line_ptr
= main_aux
.x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
;
769 fcn_start_addr
= tmpaddr
;
771 fcn_sym_saved
= main_sym
;
772 fcn_aux_saved
= main_aux
;
776 switch (cs
->c_sclass
)
785 complaint (&symfile_complaints
, "Bad n_sclass for symbol %s",
790 /* c_value field contains symnum of next .file entry in table
791 or symnum of first global after last .file. */
792 next_file_symnum
= cs
->c_value
;
794 filestring
= coff_getfilename (&main_aux
);
798 /* Complete symbol table for last object file
799 containing debugging information. */
800 if (last_source_file
)
802 coff_end_symtab (objfile
);
803 coff_start_symtab (filestring
);
808 /* C_LABEL is used for labels and static functions. Including
809 it here allows gdb to see static functions when no debug
810 info is available. */
812 /* However, labels within a function can make weird backtraces,
813 so filter them out (from phdm@macqel.be). */
819 case C_THUMBSTATFUNC
:
820 if (cs
->c_name
[0] == '.')
822 if (STREQ (cs
->c_name
, ".text"))
824 /* FIXME: don't wire in ".text" as section name
826 /* Check for in_source_file deals with case of
827 a file with debugging symbols
828 followed by a later file with no symbols. */
830 complete_symtab (filestring
,
831 cs
->c_value
+ ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
)),
832 main_aux
.x_scn
.x_scnlen
);
835 /* flush rest of '.' symbols */
838 else if (!SDB_TYPE (cs
->c_type
)
839 && cs
->c_name
[0] == 'L'
840 && (strncmp (cs
->c_name
, "LI%", 3) == 0
841 || strncmp (cs
->c_name
, "LF%", 3) == 0
842 || strncmp (cs
->c_name
, "LC%", 3) == 0
843 || strncmp (cs
->c_name
, "LP%", 3) == 0
844 || strncmp (cs
->c_name
, "LPB%", 4) == 0
845 || strncmp (cs
->c_name
, "LBB%", 4) == 0
846 || strncmp (cs
->c_name
, "LBE%", 4) == 0
847 || strncmp (cs
->c_name
, "LPBX%", 5) == 0))
848 /* At least on a 3b1, gcc generates swbeg and string labels
849 that look like this. Ignore them. */
851 /* fall in for static symbols that don't start with '.' */
856 /* Record it in the minimal symbols regardless of
857 SDB_TYPE. This parallels what we do for other debug
858 formats, and probably is needed to make
859 print_address_symbolic work right without the (now
860 gone) "set fast-symbolic-addr off" kludge. */
862 enum minimal_symbol_type ms_type
;
865 if (cs
->c_secnum
== N_UNDEF
)
867 /* This is a common symbol. See if the target
868 environment knows where it has been relocated to. */
870 if (target_lookup_symbol (cs
->c_name
, &reladdr
))
872 /* Error in lookup; ignore symbol. */
876 /* The address has already been relocated; make sure that
877 objfile_relocate doesn't relocate it again. */
879 ms_type
= cs
->c_sclass
== C_EXT
880 || cs
->c_sclass
== C_THUMBEXT
?
881 mst_bss
: mst_file_bss
;
883 else if (cs
->c_secnum
== N_ABS
)
885 /* Use the correct minimal symbol type (and don't
886 relocate) for absolute values. */
888 sec
= cs_to_section (cs
, objfile
);
889 tmpaddr
= cs
->c_value
;
893 sec
= cs_to_section (cs
, objfile
);
894 tmpaddr
= cs
->c_value
;
895 /* Statics in a PE file also get relocated */
896 if (cs
->c_sclass
== C_EXT
897 || cs
->c_sclass
== C_THUMBEXTFUNC
898 || cs
->c_sclass
== C_THUMBEXT
899 || (pe_file
&& (cs
->c_sclass
== C_STAT
)))
900 tmpaddr
+= ANOFFSET (objfile
->section_offsets
, sec
);
902 if (sec
== SECT_OFF_TEXT (objfile
))
905 cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXTFUNC
906 || cs
->c_sclass
== C_THUMBEXT
?
907 mst_text
: mst_file_text
;
908 tmpaddr
= SMASH_TEXT_ADDRESS (tmpaddr
);
910 else if (sec
== SECT_OFF_DATA (objfile
))
913 cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXT
?
914 mst_data
: mst_file_data
;
916 else if (sec
== SECT_OFF_BSS (objfile
))
919 cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXT
?
920 mst_data
: mst_file_data
;
923 ms_type
= mst_unknown
;
926 if (cs
->c_name
[0] != '@' /* Skip tdesc symbols */ )
928 struct minimal_symbol
*msym
;
930 /* FIXME: cagney/2001-02-01: The nasty (int) -> (long)
931 -> (void*) cast is to ensure that that the value of
932 cs->c_sclass can be correctly stored in a void
933 pointer in MSYMBOL_INFO. Better solutions
935 gdb_assert (sizeof (void *) >= sizeof (cs
->c_sclass
));
936 msym
= prim_record_minimal_symbol_and_info
937 (cs
->c_name
, tmpaddr
, ms_type
, (void *) (long) cs
->c_sclass
,
940 COFF_MAKE_MSYMBOL_SPECIAL (cs
->c_sclass
, msym
);
942 if (SDB_TYPE (cs
->c_type
))
945 sym
= process_coff_symbol
946 (cs
, &main_aux
, objfile
);
947 SYMBOL_VALUE (sym
) = tmpaddr
;
948 SYMBOL_SECTION (sym
) = sec
;
954 if (STREQ (cs
->c_name
, ".bf"))
958 /* value contains address of first non-init type code */
959 /* main_aux.x_sym.x_misc.x_lnsz.x_lnno
960 contains line number of '{' } */
962 complaint (&symfile_complaints
,
963 "`.bf' symbol %d has no aux entry", cs
->c_symnum
);
964 fcn_first_line
= main_aux
.x_sym
.x_misc
.x_lnsz
.x_lnno
;
965 fcn_first_line_addr
= cs
->c_value
;
967 /* Might want to check that locals are 0 and
968 context_stack_depth is zero, and complain if not. */
971 new = push_context (depth
, fcn_start_addr
);
972 fcn_cs_saved
.c_name
= getsymname (&fcn_sym_saved
);
974 process_coff_symbol (&fcn_cs_saved
, &fcn_aux_saved
, objfile
);
976 else if (STREQ (cs
->c_name
, ".ef"))
978 if (!within_function
)
979 error ("Bad coff function information\n");
980 /* the value of .ef is the address of epilogue code;
981 not useful for gdb. */
982 /* { main_aux.x_sym.x_misc.x_lnsz.x_lnno
983 contains number of lines to '}' */
985 if (context_stack_depth
<= 0)
986 { /* We attempted to pop an empty context stack */
987 complaint (&symfile_complaints
,
988 "`.ef' symbol without matching `.bf' symbol ignored starting at symnum %d",
994 new = pop_context ();
995 /* Stack must be empty now. */
996 if (context_stack_depth
> 0 || new == NULL
)
998 complaint (&symfile_complaints
,
999 "Unmatched .ef symbol(s) ignored starting at symnum %d",
1001 within_function
= 0;
1004 if (cs
->c_naux
!= 1)
1006 complaint (&symfile_complaints
,
1007 "`.ef' symbol %d has no aux entry", cs
->c_symnum
);
1008 fcn_last_line
= 0x7FFFFFFF;
1012 fcn_last_line
= main_aux
.x_sym
.x_misc
.x_lnsz
.x_lnno
;
1014 /* fcn_first_line is the line number of the opening '{'.
1015 Do not record it - because it would affect gdb's idea
1016 of the line number of the first statement of the function -
1017 except for one-line functions, for which it is also the line
1018 number of all the statements and of the closing '}', and
1019 for which we do not have any other statement-line-number. */
1020 if (fcn_last_line
== 1)
1021 record_line (current_subfile
, fcn_first_line
,
1022 fcn_first_line_addr
);
1024 enter_linenos (fcn_line_ptr
, fcn_first_line
, fcn_last_line
,
1027 finish_block (new->name
, &local_symbols
, new->old_blocks
,
1029 #if defined (FUNCTION_EPILOGUE_SIZE)
1030 /* This macro should be defined only on
1032 fcn_aux_saved.x_sym.x_misc.x_fsize
1033 field is always zero.
1034 So use the .bf record information that
1035 points to the epilogue and add the size
1038 + FUNCTION_EPILOGUE_SIZE
1039 + ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
)),
1041 fcn_cs_saved
.c_value
1042 + fcn_aux_saved
.x_sym
.x_misc
.x_fsize
1043 + ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
)),
1047 within_function
= 0;
1052 if (STREQ (cs
->c_name
, ".bb"))
1054 tmpaddr
= cs
->c_value
;
1055 tmpaddr
+= ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
1056 push_context (++depth
, tmpaddr
);
1058 else if (STREQ (cs
->c_name
, ".eb"))
1060 if (context_stack_depth
<= 0)
1061 { /* We attempted to pop an empty context stack */
1062 complaint (&symfile_complaints
,
1063 "`.eb' symbol without matching `.bb' symbol ignored starting at symnum %d",
1068 new = pop_context ();
1069 if (depth
-- != new->depth
)
1071 complaint (&symfile_complaints
,
1072 "Mismatched .eb symbol ignored starting at symnum %d",
1076 if (local_symbols
&& context_stack_depth
> 0)
1079 cs
->c_value
+ ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
1080 /* Make a block for the local symbols within. */
1081 finish_block (0, &local_symbols
, new->old_blocks
,
1082 new->start_addr
, tmpaddr
, objfile
);
1084 /* Now pop locals of block just finished. */
1085 local_symbols
= new->locals
;
1090 process_coff_symbol (cs
, &main_aux
, objfile
);
1095 if ((nsyms
== 0) && (pe_file
))
1097 /* We've got no debugging symbols, but it's is a portable
1098 executable, so try to read the export table */
1099 read_pe_exported_syms (objfile
);
1102 if (last_source_file
)
1103 coff_end_symtab (objfile
);
1105 /* Patch up any opaque types (references to types that are not defined
1106 in the file where they are referenced, e.g. "struct foo *bar"). */
1107 ALL_OBJFILE_SYMTABS (objfile
, s
)
1108 patch_opaque_types (s
);
1110 current_objfile
= NULL
;
1113 /* Routines for reading headers and symbols from executable. */
1115 /* Read the next symbol, swap it, and return it in both internal_syment
1116 form, and coff_symbol form. Also return its first auxent, if any,
1117 in internal_auxent form, and skip any other auxents. */
1120 read_one_sym (struct coff_symbol
*cs
,
1121 struct internal_syment
*sym
,
1122 union internal_auxent
*aux
)
1126 cs
->c_symnum
= symnum
;
1127 bfd_bread (temp_sym
, local_symesz
, nlist_bfd_global
);
1128 bfd_coff_swap_sym_in (symfile_bfd
, temp_sym
, (char *) sym
);
1129 cs
->c_naux
= sym
->n_numaux
& 0xff;
1130 if (cs
->c_naux
>= 1)
1132 bfd_bread (temp_aux
, local_auxesz
, nlist_bfd_global
);
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
++)
1138 bfd_bread (temp_aux
, local_auxesz
, nlist_bfd_global
);
1140 cs
->c_name
= getsymname (sym
);
1141 cs
->c_value
= sym
->n_value
;
1142 cs
->c_sclass
= (sym
->n_sclass
& 0xff);
1143 cs
->c_secnum
= sym
->n_scnum
;
1144 cs
->c_type
= (unsigned) sym
->n_type
;
1145 if (!SDB_TYPE (cs
->c_type
))
1149 if (cs
->c_sclass
& 128)
1150 printf ("thumb symbol %s, class 0x%x\n", cs
->c_name
, cs
->c_sclass
);
1153 symnum
+= 1 + cs
->c_naux
;
1155 /* The PE file format stores symbol values as offsets within the
1156 section, rather than as absolute addresses. We correct that
1157 here, if the symbol has an appropriate storage class. FIXME: We
1158 should use BFD to read the symbols, rather than duplicating the
1162 switch (cs
->c_sclass
)
1166 case C_THUMBEXTFUNC
:
1171 case C_THUMBSTATFUNC
:
1177 if (cs
->c_secnum
!= 0)
1178 cs
->c_value
+= cs_section_address (cs
, symfile_bfd
);
1184 /* Support for string table handling */
1186 static char *stringtab
= NULL
;
1189 init_stringtab (bfd
*abfd
, long offset
)
1193 unsigned char lengthbuf
[4];
1197 /* If the file is stripped, the offset might be zero, indicating no
1198 string table. Just return with `stringtab' set to null. */
1202 if (bfd_seek (abfd
, offset
, 0) < 0)
1205 val
= bfd_bread ((char *) lengthbuf
, sizeof lengthbuf
, abfd
);
1206 length
= bfd_h_get_32 (symfile_bfd
, lengthbuf
);
1208 /* If no string table is needed, then the file may end immediately
1209 after the symbols. Just return with `stringtab' set to null. */
1210 if (val
!= sizeof lengthbuf
|| length
< sizeof lengthbuf
)
1213 stringtab
= (char *) xmalloc (length
);
1214 /* This is in target format (probably not very useful, and not currently
1215 used), not host format. */
1216 memcpy (stringtab
, lengthbuf
, sizeof lengthbuf
);
1217 if (length
== sizeof length
) /* Empty table -- just the count */
1220 val
= bfd_bread (stringtab
+ sizeof lengthbuf
, length
- sizeof lengthbuf
,
1222 if (val
!= length
- sizeof lengthbuf
|| stringtab
[length
- 1] != '\0')
1229 free_stringtab (void)
1237 free_stringtab_cleanup (void *ignore
)
1243 getsymname (struct internal_syment
*symbol_entry
)
1245 static char buffer
[SYMNMLEN
+ 1];
1248 if (symbol_entry
->_n
._n_n
._n_zeroes
== 0)
1250 /* FIXME: Probably should be detecting corrupt symbol files by
1251 seeing whether offset points to within the stringtab. */
1252 result
= stringtab
+ symbol_entry
->_n
._n_n
._n_offset
;
1256 strncpy (buffer
, symbol_entry
->_n
._n_name
, SYMNMLEN
);
1257 buffer
[SYMNMLEN
] = '\0';
1263 /* Extract the file name from the aux entry of a C_FILE symbol. Return
1264 only the last component of the name. Result is in static storage and
1265 is only good for temporary use. */
1268 coff_getfilename (union internal_auxent
*aux_entry
)
1270 static char buffer
[BUFSIZ
];
1274 if (aux_entry
->x_file
.x_n
.x_zeroes
== 0)
1275 strcpy (buffer
, stringtab
+ aux_entry
->x_file
.x_n
.x_offset
);
1278 strncpy (buffer
, aux_entry
->x_file
.x_fname
, FILNMLEN
);
1279 buffer
[FILNMLEN
] = '\0';
1283 /* FIXME: We should not be throwing away the information about what
1284 directory. It should go into dirname of the symtab, or some such
1286 if ((temp
= strrchr (result
, '/')) != NULL
)
1291 /* Support for line number handling. */
1293 static char *linetab
= NULL
;
1294 static long linetab_offset
;
1295 static unsigned long linetab_size
;
1297 /* Read in all the line numbers for fast lookups later. Leave them in
1298 external (unswapped) format in memory; we'll swap them as we enter
1299 them into GDB's data structures. */
1302 init_lineno (bfd
*abfd
, long offset
, int size
)
1306 linetab_offset
= offset
;
1307 linetab_size
= size
;
1314 if (bfd_seek (abfd
, offset
, 0) < 0)
1317 /* Allocate the desired table, plus a sentinel */
1318 linetab
= (char *) xmalloc (size
+ local_linesz
);
1320 val
= bfd_bread (linetab
, size
, abfd
);
1324 /* Terminate it with an all-zero sentinel record */
1325 memset (linetab
+ size
, 0, local_linesz
);
1339 free_linetab_cleanup (void *ignore
)
1344 #if !defined (L_LNNO32)
1345 #define L_LNNO32(lp) ((lp)->l_lnno)
1349 enter_linenos (long file_offset
, int first_line
,
1350 int last_line
, struct objfile
*objfile
)
1353 struct internal_lineno lptr
;
1357 if (file_offset
< linetab_offset
)
1359 complaint (&symfile_complaints
,
1360 "Line number pointer %ld lower than start of line numbers",
1362 if (file_offset
> linetab_size
) /* Too big to be an offset? */
1364 file_offset
+= linetab_offset
; /* Try reading at that linetab offset */
1367 rawptr
= &linetab
[file_offset
- linetab_offset
];
1369 /* skip first line entry for each function */
1370 rawptr
+= local_linesz
;
1371 /* line numbers start at one for the first line of the function */
1376 bfd_coff_swap_lineno_in (symfile_bfd
, rawptr
, &lptr
);
1377 rawptr
+= local_linesz
;
1378 /* The next function, or the sentinel, will have L_LNNO32 zero; we exit. */
1379 if (L_LNNO32 (&lptr
) && L_LNNO32 (&lptr
) <= last_line
)
1380 record_line (current_subfile
, first_line
+ L_LNNO32 (&lptr
),
1382 + ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
)));
1389 patch_type (struct type
*type
, struct type
*real_type
)
1391 struct type
*target
= TYPE_TARGET_TYPE (type
);
1392 struct type
*real_target
= TYPE_TARGET_TYPE (real_type
);
1393 int field_size
= TYPE_NFIELDS (real_target
) * sizeof (struct field
);
1395 TYPE_LENGTH (target
) = TYPE_LENGTH (real_target
);
1396 TYPE_NFIELDS (target
) = TYPE_NFIELDS (real_target
);
1397 TYPE_FIELDS (target
) = (struct field
*) TYPE_ALLOC (target
, field_size
);
1399 memcpy (TYPE_FIELDS (target
), TYPE_FIELDS (real_target
), field_size
);
1401 if (TYPE_NAME (real_target
))
1403 if (TYPE_NAME (target
))
1404 xfree (TYPE_NAME (target
));
1405 TYPE_NAME (target
) = concat (TYPE_NAME (real_target
), NULL
);
1409 /* Patch up all appropriate typedef symbols in the opaque_type_chains
1410 so that they can be used to print out opaque data structures properly. */
1413 patch_opaque_types (struct symtab
*s
)
1416 struct dict_iterator iter
;
1417 struct symbol
*real_sym
;
1419 /* Go through the per-file symbols only */
1420 b
= BLOCKVECTOR_BLOCK (BLOCKVECTOR (s
), STATIC_BLOCK
);
1421 ALL_BLOCK_SYMBOLS (b
, iter
, real_sym
)
1423 /* Find completed typedefs to use to fix opaque ones.
1424 Remove syms from the chain when their types are stored,
1425 but search the whole chain, as there may be several syms
1426 from different files with the same name. */
1427 if (SYMBOL_CLASS (real_sym
) == LOC_TYPEDEF
&&
1428 SYMBOL_DOMAIN (real_sym
) == VAR_DOMAIN
&&
1429 TYPE_CODE (SYMBOL_TYPE (real_sym
)) == TYPE_CODE_PTR
&&
1430 TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (real_sym
))) != 0)
1432 char *name
= DEPRECATED_SYMBOL_NAME (real_sym
);
1433 int hash
= hashname (name
);
1434 struct symbol
*sym
, *prev
;
1437 for (sym
= opaque_type_chain
[hash
]; sym
;)
1439 if (name
[0] == DEPRECATED_SYMBOL_NAME (sym
)[0] &&
1440 STREQ (name
+ 1, DEPRECATED_SYMBOL_NAME (sym
) + 1))
1444 SYMBOL_VALUE_CHAIN (prev
) = SYMBOL_VALUE_CHAIN (sym
);
1448 opaque_type_chain
[hash
] = SYMBOL_VALUE_CHAIN (sym
);
1451 patch_type (SYMBOL_TYPE (sym
), SYMBOL_TYPE (real_sym
));
1455 sym
= SYMBOL_VALUE_CHAIN (prev
);
1459 sym
= opaque_type_chain
[hash
];
1465 sym
= SYMBOL_VALUE_CHAIN (sym
);
1472 static struct symbol
*
1473 process_coff_symbol (struct coff_symbol
*cs
,
1474 union internal_auxent
*aux
,
1475 struct objfile
*objfile
)
1478 = (struct symbol
*) obstack_alloc (&objfile
->symbol_obstack
,
1479 sizeof (struct symbol
));
1482 memset (sym
, 0, sizeof (struct symbol
));
1484 name
= EXTERNAL_NAME (name
, objfile
->obfd
);
1485 SYMBOL_LANGUAGE (sym
) = language_auto
;
1486 SYMBOL_SET_NAMES (sym
, name
, strlen (name
), objfile
);
1488 /* default assumptions */
1489 SYMBOL_VALUE (sym
) = cs
->c_value
;
1490 SYMBOL_DOMAIN (sym
) = VAR_DOMAIN
;
1491 SYMBOL_SECTION (sym
) = cs_to_section (cs
, objfile
);
1493 if (ISFCN (cs
->c_type
))
1495 SYMBOL_VALUE (sym
) += ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
1497 lookup_function_type (decode_function_type (cs
, cs
->c_type
, aux
));
1499 SYMBOL_CLASS (sym
) = LOC_BLOCK
;
1500 if (cs
->c_sclass
== C_STAT
|| cs
->c_sclass
== C_THUMBSTAT
1501 || cs
->c_sclass
== C_THUMBSTATFUNC
)
1502 add_symbol_to_list (sym
, &file_symbols
);
1503 else if (cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXT
1504 || cs
->c_sclass
== C_THUMBEXTFUNC
)
1505 add_symbol_to_list (sym
, &global_symbols
);
1509 SYMBOL_TYPE (sym
) = decode_type (cs
, cs
->c_type
, aux
);
1510 switch (cs
->c_sclass
)
1516 SYMBOL_CLASS (sym
) = LOC_LOCAL
;
1517 add_symbol_to_list (sym
, &local_symbols
);
1521 case C_THUMBEXTFUNC
:
1523 SYMBOL_CLASS (sym
) = LOC_STATIC
;
1524 SYMBOL_VALUE_ADDRESS (sym
) = (CORE_ADDR
) cs
->c_value
;
1525 SYMBOL_VALUE_ADDRESS (sym
) += ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
1526 add_symbol_to_list (sym
, &global_symbols
);
1530 case C_THUMBSTATFUNC
:
1532 SYMBOL_CLASS (sym
) = LOC_STATIC
;
1533 SYMBOL_VALUE_ADDRESS (sym
) = (CORE_ADDR
) cs
->c_value
;
1534 SYMBOL_VALUE_ADDRESS (sym
) += ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
1535 if (within_function
)
1537 /* Static symbol of local scope */
1538 add_symbol_to_list (sym
, &local_symbols
);
1542 /* Static symbol at top level of file */
1543 add_symbol_to_list (sym
, &file_symbols
);
1547 #ifdef C_GLBLREG /* AMD coff */
1551 SYMBOL_CLASS (sym
) = LOC_REGISTER
;
1552 SYMBOL_VALUE (sym
) = SDB_REG_TO_REGNUM (cs
->c_value
);
1553 add_symbol_to_list (sym
, &local_symbols
);
1561 SYMBOL_CLASS (sym
) = LOC_ARG
;
1562 add_symbol_to_list (sym
, &local_symbols
);
1563 #if !defined (BELIEVE_PCC_PROMOTION)
1564 if (TARGET_BYTE_ORDER
== BFD_ENDIAN_BIG
)
1566 /* If PCC says a parameter is a short or a char,
1567 aligned on an int boundary, realign it to the
1568 "little end" of the int. */
1569 struct type
*temptype
;
1570 temptype
= lookup_fundamental_type (current_objfile
,
1572 if (TYPE_LENGTH (SYMBOL_TYPE (sym
)) < TYPE_LENGTH (temptype
)
1573 && TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_INT
1574 && 0 == SYMBOL_VALUE (sym
) % TYPE_LENGTH (temptype
))
1576 SYMBOL_VALUE (sym
) +=
1577 TYPE_LENGTH (temptype
)
1578 - TYPE_LENGTH (SYMBOL_TYPE (sym
));
1585 SYMBOL_CLASS (sym
) = LOC_REGPARM
;
1586 SYMBOL_VALUE (sym
) = SDB_REG_TO_REGNUM (cs
->c_value
);
1587 add_symbol_to_list (sym
, &local_symbols
);
1588 #if !defined (BELIEVE_PCC_PROMOTION)
1589 /* FIXME: This should retain the current type, since it's just
1590 a register value. gnu@adobe, 26Feb93 */
1592 /* If PCC says a parameter is a short or a char,
1593 it is really an int. */
1594 struct type
*temptype
;
1596 lookup_fundamental_type (current_objfile
, FT_INTEGER
);
1597 if (TYPE_LENGTH (SYMBOL_TYPE (sym
)) < TYPE_LENGTH (temptype
)
1598 && TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_INT
)
1601 (TYPE_UNSIGNED (SYMBOL_TYPE (sym
))
1602 ? lookup_fundamental_type (current_objfile
,
1603 FT_UNSIGNED_INTEGER
)
1611 SYMBOL_CLASS (sym
) = LOC_TYPEDEF
;
1612 SYMBOL_DOMAIN (sym
) = VAR_DOMAIN
;
1614 /* If type has no name, give it one */
1615 if (TYPE_NAME (SYMBOL_TYPE (sym
)) == 0)
1617 if (TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_PTR
1618 || TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_FUNC
)
1620 /* If we are giving a name to a type such as "pointer to
1621 foo" or "function returning foo", we better not set
1622 the TYPE_NAME. If the program contains "typedef char
1623 *caddr_t;", we don't want all variables of type char
1624 * to print as caddr_t. This is not just a
1625 consequence of GDB's type management; CC and GCC (at
1626 least through version 2.4) both output variables of
1627 either type char * or caddr_t with the type
1628 refering to the C_TPDEF symbol for caddr_t. If a future
1629 compiler cleans this up it GDB is not ready for it
1630 yet, but if it becomes ready we somehow need to
1631 disable this check (without breaking the PCC/GCC2.4
1636 Fortunately, this check seems not to be necessary
1637 for anything except pointers or functions. */
1641 TYPE_NAME (SYMBOL_TYPE (sym
)) =
1642 concat (DEPRECATED_SYMBOL_NAME (sym
), NULL
);
1645 /* Ignore vendor section for Harris CX/UX targets. */
1646 else if (cs
->c_name
[0] == '$')
1648 #endif /* CXUX_TARGET */
1650 /* Keep track of any type which points to empty structured type,
1651 so it can be filled from a definition from another file. A
1652 simple forward reference (TYPE_CODE_UNDEF) is not an
1653 empty structured type, though; the forward references
1654 work themselves out via the magic of coff_lookup_type. */
1655 if (TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_PTR
&&
1656 TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym
))) == 0 &&
1657 TYPE_CODE (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym
))) !=
1660 int i
= hashname (DEPRECATED_SYMBOL_NAME (sym
));
1662 SYMBOL_VALUE_CHAIN (sym
) = opaque_type_chain
[i
];
1663 opaque_type_chain
[i
] = sym
;
1665 add_symbol_to_list (sym
, &file_symbols
);
1671 SYMBOL_CLASS (sym
) = LOC_TYPEDEF
;
1672 SYMBOL_DOMAIN (sym
) = STRUCT_DOMAIN
;
1674 /* Some compilers try to be helpful by inventing "fake"
1675 names for anonymous enums, structures, and unions, like
1676 "~0fake" or ".0fake". Thanks, but no thanks... */
1677 if (TYPE_TAG_NAME (SYMBOL_TYPE (sym
)) == 0)
1678 if (DEPRECATED_SYMBOL_NAME (sym
) != NULL
1679 && *DEPRECATED_SYMBOL_NAME (sym
) != '~'
1680 && *DEPRECATED_SYMBOL_NAME (sym
) != '.')
1681 TYPE_TAG_NAME (SYMBOL_TYPE (sym
)) =
1682 concat (DEPRECATED_SYMBOL_NAME (sym
), NULL
);
1684 add_symbol_to_list (sym
, &file_symbols
);
1694 /* Decode a coff type specifier; return the type that is meant. */
1696 static struct type
*
1697 decode_type (struct coff_symbol
*cs
, unsigned int c_type
,
1698 union internal_auxent
*aux
)
1700 struct type
*type
= 0;
1701 unsigned int new_c_type
;
1703 if (c_type
& ~N_BTMASK
)
1705 new_c_type
= DECREF (c_type
);
1708 type
= decode_type (cs
, new_c_type
, aux
);
1709 type
= lookup_pointer_type (type
);
1711 else if (ISFCN (c_type
))
1713 type
= decode_type (cs
, new_c_type
, aux
);
1714 type
= lookup_function_type (type
);
1716 else if (ISARY (c_type
))
1719 unsigned short *dim
;
1720 struct type
*base_type
, *index_type
, *range_type
;
1722 /* Define an array type. */
1723 /* auxent refers to array, not base type */
1724 if (aux
->x_sym
.x_tagndx
.l
== 0)
1727 /* shift the indices down */
1728 dim
= &aux
->x_sym
.x_fcnary
.x_ary
.x_dimen
[0];
1731 for (i
= 0; *dim
&& i
< DIMNUM
- 1; i
++, dim
++)
1735 base_type
= decode_type (cs
, new_c_type
, aux
);
1736 index_type
= lookup_fundamental_type (current_objfile
, FT_INTEGER
);
1738 create_range_type ((struct type
*) NULL
, index_type
, 0, n
- 1);
1740 create_array_type ((struct type
*) NULL
, base_type
, range_type
);
1745 /* Reference to existing type. This only occurs with the
1746 struct, union, and enum types. EPI a29k coff
1747 fakes us out by producing aux entries with a nonzero
1748 x_tagndx for definitions of structs, unions, and enums, so we
1749 have to check the c_sclass field. SCO 3.2v4 cc gets confused
1750 with pointers to pointers to defined structs, and generates
1751 negative x_tagndx fields. */
1752 if (cs
->c_naux
> 0 && aux
->x_sym
.x_tagndx
.l
!= 0)
1754 if (cs
->c_sclass
!= C_STRTAG
1755 && cs
->c_sclass
!= C_UNTAG
1756 && cs
->c_sclass
!= C_ENTAG
1757 && aux
->x_sym
.x_tagndx
.l
>= 0)
1759 type
= coff_alloc_type (aux
->x_sym
.x_tagndx
.l
);
1764 complaint (&symfile_complaints
,
1765 "Symbol table entry for %s has bad tagndx value",
1767 /* And fall through to decode_base_type... */
1771 return decode_base_type (cs
, BTYPE (c_type
), aux
);
1774 /* Decode a coff type specifier for function definition;
1775 return the type that the function returns. */
1777 static struct type
*
1778 decode_function_type (struct coff_symbol
*cs
, unsigned int c_type
,
1779 union internal_auxent
*aux
)
1781 if (aux
->x_sym
.x_tagndx
.l
== 0)
1782 cs
->c_naux
= 0; /* auxent refers to function, not base type */
1784 return decode_type (cs
, DECREF (c_type
), aux
);
1789 static struct type
*
1790 decode_base_type (struct coff_symbol
*cs
, unsigned int c_type
,
1791 union internal_auxent
*aux
)
1798 /* shows up with "void (*foo)();" structure members */
1799 return lookup_fundamental_type (current_objfile
, FT_VOID
);
1802 /* DGUX actually defines both T_ARG and T_VOID to the same value. */
1805 /* Shows up in DGUX, I think. Not sure where. */
1806 return lookup_fundamental_type (current_objfile
, FT_VOID
); /* shouldn't show up here */
1812 /* Intel 960 COFF has this symbol and meaning. */
1813 return lookup_fundamental_type (current_objfile
, FT_VOID
);
1817 return lookup_fundamental_type (current_objfile
, FT_CHAR
);
1820 return lookup_fundamental_type (current_objfile
, FT_SHORT
);
1823 return lookup_fundamental_type (current_objfile
, FT_INTEGER
);
1826 if (cs
->c_sclass
== C_FIELD
1827 && aux
->x_sym
.x_misc
.x_lnsz
.x_size
> TARGET_LONG_BIT
)
1828 return lookup_fundamental_type (current_objfile
, FT_LONG_LONG
);
1830 return lookup_fundamental_type (current_objfile
, FT_LONG
);
1833 return lookup_fundamental_type (current_objfile
, FT_FLOAT
);
1836 return lookup_fundamental_type (current_objfile
, FT_DBL_PREC_FLOAT
);
1839 return lookup_fundamental_type (current_objfile
, FT_EXT_PREC_FLOAT
);
1842 if (cs
->c_naux
!= 1)
1844 /* anonymous structure type */
1845 type
= coff_alloc_type (cs
->c_symnum
);
1846 TYPE_CODE (type
) = TYPE_CODE_STRUCT
;
1847 TYPE_NAME (type
) = NULL
;
1848 /* This used to set the tag to "<opaque>". But I think setting it
1849 to NULL is right, and the printing code can print it as
1851 TYPE_TAG_NAME (type
) = NULL
;
1852 INIT_CPLUS_SPECIFIC (type
);
1853 TYPE_LENGTH (type
) = 0;
1854 TYPE_FIELDS (type
) = 0;
1855 TYPE_NFIELDS (type
) = 0;
1859 type
= coff_read_struct_type (cs
->c_symnum
,
1860 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1861 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
);
1866 if (cs
->c_naux
!= 1)
1868 /* anonymous union type */
1869 type
= coff_alloc_type (cs
->c_symnum
);
1870 TYPE_NAME (type
) = NULL
;
1871 /* This used to set the tag to "<opaque>". But I think setting it
1872 to NULL is right, and the printing code can print it as
1874 TYPE_TAG_NAME (type
) = NULL
;
1875 INIT_CPLUS_SPECIFIC (type
);
1876 TYPE_LENGTH (type
) = 0;
1877 TYPE_FIELDS (type
) = 0;
1878 TYPE_NFIELDS (type
) = 0;
1882 type
= coff_read_struct_type (cs
->c_symnum
,
1883 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1884 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
);
1886 TYPE_CODE (type
) = TYPE_CODE_UNION
;
1890 if (cs
->c_naux
!= 1)
1892 /* anonymous enum type */
1893 type
= coff_alloc_type (cs
->c_symnum
);
1894 TYPE_CODE (type
) = TYPE_CODE_ENUM
;
1895 TYPE_NAME (type
) = NULL
;
1896 /* This used to set the tag to "<opaque>". But I think setting it
1897 to NULL is right, and the printing code can print it as
1899 TYPE_TAG_NAME (type
) = NULL
;
1900 TYPE_LENGTH (type
) = 0;
1901 TYPE_FIELDS (type
) = 0;
1902 TYPE_NFIELDS (type
) = 0;
1906 type
= coff_read_enum_type (cs
->c_symnum
,
1907 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1908 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
);
1913 /* shouldn't show up here */
1917 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_CHAR
);
1920 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_SHORT
);
1923 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_INTEGER
);
1926 if (cs
->c_sclass
== C_FIELD
1927 && aux
->x_sym
.x_misc
.x_lnsz
.x_size
> TARGET_LONG_BIT
)
1928 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_LONG_LONG
);
1930 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_LONG
);
1932 complaint (&symfile_complaints
, "Unexpected type for symbol %s", cs
->c_name
);
1933 return lookup_fundamental_type (current_objfile
, FT_VOID
);
1936 /* This page contains subroutines of read_type. */
1938 /* Read the description of a structure (or union type) and return an
1939 object describing the type. */
1941 static struct type
*
1942 coff_read_struct_type (int index
, int length
, int lastsym
)
1946 struct nextfield
*next
;
1951 struct nextfield
*list
= 0;
1952 struct nextfield
*new;
1956 struct coff_symbol member_sym
;
1957 struct coff_symbol
*ms
= &member_sym
;
1958 struct internal_syment sub_sym
;
1959 union internal_auxent sub_aux
;
1962 type
= coff_alloc_type (index
);
1963 TYPE_CODE (type
) = TYPE_CODE_STRUCT
;
1964 INIT_CPLUS_SPECIFIC (type
);
1965 TYPE_LENGTH (type
) = length
;
1967 while (!done
&& symnum
< lastsym
&& symnum
< nlist_nsyms_global
)
1969 read_one_sym (ms
, &sub_sym
, &sub_aux
);
1971 name
= EXTERNAL_NAME (name
, current_objfile
->obfd
);
1973 switch (ms
->c_sclass
)
1978 /* Get space to record the next field's data. */
1979 new = (struct nextfield
*) alloca (sizeof (struct nextfield
));
1983 /* Save the data. */
1987 ¤t_objfile
->symbol_obstack
);
1988 FIELD_TYPE (list
->field
) = decode_type (ms
, ms
->c_type
, &sub_aux
);
1989 FIELD_BITPOS (list
->field
) = 8 * ms
->c_value
;
1990 FIELD_BITSIZE (list
->field
) = 0;
1991 FIELD_STATIC_KIND (list
->field
) = 0;
1997 /* Get space to record the next field's data. */
1998 new = (struct nextfield
*) alloca (sizeof (struct nextfield
));
2002 /* Save the data. */
2006 ¤t_objfile
->symbol_obstack
);
2007 FIELD_TYPE (list
->field
) = decode_type (ms
, ms
->c_type
, &sub_aux
);
2008 FIELD_BITPOS (list
->field
) = ms
->c_value
;
2009 FIELD_BITSIZE (list
->field
) = sub_aux
.x_sym
.x_misc
.x_lnsz
.x_size
;
2010 FIELD_STATIC_KIND (list
->field
) = 0;
2019 /* Now create the vector of fields, and record how big it is. */
2021 TYPE_NFIELDS (type
) = nfields
;
2022 TYPE_FIELDS (type
) = (struct field
*)
2023 TYPE_ALLOC (type
, sizeof (struct field
) * nfields
);
2025 /* Copy the saved-up fields into the field vector. */
2027 for (n
= nfields
; list
; list
= list
->next
)
2028 TYPE_FIELD (type
, --n
) = list
->field
;
2033 /* Read a definition of an enumeration type,
2034 and create and return a suitable type object.
2035 Also defines the symbols that represent the values of the type. */
2037 static struct type
*
2038 coff_read_enum_type (int index
, int length
, int lastsym
)
2044 struct pending
**symlist
;
2045 struct coff_symbol member_sym
;
2046 struct coff_symbol
*ms
= &member_sym
;
2047 struct internal_syment sub_sym
;
2048 union internal_auxent sub_aux
;
2049 struct pending
*osyms
, *syms
;
2053 int unsigned_enum
= 1;
2055 type
= coff_alloc_type (index
);
2056 if (within_function
)
2057 symlist
= &local_symbols
;
2059 symlist
= &file_symbols
;
2061 o_nsyms
= osyms
? osyms
->nsyms
: 0;
2063 while (!done
&& symnum
< lastsym
&& symnum
< nlist_nsyms_global
)
2065 read_one_sym (ms
, &sub_sym
, &sub_aux
);
2067 name
= EXTERNAL_NAME (name
, current_objfile
->obfd
);
2069 switch (ms
->c_sclass
)
2072 sym
= (struct symbol
*) obstack_alloc
2073 (¤t_objfile
->symbol_obstack
,
2074 sizeof (struct symbol
));
2075 memset (sym
, 0, sizeof (struct symbol
));
2077 DEPRECATED_SYMBOL_NAME (sym
) =
2078 obsavestring (name
, strlen (name
),
2079 ¤t_objfile
->symbol_obstack
);
2080 SYMBOL_CLASS (sym
) = LOC_CONST
;
2081 SYMBOL_DOMAIN (sym
) = VAR_DOMAIN
;
2082 SYMBOL_VALUE (sym
) = ms
->c_value
;
2083 add_symbol_to_list (sym
, symlist
);
2088 /* Sometimes the linker (on 386/ix 2.0.2 at least) screws
2089 up the count of how many symbols to read. So stop
2096 /* Now fill in the fields of the type-structure. */
2099 TYPE_LENGTH (type
) = length
;
2101 TYPE_LENGTH (type
) = TARGET_INT_BIT
/ TARGET_CHAR_BIT
; /* Assume ints */
2102 TYPE_CODE (type
) = TYPE_CODE_ENUM
;
2103 TYPE_NFIELDS (type
) = nsyms
;
2104 TYPE_FIELDS (type
) = (struct field
*)
2105 TYPE_ALLOC (type
, sizeof (struct field
) * nsyms
);
2107 /* Find the symbols for the values and put them into the type.
2108 The symbols can be found in the symlist that we put them on
2109 to cause them to be defined. osyms contains the old value
2110 of that symlist; everything up to there was defined by us. */
2111 /* Note that we preserve the order of the enum constants, so
2112 that in something like "enum {FOO, LAST_THING=FOO}" we print
2113 FOO, not LAST_THING. */
2115 for (syms
= *symlist
, n
= 0; syms
; syms
= syms
->next
)
2121 for (; j
< syms
->nsyms
; j
++, n
++)
2123 struct symbol
*xsym
= syms
->symbol
[j
];
2124 SYMBOL_TYPE (xsym
) = type
;
2125 TYPE_FIELD_NAME (type
, n
) = DEPRECATED_SYMBOL_NAME (xsym
);
2126 TYPE_FIELD_BITPOS (type
, n
) = SYMBOL_VALUE (xsym
);
2127 if (SYMBOL_VALUE (xsym
) < 0)
2129 TYPE_FIELD_BITSIZE (type
, n
) = 0;
2130 TYPE_FIELD_STATIC_KIND (type
, n
) = 0;
2137 TYPE_FLAGS (type
) |= TYPE_FLAG_UNSIGNED
;
2142 /* Register our ability to parse symbols for coff BFD files. */
2144 static struct sym_fns coff_sym_fns
=
2146 bfd_target_coff_flavour
,
2147 coff_new_init
, /* sym_new_init: init anything gbl to entire symtab */
2148 coff_symfile_init
, /* sym_init: read initial info, setup for sym_read() */
2149 coff_symfile_read
, /* sym_read: read a symbol file into symtab */
2150 coff_symfile_finish
, /* sym_finish: finished with file, cleanup */
2151 default_symfile_offsets
, /* sym_offsets: xlate external to internal form */
2152 NULL
/* next: pointer to next struct sym_fns */
2156 _initialize_coffread (void)
2158 add_symtab_fns (&coff_sym_fns
);