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
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"
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 patch_type (struct type
*, struct type
*);
197 static void enter_linenos (long, int, int, struct objfile
*);
199 static void free_linetab (void);
201 static void free_linetab_cleanup (void *ignore
);
203 static int init_lineno (bfd
*, long, int);
205 static char *getsymname (struct internal_syment
*);
207 static char *coff_getfilename (union internal_auxent
*);
209 static void free_stringtab (void);
211 static void free_stringtab_cleanup (void *ignore
);
213 static int init_stringtab (bfd
*, long);
215 static void read_one_sym (struct coff_symbol
*,
216 struct internal_syment
*, union internal_auxent
*);
218 static void coff_symtab_read (long, unsigned int, struct objfile
*);
220 static void find_linenos (bfd
*, sec_ptr
, PTR
);
222 static void coff_symfile_init (struct objfile
*);
224 static void coff_new_init (struct objfile
*);
226 static void coff_symfile_read (struct objfile
*, int);
228 static void coff_symfile_finish (struct objfile
*);
230 static void record_minimal_symbol (char *, CORE_ADDR
,
231 enum minimal_symbol_type
,
234 static void coff_end_symtab (struct objfile
*);
236 static void complete_symtab (char *, CORE_ADDR
, unsigned int);
238 static void coff_start_symtab (char *);
240 static struct type
*coff_alloc_type (int);
242 static struct type
**coff_lookup_type (int);
244 static void coff_locate_sections (bfd
*, asection
*, PTR
);
246 /* We are called once per section from coff_symfile_read. We
247 need to examine each section we are passed, check to see
248 if it is something we are interested in processing, and
249 if so, stash away some access information for the section.
251 FIXME: The section names should not be hardwired strings (what
252 should they be? I don't think most object file formats have enough
253 section flags to specify what kind of debug section it is
257 coff_locate_sections (bfd
*abfd
, asection
*sectp
, PTR csip
)
259 register struct coff_symfile_info
*csi
;
262 csi
= (struct coff_symfile_info
*) csip
;
263 name
= bfd_get_section_name (abfd
, sectp
);
264 if (STREQ (name
, ".text"))
266 csi
->textaddr
= bfd_section_vma (abfd
, sectp
);
267 csi
->textsize
+= bfd_section_size (abfd
, sectp
);
269 else if (strncmp (name
, ".text", sizeof ".text" - 1) == 0)
271 csi
->textsize
+= bfd_section_size (abfd
, sectp
);
273 else if (STREQ (name
, ".stabstr"))
275 csi
->stabstrsect
= sectp
;
277 else if (strncmp (name
, ".stab", sizeof ".stab" - 1) == 0)
281 /* We can have multiple .stab sections if linked with
283 for (s
= name
+ sizeof ".stab" - 1; *s
!= '\0'; s
++)
288 struct stab_section_list
*n
, **pn
;
290 n
= ((struct stab_section_list
*)
291 xmalloc (sizeof (struct stab_section_list
)));
294 for (pn
= &csi
->stabsects
; *pn
!= NULL
; pn
= &(*pn
)->next
)
298 /* This will be run after coffstab_build_psymtabs is called
299 in coff_symfile_read, at which point we no longer need
301 make_cleanup (xfree
, n
);
306 /* Return the section_offsets* that CS points to. */
307 static int cs_to_section (struct coff_symbol
*, struct objfile
*);
309 struct find_targ_sec_arg
315 static void find_targ_sec (bfd
*, asection
*, PTR
);
318 find_targ_sec (bfd
*abfd
, asection
*sect
, PTR obj
)
320 struct find_targ_sec_arg
*args
= (struct find_targ_sec_arg
*) obj
;
321 if (sect
->target_index
== args
->targ_index
)
322 *args
->resultp
= sect
;
325 /* Return the section number (SECT_OFF_*) that CS points to. */
327 cs_to_section (struct coff_symbol
*cs
, struct objfile
*objfile
)
329 asection
*sect
= NULL
;
330 struct find_targ_sec_arg args
;
331 int off
= SECT_OFF_TEXT (objfile
);
333 args
.targ_index
= cs
->c_secnum
;
334 args
.resultp
= §
;
335 bfd_map_over_sections (objfile
->obfd
, find_targ_sec
, &args
);
338 /* This is the section. Figure out what SECT_OFF_* code it is. */
339 if (bfd_get_section_flags (abfd
, sect
) & SEC_CODE
)
340 off
= SECT_OFF_TEXT (objfile
);
341 else if (bfd_get_section_flags (abfd
, sect
) & SEC_LOAD
)
342 off
= SECT_OFF_DATA (objfile
);
344 /* Just return the bfd section index. */
350 /* Return the address of the section of a COFF symbol. */
352 static CORE_ADDR
cs_section_address (struct coff_symbol
*, bfd
*);
355 cs_section_address (struct coff_symbol
*cs
, bfd
*abfd
)
357 asection
*sect
= NULL
;
358 struct find_targ_sec_arg args
;
361 args
.targ_index
= cs
->c_secnum
;
362 args
.resultp
= §
;
363 bfd_map_over_sections (abfd
, find_targ_sec
, &args
);
365 addr
= bfd_get_section_vma (objfile
->obfd
, sect
);
369 /* Look up a coff type-number index. Return the address of the slot
370 where the type for that index is stored.
371 The type-number is in INDEX.
373 This can be used for finding the type associated with that index
374 or for associating a new type with the index. */
376 static struct type
**
377 coff_lookup_type (register int index
)
379 if (index
>= type_vector_length
)
381 int old_vector_length
= type_vector_length
;
383 type_vector_length
*= 2;
384 if (index
/* is still */ >= type_vector_length
)
385 type_vector_length
= index
* 2;
387 type_vector
= (struct type
**)
388 xrealloc ((char *) type_vector
,
389 type_vector_length
* sizeof (struct type
*));
390 memset (&type_vector
[old_vector_length
], 0,
391 (type_vector_length
- old_vector_length
) * sizeof (struct type
*));
393 return &type_vector
[index
];
396 /* Make sure there is a type allocated for type number index
397 and return the type object.
398 This can create an empty (zeroed) type object. */
401 coff_alloc_type (int index
)
403 register struct type
**type_addr
= coff_lookup_type (index
);
404 register struct type
*type
= *type_addr
;
406 /* If we are referring to a type not known at all yet,
407 allocate an empty type for it.
408 We will fill it in later if we find out how. */
411 type
= alloc_type (current_objfile
);
417 /* Start a new symtab for a new source file.
418 This is called when a COFF ".file" symbol is seen;
419 it indicates the start of data for one original source file. */
422 coff_start_symtab (char *name
)
425 /* We fill in the filename later. start_symtab puts
426 this pointer into last_source_file and we put it in
427 subfiles->name, which end_symtab frees; that's why
428 it must be malloc'd. */
429 savestring (name
, strlen (name
)),
430 /* We never know the directory name for COFF. */
432 /* The start address is irrelevant, since we set
433 last_source_start_addr in coff_end_symtab. */
435 record_debugformat ("COFF");
438 /* Save the vital information from when starting to read a file,
439 for use when closing off the current file.
440 NAME is the file name the symbols came from, START_ADDR is the first
441 text address for the file, and SIZE is the number of bytes of text. */
444 complete_symtab (char *name
, CORE_ADDR start_addr
, unsigned int size
)
446 if (last_source_file
!= NULL
)
447 xfree (last_source_file
);
448 last_source_file
= savestring (name
, strlen (name
));
449 current_source_start_addr
= start_addr
;
450 current_source_end_addr
= start_addr
+ size
;
452 if (current_objfile
->ei
.entry_point
>= current_source_start_addr
&&
453 current_objfile
->ei
.entry_point
< current_source_end_addr
)
455 current_objfile
->ei
.entry_file_lowpc
= current_source_start_addr
;
456 current_objfile
->ei
.entry_file_highpc
= current_source_end_addr
;
460 /* Finish the symbol definitions for one main source file,
461 close off all the lexical contexts for that file
462 (creating struct block's for them), then make the
463 struct symtab for that file and put it in the list of all such. */
466 coff_end_symtab (struct objfile
*objfile
)
468 struct symtab
*symtab
;
470 last_source_start_addr
= current_source_start_addr
;
472 symtab
= end_symtab (current_source_end_addr
, objfile
, SECT_OFF_TEXT (objfile
));
475 free_named_symtabs (symtab
->filename
);
477 /* Reinitialize for beginning of new file. */
478 last_source_file
= NULL
;
482 record_minimal_symbol (char *name
, CORE_ADDR address
,
483 enum minimal_symbol_type type
, struct objfile
*objfile
)
485 /* We don't want TDESC entry points in the minimal symbol table */
489 prim_record_minimal_symbol (name
, address
, type
, objfile
);
492 /* coff_symfile_init ()
493 is the coff-specific initialization routine for reading symbols.
494 It is passed a struct objfile which contains, among other things,
495 the BFD for the file whose symbols are being read, and a slot for
496 a pointer to "private data" which we fill with cookies and other
497 treats for coff_symfile_read ().
499 We will only be called if this is a COFF or COFF-like file.
500 BFD handles figuring out the format of the file, and code in symtab.c
501 uses BFD's determination to vector to us.
503 The ultimate result is a new symtab (or, FIXME, eventually a psymtab). */
506 coff_symfile_init (struct objfile
*objfile
)
508 /* Allocate struct to keep track of stab reading. */
509 objfile
->sym_stab_info
= (struct dbx_symfile_info
*)
510 xmmalloc (objfile
->md
, sizeof (struct dbx_symfile_info
));
512 memset ((PTR
) objfile
->sym_stab_info
, 0, sizeof (struct dbx_symfile_info
));
514 /* Allocate struct to keep track of the symfile */
515 objfile
->sym_private
= xmmalloc (objfile
->md
,
516 sizeof (struct coff_symfile_info
));
518 memset (objfile
->sym_private
, 0, sizeof (struct coff_symfile_info
));
520 /* COFF objects may be reordered, so set OBJF_REORDERED. If we
521 find this causes a significant slowdown in gdb then we could
522 set it in the debug symbol readers only when necessary. */
523 objfile
->flags
|= OBJF_REORDERED
;
525 init_entry_point_info (objfile
);
528 /* This function is called for every section; it finds the outer limits
529 of the line table (minimum and maximum file offset) so that the
530 mainline code can read the whole thing for efficiency. */
534 find_linenos (bfd
*abfd
, sec_ptr asect
, PTR vpinfo
)
536 struct coff_symfile_info
*info
;
538 file_ptr offset
, maxoff
;
540 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
541 count
= asect
->lineno_count
;
546 size
= count
* local_linesz
;
548 info
= (struct coff_symfile_info
*) vpinfo
;
549 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
550 offset
= asect
->line_filepos
;
553 if (offset
< info
->min_lineno_offset
|| info
->min_lineno_offset
== 0)
554 info
->min_lineno_offset
= offset
;
556 maxoff
= offset
+ size
;
557 if (maxoff
> info
->max_lineno_offset
)
558 info
->max_lineno_offset
= maxoff
;
562 /* The BFD for this file -- only good while we're actively reading
563 symbols into a psymtab or a symtab. */
565 static bfd
*symfile_bfd
;
567 /* Read a symbol file, after initialization by coff_symfile_init. */
571 coff_symfile_read (struct objfile
*objfile
, int mainline
)
573 struct coff_symfile_info
*info
;
574 struct dbx_symfile_info
*dbxinfo
;
575 bfd
*abfd
= objfile
->obfd
;
576 coff_data_type
*cdata
= coff_data (abfd
);
577 char *name
= bfd_get_filename (abfd
);
579 unsigned int num_symbols
;
581 int stringtab_offset
;
582 struct cleanup
*back_to
;
587 info
= (struct coff_symfile_info
*) objfile
->sym_private
;
588 dbxinfo
= objfile
->sym_stab_info
;
589 symfile_bfd
= abfd
; /* Kludge for swap routines */
591 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
592 num_symbols
= bfd_get_symcount (abfd
); /* How many syms */
593 symtab_offset
= cdata
->sym_filepos
; /* Symbol table file offset */
594 stringtab_offset
= symtab_offset
+ /* String table file offset */
595 num_symbols
* cdata
->local_symesz
;
597 /* Set a few file-statics that give us specific information about
598 the particular COFF file format we're reading. */
599 local_n_btmask
= cdata
->local_n_btmask
;
600 local_n_btshft
= cdata
->local_n_btshft
;
601 local_n_tmask
= cdata
->local_n_tmask
;
602 local_n_tshift
= cdata
->local_n_tshift
;
603 local_linesz
= cdata
->local_linesz
;
604 local_symesz
= cdata
->local_symesz
;
605 local_auxesz
= cdata
->local_auxesz
;
607 /* Allocate space for raw symbol and aux entries, based on their
608 space requirements as reported by BFD. */
609 temp_sym
= (char *) xmalloc
610 (cdata
->local_symesz
+ cdata
->local_auxesz
);
611 temp_aux
= temp_sym
+ cdata
->local_symesz
;
612 back_to
= make_cleanup (free_current_contents
, &temp_sym
);
614 /* We need to know whether this is a PE file, because in PE files,
615 unlike standard COFF files, symbol values are stored as offsets
616 from the section address, rather than as absolute addresses.
617 FIXME: We should use BFD to read the symbol table, and thus avoid
620 strncmp (bfd_get_target (objfile
->obfd
), "pe", 2) == 0
621 || strncmp (bfd_get_target (objfile
->obfd
), "epoc-pe", 7) == 0;
625 /* Read the line number table, all at once. */
626 info
->min_lineno_offset
= 0;
627 info
->max_lineno_offset
= 0;
628 bfd_map_over_sections (abfd
, find_linenos
, (PTR
) info
);
630 make_cleanup (free_linetab_cleanup
, 0 /*ignore*/);
631 val
= init_lineno (abfd
, info
->min_lineno_offset
,
632 info
->max_lineno_offset
- info
->min_lineno_offset
);
634 error ("\"%s\": error reading line numbers\n", name
);
636 /* Now read the string table, all at once. */
638 make_cleanup (free_stringtab_cleanup
, 0 /*ignore*/);
639 val
= init_stringtab (abfd
, stringtab_offset
);
641 error ("\"%s\": can't get string table", name
);
643 init_minimal_symbol_collection ();
644 make_cleanup_discard_minimal_symbols ();
646 /* Now that the executable file is positioned at symbol table,
647 process it and define symbols accordingly. */
649 coff_symtab_read ((long) symtab_offset
, num_symbols
, objfile
);
651 /* Sort symbols alphabetically within each block. */
656 for (s
= objfile
->symtabs
; s
!= NULL
; s
= s
->next
)
657 sort_symtab_syms (s
);
660 /* Install any minimal symbols that have been collected as the current
661 minimal symbols for this objfile. */
663 install_minimal_symbols (objfile
);
665 bfd_map_over_sections (abfd
, coff_locate_sections
, (PTR
) info
);
669 if (!info
->stabstrsect
)
671 error (("The debugging information in `%s' is corrupted.\n"
672 "The file has a `.stabs' section, but no `.stabstr' "
677 /* FIXME: dubious. Why can't we use something normal like
678 bfd_get_section_contents? */
679 bfd_seek (abfd
, abfd
->where
, 0);
681 stabstrsize
= bfd_section_size (abfd
, info
->stabstrsect
);
683 coffstab_build_psymtabs (objfile
,
685 info
->textaddr
, info
->textsize
,
687 info
->stabstrsect
->filepos
, stabstrsize
);
689 if (dwarf2_has_info (abfd
))
691 /* DWARF2 sections. */
692 dwarf2_build_psymtabs (objfile
, mainline
);
695 do_cleanups (back_to
);
699 coff_new_init (struct objfile
*ignore
)
703 /* Perform any local cleanups required when we are done with a particular
704 objfile. I.E, we are in the process of discarding all symbol information
705 for an objfile, freeing up all memory held for it, and unlinking the
706 objfile struct from the global list of known objfiles. */
709 coff_symfile_finish (struct objfile
*objfile
)
711 if (objfile
->sym_private
!= NULL
)
713 xmfree (objfile
->md
, objfile
->sym_private
);
716 /* Let stabs reader clean up */
717 stabsread_clear_cache ();
721 /* Given pointers to a symbol table in coff style exec file,
722 analyze them and create struct symtab's describing the symbols.
723 NSYMS is the number of symbols in the symbol table.
724 We read them one at a time using read_one_sym (). */
727 coff_symtab_read (long symtab_offset
, unsigned int nsyms
,
728 struct objfile
*objfile
)
730 register struct context_stack
*new;
731 struct coff_symbol coff_symbol
;
732 register struct coff_symbol
*cs
= &coff_symbol
;
733 static struct internal_syment main_sym
;
734 static union internal_auxent main_aux
;
735 struct coff_symbol fcn_cs_saved
;
736 static struct internal_syment fcn_sym_saved
;
737 static union internal_auxent fcn_aux_saved
;
739 /* A .file is open. */
740 int in_source_file
= 0;
741 int next_file_symnum
= -1;
742 /* Name of the current file. */
743 char *filestring
= "";
745 int fcn_first_line
= 0;
746 CORE_ADDR fcn_first_line_addr
= 0;
747 int fcn_last_line
= 0;
748 int fcn_start_addr
= 0;
749 long fcn_line_ptr
= 0;
753 /* Work around a stdio bug in SunOS4.1.1 (this makes me nervous....
754 it's hard to know I've really worked around it. The fix should be
755 harmless, anyway). The symptom of the bug is that the first
756 fread (in read_one_sym), will (in my example) actually get data
757 from file offset 268, when the fseek was to 264 (and ftell shows
758 264). This causes all hell to break loose. I was unable to
759 reproduce this on a short test program which operated on the same
760 file, performing (I think) the same sequence of operations.
762 It stopped happening when I put in this (former) rewind().
764 FIXME: Find out if this has been reported to Sun, whether it has
765 been fixed in a later release, etc. */
767 bfd_seek (objfile
->obfd
, 0, 0);
769 /* Position to read the symbol table. */
770 val
= bfd_seek (objfile
->obfd
, (long) symtab_offset
, 0);
772 perror_with_name (objfile
->name
);
774 current_objfile
= objfile
;
775 nlist_bfd_global
= objfile
->obfd
;
776 nlist_nsyms_global
= nsyms
;
777 last_source_file
= NULL
;
778 memset (opaque_type_chain
, 0, sizeof opaque_type_chain
);
780 if (type_vector
) /* Get rid of previous one */
782 type_vector_length
= 160;
783 type_vector
= (struct type
**)
784 xmalloc (type_vector_length
* sizeof (struct type
*));
785 memset (type_vector
, 0, type_vector_length
* sizeof (struct type
*));
787 coff_start_symtab ("");
790 while (symnum
< nsyms
)
792 QUIT
; /* Make this command interruptable. */
794 read_one_sym (cs
, &main_sym
, &main_aux
);
796 if (cs
->c_symnum
== next_file_symnum
&& cs
->c_sclass
!= C_FILE
)
798 if (last_source_file
)
799 coff_end_symtab (objfile
);
801 coff_start_symtab ("_globals_");
802 complete_symtab ("_globals_", 0, 0);
803 /* done with all files, everything from here on out is globals */
806 /* Special case for file with type declarations only, no text. */
807 if (!last_source_file
&& SDB_TYPE (cs
->c_type
)
808 && cs
->c_secnum
== N_DEBUG
)
809 complete_symtab (filestring
, 0, 0);
811 /* Typedefs should not be treated as symbol definitions. */
812 if (ISFCN (cs
->c_type
) && cs
->c_sclass
!= C_TPDEF
)
814 /* Record all functions -- external and static -- in minsyms. */
815 tmpaddr
= cs
->c_value
+ ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
816 record_minimal_symbol (cs
->c_name
, tmpaddr
, mst_text
, objfile
);
818 fcn_line_ptr
= main_aux
.x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
;
819 fcn_start_addr
= tmpaddr
;
821 fcn_sym_saved
= main_sym
;
822 fcn_aux_saved
= main_aux
;
826 switch (cs
->c_sclass
)
835 complain (&bad_sclass_complaint
, cs
->c_name
);
839 /* c_value field contains symnum of next .file entry in table
840 or symnum of first global after last .file. */
841 next_file_symnum
= cs
->c_value
;
843 filestring
= coff_getfilename (&main_aux
);
847 /* Complete symbol table for last object file
848 containing debugging information. */
849 if (last_source_file
)
851 coff_end_symtab (objfile
);
852 coff_start_symtab (filestring
);
857 /* C_LABEL is used for labels and static functions. Including
858 it here allows gdb to see static functions when no debug
859 info is available. */
861 /* However, labels within a function can make weird backtraces,
862 so filter them out (from phdm@macqel.be). */
868 case C_THUMBSTATFUNC
:
869 if (cs
->c_name
[0] == '.')
871 if (STREQ (cs
->c_name
, ".text"))
873 /* FIXME: don't wire in ".text" as section name
875 /* Check for in_source_file deals with case of
876 a file with debugging symbols
877 followed by a later file with no symbols. */
879 complete_symtab (filestring
,
880 cs
->c_value
+ ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
)),
881 main_aux
.x_scn
.x_scnlen
);
884 /* flush rest of '.' symbols */
887 else if (!SDB_TYPE (cs
->c_type
)
888 && cs
->c_name
[0] == 'L'
889 && (strncmp (cs
->c_name
, "LI%", 3) == 0
890 || strncmp (cs
->c_name
, "LF%", 3) == 0
891 || strncmp (cs
->c_name
, "LC%", 3) == 0
892 || strncmp (cs
->c_name
, "LP%", 3) == 0
893 || strncmp (cs
->c_name
, "LPB%", 4) == 0
894 || strncmp (cs
->c_name
, "LBB%", 4) == 0
895 || strncmp (cs
->c_name
, "LBE%", 4) == 0
896 || strncmp (cs
->c_name
, "LPBX%", 5) == 0))
897 /* At least on a 3b1, gcc generates swbeg and string labels
898 that look like this. Ignore them. */
900 /* fall in for static symbols that don't start with '.' */
905 /* Record it in the minimal symbols regardless of
906 SDB_TYPE. This parallels what we do for other debug
907 formats, and probably is needed to make
908 print_address_symbolic work right without the (now
909 gone) "set fast-symbolic-addr off" kludge. */
911 /* FIXME: should use mst_abs, and not relocate, if absolute. */
912 enum minimal_symbol_type ms_type
;
915 if (cs
->c_secnum
== N_UNDEF
)
917 /* This is a common symbol. See if the target
918 environment knows where it has been relocated to. */
920 if (target_lookup_symbol (cs
->c_name
, &reladdr
))
922 /* Error in lookup; ignore symbol. */
926 /* The address has already been relocated; make sure that
927 objfile_relocate doesn't relocate it again. */
929 ms_type
= cs
->c_sclass
== C_EXT
930 || cs
->c_sclass
== C_THUMBEXT
?
931 mst_bss
: mst_file_bss
;
935 sec
= cs_to_section (cs
, objfile
);
936 tmpaddr
= cs
->c_value
;
937 if (cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXTFUNC
938 || cs
->c_sclass
== C_THUMBEXT
)
939 tmpaddr
+= ANOFFSET (objfile
->section_offsets
, sec
);
941 if (sec
== SECT_OFF_TEXT (objfile
))
944 cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXTFUNC
945 || cs
->c_sclass
== C_THUMBEXT
?
946 mst_text
: mst_file_text
;
947 #ifdef SMASH_TEXT_ADDRESS
948 if (tmpaddr
& 1) /* FIXME: delete this line */
949 SMASH_TEXT_ADDRESS (tmpaddr
);
952 else if (sec
== SECT_OFF_DATA (objfile
))
955 cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXT
?
956 mst_data
: mst_file_data
;
958 else if (sec
== SECT_OFF_BSS (objfile
))
961 cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXT
?
962 mst_data
: mst_file_data
;
965 ms_type
= mst_unknown
;
968 if (cs
->c_name
[0] != '@' /* Skip tdesc symbols */ )
970 struct minimal_symbol
*msym
;
972 /* FIXME: cagney/2001-02-01: The nasty (int) -> (long)
973 -> (void*) cast is to ensure that that the value of
974 cs->c_sclass can be correctly stored in a void
975 pointer in MSYMBOL_INFO. Better solutions
977 gdb_assert (sizeof (void *) >= sizeof (cs
->c_sclass
));
978 msym
= prim_record_minimal_symbol_and_info
979 (cs
->c_name
, tmpaddr
, ms_type
, (void *) (long) cs
->c_sclass
,
981 #ifdef COFF_MAKE_MSYMBOL_SPECIAL
983 COFF_MAKE_MSYMBOL_SPECIAL (cs
->c_sclass
, msym
);
986 if (SDB_TYPE (cs
->c_type
))
989 sym
= process_coff_symbol
990 (cs
, &main_aux
, objfile
);
991 SYMBOL_VALUE (sym
) = tmpaddr
;
992 SYMBOL_SECTION (sym
) = sec
;
998 if (STREQ (cs
->c_name
, ".bf"))
1000 within_function
= 1;
1002 /* value contains address of first non-init type code */
1003 /* main_aux.x_sym.x_misc.x_lnsz.x_lnno
1004 contains line number of '{' } */
1005 if (cs
->c_naux
!= 1)
1006 complain (&bf_no_aux_complaint
, cs
->c_symnum
);
1007 fcn_first_line
= main_aux
.x_sym
.x_misc
.x_lnsz
.x_lnno
;
1008 fcn_first_line_addr
= cs
->c_value
;
1010 /* Might want to check that locals are 0 and
1011 context_stack_depth is zero, and complain if not. */
1014 new = push_context (depth
, fcn_start_addr
);
1015 fcn_cs_saved
.c_name
= getsymname (&fcn_sym_saved
);
1017 process_coff_symbol (&fcn_cs_saved
, &fcn_aux_saved
, objfile
);
1019 else if (STREQ (cs
->c_name
, ".ef"))
1021 if (!within_function
)
1022 error ("Bad coff function information\n");
1023 /* the value of .ef is the address of epilogue code;
1024 not useful for gdb. */
1025 /* { main_aux.x_sym.x_misc.x_lnsz.x_lnno
1026 contains number of lines to '}' */
1028 if (context_stack_depth
<= 0)
1029 { /* We attempted to pop an empty context stack */
1030 complain (&ef_stack_complaint
, cs
->c_symnum
);
1031 within_function
= 0;
1035 new = pop_context ();
1036 /* Stack must be empty now. */
1037 if (context_stack_depth
> 0 || new == NULL
)
1039 complain (&ef_complaint
, cs
->c_symnum
);
1040 within_function
= 0;
1043 if (cs
->c_naux
!= 1)
1045 complain (&ef_no_aux_complaint
, cs
->c_symnum
);
1046 fcn_last_line
= 0x7FFFFFFF;
1050 fcn_last_line
= main_aux
.x_sym
.x_misc
.x_lnsz
.x_lnno
;
1052 /* fcn_first_line is the line number of the opening '{'.
1053 Do not record it - because it would affect gdb's idea
1054 of the line number of the first statement of the function -
1055 except for one-line functions, for which it is also the line
1056 number of all the statements and of the closing '}', and
1057 for which we do not have any other statement-line-number. */
1058 if (fcn_last_line
== 1)
1059 record_line (current_subfile
, fcn_first_line
,
1060 fcn_first_line_addr
);
1062 enter_linenos (fcn_line_ptr
, fcn_first_line
, fcn_last_line
,
1065 finish_block (new->name
, &local_symbols
, new->old_blocks
,
1067 #if defined (FUNCTION_EPILOGUE_SIZE)
1068 /* This macro should be defined only on
1070 fcn_aux_saved.x_sym.x_misc.x_fsize
1071 field is always zero.
1072 So use the .bf record information that
1073 points to the epilogue and add the size
1076 + FUNCTION_EPILOGUE_SIZE
1077 + ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
)),
1079 fcn_cs_saved
.c_value
1080 + fcn_aux_saved
.x_sym
.x_misc
.x_fsize
1081 + ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
)),
1085 within_function
= 0;
1090 if (STREQ (cs
->c_name
, ".bb"))
1092 tmpaddr
= cs
->c_value
;
1093 tmpaddr
+= ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
1094 push_context (++depth
, tmpaddr
);
1096 else if (STREQ (cs
->c_name
, ".eb"))
1098 if (context_stack_depth
<= 0)
1099 { /* We attempted to pop an empty context stack */
1100 complain (&eb_stack_complaint
, cs
->c_symnum
);
1104 new = pop_context ();
1105 if (depth
-- != new->depth
)
1107 complain (&eb_complaint
, symnum
);
1110 if (local_symbols
&& context_stack_depth
> 0)
1113 cs
->c_value
+ ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
1114 /* Make a block for the local symbols within. */
1115 finish_block (0, &local_symbols
, new->old_blocks
,
1116 new->start_addr
, tmpaddr
, objfile
);
1118 /* Now pop locals of block just finished. */
1119 local_symbols
= new->locals
;
1124 process_coff_symbol (cs
, &main_aux
, objfile
);
1129 if (last_source_file
)
1130 coff_end_symtab (objfile
);
1132 /* Patch up any opaque types (references to types that are not defined
1133 in the file where they are referenced, e.g. "struct foo *bar"). */
1134 ALL_OBJFILE_SYMTABS (objfile
, s
)
1135 patch_opaque_types (s
);
1137 current_objfile
= NULL
;
1140 /* Routines for reading headers and symbols from executable. */
1142 /* Read the next symbol, swap it, and return it in both internal_syment
1143 form, and coff_symbol form. Also return its first auxent, if any,
1144 in internal_auxent form, and skip any other auxents. */
1147 read_one_sym (register struct coff_symbol
*cs
,
1148 register struct internal_syment
*sym
,
1149 register union internal_auxent
*aux
)
1153 cs
->c_symnum
= symnum
;
1154 bfd_bread (temp_sym
, local_symesz
, nlist_bfd_global
);
1155 bfd_coff_swap_sym_in (symfile_bfd
, temp_sym
, (char *) sym
);
1156 cs
->c_naux
= sym
->n_numaux
& 0xff;
1157 if (cs
->c_naux
>= 1)
1159 bfd_bread (temp_aux
, local_auxesz
, nlist_bfd_global
);
1160 bfd_coff_swap_aux_in (symfile_bfd
, temp_aux
, sym
->n_type
, sym
->n_sclass
,
1161 0, cs
->c_naux
, (char *) aux
);
1162 /* If more than one aux entry, read past it (only the first aux
1164 for (i
= 1; i
< cs
->c_naux
; i
++)
1165 bfd_bread (temp_aux
, local_auxesz
, nlist_bfd_global
);
1167 cs
->c_name
= getsymname (sym
);
1168 cs
->c_value
= sym
->n_value
;
1169 cs
->c_sclass
= (sym
->n_sclass
& 0xff);
1170 cs
->c_secnum
= sym
->n_scnum
;
1171 cs
->c_type
= (unsigned) sym
->n_type
;
1172 if (!SDB_TYPE (cs
->c_type
))
1176 if (cs
->c_sclass
& 128)
1177 printf ("thumb symbol %s, class 0x%x\n", cs
->c_name
, cs
->c_sclass
);
1180 symnum
+= 1 + cs
->c_naux
;
1182 /* The PE file format stores symbol values as offsets within the
1183 section, rather than as absolute addresses. We correct that
1184 here, if the symbol has an appropriate storage class. FIXME: We
1185 should use BFD to read the symbols, rather than duplicating the
1189 switch (cs
->c_sclass
)
1193 case C_THUMBEXTFUNC
:
1198 case C_THUMBSTATFUNC
:
1204 if (cs
->c_secnum
!= 0)
1205 cs
->c_value
+= cs_section_address (cs
, symfile_bfd
);
1211 /* Support for string table handling */
1213 static char *stringtab
= NULL
;
1216 init_stringtab (bfd
*abfd
, long offset
)
1220 unsigned char lengthbuf
[4];
1224 /* If the file is stripped, the offset might be zero, indicating no
1225 string table. Just return with `stringtab' set to null. */
1229 if (bfd_seek (abfd
, offset
, 0) < 0)
1232 val
= bfd_bread ((char *) lengthbuf
, sizeof lengthbuf
, abfd
);
1233 length
= bfd_h_get_32 (symfile_bfd
, lengthbuf
);
1235 /* If no string table is needed, then the file may end immediately
1236 after the symbols. Just return with `stringtab' set to null. */
1237 if (val
!= sizeof lengthbuf
|| length
< sizeof lengthbuf
)
1240 stringtab
= (char *) xmalloc (length
);
1241 /* This is in target format (probably not very useful, and not currently
1242 used), not host format. */
1243 memcpy (stringtab
, lengthbuf
, sizeof lengthbuf
);
1244 if (length
== sizeof length
) /* Empty table -- just the count */
1247 val
= bfd_bread (stringtab
+ sizeof lengthbuf
, length
- sizeof lengthbuf
,
1249 if (val
!= length
- sizeof lengthbuf
|| stringtab
[length
- 1] != '\0')
1256 free_stringtab (void)
1264 free_stringtab_cleanup (void *ignore
)
1270 getsymname (struct internal_syment
*symbol_entry
)
1272 static char buffer
[SYMNMLEN
+ 1];
1275 if (symbol_entry
->_n
._n_n
._n_zeroes
== 0)
1277 /* FIXME: Probably should be detecting corrupt symbol files by
1278 seeing whether offset points to within the stringtab. */
1279 result
= stringtab
+ symbol_entry
->_n
._n_n
._n_offset
;
1283 strncpy (buffer
, symbol_entry
->_n
._n_name
, SYMNMLEN
);
1284 buffer
[SYMNMLEN
] = '\0';
1290 /* Extract the file name from the aux entry of a C_FILE symbol. Return
1291 only the last component of the name. Result is in static storage and
1292 is only good for temporary use. */
1295 coff_getfilename (union internal_auxent
*aux_entry
)
1297 static char buffer
[BUFSIZ
];
1298 register char *temp
;
1301 if (aux_entry
->x_file
.x_n
.x_zeroes
== 0)
1302 strcpy (buffer
, stringtab
+ aux_entry
->x_file
.x_n
.x_offset
);
1305 strncpy (buffer
, aux_entry
->x_file
.x_fname
, FILNMLEN
);
1306 buffer
[FILNMLEN
] = '\0';
1310 /* FIXME: We should not be throwing away the information about what
1311 directory. It should go into dirname of the symtab, or some such
1313 if ((temp
= strrchr (result
, '/')) != NULL
)
1318 /* Support for line number handling. */
1320 static char *linetab
= NULL
;
1321 static long linetab_offset
;
1322 static unsigned long linetab_size
;
1324 /* Read in all the line numbers for fast lookups later. Leave them in
1325 external (unswapped) format in memory; we'll swap them as we enter
1326 them into GDB's data structures. */
1329 init_lineno (bfd
*abfd
, long offset
, int size
)
1333 linetab_offset
= offset
;
1334 linetab_size
= size
;
1341 if (bfd_seek (abfd
, offset
, 0) < 0)
1344 /* Allocate the desired table, plus a sentinel */
1345 linetab
= (char *) xmalloc (size
+ local_linesz
);
1347 val
= bfd_bread (linetab
, size
, abfd
);
1351 /* Terminate it with an all-zero sentinel record */
1352 memset (linetab
+ size
, 0, local_linesz
);
1366 free_linetab_cleanup (void *ignore
)
1371 #if !defined (L_LNNO32)
1372 #define L_LNNO32(lp) ((lp)->l_lnno)
1376 enter_linenos (long file_offset
, register int first_line
,
1377 register int last_line
, struct objfile
*objfile
)
1379 register char *rawptr
;
1380 struct internal_lineno lptr
;
1384 if (file_offset
< linetab_offset
)
1386 complain (&lineno_complaint
, file_offset
);
1387 if (file_offset
> linetab_size
) /* Too big to be an offset? */
1389 file_offset
+= linetab_offset
; /* Try reading at that linetab offset */
1392 rawptr
= &linetab
[file_offset
- linetab_offset
];
1394 /* skip first line entry for each function */
1395 rawptr
+= local_linesz
;
1396 /* line numbers start at one for the first line of the function */
1401 bfd_coff_swap_lineno_in (symfile_bfd
, rawptr
, &lptr
);
1402 rawptr
+= local_linesz
;
1403 /* The next function, or the sentinel, will have L_LNNO32 zero; we exit. */
1404 if (L_LNNO32 (&lptr
) && L_LNNO32 (&lptr
) <= last_line
)
1405 record_line (current_subfile
, first_line
+ L_LNNO32 (&lptr
),
1407 + ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
)));
1414 patch_type (struct type
*type
, struct type
*real_type
)
1416 register struct type
*target
= TYPE_TARGET_TYPE (type
);
1417 register struct type
*real_target
= TYPE_TARGET_TYPE (real_type
);
1418 int field_size
= TYPE_NFIELDS (real_target
) * sizeof (struct field
);
1420 TYPE_LENGTH (target
) = TYPE_LENGTH (real_target
);
1421 TYPE_NFIELDS (target
) = TYPE_NFIELDS (real_target
);
1422 TYPE_FIELDS (target
) = (struct field
*) TYPE_ALLOC (target
, field_size
);
1424 memcpy (TYPE_FIELDS (target
), TYPE_FIELDS (real_target
), field_size
);
1426 if (TYPE_NAME (real_target
))
1428 if (TYPE_NAME (target
))
1429 xfree (TYPE_NAME (target
));
1430 TYPE_NAME (target
) = concat (TYPE_NAME (real_target
), NULL
);
1434 /* Patch up all appropriate typedef symbols in the opaque_type_chains
1435 so that they can be used to print out opaque data structures properly. */
1438 patch_opaque_types (struct symtab
*s
)
1440 register struct block
*b
;
1442 register struct symbol
*real_sym
;
1444 /* Go through the per-file symbols only */
1445 b
= BLOCKVECTOR_BLOCK (BLOCKVECTOR (s
), STATIC_BLOCK
);
1446 for (i
= BLOCK_NSYMS (b
) - 1; i
>= 0; i
--)
1448 /* Find completed typedefs to use to fix opaque ones.
1449 Remove syms from the chain when their types are stored,
1450 but search the whole chain, as there may be several syms
1451 from different files with the same name. */
1452 real_sym
= BLOCK_SYM (b
, i
);
1453 if (SYMBOL_CLASS (real_sym
) == LOC_TYPEDEF
&&
1454 SYMBOL_NAMESPACE (real_sym
) == VAR_NAMESPACE
&&
1455 TYPE_CODE (SYMBOL_TYPE (real_sym
)) == TYPE_CODE_PTR
&&
1456 TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (real_sym
))) != 0)
1458 register char *name
= SYMBOL_NAME (real_sym
);
1459 register int hash
= hashname (name
);
1460 register struct symbol
*sym
, *prev
;
1463 for (sym
= opaque_type_chain
[hash
]; sym
;)
1465 if (name
[0] == SYMBOL_NAME (sym
)[0] &&
1466 STREQ (name
+ 1, SYMBOL_NAME (sym
) + 1))
1470 SYMBOL_VALUE_CHAIN (prev
) = SYMBOL_VALUE_CHAIN (sym
);
1474 opaque_type_chain
[hash
] = SYMBOL_VALUE_CHAIN (sym
);
1477 patch_type (SYMBOL_TYPE (sym
), SYMBOL_TYPE (real_sym
));
1481 sym
= SYMBOL_VALUE_CHAIN (prev
);
1485 sym
= opaque_type_chain
[hash
];
1491 sym
= SYMBOL_VALUE_CHAIN (sym
);
1498 static struct symbol
*
1499 process_coff_symbol (register struct coff_symbol
*cs
,
1500 register union internal_auxent
*aux
,
1501 struct objfile
*objfile
)
1503 register struct symbol
*sym
1504 = (struct symbol
*) obstack_alloc (&objfile
->symbol_obstack
,
1505 sizeof (struct symbol
));
1508 memset (sym
, 0, sizeof (struct symbol
));
1510 name
= EXTERNAL_NAME (name
, objfile
->obfd
);
1511 SYMBOL_NAME (sym
) = obsavestring (name
, strlen (name
),
1512 &objfile
->symbol_obstack
);
1513 SYMBOL_LANGUAGE (sym
) = language_auto
;
1514 SYMBOL_INIT_DEMANGLED_NAME (sym
, &objfile
->symbol_obstack
);
1516 /* default assumptions */
1517 SYMBOL_VALUE (sym
) = cs
->c_value
;
1518 SYMBOL_NAMESPACE (sym
) = VAR_NAMESPACE
;
1519 SYMBOL_SECTION (sym
) = cs_to_section (cs
, objfile
);
1521 if (ISFCN (cs
->c_type
))
1523 SYMBOL_VALUE (sym
) += ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
1525 lookup_function_type (decode_function_type (cs
, cs
->c_type
, aux
));
1527 SYMBOL_CLASS (sym
) = LOC_BLOCK
;
1528 if (cs
->c_sclass
== C_STAT
|| cs
->c_sclass
== C_THUMBSTAT
1529 || cs
->c_sclass
== C_THUMBSTATFUNC
)
1530 add_symbol_to_list (sym
, &file_symbols
);
1531 else if (cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXT
1532 || cs
->c_sclass
== C_THUMBEXTFUNC
)
1533 add_symbol_to_list (sym
, &global_symbols
);
1537 SYMBOL_TYPE (sym
) = decode_type (cs
, cs
->c_type
, aux
);
1538 switch (cs
->c_sclass
)
1544 SYMBOL_CLASS (sym
) = LOC_LOCAL
;
1545 add_symbol_to_list (sym
, &local_symbols
);
1549 case C_THUMBEXTFUNC
:
1551 SYMBOL_CLASS (sym
) = LOC_STATIC
;
1552 SYMBOL_VALUE_ADDRESS (sym
) = (CORE_ADDR
) cs
->c_value
;
1553 SYMBOL_VALUE_ADDRESS (sym
) += ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
1554 add_symbol_to_list (sym
, &global_symbols
);
1558 case C_THUMBSTATFUNC
:
1560 SYMBOL_CLASS (sym
) = LOC_STATIC
;
1561 SYMBOL_VALUE_ADDRESS (sym
) = (CORE_ADDR
) cs
->c_value
;
1562 SYMBOL_VALUE_ADDRESS (sym
) += ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
1563 if (within_function
)
1565 /* Static symbol of local scope */
1566 add_symbol_to_list (sym
, &local_symbols
);
1570 /* Static symbol at top level of file */
1571 add_symbol_to_list (sym
, &file_symbols
);
1575 #ifdef C_GLBLREG /* AMD coff */
1579 SYMBOL_CLASS (sym
) = LOC_REGISTER
;
1580 SYMBOL_VALUE (sym
) = SDB_REG_TO_REGNUM (cs
->c_value
);
1581 add_symbol_to_list (sym
, &local_symbols
);
1589 SYMBOL_CLASS (sym
) = LOC_ARG
;
1590 add_symbol_to_list (sym
, &local_symbols
);
1591 #if !defined (BELIEVE_PCC_PROMOTION)
1592 if (TARGET_BYTE_ORDER
== BFD_ENDIAN_BIG
)
1594 /* If PCC says a parameter is a short or a char,
1595 aligned on an int boundary, realign it to the
1596 "little end" of the int. */
1597 struct type
*temptype
;
1598 temptype
= lookup_fundamental_type (current_objfile
,
1600 if (TYPE_LENGTH (SYMBOL_TYPE (sym
)) < TYPE_LENGTH (temptype
)
1601 && TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_INT
1602 && 0 == SYMBOL_VALUE (sym
) % TYPE_LENGTH (temptype
))
1604 SYMBOL_VALUE (sym
) +=
1605 TYPE_LENGTH (temptype
)
1606 - TYPE_LENGTH (SYMBOL_TYPE (sym
));
1613 SYMBOL_CLASS (sym
) = LOC_REGPARM
;
1614 SYMBOL_VALUE (sym
) = SDB_REG_TO_REGNUM (cs
->c_value
);
1615 add_symbol_to_list (sym
, &local_symbols
);
1616 #if !defined (BELIEVE_PCC_PROMOTION)
1617 /* FIXME: This should retain the current type, since it's just
1618 a register value. gnu@adobe, 26Feb93 */
1620 /* If PCC says a parameter is a short or a char,
1621 it is really an int. */
1622 struct type
*temptype
;
1624 lookup_fundamental_type (current_objfile
, FT_INTEGER
);
1625 if (TYPE_LENGTH (SYMBOL_TYPE (sym
)) < TYPE_LENGTH (temptype
)
1626 && TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_INT
)
1629 (TYPE_UNSIGNED (SYMBOL_TYPE (sym
))
1630 ? lookup_fundamental_type (current_objfile
,
1631 FT_UNSIGNED_INTEGER
)
1639 SYMBOL_CLASS (sym
) = LOC_TYPEDEF
;
1640 SYMBOL_NAMESPACE (sym
) = VAR_NAMESPACE
;
1642 /* If type has no name, give it one */
1643 if (TYPE_NAME (SYMBOL_TYPE (sym
)) == 0)
1645 if (TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_PTR
1646 || TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_FUNC
)
1648 /* If we are giving a name to a type such as "pointer to
1649 foo" or "function returning foo", we better not set
1650 the TYPE_NAME. If the program contains "typedef char
1651 *caddr_t;", we don't want all variables of type char
1652 * to print as caddr_t. This is not just a
1653 consequence of GDB's type management; CC and GCC (at
1654 least through version 2.4) both output variables of
1655 either type char * or caddr_t with the type
1656 refering to the C_TPDEF symbol for caddr_t. If a future
1657 compiler cleans this up it GDB is not ready for it
1658 yet, but if it becomes ready we somehow need to
1659 disable this check (without breaking the PCC/GCC2.4
1664 Fortunately, this check seems not to be necessary
1665 for anything except pointers or functions. */
1669 TYPE_NAME (SYMBOL_TYPE (sym
)) =
1670 concat (SYMBOL_NAME (sym
), NULL
);
1673 /* Ignore vendor section for Harris CX/UX targets. */
1674 else if (cs
->c_name
[0] == '$')
1676 #endif /* CXUX_TARGET */
1678 /* Keep track of any type which points to empty structured type,
1679 so it can be filled from a definition from another file. A
1680 simple forward reference (TYPE_CODE_UNDEF) is not an
1681 empty structured type, though; the forward references
1682 work themselves out via the magic of coff_lookup_type. */
1683 if (TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_PTR
&&
1684 TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym
))) == 0 &&
1685 TYPE_CODE (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym
))) !=
1688 register int i
= hashname (SYMBOL_NAME (sym
));
1690 SYMBOL_VALUE_CHAIN (sym
) = opaque_type_chain
[i
];
1691 opaque_type_chain
[i
] = sym
;
1693 add_symbol_to_list (sym
, &file_symbols
);
1699 SYMBOL_CLASS (sym
) = LOC_TYPEDEF
;
1700 SYMBOL_NAMESPACE (sym
) = STRUCT_NAMESPACE
;
1702 /* Some compilers try to be helpful by inventing "fake"
1703 names for anonymous enums, structures, and unions, like
1704 "~0fake" or ".0fake". Thanks, but no thanks... */
1705 if (TYPE_TAG_NAME (SYMBOL_TYPE (sym
)) == 0)
1706 if (SYMBOL_NAME (sym
) != NULL
1707 && *SYMBOL_NAME (sym
) != '~'
1708 && *SYMBOL_NAME (sym
) != '.')
1709 TYPE_TAG_NAME (SYMBOL_TYPE (sym
)) =
1710 concat (SYMBOL_NAME (sym
), NULL
);
1712 add_symbol_to_list (sym
, &file_symbols
);
1722 /* Decode a coff type specifier; return the type that is meant. */
1724 static struct type
*
1725 decode_type (register struct coff_symbol
*cs
, unsigned int c_type
,
1726 register union internal_auxent
*aux
)
1728 register struct type
*type
= 0;
1729 unsigned int new_c_type
;
1731 if (c_type
& ~N_BTMASK
)
1733 new_c_type
= DECREF (c_type
);
1736 type
= decode_type (cs
, new_c_type
, aux
);
1737 type
= lookup_pointer_type (type
);
1739 else if (ISFCN (c_type
))
1741 type
= decode_type (cs
, new_c_type
, aux
);
1742 type
= lookup_function_type (type
);
1744 else if (ISARY (c_type
))
1747 register unsigned short *dim
;
1748 struct type
*base_type
, *index_type
, *range_type
;
1750 /* Define an array type. */
1751 /* auxent refers to array, not base type */
1752 if (aux
->x_sym
.x_tagndx
.l
== 0)
1755 /* shift the indices down */
1756 dim
= &aux
->x_sym
.x_fcnary
.x_ary
.x_dimen
[0];
1759 for (i
= 0; *dim
&& i
< DIMNUM
- 1; i
++, dim
++)
1763 base_type
= decode_type (cs
, new_c_type
, aux
);
1764 index_type
= lookup_fundamental_type (current_objfile
, FT_INTEGER
);
1766 create_range_type ((struct type
*) NULL
, index_type
, 0, n
- 1);
1768 create_array_type ((struct type
*) NULL
, base_type
, range_type
);
1773 /* Reference to existing type. This only occurs with the
1774 struct, union, and enum types. EPI a29k coff
1775 fakes us out by producing aux entries with a nonzero
1776 x_tagndx for definitions of structs, unions, and enums, so we
1777 have to check the c_sclass field. SCO 3.2v4 cc gets confused
1778 with pointers to pointers to defined structs, and generates
1779 negative x_tagndx fields. */
1780 if (cs
->c_naux
> 0 && aux
->x_sym
.x_tagndx
.l
!= 0)
1782 if (cs
->c_sclass
!= C_STRTAG
1783 && cs
->c_sclass
!= C_UNTAG
1784 && cs
->c_sclass
!= C_ENTAG
1785 && aux
->x_sym
.x_tagndx
.l
>= 0)
1787 type
= coff_alloc_type (aux
->x_sym
.x_tagndx
.l
);
1792 complain (&tagndx_bad_complaint
, cs
->c_name
);
1793 /* And fall through to decode_base_type... */
1797 return decode_base_type (cs
, BTYPE (c_type
), aux
);
1800 /* Decode a coff type specifier for function definition;
1801 return the type that the function returns. */
1803 static struct type
*
1804 decode_function_type (register struct coff_symbol
*cs
, unsigned int c_type
,
1805 register union internal_auxent
*aux
)
1807 if (aux
->x_sym
.x_tagndx
.l
== 0)
1808 cs
->c_naux
= 0; /* auxent refers to function, not base type */
1810 return decode_type (cs
, DECREF (c_type
), aux
);
1815 static struct type
*
1816 decode_base_type (register struct coff_symbol
*cs
, unsigned int c_type
,
1817 register union internal_auxent
*aux
)
1824 /* shows up with "void (*foo)();" structure members */
1825 return lookup_fundamental_type (current_objfile
, FT_VOID
);
1828 /* DGUX actually defines both T_ARG and T_VOID to the same value. */
1831 /* Shows up in DGUX, I think. Not sure where. */
1832 return lookup_fundamental_type (current_objfile
, FT_VOID
); /* shouldn't show up here */
1838 /* Intel 960 COFF has this symbol and meaning. */
1839 return lookup_fundamental_type (current_objfile
, FT_VOID
);
1843 return lookup_fundamental_type (current_objfile
, FT_CHAR
);
1846 return lookup_fundamental_type (current_objfile
, FT_SHORT
);
1849 return lookup_fundamental_type (current_objfile
, FT_INTEGER
);
1852 if (cs
->c_sclass
== C_FIELD
1853 && aux
->x_sym
.x_misc
.x_lnsz
.x_size
> TARGET_LONG_BIT
)
1854 return lookup_fundamental_type (current_objfile
, FT_LONG_LONG
);
1856 return lookup_fundamental_type (current_objfile
, FT_LONG
);
1859 return lookup_fundamental_type (current_objfile
, FT_FLOAT
);
1862 return lookup_fundamental_type (current_objfile
, FT_DBL_PREC_FLOAT
);
1865 return lookup_fundamental_type (current_objfile
, FT_EXT_PREC_FLOAT
);
1868 if (cs
->c_naux
!= 1)
1870 /* anonymous structure type */
1871 type
= coff_alloc_type (cs
->c_symnum
);
1872 TYPE_CODE (type
) = TYPE_CODE_STRUCT
;
1873 TYPE_NAME (type
) = NULL
;
1874 /* This used to set the tag to "<opaque>". But I think setting it
1875 to NULL is right, and the printing code can print it as
1877 TYPE_TAG_NAME (type
) = NULL
;
1878 INIT_CPLUS_SPECIFIC (type
);
1879 TYPE_LENGTH (type
) = 0;
1880 TYPE_FIELDS (type
) = 0;
1881 TYPE_NFIELDS (type
) = 0;
1885 type
= coff_read_struct_type (cs
->c_symnum
,
1886 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1887 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
);
1892 if (cs
->c_naux
!= 1)
1894 /* anonymous union type */
1895 type
= coff_alloc_type (cs
->c_symnum
);
1896 TYPE_NAME (type
) = NULL
;
1897 /* This used to set the tag to "<opaque>". But I think setting it
1898 to NULL is right, and the printing code can print it as
1900 TYPE_TAG_NAME (type
) = NULL
;
1901 INIT_CPLUS_SPECIFIC (type
);
1902 TYPE_LENGTH (type
) = 0;
1903 TYPE_FIELDS (type
) = 0;
1904 TYPE_NFIELDS (type
) = 0;
1908 type
= coff_read_struct_type (cs
->c_symnum
,
1909 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1910 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
);
1912 TYPE_CODE (type
) = TYPE_CODE_UNION
;
1916 if (cs
->c_naux
!= 1)
1918 /* anonymous enum type */
1919 type
= coff_alloc_type (cs
->c_symnum
);
1920 TYPE_CODE (type
) = TYPE_CODE_ENUM
;
1921 TYPE_NAME (type
) = NULL
;
1922 /* This used to set the tag to "<opaque>". But I think setting it
1923 to NULL is right, and the printing code can print it as
1925 TYPE_TAG_NAME (type
) = NULL
;
1926 TYPE_LENGTH (type
) = 0;
1927 TYPE_FIELDS (type
) = 0;
1928 TYPE_NFIELDS (type
) = 0;
1932 type
= coff_read_enum_type (cs
->c_symnum
,
1933 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1934 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
);
1939 /* shouldn't show up here */
1943 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_CHAR
);
1946 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_SHORT
);
1949 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_INTEGER
);
1952 if (cs
->c_sclass
== C_FIELD
1953 && aux
->x_sym
.x_misc
.x_lnsz
.x_size
> TARGET_LONG_BIT
)
1954 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_LONG_LONG
);
1956 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_LONG
);
1958 complain (&unexpected_type_complaint
, cs
->c_name
);
1959 return lookup_fundamental_type (current_objfile
, FT_VOID
);
1962 /* This page contains subroutines of read_type. */
1964 /* Read the description of a structure (or union type) and return an
1965 object describing the type. */
1967 static struct type
*
1968 coff_read_struct_type (int index
, int length
, int lastsym
)
1972 struct nextfield
*next
;
1976 register struct type
*type
;
1977 register struct nextfield
*list
= 0;
1978 struct nextfield
*new;
1982 struct coff_symbol member_sym
;
1983 register struct coff_symbol
*ms
= &member_sym
;
1984 struct internal_syment sub_sym
;
1985 union internal_auxent sub_aux
;
1988 type
= coff_alloc_type (index
);
1989 TYPE_CODE (type
) = TYPE_CODE_STRUCT
;
1990 INIT_CPLUS_SPECIFIC (type
);
1991 TYPE_LENGTH (type
) = length
;
1993 while (!done
&& symnum
< lastsym
&& symnum
< nlist_nsyms_global
)
1995 read_one_sym (ms
, &sub_sym
, &sub_aux
);
1997 name
= EXTERNAL_NAME (name
, current_objfile
->obfd
);
1999 switch (ms
->c_sclass
)
2004 /* Get space to record the next field's data. */
2005 new = (struct nextfield
*) alloca (sizeof (struct nextfield
));
2009 /* Save the data. */
2013 ¤t_objfile
->symbol_obstack
);
2014 FIELD_TYPE (list
->field
) = decode_type (ms
, ms
->c_type
, &sub_aux
);
2015 FIELD_BITPOS (list
->field
) = 8 * ms
->c_value
;
2016 FIELD_BITSIZE (list
->field
) = 0;
2022 /* Get space to record the next field's data. */
2023 new = (struct nextfield
*) alloca (sizeof (struct nextfield
));
2027 /* Save the data. */
2031 ¤t_objfile
->symbol_obstack
);
2032 FIELD_TYPE (list
->field
) = decode_type (ms
, ms
->c_type
, &sub_aux
);
2033 FIELD_BITPOS (list
->field
) = ms
->c_value
;
2034 FIELD_BITSIZE (list
->field
) = sub_aux
.x_sym
.x_misc
.x_lnsz
.x_size
;
2043 /* Now create the vector of fields, and record how big it is. */
2045 TYPE_NFIELDS (type
) = nfields
;
2046 TYPE_FIELDS (type
) = (struct field
*)
2047 TYPE_ALLOC (type
, sizeof (struct field
) * nfields
);
2049 /* Copy the saved-up fields into the field vector. */
2051 for (n
= nfields
; list
; list
= list
->next
)
2052 TYPE_FIELD (type
, --n
) = list
->field
;
2057 /* Read a definition of an enumeration type,
2058 and create and return a suitable type object.
2059 Also defines the symbols that represent the values of the type. */
2062 static struct type
*
2063 coff_read_enum_type (int index
, int length
, int lastsym
)
2065 register struct symbol
*sym
;
2066 register struct type
*type
;
2069 struct pending
**symlist
;
2070 struct coff_symbol member_sym
;
2071 register struct coff_symbol
*ms
= &member_sym
;
2072 struct internal_syment sub_sym
;
2073 union internal_auxent sub_aux
;
2074 struct pending
*osyms
, *syms
;
2078 int unsigned_enum
= 1;
2080 type
= coff_alloc_type (index
);
2081 if (within_function
)
2082 symlist
= &local_symbols
;
2084 symlist
= &file_symbols
;
2086 o_nsyms
= osyms
? osyms
->nsyms
: 0;
2088 while (!done
&& symnum
< lastsym
&& symnum
< nlist_nsyms_global
)
2090 read_one_sym (ms
, &sub_sym
, &sub_aux
);
2092 name
= EXTERNAL_NAME (name
, current_objfile
->obfd
);
2094 switch (ms
->c_sclass
)
2097 sym
= (struct symbol
*) obstack_alloc
2098 (¤t_objfile
->symbol_obstack
,
2099 sizeof (struct symbol
));
2100 memset (sym
, 0, sizeof (struct symbol
));
2103 obsavestring (name
, strlen (name
),
2104 ¤t_objfile
->symbol_obstack
);
2105 SYMBOL_CLASS (sym
) = LOC_CONST
;
2106 SYMBOL_NAMESPACE (sym
) = VAR_NAMESPACE
;
2107 SYMBOL_VALUE (sym
) = ms
->c_value
;
2108 add_symbol_to_list (sym
, symlist
);
2113 /* Sometimes the linker (on 386/ix 2.0.2 at least) screws
2114 up the count of how many symbols to read. So stop
2121 /* Now fill in the fields of the type-structure. */
2124 TYPE_LENGTH (type
) = length
;
2126 TYPE_LENGTH (type
) = TARGET_INT_BIT
/ TARGET_CHAR_BIT
; /* Assume ints */
2127 TYPE_CODE (type
) = TYPE_CODE_ENUM
;
2128 TYPE_NFIELDS (type
) = nsyms
;
2129 TYPE_FIELDS (type
) = (struct field
*)
2130 TYPE_ALLOC (type
, sizeof (struct field
) * nsyms
);
2132 /* Find the symbols for the values and put them into the type.
2133 The symbols can be found in the symlist that we put them on
2134 to cause them to be defined. osyms contains the old value
2135 of that symlist; everything up to there was defined by us. */
2136 /* Note that we preserve the order of the enum constants, so
2137 that in something like "enum {FOO, LAST_THING=FOO}" we print
2138 FOO, not LAST_THING. */
2140 for (syms
= *symlist
, n
= 0; syms
; syms
= syms
->next
)
2146 for (; j
< syms
->nsyms
; j
++, n
++)
2148 struct symbol
*xsym
= syms
->symbol
[j
];
2149 SYMBOL_TYPE (xsym
) = type
;
2150 TYPE_FIELD_NAME (type
, n
) = SYMBOL_NAME (xsym
);
2151 TYPE_FIELD_BITPOS (type
, n
) = SYMBOL_VALUE (xsym
);
2152 if (SYMBOL_VALUE (xsym
) < 0)
2154 TYPE_FIELD_BITSIZE (type
, n
) = 0;
2161 TYPE_FLAGS (type
) |= TYPE_FLAG_UNSIGNED
;
2166 /* Register our ability to parse symbols for coff BFD files. */
2168 static struct sym_fns coff_sym_fns
=
2170 bfd_target_coff_flavour
,
2171 coff_new_init
, /* sym_new_init: init anything gbl to entire symtab */
2172 coff_symfile_init
, /* sym_init: read initial info, setup for sym_read() */
2173 coff_symfile_read
, /* sym_read: read a symbol file into symtab */
2174 coff_symfile_finish
, /* sym_finish: finished with file, cleanup */
2175 default_symfile_offsets
, /* sym_offsets: xlate external to internal form */
2176 NULL
/* next: pointer to next struct sym_fns */
2180 _initialize_coffread (void)
2182 add_symtab_fns (&coff_sym_fns
);