1 /* Read coff symbol tables and convert to internal format, for GDB.
2 Copyright (C) 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996,
3 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005
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., 51 Franklin Street, Fifth Floor,
22 Boston, MA 02110-1301, 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 */
40 #include "gdb-stabs.h"
41 #include "stabsread.h"
42 #include "complaints.h"
44 #include "gdb_assert.h"
46 #include "dictionary.h"
48 #include "coff-pe-read.h"
50 extern void _initialize_coffread (void);
52 struct coff_symfile_info
54 file_ptr min_lineno_offset
; /* Where in file lowest line#s are */
55 file_ptr max_lineno_offset
; /* 1+last byte of line#s in file */
57 CORE_ADDR textaddr
; /* Addr of .text section. */
58 unsigned int textsize
; /* Size of .text section. */
59 struct stab_section_list
*stabsects
; /* .stab sections. */
60 asection
*stabstrsect
; /* Section pointer for .stab section */
64 /* Translate an external name string into a user-visible name. */
65 #define EXTERNAL_NAME(string, abfd) \
66 (string[0] == bfd_get_symbol_leading_char(abfd)? string+1: string)
68 /* To be an sdb debug type, type must have at least a basic or primary
69 derived type. Using this rather than checking against T_NULL is
70 said to prevent core dumps if we try to operate on Michael Bloom
73 #define SDB_TYPE(type) (BTYPE(type) | (type & N_TMASK))
75 /* Core address of start and end of text of current source file.
76 This comes from a ".text" symbol where x_nlinno > 0. */
78 static CORE_ADDR current_source_start_addr
;
79 static CORE_ADDR current_source_end_addr
;
81 /* The addresses of the symbol table stream and number of symbols
82 of the object file we are reading (as copied into core). */
84 static bfd
*nlist_bfd_global
;
85 static int nlist_nsyms_global
;
88 /* Pointers to scratch storage, used for reading raw symbols and auxents. */
90 static char *temp_sym
;
91 static char *temp_aux
;
93 /* Local variables that hold the shift and mask values for the
94 COFF file that we are currently reading. These come back to us
95 from BFD, and are referenced by their macro names, as well as
96 internally to the BTYPE, ISPTR, ISFCN, ISARY, ISTAG, and DECREF
97 macros from include/coff/internal.h . */
99 static unsigned local_n_btmask
;
100 static unsigned local_n_btshft
;
101 static unsigned local_n_tmask
;
102 static unsigned local_n_tshift
;
104 #define N_BTMASK local_n_btmask
105 #define N_BTSHFT local_n_btshft
106 #define N_TMASK local_n_tmask
107 #define N_TSHIFT local_n_tshift
109 /* Local variables that hold the sizes in the file of various COFF structures.
110 (We only need to know this to read them from the file -- BFD will then
111 translate the data in them, into `internal_xxx' structs in the right
112 byte order, alignment, etc.) */
114 static unsigned local_linesz
;
115 static unsigned local_symesz
;
116 static unsigned local_auxesz
;
118 /* This is set if this is a PE format file. */
122 /* Chain of typedefs of pointers to empty struct/union types.
123 They are chained thru the SYMBOL_VALUE_CHAIN. */
125 static struct symbol
*opaque_type_chain
[HASHSIZE
];
127 /* Simplified internal version of coff symbol table information */
132 int c_symnum
; /* symbol number of this entry */
133 int c_naux
; /* 0 if syment only, 1 if syment + auxent, etc */
140 extern void stabsread_clear_cache (void);
142 static struct type
*coff_read_struct_type (int, int, int);
144 static struct type
*decode_base_type (struct coff_symbol
*,
145 unsigned int, union internal_auxent
*);
147 static struct type
*decode_type (struct coff_symbol
*, unsigned int,
148 union internal_auxent
*);
150 static struct type
*decode_function_type (struct coff_symbol
*,
152 union internal_auxent
*);
154 static struct type
*coff_read_enum_type (int, int, int);
156 static struct symbol
*process_coff_symbol (struct coff_symbol
*,
157 union internal_auxent
*,
160 static void patch_opaque_types (struct symtab
*);
162 static void enter_linenos (long, int, int, struct objfile
*);
164 static void free_linetab (void);
166 static void free_linetab_cleanup (void *ignore
);
168 static int init_lineno (bfd
*, long, int);
170 static char *getsymname (struct internal_syment
*);
172 static char *coff_getfilename (union internal_auxent
*);
174 static void free_stringtab (void);
176 static void free_stringtab_cleanup (void *ignore
);
178 static int init_stringtab (bfd
*, long);
180 static void read_one_sym (struct coff_symbol
*,
181 struct internal_syment
*, union internal_auxent
*);
183 static void coff_symtab_read (long, unsigned int, struct objfile
*);
185 /* We are called once per section from coff_symfile_read. We
186 need to examine each section we are passed, check to see
187 if it is something we are interested in processing, and
188 if so, stash away some access information for the section.
190 FIXME: The section names should not be hardwired strings (what
191 should they be? I don't think most object file formats have enough
192 section flags to specify what kind of debug section it is
196 coff_locate_sections (bfd
*abfd
, asection
*sectp
, void *csip
)
198 struct coff_symfile_info
*csi
;
201 csi
= (struct coff_symfile_info
*) csip
;
202 name
= bfd_get_section_name (abfd
, sectp
);
203 if (DEPRECATED_STREQ (name
, ".text"))
205 csi
->textaddr
= bfd_section_vma (abfd
, sectp
);
206 csi
->textsize
+= bfd_section_size (abfd
, sectp
);
208 else if (strncmp (name
, ".text", sizeof ".text" - 1) == 0)
210 csi
->textsize
+= bfd_section_size (abfd
, sectp
);
212 else if (DEPRECATED_STREQ (name
, ".stabstr"))
214 csi
->stabstrsect
= sectp
;
216 else if (strncmp (name
, ".stab", sizeof ".stab" - 1) == 0)
220 /* We can have multiple .stab sections if linked with
222 for (s
= name
+ sizeof ".stab" - 1; *s
!= '\0'; s
++)
227 struct stab_section_list
*n
, **pn
;
229 n
= ((struct stab_section_list
*)
230 xmalloc (sizeof (struct stab_section_list
)));
233 for (pn
= &csi
->stabsects
; *pn
!= NULL
; pn
= &(*pn
)->next
)
237 /* This will be run after coffstab_build_psymtabs is called
238 in coff_symfile_read, at which point we no longer need
240 make_cleanup (xfree
, n
);
245 /* Return the section_offsets* that CS points to. */
246 static int cs_to_section (struct coff_symbol
*, struct objfile
*);
248 struct find_targ_sec_arg
255 find_targ_sec (bfd
*abfd
, asection
*sect
, void *obj
)
257 struct find_targ_sec_arg
*args
= (struct find_targ_sec_arg
*) obj
;
258 if (sect
->target_index
== args
->targ_index
)
259 *args
->resultp
= sect
;
262 /* Return the bfd_section that CS points to. */
263 static struct bfd_section
*
264 cs_to_bfd_section (struct coff_symbol
*cs
, struct objfile
*objfile
)
266 asection
*sect
= NULL
;
267 struct find_targ_sec_arg args
;
269 args
.targ_index
= cs
->c_secnum
;
270 args
.resultp
= §
;
271 bfd_map_over_sections (objfile
->obfd
, find_targ_sec
, &args
);
275 /* Return the section number (SECT_OFF_*) that CS points to. */
277 cs_to_section (struct coff_symbol
*cs
, struct objfile
*objfile
)
279 asection
*sect
= cs_to_bfd_section (cs
, objfile
);
280 int off
= SECT_OFF_TEXT (objfile
);
283 /* This is the section. Figure out what SECT_OFF_* code it is. */
284 if (bfd_get_section_flags (abfd
, sect
) & SEC_CODE
)
285 off
= SECT_OFF_TEXT (objfile
);
286 else if (bfd_get_section_flags (abfd
, sect
) & SEC_LOAD
)
287 off
= SECT_OFF_DATA (objfile
);
289 /* Just return the bfd section index. */
295 /* Return the address of the section of a COFF symbol. */
297 static CORE_ADDR
cs_section_address (struct coff_symbol
*, bfd
*);
300 cs_section_address (struct coff_symbol
*cs
, bfd
*abfd
)
302 asection
*sect
= NULL
;
303 struct find_targ_sec_arg args
;
306 args
.targ_index
= cs
->c_secnum
;
307 args
.resultp
= §
;
308 bfd_map_over_sections (abfd
, find_targ_sec
, &args
);
310 addr
= bfd_get_section_vma (objfile
->obfd
, sect
);
314 /* Look up a coff type-number index. Return the address of the slot
315 where the type for that index is stored.
316 The type-number is in INDEX.
318 This can be used for finding the type associated with that index
319 or for associating a new type with the index. */
321 static struct type
**
322 coff_lookup_type (int index
)
324 if (index
>= type_vector_length
)
326 int old_vector_length
= type_vector_length
;
328 type_vector_length
*= 2;
329 if (index
/* is still */ >= type_vector_length
)
330 type_vector_length
= index
* 2;
332 type_vector
= (struct type
**)
333 xrealloc ((char *) type_vector
,
334 type_vector_length
* sizeof (struct type
*));
335 memset (&type_vector
[old_vector_length
], 0,
336 (type_vector_length
- old_vector_length
) * sizeof (struct type
*));
338 return &type_vector
[index
];
341 /* Make sure there is a type allocated for type number index
342 and return the type object.
343 This can create an empty (zeroed) type object. */
346 coff_alloc_type (int index
)
348 struct type
**type_addr
= coff_lookup_type (index
);
349 struct type
*type
= *type_addr
;
351 /* If we are referring to a type not known at all yet,
352 allocate an empty type for it.
353 We will fill it in later if we find out how. */
356 type
= alloc_type (current_objfile
);
362 /* Start a new symtab for a new source file.
363 This is called when a COFF ".file" symbol is seen;
364 it indicates the start of data for one original source file. */
367 coff_start_symtab (char *name
)
370 /* We fill in the filename later. start_symtab puts
371 this pointer into last_source_file and we put it in
372 subfiles->name, which end_symtab frees; that's why
373 it must be malloc'd. */
374 savestring (name
, strlen (name
)),
375 /* We never know the directory name for COFF. */
377 /* The start address is irrelevant, since we set
378 last_source_start_addr in coff_end_symtab. */
380 record_debugformat ("COFF");
383 /* Save the vital information from when starting to read a file,
384 for use when closing off the current file.
385 NAME is the file name the symbols came from, START_ADDR is the first
386 text address for the file, and SIZE is the number of bytes of text. */
389 complete_symtab (char *name
, CORE_ADDR start_addr
, unsigned int size
)
391 if (last_source_file
!= NULL
)
392 xfree (last_source_file
);
393 last_source_file
= savestring (name
, strlen (name
));
394 current_source_start_addr
= start_addr
;
395 current_source_end_addr
= start_addr
+ size
;
398 /* Finish the symbol definitions for one main source file,
399 close off all the lexical contexts for that file
400 (creating struct block's for them), then make the
401 struct symtab for that file and put it in the list of all such. */
404 coff_end_symtab (struct objfile
*objfile
)
406 struct symtab
*symtab
;
408 last_source_start_addr
= current_source_start_addr
;
410 symtab
= end_symtab (current_source_end_addr
, objfile
, SECT_OFF_TEXT (objfile
));
413 free_named_symtabs (symtab
->filename
);
415 /* Reinitialize for beginning of new file. */
416 last_source_file
= NULL
;
419 static struct minimal_symbol
*
420 record_minimal_symbol (struct coff_symbol
*cs
, CORE_ADDR address
,
421 enum minimal_symbol_type type
, int section
,
422 struct objfile
*objfile
)
424 struct bfd_section
*bfd_section
;
425 /* We don't want TDESC entry points in the minimal symbol table */
426 if (cs
->c_name
[0] == '@')
429 bfd_section
= cs_to_bfd_section (cs
, objfile
);
430 return prim_record_minimal_symbol_and_info (cs
->c_name
, address
, type
,
431 NULL
, section
, bfd_section
, objfile
);
434 /* coff_symfile_init ()
435 is the coff-specific initialization routine for reading symbols.
436 It is passed a struct objfile which contains, among other things,
437 the BFD for the file whose symbols are being read, and a slot for
438 a pointer to "private data" which we fill with cookies and other
439 treats for coff_symfile_read ().
441 We will only be called if this is a COFF or COFF-like file.
442 BFD handles figuring out the format of the file, and code in symtab.c
443 uses BFD's determination to vector to us.
445 The ultimate result is a new symtab (or, FIXME, eventually a psymtab). */
448 coff_symfile_init (struct objfile
*objfile
)
450 /* Allocate struct to keep track of stab reading. */
451 objfile
->deprecated_sym_stab_info
= (struct dbx_symfile_info
*)
452 xmalloc (sizeof (struct dbx_symfile_info
));
454 memset (objfile
->deprecated_sym_stab_info
, 0,
455 sizeof (struct dbx_symfile_info
));
457 /* Allocate struct to keep track of the symfile */
458 objfile
->deprecated_sym_private
= xmalloc (sizeof (struct coff_symfile_info
));
460 memset (objfile
->deprecated_sym_private
, 0, sizeof (struct coff_symfile_info
));
462 /* COFF objects may be reordered, so set OBJF_REORDERED. If we
463 find this causes a significant slowdown in gdb then we could
464 set it in the debug symbol readers only when necessary. */
465 objfile
->flags
|= OBJF_REORDERED
;
467 init_entry_point_info (objfile
);
470 /* This function is called for every section; it finds the outer limits
471 of the line table (minimum and maximum file offset) so that the
472 mainline code can read the whole thing for efficiency. */
475 find_linenos (bfd
*abfd
, struct bfd_section
*asect
, void *vpinfo
)
477 struct coff_symfile_info
*info
;
479 file_ptr offset
, maxoff
;
481 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
482 count
= asect
->lineno_count
;
487 size
= count
* local_linesz
;
489 info
= (struct coff_symfile_info
*) vpinfo
;
490 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
491 offset
= asect
->line_filepos
;
494 if (offset
< info
->min_lineno_offset
|| info
->min_lineno_offset
== 0)
495 info
->min_lineno_offset
= offset
;
497 maxoff
= offset
+ size
;
498 if (maxoff
> info
->max_lineno_offset
)
499 info
->max_lineno_offset
= maxoff
;
503 /* The BFD for this file -- only good while we're actively reading
504 symbols into a psymtab or a symtab. */
506 static bfd
*symfile_bfd
;
508 /* Read a symbol file, after initialization by coff_symfile_init. */
511 coff_symfile_read (struct objfile
*objfile
, int mainline
)
513 struct coff_symfile_info
*info
;
514 struct dbx_symfile_info
*dbxinfo
;
515 bfd
*abfd
= objfile
->obfd
;
516 coff_data_type
*cdata
= coff_data (abfd
);
517 char *name
= bfd_get_filename (abfd
);
519 unsigned int num_symbols
;
521 int stringtab_offset
;
522 struct cleanup
*back_to
, *cleanup_minimal_symbols
;
527 info
= (struct coff_symfile_info
*) objfile
->deprecated_sym_private
;
528 dbxinfo
= objfile
->deprecated_sym_stab_info
;
529 symfile_bfd
= abfd
; /* Kludge for swap routines */
531 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
532 num_symbols
= bfd_get_symcount (abfd
); /* How many syms */
533 symtab_offset
= cdata
->sym_filepos
; /* Symbol table file offset */
534 stringtab_offset
= symtab_offset
+ /* String table file offset */
535 num_symbols
* cdata
->local_symesz
;
537 /* Set a few file-statics that give us specific information about
538 the particular COFF file format we're reading. */
539 local_n_btmask
= cdata
->local_n_btmask
;
540 local_n_btshft
= cdata
->local_n_btshft
;
541 local_n_tmask
= cdata
->local_n_tmask
;
542 local_n_tshift
= cdata
->local_n_tshift
;
543 local_linesz
= cdata
->local_linesz
;
544 local_symesz
= cdata
->local_symesz
;
545 local_auxesz
= cdata
->local_auxesz
;
547 /* Allocate space for raw symbol and aux entries, based on their
548 space requirements as reported by BFD. */
549 temp_sym
= (char *) xmalloc
550 (cdata
->local_symesz
+ cdata
->local_auxesz
);
551 temp_aux
= temp_sym
+ cdata
->local_symesz
;
552 back_to
= make_cleanup (free_current_contents
, &temp_sym
);
554 /* We need to know whether this is a PE file, because in PE files,
555 unlike standard COFF files, symbol values are stored as offsets
556 from the section address, rather than as absolute addresses.
557 FIXME: We should use BFD to read the symbol table, and thus avoid
560 strncmp (bfd_get_target (objfile
->obfd
), "pe", 2) == 0
561 || strncmp (bfd_get_target (objfile
->obfd
), "epoc-pe", 7) == 0;
565 info
->min_lineno_offset
= 0;
566 info
->max_lineno_offset
= 0;
568 /* Only read line number information if we have symbols.
570 On Windows NT, some of the system's DLL's have sections with
571 PointerToLinenumbers fields that are non-zero, but point at
572 random places within the image file. (In the case I found,
573 KERNEL32.DLL's .text section has a line number info pointer that
574 points into the middle of the string `lib\\i386\kernel32.dll'.)
576 However, these DLL's also have no symbols. The line number
577 tables are meaningless without symbols. And in fact, GDB never
578 uses the line number information unless there are symbols. So we
579 can avoid spurious error messages (and maybe run a little
580 faster!) by not even reading the line number table unless we have
584 /* Read the line number table, all at once. */
585 bfd_map_over_sections (abfd
, find_linenos
, (void *) info
);
587 make_cleanup (free_linetab_cleanup
, 0 /*ignore*/);
588 val
= init_lineno (abfd
, info
->min_lineno_offset
,
589 info
->max_lineno_offset
- info
->min_lineno_offset
);
591 error (_("\"%s\": error reading line numbers."), name
);
594 /* Now read the string table, all at once. */
596 make_cleanup (free_stringtab_cleanup
, 0 /*ignore*/);
597 val
= init_stringtab (abfd
, stringtab_offset
);
599 error (_("\"%s\": can't get string table"), name
);
601 init_minimal_symbol_collection ();
602 cleanup_minimal_symbols
= make_cleanup_discard_minimal_symbols ();
604 /* Now that the executable file is positioned at symbol table,
605 process it and define symbols accordingly. */
607 coff_symtab_read ((long) symtab_offset
, num_symbols
, objfile
);
609 /* Install any minimal symbols that have been collected as the current
610 minimal symbols for this objfile. */
612 install_minimal_symbols (objfile
);
614 /* Free the installed minimal symbol data. */
615 do_cleanups (cleanup_minimal_symbols
);
617 /* If we are reinitializing, or if we have not loaded syms yet,
618 empty the psymtab. "mainline" is cleared so the *_read_psymtab
619 functions do not all re-initialize it. */
622 init_psymbol_list (objfile
, 0);
626 bfd_map_over_sections (abfd
, coff_locate_sections
, (void *) info
);
630 if (!info
->stabstrsect
)
632 error (_("The debugging information in `%s' is corrupted.\n"
633 "The file has a `.stabs' section, but no `.stabstr' section."),
637 /* FIXME: dubious. Why can't we use something normal like
638 bfd_get_section_contents? */
639 bfd_seek (abfd
, abfd
->where
, 0);
641 stabstrsize
= bfd_section_size (abfd
, info
->stabstrsect
);
643 coffstab_build_psymtabs (objfile
,
645 info
->textaddr
, info
->textsize
,
647 info
->stabstrsect
->filepos
, stabstrsize
);
649 if (dwarf2_has_info (objfile
))
651 /* DWARF2 sections. */
652 dwarf2_build_psymtabs (objfile
, mainline
);
655 dwarf2_build_frame_info (objfile
);
657 do_cleanups (back_to
);
661 coff_new_init (struct objfile
*ignore
)
665 /* Perform any local cleanups required when we are done with a particular
666 objfile. I.E, we are in the process of discarding all symbol information
667 for an objfile, freeing up all memory held for it, and unlinking the
668 objfile struct from the global list of known objfiles. */
671 coff_symfile_finish (struct objfile
*objfile
)
673 if (objfile
->deprecated_sym_private
!= NULL
)
675 xfree (objfile
->deprecated_sym_private
);
678 /* Let stabs reader clean up */
679 stabsread_clear_cache ();
683 /* Given pointers to a symbol table in coff style exec file,
684 analyze them and create struct symtab's describing the symbols.
685 NSYMS is the number of symbols in the symbol table.
686 We read them one at a time using read_one_sym (). */
689 coff_symtab_read (long symtab_offset
, unsigned int nsyms
,
690 struct objfile
*objfile
)
692 struct context_stack
*new;
693 struct coff_symbol coff_symbol
;
694 struct coff_symbol
*cs
= &coff_symbol
;
695 static struct internal_syment main_sym
;
696 static union internal_auxent main_aux
;
697 struct coff_symbol fcn_cs_saved
;
698 static struct internal_syment fcn_sym_saved
;
699 static union internal_auxent fcn_aux_saved
;
701 /* A .file is open. */
702 int in_source_file
= 0;
703 int next_file_symnum
= -1;
704 /* Name of the current file. */
705 char *filestring
= "";
707 int fcn_first_line
= 0;
708 CORE_ADDR fcn_first_line_addr
= 0;
709 int fcn_last_line
= 0;
710 int fcn_start_addr
= 0;
711 long fcn_line_ptr
= 0;
715 /* Work around a stdio bug in SunOS4.1.1 (this makes me nervous....
716 it's hard to know I've really worked around it. The fix should be
717 harmless, anyway). The symptom of the bug is that the first
718 fread (in read_one_sym), will (in my example) actually get data
719 from file offset 268, when the fseek was to 264 (and ftell shows
720 264). This causes all hell to break loose. I was unable to
721 reproduce this on a short test program which operated on the same
722 file, performing (I think) the same sequence of operations.
724 It stopped happening when I put in this (former) rewind().
726 FIXME: Find out if this has been reported to Sun, whether it has
727 been fixed in a later release, etc. */
729 bfd_seek (objfile
->obfd
, 0, 0);
731 /* Position to read the symbol table. */
732 val
= bfd_seek (objfile
->obfd
, (long) symtab_offset
, 0);
734 perror_with_name (objfile
->name
);
736 current_objfile
= objfile
;
737 nlist_bfd_global
= objfile
->obfd
;
738 nlist_nsyms_global
= nsyms
;
739 last_source_file
= NULL
;
740 memset (opaque_type_chain
, 0, sizeof opaque_type_chain
);
742 if (type_vector
) /* Get rid of previous one */
744 type_vector_length
= 160;
745 type_vector
= (struct type
**)
746 xmalloc (type_vector_length
* sizeof (struct type
*));
747 memset (type_vector
, 0, type_vector_length
* sizeof (struct type
*));
749 coff_start_symtab ("");
752 while (symnum
< nsyms
)
754 QUIT
; /* Make this command interruptable. */
756 read_one_sym (cs
, &main_sym
, &main_aux
);
758 if (cs
->c_symnum
== next_file_symnum
&& cs
->c_sclass
!= C_FILE
)
760 if (last_source_file
)
761 coff_end_symtab (objfile
);
763 coff_start_symtab ("_globals_");
764 complete_symtab ("_globals_", 0, 0);
765 /* done with all files, everything from here on out is globals */
768 /* Special case for file with type declarations only, no text. */
769 if (!last_source_file
&& SDB_TYPE (cs
->c_type
)
770 && cs
->c_secnum
== N_DEBUG
)
771 complete_symtab (filestring
, 0, 0);
773 /* Typedefs should not be treated as symbol definitions. */
774 if (ISFCN (cs
->c_type
) && cs
->c_sclass
!= C_TPDEF
)
776 /* Record all functions -- external and static -- in minsyms. */
777 int section
= cs_to_section (cs
, objfile
);
778 tmpaddr
= cs
->c_value
+ ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
779 record_minimal_symbol (cs
, tmpaddr
, mst_text
, section
, objfile
);
781 fcn_line_ptr
= main_aux
.x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
;
782 fcn_start_addr
= tmpaddr
;
784 fcn_sym_saved
= main_sym
;
785 fcn_aux_saved
= main_aux
;
789 switch (cs
->c_sclass
)
798 complaint (&symfile_complaints
, _("Bad n_sclass for symbol %s"),
803 /* c_value field contains symnum of next .file entry in table
804 or symnum of first global after last .file. */
805 next_file_symnum
= cs
->c_value
;
807 filestring
= coff_getfilename (&main_aux
);
811 /* Complete symbol table for last object file
812 containing debugging information. */
813 if (last_source_file
)
815 coff_end_symtab (objfile
);
816 coff_start_symtab (filestring
);
821 /* C_LABEL is used for labels and static functions. Including
822 it here allows gdb to see static functions when no debug
823 info is available. */
825 /* However, labels within a function can make weird backtraces,
826 so filter them out (from phdm@macqel.be). */
832 case C_THUMBSTATFUNC
:
833 if (cs
->c_name
[0] == '.')
835 if (DEPRECATED_STREQ (cs
->c_name
, ".text"))
837 /* FIXME: don't wire in ".text" as section name
839 /* Check for in_source_file deals with case of
840 a file with debugging symbols
841 followed by a later file with no symbols. */
843 complete_symtab (filestring
,
844 cs
->c_value
+ ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
)),
845 main_aux
.x_scn
.x_scnlen
);
848 /* flush rest of '.' symbols */
851 else if (!SDB_TYPE (cs
->c_type
)
852 && cs
->c_name
[0] == 'L'
853 && (strncmp (cs
->c_name
, "LI%", 3) == 0
854 || strncmp (cs
->c_name
, "LF%", 3) == 0
855 || strncmp (cs
->c_name
, "LC%", 3) == 0
856 || strncmp (cs
->c_name
, "LP%", 3) == 0
857 || strncmp (cs
->c_name
, "LPB%", 4) == 0
858 || strncmp (cs
->c_name
, "LBB%", 4) == 0
859 || strncmp (cs
->c_name
, "LBE%", 4) == 0
860 || strncmp (cs
->c_name
, "LPBX%", 5) == 0))
861 /* At least on a 3b1, gcc generates swbeg and string labels
862 that look like this. Ignore them. */
864 /* fall in for static symbols that don't start with '.' */
869 /* Record it in the minimal symbols regardless of
870 SDB_TYPE. This parallels what we do for other debug
871 formats, and probably is needed to make
872 print_address_symbolic work right without the (now
873 gone) "set fast-symbolic-addr off" kludge. */
875 enum minimal_symbol_type ms_type
;
878 if (cs
->c_secnum
== N_UNDEF
)
880 /* This is a common symbol. See if the target
881 environment knows where it has been relocated to. */
883 if (target_lookup_symbol (cs
->c_name
, &reladdr
))
885 /* Error in lookup; ignore symbol. */
889 /* The address has already been relocated; make sure that
890 objfile_relocate doesn't relocate it again. */
892 ms_type
= cs
->c_sclass
== C_EXT
893 || cs
->c_sclass
== C_THUMBEXT
?
894 mst_bss
: mst_file_bss
;
896 else if (cs
->c_secnum
== N_ABS
)
898 /* Use the correct minimal symbol type (and don't
899 relocate) for absolute values. */
901 sec
= cs_to_section (cs
, objfile
);
902 tmpaddr
= cs
->c_value
;
906 sec
= cs_to_section (cs
, objfile
);
907 tmpaddr
= cs
->c_value
;
908 /* Statics in a PE file also get relocated */
909 if (cs
->c_sclass
== C_EXT
910 || cs
->c_sclass
== C_THUMBEXTFUNC
911 || cs
->c_sclass
== C_THUMBEXT
912 || (pe_file
&& (cs
->c_sclass
== C_STAT
)))
913 tmpaddr
+= ANOFFSET (objfile
->section_offsets
, sec
);
915 if (sec
== SECT_OFF_TEXT (objfile
))
918 cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXTFUNC
919 || cs
->c_sclass
== C_THUMBEXT
?
920 mst_text
: mst_file_text
;
921 tmpaddr
= SMASH_TEXT_ADDRESS (tmpaddr
);
923 else if (sec
== SECT_OFF_DATA (objfile
))
926 cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXT
?
927 mst_data
: mst_file_data
;
929 else if (sec
== SECT_OFF_BSS (objfile
))
932 cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXT
?
933 mst_data
: mst_file_data
;
936 ms_type
= mst_unknown
;
940 struct minimal_symbol
*msym
;
941 msym
= record_minimal_symbol (cs
, tmpaddr
, ms_type
, sec
, objfile
);
943 COFF_MAKE_MSYMBOL_SPECIAL (cs
->c_sclass
, msym
);
946 if (SDB_TYPE (cs
->c_type
))
949 sym
= process_coff_symbol
950 (cs
, &main_aux
, objfile
);
951 SYMBOL_VALUE (sym
) = tmpaddr
;
952 SYMBOL_SECTION (sym
) = sec
;
958 if (DEPRECATED_STREQ (cs
->c_name
, ".bf"))
962 /* value contains address of first non-init type code */
963 /* main_aux.x_sym.x_misc.x_lnsz.x_lnno
964 contains line number of '{' } */
966 complaint (&symfile_complaints
,
967 _("`.bf' symbol %d has no aux entry"), cs
->c_symnum
);
968 fcn_first_line
= main_aux
.x_sym
.x_misc
.x_lnsz
.x_lnno
;
969 fcn_first_line_addr
= cs
->c_value
;
971 /* Might want to check that locals are 0 and
972 context_stack_depth is zero, and complain if not. */
975 new = push_context (depth
, fcn_start_addr
);
976 fcn_cs_saved
.c_name
= getsymname (&fcn_sym_saved
);
978 process_coff_symbol (&fcn_cs_saved
, &fcn_aux_saved
, objfile
);
980 else if (DEPRECATED_STREQ (cs
->c_name
, ".ef"))
982 if (!within_function
)
983 error (_("Bad coff function information."));
984 /* the value of .ef is the address of epilogue code;
985 not useful for gdb. */
986 /* { main_aux.x_sym.x_misc.x_lnsz.x_lnno
987 contains number of lines to '}' */
989 if (context_stack_depth
<= 0)
990 { /* We attempted to pop an empty context stack */
991 complaint (&symfile_complaints
,
992 _("`.ef' symbol without matching `.bf' symbol ignored starting at symnum %d"),
998 new = pop_context ();
999 /* Stack must be empty now. */
1000 if (context_stack_depth
> 0 || new == NULL
)
1002 complaint (&symfile_complaints
,
1003 _("Unmatched .ef symbol(s) ignored starting at symnum %d"),
1005 within_function
= 0;
1008 if (cs
->c_naux
!= 1)
1010 complaint (&symfile_complaints
,
1011 _("`.ef' symbol %d has no aux entry"), cs
->c_symnum
);
1012 fcn_last_line
= 0x7FFFFFFF;
1016 fcn_last_line
= main_aux
.x_sym
.x_misc
.x_lnsz
.x_lnno
;
1018 /* fcn_first_line is the line number of the opening '{'.
1019 Do not record it - because it would affect gdb's idea
1020 of the line number of the first statement of the function -
1021 except for one-line functions, for which it is also the line
1022 number of all the statements and of the closing '}', and
1023 for which we do not have any other statement-line-number. */
1024 if (fcn_last_line
== 1)
1025 record_line (current_subfile
, fcn_first_line
,
1026 fcn_first_line_addr
);
1028 enter_linenos (fcn_line_ptr
, fcn_first_line
, fcn_last_line
,
1031 finish_block (new->name
, &local_symbols
, new->old_blocks
,
1033 #if defined (FUNCTION_EPILOGUE_SIZE)
1034 /* This macro should be defined only on
1036 fcn_aux_saved.x_sym.x_misc.x_fsize
1037 field is always zero.
1038 So use the .bf record information that
1039 points to the epilogue and add the size
1042 + FUNCTION_EPILOGUE_SIZE
1043 + ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
)),
1045 fcn_cs_saved
.c_value
1046 + fcn_aux_saved
.x_sym
.x_misc
.x_fsize
1047 + ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
)),
1051 within_function
= 0;
1056 if (DEPRECATED_STREQ (cs
->c_name
, ".bb"))
1058 tmpaddr
= cs
->c_value
;
1059 tmpaddr
+= ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
1060 push_context (++depth
, tmpaddr
);
1062 else if (DEPRECATED_STREQ (cs
->c_name
, ".eb"))
1064 if (context_stack_depth
<= 0)
1065 { /* We attempted to pop an empty context stack */
1066 complaint (&symfile_complaints
,
1067 _("`.eb' symbol without matching `.bb' symbol ignored starting at symnum %d"),
1072 new = pop_context ();
1073 if (depth
-- != new->depth
)
1075 complaint (&symfile_complaints
,
1076 _("Mismatched .eb symbol ignored starting at symnum %d"),
1080 if (local_symbols
&& context_stack_depth
> 0)
1083 cs
->c_value
+ ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
1084 /* Make a block for the local symbols within. */
1085 finish_block (0, &local_symbols
, new->old_blocks
,
1086 new->start_addr
, tmpaddr
, objfile
);
1088 /* Now pop locals of block just finished. */
1089 local_symbols
= new->locals
;
1094 process_coff_symbol (cs
, &main_aux
, objfile
);
1099 if ((nsyms
== 0) && (pe_file
))
1101 /* We've got no debugging symbols, but it's is a portable
1102 executable, so try to read the export table */
1103 read_pe_exported_syms (objfile
);
1106 if (last_source_file
)
1107 coff_end_symtab (objfile
);
1109 /* Patch up any opaque types (references to types that are not defined
1110 in the file where they are referenced, e.g. "struct foo *bar"). */
1111 ALL_OBJFILE_SYMTABS (objfile
, s
)
1112 patch_opaque_types (s
);
1114 current_objfile
= NULL
;
1117 /* Routines for reading headers and symbols from executable. */
1119 /* Read the next symbol, swap it, and return it in both internal_syment
1120 form, and coff_symbol form. Also return its first auxent, if any,
1121 in internal_auxent form, and skip any other auxents. */
1124 read_one_sym (struct coff_symbol
*cs
,
1125 struct internal_syment
*sym
,
1126 union internal_auxent
*aux
)
1130 cs
->c_symnum
= symnum
;
1131 bfd_bread (temp_sym
, local_symesz
, nlist_bfd_global
);
1132 bfd_coff_swap_sym_in (symfile_bfd
, temp_sym
, (char *) sym
);
1133 cs
->c_naux
= sym
->n_numaux
& 0xff;
1134 if (cs
->c_naux
>= 1)
1136 bfd_bread (temp_aux
, local_auxesz
, nlist_bfd_global
);
1137 bfd_coff_swap_aux_in (symfile_bfd
, temp_aux
, sym
->n_type
, sym
->n_sclass
,
1138 0, cs
->c_naux
, (char *) aux
);
1139 /* If more than one aux entry, read past it (only the first aux
1141 for (i
= 1; i
< cs
->c_naux
; i
++)
1142 bfd_bread (temp_aux
, local_auxesz
, nlist_bfd_global
);
1144 cs
->c_name
= getsymname (sym
);
1145 cs
->c_value
= sym
->n_value
;
1146 cs
->c_sclass
= (sym
->n_sclass
& 0xff);
1147 cs
->c_secnum
= sym
->n_scnum
;
1148 cs
->c_type
= (unsigned) sym
->n_type
;
1149 if (!SDB_TYPE (cs
->c_type
))
1153 if (cs
->c_sclass
& 128)
1154 printf (_("thumb symbol %s, class 0x%x\n"), cs
->c_name
, cs
->c_sclass
);
1157 symnum
+= 1 + cs
->c_naux
;
1159 /* The PE file format stores symbol values as offsets within the
1160 section, rather than as absolute addresses. We correct that
1161 here, if the symbol has an appropriate storage class. FIXME: We
1162 should use BFD to read the symbols, rather than duplicating the
1166 switch (cs
->c_sclass
)
1170 case C_THUMBEXTFUNC
:
1175 case C_THUMBSTATFUNC
:
1181 if (cs
->c_secnum
!= 0)
1182 cs
->c_value
+= cs_section_address (cs
, symfile_bfd
);
1188 /* Support for string table handling */
1190 static char *stringtab
= NULL
;
1193 init_stringtab (bfd
*abfd
, long offset
)
1197 unsigned char lengthbuf
[4];
1201 /* If the file is stripped, the offset might be zero, indicating no
1202 string table. Just return with `stringtab' set to null. */
1206 if (bfd_seek (abfd
, offset
, 0) < 0)
1209 val
= bfd_bread ((char *) lengthbuf
, sizeof lengthbuf
, abfd
);
1210 length
= bfd_h_get_32 (symfile_bfd
, lengthbuf
);
1212 /* If no string table is needed, then the file may end immediately
1213 after the symbols. Just return with `stringtab' set to null. */
1214 if (val
!= sizeof lengthbuf
|| length
< sizeof lengthbuf
)
1217 stringtab
= (char *) xmalloc (length
);
1218 /* This is in target format (probably not very useful, and not currently
1219 used), not host format. */
1220 memcpy (stringtab
, lengthbuf
, sizeof lengthbuf
);
1221 if (length
== sizeof length
) /* Empty table -- just the count */
1224 val
= bfd_bread (stringtab
+ sizeof lengthbuf
, length
- sizeof lengthbuf
,
1226 if (val
!= length
- sizeof lengthbuf
|| stringtab
[length
- 1] != '\0')
1233 free_stringtab (void)
1241 free_stringtab_cleanup (void *ignore
)
1247 getsymname (struct internal_syment
*symbol_entry
)
1249 static char buffer
[SYMNMLEN
+ 1];
1252 if (symbol_entry
->_n
._n_n
._n_zeroes
== 0)
1254 /* FIXME: Probably should be detecting corrupt symbol files by
1255 seeing whether offset points to within the stringtab. */
1256 result
= stringtab
+ symbol_entry
->_n
._n_n
._n_offset
;
1260 strncpy (buffer
, symbol_entry
->_n
._n_name
, SYMNMLEN
);
1261 buffer
[SYMNMLEN
] = '\0';
1267 /* Extract the file name from the aux entry of a C_FILE symbol. Return
1268 only the last component of the name. Result is in static storage and
1269 is only good for temporary use. */
1272 coff_getfilename (union internal_auxent
*aux_entry
)
1274 static char buffer
[BUFSIZ
];
1278 if (aux_entry
->x_file
.x_n
.x_zeroes
== 0)
1279 strcpy (buffer
, stringtab
+ aux_entry
->x_file
.x_n
.x_offset
);
1282 strncpy (buffer
, aux_entry
->x_file
.x_fname
, FILNMLEN
);
1283 buffer
[FILNMLEN
] = '\0';
1287 /* FIXME: We should not be throwing away the information about what
1288 directory. It should go into dirname of the symtab, or some such
1290 if ((temp
= strrchr (result
, '/')) != NULL
)
1295 /* Support for line number handling. */
1297 static char *linetab
= NULL
;
1298 static long linetab_offset
;
1299 static unsigned long linetab_size
;
1301 /* Read in all the line numbers for fast lookups later. Leave them in
1302 external (unswapped) format in memory; we'll swap them as we enter
1303 them into GDB's data structures. */
1306 init_lineno (bfd
*abfd
, long offset
, int size
)
1310 linetab_offset
= offset
;
1311 linetab_size
= size
;
1318 if (bfd_seek (abfd
, offset
, 0) < 0)
1321 /* Allocate the desired table, plus a sentinel */
1322 linetab
= (char *) xmalloc (size
+ local_linesz
);
1324 val
= bfd_bread (linetab
, size
, abfd
);
1328 /* Terminate it with an all-zero sentinel record */
1329 memset (linetab
+ size
, 0, local_linesz
);
1343 free_linetab_cleanup (void *ignore
)
1348 #if !defined (L_LNNO32)
1349 #define L_LNNO32(lp) ((lp)->l_lnno)
1353 enter_linenos (long file_offset
, int first_line
,
1354 int last_line
, struct objfile
*objfile
)
1357 struct internal_lineno lptr
;
1361 if (file_offset
< linetab_offset
)
1363 complaint (&symfile_complaints
,
1364 _("Line number pointer %ld lower than start of line numbers"),
1366 if (file_offset
> linetab_size
) /* Too big to be an offset? */
1368 file_offset
+= linetab_offset
; /* Try reading at that linetab offset */
1371 rawptr
= &linetab
[file_offset
- linetab_offset
];
1373 /* skip first line entry for each function */
1374 rawptr
+= local_linesz
;
1375 /* line numbers start at one for the first line of the function */
1378 /* If the line number table is full (e.g. 64K lines in COFF debug
1379 info), the next function's L_LNNO32 might not be zero, so don't
1380 overstep the table's end in any case. */
1381 while (rawptr
<= &linetab
[0] + linetab_size
)
1383 bfd_coff_swap_lineno_in (symfile_bfd
, rawptr
, &lptr
);
1384 rawptr
+= local_linesz
;
1385 /* The next function, or the sentinel, will have L_LNNO32 zero;
1387 if (L_LNNO32 (&lptr
) && L_LNNO32 (&lptr
) <= last_line
)
1388 record_line (current_subfile
, first_line
+ L_LNNO32 (&lptr
),
1390 + ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
)));
1397 patch_type (struct type
*type
, struct type
*real_type
)
1399 struct type
*target
= TYPE_TARGET_TYPE (type
);
1400 struct type
*real_target
= TYPE_TARGET_TYPE (real_type
);
1401 int field_size
= TYPE_NFIELDS (real_target
) * sizeof (struct field
);
1403 TYPE_LENGTH (target
) = TYPE_LENGTH (real_target
);
1404 TYPE_NFIELDS (target
) = TYPE_NFIELDS (real_target
);
1405 TYPE_FIELDS (target
) = (struct field
*) TYPE_ALLOC (target
, field_size
);
1407 memcpy (TYPE_FIELDS (target
), TYPE_FIELDS (real_target
), field_size
);
1409 if (TYPE_NAME (real_target
))
1411 if (TYPE_NAME (target
))
1412 xfree (TYPE_NAME (target
));
1413 TYPE_NAME (target
) = concat (TYPE_NAME (real_target
), (char *)NULL
);
1417 /* Patch up all appropriate typedef symbols in the opaque_type_chains
1418 so that they can be used to print out opaque data structures properly. */
1421 patch_opaque_types (struct symtab
*s
)
1424 struct dict_iterator iter
;
1425 struct symbol
*real_sym
;
1427 /* Go through the per-file symbols only */
1428 b
= BLOCKVECTOR_BLOCK (BLOCKVECTOR (s
), STATIC_BLOCK
);
1429 ALL_BLOCK_SYMBOLS (b
, iter
, real_sym
)
1431 /* Find completed typedefs to use to fix opaque ones.
1432 Remove syms from the chain when their types are stored,
1433 but search the whole chain, as there may be several syms
1434 from different files with the same name. */
1435 if (SYMBOL_CLASS (real_sym
) == LOC_TYPEDEF
&&
1436 SYMBOL_DOMAIN (real_sym
) == VAR_DOMAIN
&&
1437 TYPE_CODE (SYMBOL_TYPE (real_sym
)) == TYPE_CODE_PTR
&&
1438 TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (real_sym
))) != 0)
1440 char *name
= DEPRECATED_SYMBOL_NAME (real_sym
);
1441 int hash
= hashname (name
);
1442 struct symbol
*sym
, *prev
;
1445 for (sym
= opaque_type_chain
[hash
]; sym
;)
1447 if (name
[0] == DEPRECATED_SYMBOL_NAME (sym
)[0] &&
1448 strcmp (name
+ 1, DEPRECATED_SYMBOL_NAME (sym
) + 1) == 0)
1452 SYMBOL_VALUE_CHAIN (prev
) = SYMBOL_VALUE_CHAIN (sym
);
1456 opaque_type_chain
[hash
] = SYMBOL_VALUE_CHAIN (sym
);
1459 patch_type (SYMBOL_TYPE (sym
), SYMBOL_TYPE (real_sym
));
1463 sym
= SYMBOL_VALUE_CHAIN (prev
);
1467 sym
= opaque_type_chain
[hash
];
1473 sym
= SYMBOL_VALUE_CHAIN (sym
);
1480 static struct symbol
*
1481 process_coff_symbol (struct coff_symbol
*cs
,
1482 union internal_auxent
*aux
,
1483 struct objfile
*objfile
)
1486 = (struct symbol
*) obstack_alloc (&objfile
->objfile_obstack
,
1487 sizeof (struct symbol
));
1490 memset (sym
, 0, sizeof (struct symbol
));
1492 name
= EXTERNAL_NAME (name
, objfile
->obfd
);
1493 SYMBOL_LANGUAGE (sym
) = language_auto
;
1494 SYMBOL_SET_NAMES (sym
, name
, strlen (name
), objfile
);
1496 /* default assumptions */
1497 SYMBOL_VALUE (sym
) = cs
->c_value
;
1498 SYMBOL_DOMAIN (sym
) = VAR_DOMAIN
;
1499 SYMBOL_SECTION (sym
) = cs_to_section (cs
, objfile
);
1501 if (ISFCN (cs
->c_type
))
1503 SYMBOL_VALUE (sym
) += ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
1505 lookup_function_type (decode_function_type (cs
, cs
->c_type
, aux
));
1507 SYMBOL_CLASS (sym
) = LOC_BLOCK
;
1508 if (cs
->c_sclass
== C_STAT
|| cs
->c_sclass
== C_THUMBSTAT
1509 || cs
->c_sclass
== C_THUMBSTATFUNC
)
1510 add_symbol_to_list (sym
, &file_symbols
);
1511 else if (cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXT
1512 || cs
->c_sclass
== C_THUMBEXTFUNC
)
1513 add_symbol_to_list (sym
, &global_symbols
);
1517 SYMBOL_TYPE (sym
) = decode_type (cs
, cs
->c_type
, aux
);
1518 switch (cs
->c_sclass
)
1524 SYMBOL_CLASS (sym
) = LOC_LOCAL
;
1525 add_symbol_to_list (sym
, &local_symbols
);
1529 case C_THUMBEXTFUNC
:
1531 SYMBOL_CLASS (sym
) = LOC_STATIC
;
1532 SYMBOL_VALUE_ADDRESS (sym
) = (CORE_ADDR
) cs
->c_value
;
1533 SYMBOL_VALUE_ADDRESS (sym
) += ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
1534 add_symbol_to_list (sym
, &global_symbols
);
1538 case C_THUMBSTATFUNC
:
1540 SYMBOL_CLASS (sym
) = LOC_STATIC
;
1541 SYMBOL_VALUE_ADDRESS (sym
) = (CORE_ADDR
) cs
->c_value
;
1542 SYMBOL_VALUE_ADDRESS (sym
) += ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
1543 if (within_function
)
1545 /* Static symbol of local scope */
1546 add_symbol_to_list (sym
, &local_symbols
);
1550 /* Static symbol at top level of file */
1551 add_symbol_to_list (sym
, &file_symbols
);
1555 #ifdef C_GLBLREG /* AMD coff */
1559 SYMBOL_CLASS (sym
) = LOC_REGISTER
;
1560 SYMBOL_VALUE (sym
) = SDB_REG_TO_REGNUM (cs
->c_value
);
1561 add_symbol_to_list (sym
, &local_symbols
);
1569 SYMBOL_CLASS (sym
) = LOC_ARG
;
1570 add_symbol_to_list (sym
, &local_symbols
);
1571 #if !defined (BELIEVE_PCC_PROMOTION)
1572 if (TARGET_BYTE_ORDER
== BFD_ENDIAN_BIG
)
1574 /* If PCC says a parameter is a short or a char,
1575 aligned on an int boundary, realign it to the
1576 "little end" of the int. */
1577 struct type
*temptype
;
1578 temptype
= lookup_fundamental_type (current_objfile
,
1580 if (TYPE_LENGTH (SYMBOL_TYPE (sym
)) < TYPE_LENGTH (temptype
)
1581 && TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_INT
1582 && 0 == SYMBOL_VALUE (sym
) % TYPE_LENGTH (temptype
))
1584 SYMBOL_VALUE (sym
) +=
1585 TYPE_LENGTH (temptype
)
1586 - TYPE_LENGTH (SYMBOL_TYPE (sym
));
1593 SYMBOL_CLASS (sym
) = LOC_REGPARM
;
1594 SYMBOL_VALUE (sym
) = SDB_REG_TO_REGNUM (cs
->c_value
);
1595 add_symbol_to_list (sym
, &local_symbols
);
1596 #if !defined (BELIEVE_PCC_PROMOTION)
1597 /* FIXME: This should retain the current type, since it's just
1598 a register value. gnu@adobe, 26Feb93 */
1600 /* If PCC says a parameter is a short or a char,
1601 it is really an int. */
1602 struct type
*temptype
;
1604 lookup_fundamental_type (current_objfile
, FT_INTEGER
);
1605 if (TYPE_LENGTH (SYMBOL_TYPE (sym
)) < TYPE_LENGTH (temptype
)
1606 && TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_INT
)
1609 (TYPE_UNSIGNED (SYMBOL_TYPE (sym
))
1610 ? lookup_fundamental_type (current_objfile
,
1611 FT_UNSIGNED_INTEGER
)
1619 SYMBOL_CLASS (sym
) = LOC_TYPEDEF
;
1620 SYMBOL_DOMAIN (sym
) = VAR_DOMAIN
;
1622 /* If type has no name, give it one */
1623 if (TYPE_NAME (SYMBOL_TYPE (sym
)) == 0)
1625 if (TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_PTR
1626 || TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_FUNC
)
1628 /* If we are giving a name to a type such as "pointer to
1629 foo" or "function returning foo", we better not set
1630 the TYPE_NAME. If the program contains "typedef char
1631 *caddr_t;", we don't want all variables of type char
1632 * to print as caddr_t. This is not just a
1633 consequence of GDB's type management; CC and GCC (at
1634 least through version 2.4) both output variables of
1635 either type char * or caddr_t with the type
1636 refering to the C_TPDEF symbol for caddr_t. If a future
1637 compiler cleans this up it GDB is not ready for it
1638 yet, but if it becomes ready we somehow need to
1639 disable this check (without breaking the PCC/GCC2.4
1644 Fortunately, this check seems not to be necessary
1645 for anything except pointers or functions. */
1649 TYPE_NAME (SYMBOL_TYPE (sym
)) =
1650 concat (DEPRECATED_SYMBOL_NAME (sym
), (char *)NULL
);
1653 /* Keep track of any type which points to empty structured type,
1654 so it can be filled from a definition from another file. A
1655 simple forward reference (TYPE_CODE_UNDEF) is not an
1656 empty structured type, though; the forward references
1657 work themselves out via the magic of coff_lookup_type. */
1658 if (TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_PTR
&&
1659 TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym
))) == 0 &&
1660 TYPE_CODE (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym
))) !=
1663 int i
= hashname (DEPRECATED_SYMBOL_NAME (sym
));
1665 SYMBOL_VALUE_CHAIN (sym
) = opaque_type_chain
[i
];
1666 opaque_type_chain
[i
] = sym
;
1668 add_symbol_to_list (sym
, &file_symbols
);
1674 SYMBOL_CLASS (sym
) = LOC_TYPEDEF
;
1675 SYMBOL_DOMAIN (sym
) = STRUCT_DOMAIN
;
1677 /* Some compilers try to be helpful by inventing "fake"
1678 names for anonymous enums, structures, and unions, like
1679 "~0fake" or ".0fake". Thanks, but no thanks... */
1680 if (TYPE_TAG_NAME (SYMBOL_TYPE (sym
)) == 0)
1681 if (DEPRECATED_SYMBOL_NAME (sym
) != NULL
1682 && *DEPRECATED_SYMBOL_NAME (sym
) != '~'
1683 && *DEPRECATED_SYMBOL_NAME (sym
) != '.')
1684 TYPE_TAG_NAME (SYMBOL_TYPE (sym
)) =
1685 concat (DEPRECATED_SYMBOL_NAME (sym
), (char *)NULL
);
1687 add_symbol_to_list (sym
, &file_symbols
);
1697 /* Decode a coff type specifier; return the type that is meant. */
1699 static struct type
*
1700 decode_type (struct coff_symbol
*cs
, unsigned int c_type
,
1701 union internal_auxent
*aux
)
1703 struct type
*type
= 0;
1704 unsigned int new_c_type
;
1706 if (c_type
& ~N_BTMASK
)
1708 new_c_type
= DECREF (c_type
);
1711 type
= decode_type (cs
, new_c_type
, aux
);
1712 type
= lookup_pointer_type (type
);
1714 else if (ISFCN (c_type
))
1716 type
= decode_type (cs
, new_c_type
, aux
);
1717 type
= lookup_function_type (type
);
1719 else if (ISARY (c_type
))
1722 unsigned short *dim
;
1723 struct type
*base_type
, *index_type
, *range_type
;
1725 /* Define an array type. */
1726 /* auxent refers to array, not base type */
1727 if (aux
->x_sym
.x_tagndx
.l
== 0)
1730 /* shift the indices down */
1731 dim
= &aux
->x_sym
.x_fcnary
.x_ary
.x_dimen
[0];
1734 for (i
= 0; *dim
&& i
< DIMNUM
- 1; i
++, dim
++)
1738 base_type
= decode_type (cs
, new_c_type
, aux
);
1739 index_type
= lookup_fundamental_type (current_objfile
, FT_INTEGER
);
1741 create_range_type ((struct type
*) NULL
, index_type
, 0, n
- 1);
1743 create_array_type ((struct type
*) NULL
, base_type
, range_type
);
1748 /* Reference to existing type. This only occurs with the
1749 struct, union, and enum types. EPI a29k coff
1750 fakes us out by producing aux entries with a nonzero
1751 x_tagndx for definitions of structs, unions, and enums, so we
1752 have to check the c_sclass field. SCO 3.2v4 cc gets confused
1753 with pointers to pointers to defined structs, and generates
1754 negative x_tagndx fields. */
1755 if (cs
->c_naux
> 0 && aux
->x_sym
.x_tagndx
.l
!= 0)
1757 if (cs
->c_sclass
!= C_STRTAG
1758 && cs
->c_sclass
!= C_UNTAG
1759 && cs
->c_sclass
!= C_ENTAG
1760 && aux
->x_sym
.x_tagndx
.l
>= 0)
1762 type
= coff_alloc_type (aux
->x_sym
.x_tagndx
.l
);
1767 complaint (&symfile_complaints
,
1768 _("Symbol table entry for %s has bad tagndx value"),
1770 /* And fall through to decode_base_type... */
1774 return decode_base_type (cs
, BTYPE (c_type
), aux
);
1777 /* Decode a coff type specifier for function definition;
1778 return the type that the function returns. */
1780 static struct type
*
1781 decode_function_type (struct coff_symbol
*cs
, unsigned int c_type
,
1782 union internal_auxent
*aux
)
1784 if (aux
->x_sym
.x_tagndx
.l
== 0)
1785 cs
->c_naux
= 0; /* auxent refers to function, not base type */
1787 return decode_type (cs
, DECREF (c_type
), aux
);
1792 static struct type
*
1793 decode_base_type (struct coff_symbol
*cs
, unsigned int c_type
,
1794 union internal_auxent
*aux
)
1801 /* shows up with "void (*foo)();" structure members */
1802 return lookup_fundamental_type (current_objfile
, FT_VOID
);
1806 /* Intel 960 COFF has this symbol and meaning. */
1807 return lookup_fundamental_type (current_objfile
, FT_VOID
);
1811 return lookup_fundamental_type (current_objfile
, FT_CHAR
);
1814 return lookup_fundamental_type (current_objfile
, FT_SHORT
);
1817 return lookup_fundamental_type (current_objfile
, FT_INTEGER
);
1820 if (cs
->c_sclass
== C_FIELD
1821 && aux
->x_sym
.x_misc
.x_lnsz
.x_size
> TARGET_LONG_BIT
)
1822 return lookup_fundamental_type (current_objfile
, FT_LONG_LONG
);
1824 return lookup_fundamental_type (current_objfile
, FT_LONG
);
1827 return lookup_fundamental_type (current_objfile
, FT_FLOAT
);
1830 return lookup_fundamental_type (current_objfile
, FT_DBL_PREC_FLOAT
);
1833 return lookup_fundamental_type (current_objfile
, FT_EXT_PREC_FLOAT
);
1836 if (cs
->c_naux
!= 1)
1838 /* anonymous structure type */
1839 type
= coff_alloc_type (cs
->c_symnum
);
1840 TYPE_CODE (type
) = TYPE_CODE_STRUCT
;
1841 TYPE_NAME (type
) = NULL
;
1842 /* This used to set the tag to "<opaque>". But I think setting it
1843 to NULL is right, and the printing code can print it as
1845 TYPE_TAG_NAME (type
) = NULL
;
1846 INIT_CPLUS_SPECIFIC (type
);
1847 TYPE_LENGTH (type
) = 0;
1848 TYPE_FIELDS (type
) = 0;
1849 TYPE_NFIELDS (type
) = 0;
1853 type
= coff_read_struct_type (cs
->c_symnum
,
1854 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1855 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
);
1860 if (cs
->c_naux
!= 1)
1862 /* anonymous union type */
1863 type
= coff_alloc_type (cs
->c_symnum
);
1864 TYPE_NAME (type
) = NULL
;
1865 /* This used to set the tag to "<opaque>". But I think setting it
1866 to NULL is right, and the printing code can print it as
1868 TYPE_TAG_NAME (type
) = NULL
;
1869 INIT_CPLUS_SPECIFIC (type
);
1870 TYPE_LENGTH (type
) = 0;
1871 TYPE_FIELDS (type
) = 0;
1872 TYPE_NFIELDS (type
) = 0;
1876 type
= coff_read_struct_type (cs
->c_symnum
,
1877 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1878 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
);
1880 TYPE_CODE (type
) = TYPE_CODE_UNION
;
1884 if (cs
->c_naux
!= 1)
1886 /* anonymous enum type */
1887 type
= coff_alloc_type (cs
->c_symnum
);
1888 TYPE_CODE (type
) = TYPE_CODE_ENUM
;
1889 TYPE_NAME (type
) = NULL
;
1890 /* This used to set the tag to "<opaque>". But I think setting it
1891 to NULL is right, and the printing code can print it as
1893 TYPE_TAG_NAME (type
) = NULL
;
1894 TYPE_LENGTH (type
) = 0;
1895 TYPE_FIELDS (type
) = 0;
1896 TYPE_NFIELDS (type
) = 0;
1900 type
= coff_read_enum_type (cs
->c_symnum
,
1901 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1902 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
);
1907 /* shouldn't show up here */
1911 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_CHAR
);
1914 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_SHORT
);
1917 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_INTEGER
);
1920 if (cs
->c_sclass
== C_FIELD
1921 && aux
->x_sym
.x_misc
.x_lnsz
.x_size
> TARGET_LONG_BIT
)
1922 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_LONG_LONG
);
1924 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_LONG
);
1926 complaint (&symfile_complaints
, _("Unexpected type for symbol %s"), cs
->c_name
);
1927 return lookup_fundamental_type (current_objfile
, FT_VOID
);
1930 /* This page contains subroutines of read_type. */
1932 /* Read the description of a structure (or union type) and return an
1933 object describing the type. */
1935 static struct type
*
1936 coff_read_struct_type (int index
, int length
, int lastsym
)
1940 struct nextfield
*next
;
1945 struct nextfield
*list
= 0;
1946 struct nextfield
*new;
1950 struct coff_symbol member_sym
;
1951 struct coff_symbol
*ms
= &member_sym
;
1952 struct internal_syment sub_sym
;
1953 union internal_auxent sub_aux
;
1956 type
= coff_alloc_type (index
);
1957 TYPE_CODE (type
) = TYPE_CODE_STRUCT
;
1958 INIT_CPLUS_SPECIFIC (type
);
1959 TYPE_LENGTH (type
) = length
;
1961 while (!done
&& symnum
< lastsym
&& symnum
< nlist_nsyms_global
)
1963 read_one_sym (ms
, &sub_sym
, &sub_aux
);
1965 name
= EXTERNAL_NAME (name
, current_objfile
->obfd
);
1967 switch (ms
->c_sclass
)
1972 /* Get space to record the next field's data. */
1973 new = (struct nextfield
*) alloca (sizeof (struct nextfield
));
1977 /* Save the data. */
1981 ¤t_objfile
->objfile_obstack
);
1982 FIELD_TYPE (list
->field
) = decode_type (ms
, ms
->c_type
, &sub_aux
);
1983 FIELD_BITPOS (list
->field
) = 8 * ms
->c_value
;
1984 FIELD_BITSIZE (list
->field
) = 0;
1985 FIELD_STATIC_KIND (list
->field
) = 0;
1991 /* Get space to record the next field's data. */
1992 new = (struct nextfield
*) alloca (sizeof (struct nextfield
));
1996 /* Save the data. */
2000 ¤t_objfile
->objfile_obstack
);
2001 FIELD_TYPE (list
->field
) = decode_type (ms
, ms
->c_type
, &sub_aux
);
2002 FIELD_BITPOS (list
->field
) = ms
->c_value
;
2003 FIELD_BITSIZE (list
->field
) = sub_aux
.x_sym
.x_misc
.x_lnsz
.x_size
;
2004 FIELD_STATIC_KIND (list
->field
) = 0;
2013 /* Now create the vector of fields, and record how big it is. */
2015 TYPE_NFIELDS (type
) = nfields
;
2016 TYPE_FIELDS (type
) = (struct field
*)
2017 TYPE_ALLOC (type
, sizeof (struct field
) * nfields
);
2019 /* Copy the saved-up fields into the field vector. */
2021 for (n
= nfields
; list
; list
= list
->next
)
2022 TYPE_FIELD (type
, --n
) = list
->field
;
2027 /* Read a definition of an enumeration type,
2028 and create and return a suitable type object.
2029 Also defines the symbols that represent the values of the type. */
2031 static struct type
*
2032 coff_read_enum_type (int index
, int length
, int lastsym
)
2038 struct pending
**symlist
;
2039 struct coff_symbol member_sym
;
2040 struct coff_symbol
*ms
= &member_sym
;
2041 struct internal_syment sub_sym
;
2042 union internal_auxent sub_aux
;
2043 struct pending
*osyms
, *syms
;
2047 int unsigned_enum
= 1;
2049 type
= coff_alloc_type (index
);
2050 if (within_function
)
2051 symlist
= &local_symbols
;
2053 symlist
= &file_symbols
;
2055 o_nsyms
= osyms
? osyms
->nsyms
: 0;
2057 while (!done
&& symnum
< lastsym
&& symnum
< nlist_nsyms_global
)
2059 read_one_sym (ms
, &sub_sym
, &sub_aux
);
2061 name
= EXTERNAL_NAME (name
, current_objfile
->obfd
);
2063 switch (ms
->c_sclass
)
2066 sym
= (struct symbol
*) obstack_alloc
2067 (¤t_objfile
->objfile_obstack
,
2068 sizeof (struct symbol
));
2069 memset (sym
, 0, sizeof (struct symbol
));
2071 DEPRECATED_SYMBOL_NAME (sym
) =
2072 obsavestring (name
, strlen (name
),
2073 ¤t_objfile
->objfile_obstack
);
2074 SYMBOL_CLASS (sym
) = LOC_CONST
;
2075 SYMBOL_DOMAIN (sym
) = VAR_DOMAIN
;
2076 SYMBOL_VALUE (sym
) = ms
->c_value
;
2077 add_symbol_to_list (sym
, symlist
);
2082 /* Sometimes the linker (on 386/ix 2.0.2 at least) screws
2083 up the count of how many symbols to read. So stop
2090 /* Now fill in the fields of the type-structure. */
2093 TYPE_LENGTH (type
) = length
;
2095 TYPE_LENGTH (type
) = TARGET_INT_BIT
/ TARGET_CHAR_BIT
; /* Assume ints */
2096 TYPE_CODE (type
) = TYPE_CODE_ENUM
;
2097 TYPE_NFIELDS (type
) = nsyms
;
2098 TYPE_FIELDS (type
) = (struct field
*)
2099 TYPE_ALLOC (type
, sizeof (struct field
) * nsyms
);
2101 /* Find the symbols for the values and put them into the type.
2102 The symbols can be found in the symlist that we put them on
2103 to cause them to be defined. osyms contains the old value
2104 of that symlist; everything up to there was defined by us. */
2105 /* Note that we preserve the order of the enum constants, so
2106 that in something like "enum {FOO, LAST_THING=FOO}" we print
2107 FOO, not LAST_THING. */
2109 for (syms
= *symlist
, n
= 0; syms
; syms
= syms
->next
)
2115 for (; j
< syms
->nsyms
; j
++, n
++)
2117 struct symbol
*xsym
= syms
->symbol
[j
];
2118 SYMBOL_TYPE (xsym
) = type
;
2119 TYPE_FIELD_NAME (type
, n
) = DEPRECATED_SYMBOL_NAME (xsym
);
2120 TYPE_FIELD_BITPOS (type
, n
) = SYMBOL_VALUE (xsym
);
2121 if (SYMBOL_VALUE (xsym
) < 0)
2123 TYPE_FIELD_BITSIZE (type
, n
) = 0;
2124 TYPE_FIELD_STATIC_KIND (type
, n
) = 0;
2131 TYPE_FLAGS (type
) |= TYPE_FLAG_UNSIGNED
;
2136 /* Register our ability to parse symbols for coff BFD files. */
2138 static struct sym_fns coff_sym_fns
=
2140 bfd_target_coff_flavour
,
2141 coff_new_init
, /* sym_new_init: init anything gbl to entire symtab */
2142 coff_symfile_init
, /* sym_init: read initial info, setup for sym_read() */
2143 coff_symfile_read
, /* sym_read: read a symbol file into symtab */
2144 coff_symfile_finish
, /* sym_finish: finished with file, cleanup */
2145 default_symfile_offsets
, /* sym_offsets: xlate external to internal form */
2146 NULL
/* next: pointer to next struct sym_fns */
2150 _initialize_coffread (void)
2152 add_symtab_fns (&coff_sym_fns
);