1 /* Read coff symbol tables and convert to internal format, for GDB.
2 Copyright 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996,
3 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004
4 Free Software Foundation, Inc.
5 Contributed by David D. Johnson, Brown University (ddj@cs.brown.edu).
7 This file is part of GDB.
9 This program is free software; you can redistribute it and/or modify
10 it under the terms of the GNU General Public License as published by
11 the Free Software Foundation; either version 2 of the License, or
12 (at your option) any later version.
14 This program is distributed in the hope that it will be useful,
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 GNU General Public License for more details.
19 You should have received a copy of the GNU General Public License
20 along with this program; if not, write to the Free Software
21 Foundation, Inc., 59 Temple Place - Suite 330,
22 Boston, MA 02111-1307, USA. */
28 #include "breakpoint.h"
31 #include "gdb_obstack.h"
33 #include "gdb_string.h"
36 #include "coff/internal.h" /* Internal format of COFF symbols in BFD */
37 #include "libcoff.h" /* FIXME secret internal data from BFD */
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 section number (SECT_OFF_*) that CS points to. */
264 cs_to_section (struct coff_symbol
*cs
, struct objfile
*objfile
)
266 asection
*sect
= NULL
;
267 struct find_targ_sec_arg args
;
268 int off
= SECT_OFF_TEXT (objfile
);
270 args
.targ_index
= cs
->c_secnum
;
271 args
.resultp
= §
;
272 bfd_map_over_sections (objfile
->obfd
, find_targ_sec
, &args
);
275 /* This is the section. Figure out what SECT_OFF_* code it is. */
276 if (bfd_get_section_flags (abfd
, sect
) & SEC_CODE
)
277 off
= SECT_OFF_TEXT (objfile
);
278 else if (bfd_get_section_flags (abfd
, sect
) & SEC_LOAD
)
279 off
= SECT_OFF_DATA (objfile
);
281 /* Just return the bfd section index. */
287 /* Return the address of the section of a COFF symbol. */
289 static CORE_ADDR
cs_section_address (struct coff_symbol
*, bfd
*);
292 cs_section_address (struct coff_symbol
*cs
, bfd
*abfd
)
294 asection
*sect
= NULL
;
295 struct find_targ_sec_arg args
;
298 args
.targ_index
= cs
->c_secnum
;
299 args
.resultp
= §
;
300 bfd_map_over_sections (abfd
, find_targ_sec
, &args
);
302 addr
= bfd_get_section_vma (objfile
->obfd
, sect
);
306 /* Look up a coff type-number index. Return the address of the slot
307 where the type for that index is stored.
308 The type-number is in INDEX.
310 This can be used for finding the type associated with that index
311 or for associating a new type with the index. */
313 static struct type
**
314 coff_lookup_type (int index
)
316 if (index
>= type_vector_length
)
318 int old_vector_length
= type_vector_length
;
320 type_vector_length
*= 2;
321 if (index
/* is still */ >= type_vector_length
)
322 type_vector_length
= index
* 2;
324 type_vector
= (struct type
**)
325 xrealloc ((char *) type_vector
,
326 type_vector_length
* sizeof (struct type
*));
327 memset (&type_vector
[old_vector_length
], 0,
328 (type_vector_length
- old_vector_length
) * sizeof (struct type
*));
330 return &type_vector
[index
];
333 /* Make sure there is a type allocated for type number index
334 and return the type object.
335 This can create an empty (zeroed) type object. */
338 coff_alloc_type (int index
)
340 struct type
**type_addr
= coff_lookup_type (index
);
341 struct type
*type
= *type_addr
;
343 /* If we are referring to a type not known at all yet,
344 allocate an empty type for it.
345 We will fill it in later if we find out how. */
348 type
= alloc_type (current_objfile
);
354 /* Start a new symtab for a new source file.
355 This is called when a COFF ".file" symbol is seen;
356 it indicates the start of data for one original source file. */
359 coff_start_symtab (char *name
)
362 /* We fill in the filename later. start_symtab puts
363 this pointer into last_source_file and we put it in
364 subfiles->name, which end_symtab frees; that's why
365 it must be malloc'd. */
366 savestring (name
, strlen (name
)),
367 /* We never know the directory name for COFF. */
369 /* The start address is irrelevant, since we set
370 last_source_start_addr in coff_end_symtab. */
372 record_debugformat ("COFF");
375 /* Save the vital information from when starting to read a file,
376 for use when closing off the current file.
377 NAME is the file name the symbols came from, START_ADDR is the first
378 text address for the file, and SIZE is the number of bytes of text. */
381 complete_symtab (char *name
, CORE_ADDR start_addr
, unsigned int size
)
383 if (last_source_file
!= NULL
)
384 xfree (last_source_file
);
385 last_source_file
= savestring (name
, strlen (name
));
386 current_source_start_addr
= start_addr
;
387 current_source_end_addr
= start_addr
+ size
;
390 /* Finish the symbol definitions for one main source file,
391 close off all the lexical contexts for that file
392 (creating struct block's for them), then make the
393 struct symtab for that file and put it in the list of all such. */
396 coff_end_symtab (struct objfile
*objfile
)
398 struct symtab
*symtab
;
400 last_source_start_addr
= current_source_start_addr
;
402 symtab
= end_symtab (current_source_end_addr
, objfile
, SECT_OFF_TEXT (objfile
));
405 free_named_symtabs (symtab
->filename
);
407 /* Reinitialize for beginning of new file. */
408 last_source_file
= NULL
;
412 record_minimal_symbol (char *name
, CORE_ADDR address
,
413 enum minimal_symbol_type type
, struct objfile
*objfile
)
415 /* We don't want TDESC entry points in the minimal symbol table */
419 prim_record_minimal_symbol (name
, address
, type
, objfile
);
422 /* coff_symfile_init ()
423 is the coff-specific initialization routine for reading symbols.
424 It is passed a struct objfile which contains, among other things,
425 the BFD for the file whose symbols are being read, and a slot for
426 a pointer to "private data" which we fill with cookies and other
427 treats for coff_symfile_read ().
429 We will only be called if this is a COFF or COFF-like file.
430 BFD handles figuring out the format of the file, and code in symtab.c
431 uses BFD's determination to vector to us.
433 The ultimate result is a new symtab (or, FIXME, eventually a psymtab). */
436 coff_symfile_init (struct objfile
*objfile
)
438 /* Allocate struct to keep track of stab reading. */
439 objfile
->sym_stab_info
= (struct dbx_symfile_info
*)
440 xmmalloc (objfile
->md
, sizeof (struct dbx_symfile_info
));
442 memset (objfile
->sym_stab_info
, 0,
443 sizeof (struct dbx_symfile_info
));
445 /* Allocate struct to keep track of the symfile */
446 objfile
->sym_private
= xmmalloc (objfile
->md
,
447 sizeof (struct coff_symfile_info
));
449 memset (objfile
->sym_private
, 0, sizeof (struct coff_symfile_info
));
451 /* COFF objects may be reordered, so set OBJF_REORDERED. If we
452 find this causes a significant slowdown in gdb then we could
453 set it in the debug symbol readers only when necessary. */
454 objfile
->flags
|= OBJF_REORDERED
;
456 init_entry_point_info (objfile
);
459 /* This function is called for every section; it finds the outer limits
460 of the line table (minimum and maximum file offset) so that the
461 mainline code can read the whole thing for efficiency. */
464 find_linenos (bfd
*abfd
, struct bfd_section
*asect
, void *vpinfo
)
466 struct coff_symfile_info
*info
;
468 file_ptr offset
, maxoff
;
470 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
471 count
= asect
->lineno_count
;
476 size
= count
* local_linesz
;
478 info
= (struct coff_symfile_info
*) vpinfo
;
479 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
480 offset
= asect
->line_filepos
;
483 if (offset
< info
->min_lineno_offset
|| info
->min_lineno_offset
== 0)
484 info
->min_lineno_offset
= offset
;
486 maxoff
= offset
+ size
;
487 if (maxoff
> info
->max_lineno_offset
)
488 info
->max_lineno_offset
= maxoff
;
492 /* The BFD for this file -- only good while we're actively reading
493 symbols into a psymtab or a symtab. */
495 static bfd
*symfile_bfd
;
497 /* Read a symbol file, after initialization by coff_symfile_init. */
500 coff_symfile_read (struct objfile
*objfile
, int mainline
)
502 struct coff_symfile_info
*info
;
503 struct dbx_symfile_info
*dbxinfo
;
504 bfd
*abfd
= objfile
->obfd
;
505 coff_data_type
*cdata
= coff_data (abfd
);
506 char *name
= bfd_get_filename (abfd
);
508 unsigned int num_symbols
;
510 int stringtab_offset
;
511 struct cleanup
*back_to
, *cleanup_minimal_symbols
;
516 info
= (struct coff_symfile_info
*) objfile
->sym_private
;
517 dbxinfo
= objfile
->sym_stab_info
;
518 symfile_bfd
= abfd
; /* Kludge for swap routines */
520 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
521 num_symbols
= bfd_get_symcount (abfd
); /* How many syms */
522 symtab_offset
= cdata
->sym_filepos
; /* Symbol table file offset */
523 stringtab_offset
= symtab_offset
+ /* String table file offset */
524 num_symbols
* cdata
->local_symesz
;
526 /* Set a few file-statics that give us specific information about
527 the particular COFF file format we're reading. */
528 local_n_btmask
= cdata
->local_n_btmask
;
529 local_n_btshft
= cdata
->local_n_btshft
;
530 local_n_tmask
= cdata
->local_n_tmask
;
531 local_n_tshift
= cdata
->local_n_tshift
;
532 local_linesz
= cdata
->local_linesz
;
533 local_symesz
= cdata
->local_symesz
;
534 local_auxesz
= cdata
->local_auxesz
;
536 /* Allocate space for raw symbol and aux entries, based on their
537 space requirements as reported by BFD. */
538 temp_sym
= (char *) xmalloc
539 (cdata
->local_symesz
+ cdata
->local_auxesz
);
540 temp_aux
= temp_sym
+ cdata
->local_symesz
;
541 back_to
= make_cleanup (free_current_contents
, &temp_sym
);
543 /* We need to know whether this is a PE file, because in PE files,
544 unlike standard COFF files, symbol values are stored as offsets
545 from the section address, rather than as absolute addresses.
546 FIXME: We should use BFD to read the symbol table, and thus avoid
549 strncmp (bfd_get_target (objfile
->obfd
), "pe", 2) == 0
550 || strncmp (bfd_get_target (objfile
->obfd
), "epoc-pe", 7) == 0;
554 info
->min_lineno_offset
= 0;
555 info
->max_lineno_offset
= 0;
557 /* Only read line number information if we have symbols.
559 On Windows NT, some of the system's DLL's have sections with
560 PointerToLinenumbers fields that are non-zero, but point at
561 random places within the image file. (In the case I found,
562 KERNEL32.DLL's .text section has a line number info pointer that
563 points into the middle of the string `lib\\i386\kernel32.dll'.)
565 However, these DLL's also have no symbols. The line number
566 tables are meaningless without symbols. And in fact, GDB never
567 uses the line number information unless there are symbols. So we
568 can avoid spurious error messages (and maybe run a little
569 faster!) by not even reading the line number table unless we have
573 /* Read the line number table, all at once. */
574 bfd_map_over_sections (abfd
, find_linenos
, (void *) info
);
576 make_cleanup (free_linetab_cleanup
, 0 /*ignore*/);
577 val
= init_lineno (abfd
, info
->min_lineno_offset
,
578 info
->max_lineno_offset
- info
->min_lineno_offset
);
580 error ("\"%s\": error reading line numbers\n", name
);
583 /* Now read the string table, all at once. */
585 make_cleanup (free_stringtab_cleanup
, 0 /*ignore*/);
586 val
= init_stringtab (abfd
, stringtab_offset
);
588 error ("\"%s\": can't get string table", name
);
590 init_minimal_symbol_collection ();
591 cleanup_minimal_symbols
= make_cleanup_discard_minimal_symbols ();
593 /* Now that the executable file is positioned at symbol table,
594 process it and define symbols accordingly. */
596 coff_symtab_read ((long) symtab_offset
, num_symbols
, objfile
);
598 /* Install any minimal symbols that have been collected as the current
599 minimal symbols for this objfile. */
601 install_minimal_symbols (objfile
);
603 /* Free the installed minimal symbol data. */
604 do_cleanups (cleanup_minimal_symbols
);
606 bfd_map_over_sections (abfd
, coff_locate_sections
, (void *) info
);
610 if (!info
->stabstrsect
)
612 error (("The debugging information in `%s' is corrupted.\n"
613 "The file has a `.stabs' section, but no `.stabstr' "
618 /* FIXME: dubious. Why can't we use something normal like
619 bfd_get_section_contents? */
620 bfd_seek (abfd
, abfd
->where
, 0);
622 stabstrsize
= bfd_section_size (abfd
, info
->stabstrsect
);
624 coffstab_build_psymtabs (objfile
,
626 info
->textaddr
, info
->textsize
,
628 info
->stabstrsect
->filepos
, stabstrsize
);
630 if (dwarf2_has_info (objfile
))
632 /* DWARF2 sections. */
633 dwarf2_build_psymtabs (objfile
, mainline
);
636 do_cleanups (back_to
);
640 coff_new_init (struct objfile
*ignore
)
644 /* Perform any local cleanups required when we are done with a particular
645 objfile. I.E, we are in the process of discarding all symbol information
646 for an objfile, freeing up all memory held for it, and unlinking the
647 objfile struct from the global list of known objfiles. */
650 coff_symfile_finish (struct objfile
*objfile
)
652 if (objfile
->sym_private
!= NULL
)
654 xmfree (objfile
->md
, objfile
->sym_private
);
657 /* Let stabs reader clean up */
658 stabsread_clear_cache ();
662 /* Given pointers to a symbol table in coff style exec file,
663 analyze them and create struct symtab's describing the symbols.
664 NSYMS is the number of symbols in the symbol table.
665 We read them one at a time using read_one_sym (). */
668 coff_symtab_read (long symtab_offset
, unsigned int nsyms
,
669 struct objfile
*objfile
)
671 struct context_stack
*new;
672 struct coff_symbol coff_symbol
;
673 struct coff_symbol
*cs
= &coff_symbol
;
674 static struct internal_syment main_sym
;
675 static union internal_auxent main_aux
;
676 struct coff_symbol fcn_cs_saved
;
677 static struct internal_syment fcn_sym_saved
;
678 static union internal_auxent fcn_aux_saved
;
680 /* A .file is open. */
681 int in_source_file
= 0;
682 int next_file_symnum
= -1;
683 /* Name of the current file. */
684 char *filestring
= "";
686 int fcn_first_line
= 0;
687 CORE_ADDR fcn_first_line_addr
= 0;
688 int fcn_last_line
= 0;
689 int fcn_start_addr
= 0;
690 long fcn_line_ptr
= 0;
694 /* Work around a stdio bug in SunOS4.1.1 (this makes me nervous....
695 it's hard to know I've really worked around it. The fix should be
696 harmless, anyway). The symptom of the bug is that the first
697 fread (in read_one_sym), will (in my example) actually get data
698 from file offset 268, when the fseek was to 264 (and ftell shows
699 264). This causes all hell to break loose. I was unable to
700 reproduce this on a short test program which operated on the same
701 file, performing (I think) the same sequence of operations.
703 It stopped happening when I put in this (former) rewind().
705 FIXME: Find out if this has been reported to Sun, whether it has
706 been fixed in a later release, etc. */
708 bfd_seek (objfile
->obfd
, 0, 0);
710 /* Position to read the symbol table. */
711 val
= bfd_seek (objfile
->obfd
, (long) symtab_offset
, 0);
713 perror_with_name (objfile
->name
);
715 current_objfile
= objfile
;
716 nlist_bfd_global
= objfile
->obfd
;
717 nlist_nsyms_global
= nsyms
;
718 last_source_file
= NULL
;
719 memset (opaque_type_chain
, 0, sizeof opaque_type_chain
);
721 if (type_vector
) /* Get rid of previous one */
723 type_vector_length
= 160;
724 type_vector
= (struct type
**)
725 xmalloc (type_vector_length
* sizeof (struct type
*));
726 memset (type_vector
, 0, type_vector_length
* sizeof (struct type
*));
728 coff_start_symtab ("");
731 while (symnum
< nsyms
)
733 QUIT
; /* Make this command interruptable. */
735 read_one_sym (cs
, &main_sym
, &main_aux
);
737 if (cs
->c_symnum
== next_file_symnum
&& cs
->c_sclass
!= C_FILE
)
739 if (last_source_file
)
740 coff_end_symtab (objfile
);
742 coff_start_symtab ("_globals_");
743 complete_symtab ("_globals_", 0, 0);
744 /* done with all files, everything from here on out is globals */
747 /* Special case for file with type declarations only, no text. */
748 if (!last_source_file
&& SDB_TYPE (cs
->c_type
)
749 && cs
->c_secnum
== N_DEBUG
)
750 complete_symtab (filestring
, 0, 0);
752 /* Typedefs should not be treated as symbol definitions. */
753 if (ISFCN (cs
->c_type
) && cs
->c_sclass
!= C_TPDEF
)
755 /* Record all functions -- external and static -- in minsyms. */
756 tmpaddr
= cs
->c_value
+ ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
757 record_minimal_symbol (cs
->c_name
, tmpaddr
, mst_text
, objfile
);
759 fcn_line_ptr
= main_aux
.x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
;
760 fcn_start_addr
= tmpaddr
;
762 fcn_sym_saved
= main_sym
;
763 fcn_aux_saved
= main_aux
;
767 switch (cs
->c_sclass
)
776 complaint (&symfile_complaints
, "Bad n_sclass for symbol %s",
781 /* c_value field contains symnum of next .file entry in table
782 or symnum of first global after last .file. */
783 next_file_symnum
= cs
->c_value
;
785 filestring
= coff_getfilename (&main_aux
);
789 /* Complete symbol table for last object file
790 containing debugging information. */
791 if (last_source_file
)
793 coff_end_symtab (objfile
);
794 coff_start_symtab (filestring
);
799 /* C_LABEL is used for labels and static functions. Including
800 it here allows gdb to see static functions when no debug
801 info is available. */
803 /* However, labels within a function can make weird backtraces,
804 so filter them out (from phdm@macqel.be). */
810 case C_THUMBSTATFUNC
:
811 if (cs
->c_name
[0] == '.')
813 if (DEPRECATED_STREQ (cs
->c_name
, ".text"))
815 /* FIXME: don't wire in ".text" as section name
817 /* Check for in_source_file deals with case of
818 a file with debugging symbols
819 followed by a later file with no symbols. */
821 complete_symtab (filestring
,
822 cs
->c_value
+ ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
)),
823 main_aux
.x_scn
.x_scnlen
);
826 /* flush rest of '.' symbols */
829 else if (!SDB_TYPE (cs
->c_type
)
830 && cs
->c_name
[0] == 'L'
831 && (strncmp (cs
->c_name
, "LI%", 3) == 0
832 || strncmp (cs
->c_name
, "LF%", 3) == 0
833 || strncmp (cs
->c_name
, "LC%", 3) == 0
834 || strncmp (cs
->c_name
, "LP%", 3) == 0
835 || strncmp (cs
->c_name
, "LPB%", 4) == 0
836 || strncmp (cs
->c_name
, "LBB%", 4) == 0
837 || strncmp (cs
->c_name
, "LBE%", 4) == 0
838 || strncmp (cs
->c_name
, "LPBX%", 5) == 0))
839 /* At least on a 3b1, gcc generates swbeg and string labels
840 that look like this. Ignore them. */
842 /* fall in for static symbols that don't start with '.' */
847 /* Record it in the minimal symbols regardless of
848 SDB_TYPE. This parallels what we do for other debug
849 formats, and probably is needed to make
850 print_address_symbolic work right without the (now
851 gone) "set fast-symbolic-addr off" kludge. */
853 enum minimal_symbol_type ms_type
;
856 if (cs
->c_secnum
== N_UNDEF
)
858 /* This is a common symbol. See if the target
859 environment knows where it has been relocated to. */
861 if (target_lookup_symbol (cs
->c_name
, &reladdr
))
863 /* Error in lookup; ignore symbol. */
867 /* The address has already been relocated; make sure that
868 objfile_relocate doesn't relocate it again. */
870 ms_type
= cs
->c_sclass
== C_EXT
871 || cs
->c_sclass
== C_THUMBEXT
?
872 mst_bss
: mst_file_bss
;
874 else if (cs
->c_secnum
== N_ABS
)
876 /* Use the correct minimal symbol type (and don't
877 relocate) for absolute values. */
879 sec
= cs_to_section (cs
, objfile
);
880 tmpaddr
= cs
->c_value
;
884 sec
= cs_to_section (cs
, objfile
);
885 tmpaddr
= cs
->c_value
;
886 /* Statics in a PE file also get relocated */
887 if (cs
->c_sclass
== C_EXT
888 || cs
->c_sclass
== C_THUMBEXTFUNC
889 || cs
->c_sclass
== C_THUMBEXT
890 || (pe_file
&& (cs
->c_sclass
== C_STAT
)))
891 tmpaddr
+= ANOFFSET (objfile
->section_offsets
, sec
);
893 if (sec
== SECT_OFF_TEXT (objfile
))
896 cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXTFUNC
897 || cs
->c_sclass
== C_THUMBEXT
?
898 mst_text
: mst_file_text
;
899 tmpaddr
= SMASH_TEXT_ADDRESS (tmpaddr
);
901 else if (sec
== SECT_OFF_DATA (objfile
))
904 cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXT
?
905 mst_data
: mst_file_data
;
907 else if (sec
== SECT_OFF_BSS (objfile
))
910 cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXT
?
911 mst_data
: mst_file_data
;
914 ms_type
= mst_unknown
;
917 if (cs
->c_name
[0] != '@' /* Skip tdesc symbols */ )
919 struct minimal_symbol
*msym
;
920 msym
= prim_record_minimal_symbol_and_info
921 (cs
->c_name
, tmpaddr
, ms_type
, NULL
,
924 COFF_MAKE_MSYMBOL_SPECIAL (cs
->c_sclass
, msym
);
926 if (SDB_TYPE (cs
->c_type
))
929 sym
= process_coff_symbol
930 (cs
, &main_aux
, objfile
);
931 SYMBOL_VALUE (sym
) = tmpaddr
;
932 SYMBOL_SECTION (sym
) = sec
;
938 if (DEPRECATED_STREQ (cs
->c_name
, ".bf"))
942 /* value contains address of first non-init type code */
943 /* main_aux.x_sym.x_misc.x_lnsz.x_lnno
944 contains line number of '{' } */
946 complaint (&symfile_complaints
,
947 "`.bf' symbol %d has no aux entry", cs
->c_symnum
);
948 fcn_first_line
= main_aux
.x_sym
.x_misc
.x_lnsz
.x_lnno
;
949 fcn_first_line_addr
= cs
->c_value
;
951 /* Might want to check that locals are 0 and
952 context_stack_depth is zero, and complain if not. */
955 new = push_context (depth
, fcn_start_addr
);
956 fcn_cs_saved
.c_name
= getsymname (&fcn_sym_saved
);
958 process_coff_symbol (&fcn_cs_saved
, &fcn_aux_saved
, objfile
);
960 else if (DEPRECATED_STREQ (cs
->c_name
, ".ef"))
962 if (!within_function
)
963 error ("Bad coff function information\n");
964 /* the value of .ef is the address of epilogue code;
965 not useful for gdb. */
966 /* { main_aux.x_sym.x_misc.x_lnsz.x_lnno
967 contains number of lines to '}' */
969 if (context_stack_depth
<= 0)
970 { /* We attempted to pop an empty context stack */
971 complaint (&symfile_complaints
,
972 "`.ef' symbol without matching `.bf' symbol ignored starting at symnum %d",
978 new = pop_context ();
979 /* Stack must be empty now. */
980 if (context_stack_depth
> 0 || new == NULL
)
982 complaint (&symfile_complaints
,
983 "Unmatched .ef symbol(s) ignored starting at symnum %d",
990 complaint (&symfile_complaints
,
991 "`.ef' symbol %d has no aux entry", cs
->c_symnum
);
992 fcn_last_line
= 0x7FFFFFFF;
996 fcn_last_line
= main_aux
.x_sym
.x_misc
.x_lnsz
.x_lnno
;
998 /* fcn_first_line is the line number of the opening '{'.
999 Do not record it - because it would affect gdb's idea
1000 of the line number of the first statement of the function -
1001 except for one-line functions, for which it is also the line
1002 number of all the statements and of the closing '}', and
1003 for which we do not have any other statement-line-number. */
1004 if (fcn_last_line
== 1)
1005 record_line (current_subfile
, fcn_first_line
,
1006 fcn_first_line_addr
);
1008 enter_linenos (fcn_line_ptr
, fcn_first_line
, fcn_last_line
,
1011 finish_block (new->name
, &local_symbols
, new->old_blocks
,
1013 #if defined (FUNCTION_EPILOGUE_SIZE)
1014 /* This macro should be defined only on
1016 fcn_aux_saved.x_sym.x_misc.x_fsize
1017 field is always zero.
1018 So use the .bf record information that
1019 points to the epilogue and add the size
1022 + FUNCTION_EPILOGUE_SIZE
1023 + ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
)),
1025 fcn_cs_saved
.c_value
1026 + fcn_aux_saved
.x_sym
.x_misc
.x_fsize
1027 + ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
)),
1031 within_function
= 0;
1036 if (DEPRECATED_STREQ (cs
->c_name
, ".bb"))
1038 tmpaddr
= cs
->c_value
;
1039 tmpaddr
+= ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
1040 push_context (++depth
, tmpaddr
);
1042 else if (DEPRECATED_STREQ (cs
->c_name
, ".eb"))
1044 if (context_stack_depth
<= 0)
1045 { /* We attempted to pop an empty context stack */
1046 complaint (&symfile_complaints
,
1047 "`.eb' symbol without matching `.bb' symbol ignored starting at symnum %d",
1052 new = pop_context ();
1053 if (depth
-- != new->depth
)
1055 complaint (&symfile_complaints
,
1056 "Mismatched .eb symbol ignored starting at symnum %d",
1060 if (local_symbols
&& context_stack_depth
> 0)
1063 cs
->c_value
+ ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
1064 /* Make a block for the local symbols within. */
1065 finish_block (0, &local_symbols
, new->old_blocks
,
1066 new->start_addr
, tmpaddr
, objfile
);
1068 /* Now pop locals of block just finished. */
1069 local_symbols
= new->locals
;
1074 process_coff_symbol (cs
, &main_aux
, objfile
);
1079 if ((nsyms
== 0) && (pe_file
))
1081 /* We've got no debugging symbols, but it's is a portable
1082 executable, so try to read the export table */
1083 read_pe_exported_syms (objfile
);
1086 if (last_source_file
)
1087 coff_end_symtab (objfile
);
1089 /* Patch up any opaque types (references to types that are not defined
1090 in the file where they are referenced, e.g. "struct foo *bar"). */
1091 ALL_OBJFILE_SYMTABS (objfile
, s
)
1092 patch_opaque_types (s
);
1094 current_objfile
= NULL
;
1097 /* Routines for reading headers and symbols from executable. */
1099 /* Read the next symbol, swap it, and return it in both internal_syment
1100 form, and coff_symbol form. Also return its first auxent, if any,
1101 in internal_auxent form, and skip any other auxents. */
1104 read_one_sym (struct coff_symbol
*cs
,
1105 struct internal_syment
*sym
,
1106 union internal_auxent
*aux
)
1110 cs
->c_symnum
= symnum
;
1111 bfd_bread (temp_sym
, local_symesz
, nlist_bfd_global
);
1112 bfd_coff_swap_sym_in (symfile_bfd
, temp_sym
, (char *) sym
);
1113 cs
->c_naux
= sym
->n_numaux
& 0xff;
1114 if (cs
->c_naux
>= 1)
1116 bfd_bread (temp_aux
, local_auxesz
, nlist_bfd_global
);
1117 bfd_coff_swap_aux_in (symfile_bfd
, temp_aux
, sym
->n_type
, sym
->n_sclass
,
1118 0, cs
->c_naux
, (char *) aux
);
1119 /* If more than one aux entry, read past it (only the first aux
1121 for (i
= 1; i
< cs
->c_naux
; i
++)
1122 bfd_bread (temp_aux
, local_auxesz
, nlist_bfd_global
);
1124 cs
->c_name
= getsymname (sym
);
1125 cs
->c_value
= sym
->n_value
;
1126 cs
->c_sclass
= (sym
->n_sclass
& 0xff);
1127 cs
->c_secnum
= sym
->n_scnum
;
1128 cs
->c_type
= (unsigned) sym
->n_type
;
1129 if (!SDB_TYPE (cs
->c_type
))
1133 if (cs
->c_sclass
& 128)
1134 printf ("thumb symbol %s, class 0x%x\n", cs
->c_name
, cs
->c_sclass
);
1137 symnum
+= 1 + cs
->c_naux
;
1139 /* The PE file format stores symbol values as offsets within the
1140 section, rather than as absolute addresses. We correct that
1141 here, if the symbol has an appropriate storage class. FIXME: We
1142 should use BFD to read the symbols, rather than duplicating the
1146 switch (cs
->c_sclass
)
1150 case C_THUMBEXTFUNC
:
1155 case C_THUMBSTATFUNC
:
1161 if (cs
->c_secnum
!= 0)
1162 cs
->c_value
+= cs_section_address (cs
, symfile_bfd
);
1168 /* Support for string table handling */
1170 static char *stringtab
= NULL
;
1173 init_stringtab (bfd
*abfd
, long offset
)
1177 unsigned char lengthbuf
[4];
1181 /* If the file is stripped, the offset might be zero, indicating no
1182 string table. Just return with `stringtab' set to null. */
1186 if (bfd_seek (abfd
, offset
, 0) < 0)
1189 val
= bfd_bread ((char *) lengthbuf
, sizeof lengthbuf
, abfd
);
1190 length
= bfd_h_get_32 (symfile_bfd
, lengthbuf
);
1192 /* If no string table is needed, then the file may end immediately
1193 after the symbols. Just return with `stringtab' set to null. */
1194 if (val
!= sizeof lengthbuf
|| length
< sizeof lengthbuf
)
1197 stringtab
= (char *) xmalloc (length
);
1198 /* This is in target format (probably not very useful, and not currently
1199 used), not host format. */
1200 memcpy (stringtab
, lengthbuf
, sizeof lengthbuf
);
1201 if (length
== sizeof length
) /* Empty table -- just the count */
1204 val
= bfd_bread (stringtab
+ sizeof lengthbuf
, length
- sizeof lengthbuf
,
1206 if (val
!= length
- sizeof lengthbuf
|| stringtab
[length
- 1] != '\0')
1213 free_stringtab (void)
1221 free_stringtab_cleanup (void *ignore
)
1227 getsymname (struct internal_syment
*symbol_entry
)
1229 static char buffer
[SYMNMLEN
+ 1];
1232 if (symbol_entry
->_n
._n_n
._n_zeroes
== 0)
1234 /* FIXME: Probably should be detecting corrupt symbol files by
1235 seeing whether offset points to within the stringtab. */
1236 result
= stringtab
+ symbol_entry
->_n
._n_n
._n_offset
;
1240 strncpy (buffer
, symbol_entry
->_n
._n_name
, SYMNMLEN
);
1241 buffer
[SYMNMLEN
] = '\0';
1247 /* Extract the file name from the aux entry of a C_FILE symbol. Return
1248 only the last component of the name. Result is in static storage and
1249 is only good for temporary use. */
1252 coff_getfilename (union internal_auxent
*aux_entry
)
1254 static char buffer
[BUFSIZ
];
1258 if (aux_entry
->x_file
.x_n
.x_zeroes
== 0)
1259 strcpy (buffer
, stringtab
+ aux_entry
->x_file
.x_n
.x_offset
);
1262 strncpy (buffer
, aux_entry
->x_file
.x_fname
, FILNMLEN
);
1263 buffer
[FILNMLEN
] = '\0';
1267 /* FIXME: We should not be throwing away the information about what
1268 directory. It should go into dirname of the symtab, or some such
1270 if ((temp
= strrchr (result
, '/')) != NULL
)
1275 /* Support for line number handling. */
1277 static char *linetab
= NULL
;
1278 static long linetab_offset
;
1279 static unsigned long linetab_size
;
1281 /* Read in all the line numbers for fast lookups later. Leave them in
1282 external (unswapped) format in memory; we'll swap them as we enter
1283 them into GDB's data structures. */
1286 init_lineno (bfd
*abfd
, long offset
, int size
)
1290 linetab_offset
= offset
;
1291 linetab_size
= size
;
1298 if (bfd_seek (abfd
, offset
, 0) < 0)
1301 /* Allocate the desired table, plus a sentinel */
1302 linetab
= (char *) xmalloc (size
+ local_linesz
);
1304 val
= bfd_bread (linetab
, size
, abfd
);
1308 /* Terminate it with an all-zero sentinel record */
1309 memset (linetab
+ size
, 0, local_linesz
);
1323 free_linetab_cleanup (void *ignore
)
1328 #if !defined (L_LNNO32)
1329 #define L_LNNO32(lp) ((lp)->l_lnno)
1333 enter_linenos (long file_offset
, int first_line
,
1334 int last_line
, struct objfile
*objfile
)
1337 struct internal_lineno lptr
;
1341 if (file_offset
< linetab_offset
)
1343 complaint (&symfile_complaints
,
1344 "Line number pointer %ld lower than start of line numbers",
1346 if (file_offset
> linetab_size
) /* Too big to be an offset? */
1348 file_offset
+= linetab_offset
; /* Try reading at that linetab offset */
1351 rawptr
= &linetab
[file_offset
- linetab_offset
];
1353 /* skip first line entry for each function */
1354 rawptr
+= local_linesz
;
1355 /* line numbers start at one for the first line of the function */
1358 /* If the line number table is full (e.g. 64K lines in COFF debug
1359 info), the next function's L_LNNO32 might not be zero, so don't
1360 overstep the table's end in any case. */
1361 while (rawptr
<= &linetab
[0] + linetab_size
)
1363 bfd_coff_swap_lineno_in (symfile_bfd
, rawptr
, &lptr
);
1364 rawptr
+= local_linesz
;
1365 /* The next function, or the sentinel, will have L_LNNO32 zero;
1367 if (L_LNNO32 (&lptr
) && L_LNNO32 (&lptr
) <= last_line
)
1368 record_line (current_subfile
, first_line
+ L_LNNO32 (&lptr
),
1370 + ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
)));
1377 patch_type (struct type
*type
, struct type
*real_type
)
1379 struct type
*target
= TYPE_TARGET_TYPE (type
);
1380 struct type
*real_target
= TYPE_TARGET_TYPE (real_type
);
1381 int field_size
= TYPE_NFIELDS (real_target
) * sizeof (struct field
);
1383 TYPE_LENGTH (target
) = TYPE_LENGTH (real_target
);
1384 TYPE_NFIELDS (target
) = TYPE_NFIELDS (real_target
);
1385 TYPE_FIELDS (target
) = (struct field
*) TYPE_ALLOC (target
, field_size
);
1387 memcpy (TYPE_FIELDS (target
), TYPE_FIELDS (real_target
), field_size
);
1389 if (TYPE_NAME (real_target
))
1391 if (TYPE_NAME (target
))
1392 xfree (TYPE_NAME (target
));
1393 TYPE_NAME (target
) = concat (TYPE_NAME (real_target
), NULL
);
1397 /* Patch up all appropriate typedef symbols in the opaque_type_chains
1398 so that they can be used to print out opaque data structures properly. */
1401 patch_opaque_types (struct symtab
*s
)
1404 struct dict_iterator iter
;
1405 struct symbol
*real_sym
;
1407 /* Go through the per-file symbols only */
1408 b
= BLOCKVECTOR_BLOCK (BLOCKVECTOR (s
), STATIC_BLOCK
);
1409 ALL_BLOCK_SYMBOLS (b
, iter
, real_sym
)
1411 /* Find completed typedefs to use to fix opaque ones.
1412 Remove syms from the chain when their types are stored,
1413 but search the whole chain, as there may be several syms
1414 from different files with the same name. */
1415 if (SYMBOL_CLASS (real_sym
) == LOC_TYPEDEF
&&
1416 SYMBOL_DOMAIN (real_sym
) == VAR_DOMAIN
&&
1417 TYPE_CODE (SYMBOL_TYPE (real_sym
)) == TYPE_CODE_PTR
&&
1418 TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (real_sym
))) != 0)
1420 char *name
= DEPRECATED_SYMBOL_NAME (real_sym
);
1421 int hash
= hashname (name
);
1422 struct symbol
*sym
, *prev
;
1425 for (sym
= opaque_type_chain
[hash
]; sym
;)
1427 if (name
[0] == DEPRECATED_SYMBOL_NAME (sym
)[0] &&
1428 strcmp (name
+ 1, DEPRECATED_SYMBOL_NAME (sym
) + 1) == 0)
1432 SYMBOL_VALUE_CHAIN (prev
) = SYMBOL_VALUE_CHAIN (sym
);
1436 opaque_type_chain
[hash
] = SYMBOL_VALUE_CHAIN (sym
);
1439 patch_type (SYMBOL_TYPE (sym
), SYMBOL_TYPE (real_sym
));
1443 sym
= SYMBOL_VALUE_CHAIN (prev
);
1447 sym
= opaque_type_chain
[hash
];
1453 sym
= SYMBOL_VALUE_CHAIN (sym
);
1460 static struct symbol
*
1461 process_coff_symbol (struct coff_symbol
*cs
,
1462 union internal_auxent
*aux
,
1463 struct objfile
*objfile
)
1466 = (struct symbol
*) obstack_alloc (&objfile
->objfile_obstack
,
1467 sizeof (struct symbol
));
1470 memset (sym
, 0, sizeof (struct symbol
));
1472 name
= EXTERNAL_NAME (name
, objfile
->obfd
);
1473 SYMBOL_LANGUAGE (sym
) = language_auto
;
1474 SYMBOL_SET_NAMES (sym
, name
, strlen (name
), objfile
);
1476 /* default assumptions */
1477 SYMBOL_VALUE (sym
) = cs
->c_value
;
1478 SYMBOL_DOMAIN (sym
) = VAR_DOMAIN
;
1479 SYMBOL_SECTION (sym
) = cs_to_section (cs
, objfile
);
1481 if (ISFCN (cs
->c_type
))
1483 SYMBOL_VALUE (sym
) += ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
1485 lookup_function_type (decode_function_type (cs
, cs
->c_type
, aux
));
1487 SYMBOL_CLASS (sym
) = LOC_BLOCK
;
1488 if (cs
->c_sclass
== C_STAT
|| cs
->c_sclass
== C_THUMBSTAT
1489 || cs
->c_sclass
== C_THUMBSTATFUNC
)
1490 add_symbol_to_list (sym
, &file_symbols
);
1491 else if (cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXT
1492 || cs
->c_sclass
== C_THUMBEXTFUNC
)
1493 add_symbol_to_list (sym
, &global_symbols
);
1497 SYMBOL_TYPE (sym
) = decode_type (cs
, cs
->c_type
, aux
);
1498 switch (cs
->c_sclass
)
1504 SYMBOL_CLASS (sym
) = LOC_LOCAL
;
1505 add_symbol_to_list (sym
, &local_symbols
);
1509 case C_THUMBEXTFUNC
:
1511 SYMBOL_CLASS (sym
) = LOC_STATIC
;
1512 SYMBOL_VALUE_ADDRESS (sym
) = (CORE_ADDR
) cs
->c_value
;
1513 SYMBOL_VALUE_ADDRESS (sym
) += ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
1514 add_symbol_to_list (sym
, &global_symbols
);
1518 case C_THUMBSTATFUNC
:
1520 SYMBOL_CLASS (sym
) = LOC_STATIC
;
1521 SYMBOL_VALUE_ADDRESS (sym
) = (CORE_ADDR
) cs
->c_value
;
1522 SYMBOL_VALUE_ADDRESS (sym
) += ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
1523 if (within_function
)
1525 /* Static symbol of local scope */
1526 add_symbol_to_list (sym
, &local_symbols
);
1530 /* Static symbol at top level of file */
1531 add_symbol_to_list (sym
, &file_symbols
);
1535 #ifdef C_GLBLREG /* AMD coff */
1539 SYMBOL_CLASS (sym
) = LOC_REGISTER
;
1540 SYMBOL_VALUE (sym
) = SDB_REG_TO_REGNUM (cs
->c_value
);
1541 add_symbol_to_list (sym
, &local_symbols
);
1549 SYMBOL_CLASS (sym
) = LOC_ARG
;
1550 add_symbol_to_list (sym
, &local_symbols
);
1551 #if !defined (BELIEVE_PCC_PROMOTION)
1552 if (TARGET_BYTE_ORDER
== BFD_ENDIAN_BIG
)
1554 /* If PCC says a parameter is a short or a char,
1555 aligned on an int boundary, realign it to the
1556 "little end" of the int. */
1557 struct type
*temptype
;
1558 temptype
= lookup_fundamental_type (current_objfile
,
1560 if (TYPE_LENGTH (SYMBOL_TYPE (sym
)) < TYPE_LENGTH (temptype
)
1561 && TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_INT
1562 && 0 == SYMBOL_VALUE (sym
) % TYPE_LENGTH (temptype
))
1564 SYMBOL_VALUE (sym
) +=
1565 TYPE_LENGTH (temptype
)
1566 - TYPE_LENGTH (SYMBOL_TYPE (sym
));
1573 SYMBOL_CLASS (sym
) = LOC_REGPARM
;
1574 SYMBOL_VALUE (sym
) = SDB_REG_TO_REGNUM (cs
->c_value
);
1575 add_symbol_to_list (sym
, &local_symbols
);
1576 #if !defined (BELIEVE_PCC_PROMOTION)
1577 /* FIXME: This should retain the current type, since it's just
1578 a register value. gnu@adobe, 26Feb93 */
1580 /* If PCC says a parameter is a short or a char,
1581 it is really an int. */
1582 struct type
*temptype
;
1584 lookup_fundamental_type (current_objfile
, FT_INTEGER
);
1585 if (TYPE_LENGTH (SYMBOL_TYPE (sym
)) < TYPE_LENGTH (temptype
)
1586 && TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_INT
)
1589 (TYPE_UNSIGNED (SYMBOL_TYPE (sym
))
1590 ? lookup_fundamental_type (current_objfile
,
1591 FT_UNSIGNED_INTEGER
)
1599 SYMBOL_CLASS (sym
) = LOC_TYPEDEF
;
1600 SYMBOL_DOMAIN (sym
) = VAR_DOMAIN
;
1602 /* If type has no name, give it one */
1603 if (TYPE_NAME (SYMBOL_TYPE (sym
)) == 0)
1605 if (TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_PTR
1606 || TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_FUNC
)
1608 /* If we are giving a name to a type such as "pointer to
1609 foo" or "function returning foo", we better not set
1610 the TYPE_NAME. If the program contains "typedef char
1611 *caddr_t;", we don't want all variables of type char
1612 * to print as caddr_t. This is not just a
1613 consequence of GDB's type management; CC and GCC (at
1614 least through version 2.4) both output variables of
1615 either type char * or caddr_t with the type
1616 refering to the C_TPDEF symbol for caddr_t. If a future
1617 compiler cleans this up it GDB is not ready for it
1618 yet, but if it becomes ready we somehow need to
1619 disable this check (without breaking the PCC/GCC2.4
1624 Fortunately, this check seems not to be necessary
1625 for anything except pointers or functions. */
1629 TYPE_NAME (SYMBOL_TYPE (sym
)) =
1630 concat (DEPRECATED_SYMBOL_NAME (sym
), NULL
);
1633 /* Keep track of any type which points to empty structured type,
1634 so it can be filled from a definition from another file. A
1635 simple forward reference (TYPE_CODE_UNDEF) is not an
1636 empty structured type, though; the forward references
1637 work themselves out via the magic of coff_lookup_type. */
1638 if (TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_PTR
&&
1639 TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym
))) == 0 &&
1640 TYPE_CODE (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym
))) !=
1643 int i
= hashname (DEPRECATED_SYMBOL_NAME (sym
));
1645 SYMBOL_VALUE_CHAIN (sym
) = opaque_type_chain
[i
];
1646 opaque_type_chain
[i
] = sym
;
1648 add_symbol_to_list (sym
, &file_symbols
);
1654 SYMBOL_CLASS (sym
) = LOC_TYPEDEF
;
1655 SYMBOL_DOMAIN (sym
) = STRUCT_DOMAIN
;
1657 /* Some compilers try to be helpful by inventing "fake"
1658 names for anonymous enums, structures, and unions, like
1659 "~0fake" or ".0fake". Thanks, but no thanks... */
1660 if (TYPE_TAG_NAME (SYMBOL_TYPE (sym
)) == 0)
1661 if (DEPRECATED_SYMBOL_NAME (sym
) != NULL
1662 && *DEPRECATED_SYMBOL_NAME (sym
) != '~'
1663 && *DEPRECATED_SYMBOL_NAME (sym
) != '.')
1664 TYPE_TAG_NAME (SYMBOL_TYPE (sym
)) =
1665 concat (DEPRECATED_SYMBOL_NAME (sym
), NULL
);
1667 add_symbol_to_list (sym
, &file_symbols
);
1677 /* Decode a coff type specifier; return the type that is meant. */
1679 static struct type
*
1680 decode_type (struct coff_symbol
*cs
, unsigned int c_type
,
1681 union internal_auxent
*aux
)
1683 struct type
*type
= 0;
1684 unsigned int new_c_type
;
1686 if (c_type
& ~N_BTMASK
)
1688 new_c_type
= DECREF (c_type
);
1691 type
= decode_type (cs
, new_c_type
, aux
);
1692 type
= lookup_pointer_type (type
);
1694 else if (ISFCN (c_type
))
1696 type
= decode_type (cs
, new_c_type
, aux
);
1697 type
= lookup_function_type (type
);
1699 else if (ISARY (c_type
))
1702 unsigned short *dim
;
1703 struct type
*base_type
, *index_type
, *range_type
;
1705 /* Define an array type. */
1706 /* auxent refers to array, not base type */
1707 if (aux
->x_sym
.x_tagndx
.l
== 0)
1710 /* shift the indices down */
1711 dim
= &aux
->x_sym
.x_fcnary
.x_ary
.x_dimen
[0];
1714 for (i
= 0; *dim
&& i
< DIMNUM
- 1; i
++, dim
++)
1718 base_type
= decode_type (cs
, new_c_type
, aux
);
1719 index_type
= lookup_fundamental_type (current_objfile
, FT_INTEGER
);
1721 create_range_type ((struct type
*) NULL
, index_type
, 0, n
- 1);
1723 create_array_type ((struct type
*) NULL
, base_type
, range_type
);
1728 /* Reference to existing type. This only occurs with the
1729 struct, union, and enum types. EPI a29k coff
1730 fakes us out by producing aux entries with a nonzero
1731 x_tagndx for definitions of structs, unions, and enums, so we
1732 have to check the c_sclass field. SCO 3.2v4 cc gets confused
1733 with pointers to pointers to defined structs, and generates
1734 negative x_tagndx fields. */
1735 if (cs
->c_naux
> 0 && aux
->x_sym
.x_tagndx
.l
!= 0)
1737 if (cs
->c_sclass
!= C_STRTAG
1738 && cs
->c_sclass
!= C_UNTAG
1739 && cs
->c_sclass
!= C_ENTAG
1740 && aux
->x_sym
.x_tagndx
.l
>= 0)
1742 type
= coff_alloc_type (aux
->x_sym
.x_tagndx
.l
);
1747 complaint (&symfile_complaints
,
1748 "Symbol table entry for %s has bad tagndx value",
1750 /* And fall through to decode_base_type... */
1754 return decode_base_type (cs
, BTYPE (c_type
), aux
);
1757 /* Decode a coff type specifier for function definition;
1758 return the type that the function returns. */
1760 static struct type
*
1761 decode_function_type (struct coff_symbol
*cs
, unsigned int c_type
,
1762 union internal_auxent
*aux
)
1764 if (aux
->x_sym
.x_tagndx
.l
== 0)
1765 cs
->c_naux
= 0; /* auxent refers to function, not base type */
1767 return decode_type (cs
, DECREF (c_type
), aux
);
1772 static struct type
*
1773 decode_base_type (struct coff_symbol
*cs
, unsigned int c_type
,
1774 union internal_auxent
*aux
)
1781 /* shows up with "void (*foo)();" structure members */
1782 return lookup_fundamental_type (current_objfile
, FT_VOID
);
1786 /* Intel 960 COFF has this symbol and meaning. */
1787 return lookup_fundamental_type (current_objfile
, FT_VOID
);
1791 return lookup_fundamental_type (current_objfile
, FT_CHAR
);
1794 return lookup_fundamental_type (current_objfile
, FT_SHORT
);
1797 return lookup_fundamental_type (current_objfile
, FT_INTEGER
);
1800 if (cs
->c_sclass
== C_FIELD
1801 && aux
->x_sym
.x_misc
.x_lnsz
.x_size
> TARGET_LONG_BIT
)
1802 return lookup_fundamental_type (current_objfile
, FT_LONG_LONG
);
1804 return lookup_fundamental_type (current_objfile
, FT_LONG
);
1807 return lookup_fundamental_type (current_objfile
, FT_FLOAT
);
1810 return lookup_fundamental_type (current_objfile
, FT_DBL_PREC_FLOAT
);
1813 return lookup_fundamental_type (current_objfile
, FT_EXT_PREC_FLOAT
);
1816 if (cs
->c_naux
!= 1)
1818 /* anonymous structure type */
1819 type
= coff_alloc_type (cs
->c_symnum
);
1820 TYPE_CODE (type
) = TYPE_CODE_STRUCT
;
1821 TYPE_NAME (type
) = NULL
;
1822 /* This used to set the tag to "<opaque>". But I think setting it
1823 to NULL is right, and the printing code can print it as
1825 TYPE_TAG_NAME (type
) = NULL
;
1826 INIT_CPLUS_SPECIFIC (type
);
1827 TYPE_LENGTH (type
) = 0;
1828 TYPE_FIELDS (type
) = 0;
1829 TYPE_NFIELDS (type
) = 0;
1833 type
= coff_read_struct_type (cs
->c_symnum
,
1834 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1835 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
);
1840 if (cs
->c_naux
!= 1)
1842 /* anonymous union type */
1843 type
= coff_alloc_type (cs
->c_symnum
);
1844 TYPE_NAME (type
) = NULL
;
1845 /* This used to set the tag to "<opaque>". But I think setting it
1846 to NULL is right, and the printing code can print it as
1848 TYPE_TAG_NAME (type
) = NULL
;
1849 INIT_CPLUS_SPECIFIC (type
);
1850 TYPE_LENGTH (type
) = 0;
1851 TYPE_FIELDS (type
) = 0;
1852 TYPE_NFIELDS (type
) = 0;
1856 type
= coff_read_struct_type (cs
->c_symnum
,
1857 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1858 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
);
1860 TYPE_CODE (type
) = TYPE_CODE_UNION
;
1864 if (cs
->c_naux
!= 1)
1866 /* anonymous enum type */
1867 type
= coff_alloc_type (cs
->c_symnum
);
1868 TYPE_CODE (type
) = TYPE_CODE_ENUM
;
1869 TYPE_NAME (type
) = NULL
;
1870 /* This used to set the tag to "<opaque>". But I think setting it
1871 to NULL is right, and the printing code can print it as
1873 TYPE_TAG_NAME (type
) = NULL
;
1874 TYPE_LENGTH (type
) = 0;
1875 TYPE_FIELDS (type
) = 0;
1876 TYPE_NFIELDS (type
) = 0;
1880 type
= coff_read_enum_type (cs
->c_symnum
,
1881 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1882 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
);
1887 /* shouldn't show up here */
1891 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_CHAR
);
1894 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_SHORT
);
1897 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_INTEGER
);
1900 if (cs
->c_sclass
== C_FIELD
1901 && aux
->x_sym
.x_misc
.x_lnsz
.x_size
> TARGET_LONG_BIT
)
1902 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_LONG_LONG
);
1904 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_LONG
);
1906 complaint (&symfile_complaints
, "Unexpected type for symbol %s", cs
->c_name
);
1907 return lookup_fundamental_type (current_objfile
, FT_VOID
);
1910 /* This page contains subroutines of read_type. */
1912 /* Read the description of a structure (or union type) and return an
1913 object describing the type. */
1915 static struct type
*
1916 coff_read_struct_type (int index
, int length
, int lastsym
)
1920 struct nextfield
*next
;
1925 struct nextfield
*list
= 0;
1926 struct nextfield
*new;
1930 struct coff_symbol member_sym
;
1931 struct coff_symbol
*ms
= &member_sym
;
1932 struct internal_syment sub_sym
;
1933 union internal_auxent sub_aux
;
1936 type
= coff_alloc_type (index
);
1937 TYPE_CODE (type
) = TYPE_CODE_STRUCT
;
1938 INIT_CPLUS_SPECIFIC (type
);
1939 TYPE_LENGTH (type
) = length
;
1941 while (!done
&& symnum
< lastsym
&& symnum
< nlist_nsyms_global
)
1943 read_one_sym (ms
, &sub_sym
, &sub_aux
);
1945 name
= EXTERNAL_NAME (name
, current_objfile
->obfd
);
1947 switch (ms
->c_sclass
)
1952 /* Get space to record the next field's data. */
1953 new = (struct nextfield
*) alloca (sizeof (struct nextfield
));
1957 /* Save the data. */
1961 ¤t_objfile
->objfile_obstack
);
1962 FIELD_TYPE (list
->field
) = decode_type (ms
, ms
->c_type
, &sub_aux
);
1963 FIELD_BITPOS (list
->field
) = 8 * ms
->c_value
;
1964 FIELD_BITSIZE (list
->field
) = 0;
1965 FIELD_STATIC_KIND (list
->field
) = 0;
1971 /* Get space to record the next field's data. */
1972 new = (struct nextfield
*) alloca (sizeof (struct nextfield
));
1976 /* Save the data. */
1980 ¤t_objfile
->objfile_obstack
);
1981 FIELD_TYPE (list
->field
) = decode_type (ms
, ms
->c_type
, &sub_aux
);
1982 FIELD_BITPOS (list
->field
) = ms
->c_value
;
1983 FIELD_BITSIZE (list
->field
) = sub_aux
.x_sym
.x_misc
.x_lnsz
.x_size
;
1984 FIELD_STATIC_KIND (list
->field
) = 0;
1993 /* Now create the vector of fields, and record how big it is. */
1995 TYPE_NFIELDS (type
) = nfields
;
1996 TYPE_FIELDS (type
) = (struct field
*)
1997 TYPE_ALLOC (type
, sizeof (struct field
) * nfields
);
1999 /* Copy the saved-up fields into the field vector. */
2001 for (n
= nfields
; list
; list
= list
->next
)
2002 TYPE_FIELD (type
, --n
) = list
->field
;
2007 /* Read a definition of an enumeration type,
2008 and create and return a suitable type object.
2009 Also defines the symbols that represent the values of the type. */
2011 static struct type
*
2012 coff_read_enum_type (int index
, int length
, int lastsym
)
2018 struct pending
**symlist
;
2019 struct coff_symbol member_sym
;
2020 struct coff_symbol
*ms
= &member_sym
;
2021 struct internal_syment sub_sym
;
2022 union internal_auxent sub_aux
;
2023 struct pending
*osyms
, *syms
;
2027 int unsigned_enum
= 1;
2029 type
= coff_alloc_type (index
);
2030 if (within_function
)
2031 symlist
= &local_symbols
;
2033 symlist
= &file_symbols
;
2035 o_nsyms
= osyms
? osyms
->nsyms
: 0;
2037 while (!done
&& symnum
< lastsym
&& symnum
< nlist_nsyms_global
)
2039 read_one_sym (ms
, &sub_sym
, &sub_aux
);
2041 name
= EXTERNAL_NAME (name
, current_objfile
->obfd
);
2043 switch (ms
->c_sclass
)
2046 sym
= (struct symbol
*) obstack_alloc
2047 (¤t_objfile
->objfile_obstack
,
2048 sizeof (struct symbol
));
2049 memset (sym
, 0, sizeof (struct symbol
));
2051 DEPRECATED_SYMBOL_NAME (sym
) =
2052 obsavestring (name
, strlen (name
),
2053 ¤t_objfile
->objfile_obstack
);
2054 SYMBOL_CLASS (sym
) = LOC_CONST
;
2055 SYMBOL_DOMAIN (sym
) = VAR_DOMAIN
;
2056 SYMBOL_VALUE (sym
) = ms
->c_value
;
2057 add_symbol_to_list (sym
, symlist
);
2062 /* Sometimes the linker (on 386/ix 2.0.2 at least) screws
2063 up the count of how many symbols to read. So stop
2070 /* Now fill in the fields of the type-structure. */
2073 TYPE_LENGTH (type
) = length
;
2075 TYPE_LENGTH (type
) = TARGET_INT_BIT
/ TARGET_CHAR_BIT
; /* Assume ints */
2076 TYPE_CODE (type
) = TYPE_CODE_ENUM
;
2077 TYPE_NFIELDS (type
) = nsyms
;
2078 TYPE_FIELDS (type
) = (struct field
*)
2079 TYPE_ALLOC (type
, sizeof (struct field
) * nsyms
);
2081 /* Find the symbols for the values and put them into the type.
2082 The symbols can be found in the symlist that we put them on
2083 to cause them to be defined. osyms contains the old value
2084 of that symlist; everything up to there was defined by us. */
2085 /* Note that we preserve the order of the enum constants, so
2086 that in something like "enum {FOO, LAST_THING=FOO}" we print
2087 FOO, not LAST_THING. */
2089 for (syms
= *symlist
, n
= 0; syms
; syms
= syms
->next
)
2095 for (; j
< syms
->nsyms
; j
++, n
++)
2097 struct symbol
*xsym
= syms
->symbol
[j
];
2098 SYMBOL_TYPE (xsym
) = type
;
2099 TYPE_FIELD_NAME (type
, n
) = DEPRECATED_SYMBOL_NAME (xsym
);
2100 TYPE_FIELD_BITPOS (type
, n
) = SYMBOL_VALUE (xsym
);
2101 if (SYMBOL_VALUE (xsym
) < 0)
2103 TYPE_FIELD_BITSIZE (type
, n
) = 0;
2104 TYPE_FIELD_STATIC_KIND (type
, n
) = 0;
2111 TYPE_FLAGS (type
) |= TYPE_FLAG_UNSIGNED
;
2116 /* Register our ability to parse symbols for coff BFD files. */
2118 static struct sym_fns coff_sym_fns
=
2120 bfd_target_coff_flavour
,
2121 coff_new_init
, /* sym_new_init: init anything gbl to entire symtab */
2122 coff_symfile_init
, /* sym_init: read initial info, setup for sym_read() */
2123 coff_symfile_read
, /* sym_read: read a symbol file into symtab */
2124 coff_symfile_finish
, /* sym_finish: finished with file, cleanup */
2125 default_symfile_offsets
, /* sym_offsets: xlate external to internal form */
2126 NULL
/* next: pointer to next struct sym_fns */
2130 _initialize_coffread (void)
2132 add_symtab_fns (&coff_sym_fns
);