1 /* Read coff symbol tables and convert to internal format, for GDB.
2 Copyright 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996,
4 Free Software Foundation, Inc.
5 Contributed by David D. Johnson, Brown University (ddj@cs.brown.edu).
7 This file is part of GDB.
9 This program is free software; you can redistribute it and/or modify
10 it under the terms of the GNU General Public License as published by
11 the Free Software Foundation; either version 2 of the License, or
12 (at your option) any later version.
14 This program is distributed in the hope that it will be useful,
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 GNU General Public License for more details.
19 You should have received a copy of the GNU General Public License
20 along with this program; if not, write to the Free Software
21 Foundation, Inc., 59 Temple Place - Suite 330,
22 Boston, MA 02111-1307, USA. */
28 #include "breakpoint.h"
33 #include "gdb_string.h"
36 #include "coff/internal.h" /* Internal format of COFF symbols in BFD */
37 #include "libcoff.h" /* FIXME secret internal data from BFD */
42 #include "gdb-stabs.h"
43 #include "stabsread.h"
44 #include "complaints.h"
47 extern void _initialize_coffread (void);
49 struct coff_symfile_info
51 file_ptr min_lineno_offset
; /* Where in file lowest line#s are */
52 file_ptr max_lineno_offset
; /* 1+last byte of line#s in file */
54 CORE_ADDR textaddr
; /* Addr of .text section. */
55 unsigned int textsize
; /* Size of .text section. */
56 struct stab_section_list
*stabsects
; /* .stab sections. */
57 asection
*stabstrsect
; /* Section pointer for .stab section */
61 /* Translate an external name string into a user-visible name. */
62 #define EXTERNAL_NAME(string, abfd) \
63 (string[0] == bfd_get_symbol_leading_char(abfd)? string+1: string)
65 /* To be an sdb debug type, type must have at least a basic or primary
66 derived type. Using this rather than checking against T_NULL is
67 said to prevent core dumps if we try to operate on Michael Bloom
70 #define SDB_TYPE(type) (BTYPE(type) | (type & N_TMASK))
72 /* Core address of start and end of text of current source file.
73 This comes from a ".text" symbol where x_nlinno > 0. */
75 static CORE_ADDR current_source_start_addr
;
76 static CORE_ADDR current_source_end_addr
;
78 /* The addresses of the symbol table stream and number of symbols
79 of the object file we are reading (as copied into core). */
81 static bfd
*nlist_bfd_global
;
82 static int nlist_nsyms_global
;
85 /* Pointers to scratch storage, used for reading raw symbols and auxents. */
87 static char *temp_sym
;
88 static char *temp_aux
;
90 /* Local variables that hold the shift and mask values for the
91 COFF file that we are currently reading. These come back to us
92 from BFD, and are referenced by their macro names, as well as
93 internally to the BTYPE, ISPTR, ISFCN, ISARY, ISTAG, and DECREF
94 macros from include/coff/internal.h . */
96 static unsigned local_n_btmask
;
97 static unsigned local_n_btshft
;
98 static unsigned local_n_tmask
;
99 static unsigned local_n_tshift
;
101 #define N_BTMASK local_n_btmask
102 #define N_BTSHFT local_n_btshft
103 #define N_TMASK local_n_tmask
104 #define N_TSHIFT local_n_tshift
106 /* Local variables that hold the sizes in the file of various COFF structures.
107 (We only need to know this to read them from the file -- BFD will then
108 translate the data in them, into `internal_xxx' structs in the right
109 byte order, alignment, etc.) */
111 static unsigned local_linesz
;
112 static unsigned local_symesz
;
113 static unsigned local_auxesz
;
115 /* This is set if this is a PE format file. */
119 /* Chain of typedefs of pointers to empty struct/union types.
120 They are chained thru the SYMBOL_VALUE_CHAIN. */
122 static struct symbol
*opaque_type_chain
[HASHSIZE
];
124 /* Complaints about various problems in the file being read */
126 struct complaint ef_complaint
=
127 {"Unmatched .ef symbol(s) ignored starting at symnum %d", 0, 0};
129 struct complaint ef_stack_complaint
=
130 {"`.ef' symbol without matching `.bf' symbol ignored starting at symnum %d", 0, 0};
132 struct complaint eb_stack_complaint
=
133 {"`.eb' symbol without matching `.bb' symbol ignored starting at symnum %d", 0, 0};
135 struct complaint bf_no_aux_complaint
=
136 {"`.bf' symbol %d has no aux entry", 0, 0};
138 struct complaint ef_no_aux_complaint
=
139 {"`.ef' symbol %d has no aux entry", 0, 0};
141 struct complaint lineno_complaint
=
142 {"Line number pointer %d lower than start of line numbers", 0, 0};
144 struct complaint unexpected_type_complaint
=
145 {"Unexpected type for symbol %s", 0, 0};
147 struct complaint bad_sclass_complaint
=
148 {"Bad n_sclass for symbol %s", 0, 0};
150 struct complaint misordered_blocks_complaint
=
151 {"Blocks out of order at address %x", 0, 0};
153 struct complaint tagndx_bad_complaint
=
154 {"Symbol table entry for %s has bad tagndx value", 0, 0};
156 struct complaint eb_complaint
=
157 {"Mismatched .eb symbol ignored starting at symnum %d", 0, 0};
159 /* Simplified internal version of coff symbol table information */
164 int c_symnum
; /* symbol number of this entry */
165 int c_naux
; /* 0 if syment only, 1 if syment + auxent, etc */
172 extern void stabsread_clear_cache (void);
174 static struct type
*coff_read_struct_type (int, int, int);
176 static struct type
*decode_base_type (struct coff_symbol
*,
177 unsigned int, union internal_auxent
*);
179 static struct type
*decode_type (struct coff_symbol
*, unsigned int,
180 union internal_auxent
*);
182 static struct type
*decode_function_type (struct coff_symbol
*,
184 union internal_auxent
*);
186 static struct type
*coff_read_enum_type (int, int, int);
188 static struct symbol
*process_coff_symbol (struct coff_symbol
*,
189 union internal_auxent
*,
192 static void patch_opaque_types (struct symtab
*);
194 static void patch_type (struct type
*, struct type
*);
196 static void enter_linenos (long, int, int, struct objfile
*);
198 static void free_linetab (void);
200 static void free_linetab_cleanup (void *ignore
);
202 static int init_lineno (bfd
*, long, int);
204 static char *getsymname (struct internal_syment
*);
206 static char *coff_getfilename (union internal_auxent
*);
208 static void free_stringtab (void);
210 static void free_stringtab_cleanup (void *ignore
);
212 static int init_stringtab (bfd
*, long);
214 static void read_one_sym (struct coff_symbol
*,
215 struct internal_syment
*, union internal_auxent
*);
217 static void coff_symtab_read (long, unsigned int, struct objfile
*);
219 static void find_linenos (bfd
*, sec_ptr
, PTR
);
221 static void coff_symfile_init (struct objfile
*);
223 static void coff_new_init (struct objfile
*);
225 static void coff_symfile_read (struct objfile
*, int);
227 static void coff_symfile_finish (struct objfile
*);
229 static void record_minimal_symbol (char *, CORE_ADDR
,
230 enum minimal_symbol_type
,
233 static void coff_end_symtab (struct objfile
*);
235 static void complete_symtab (char *, CORE_ADDR
, unsigned int);
237 static void coff_start_symtab (char *);
239 static struct type
*coff_alloc_type (int);
241 static struct type
**coff_lookup_type (int);
243 static void coff_locate_sections (bfd
*, asection
*, PTR
);
245 /* We are called once per section from coff_symfile_read. We
246 need to examine each section we are passed, check to see
247 if it is something we are interested in processing, and
248 if so, stash away some access information for the section.
250 FIXME: The section names should not be hardwired strings (what
251 should they be? I don't think most object file formats have enough
252 section flags to specify what kind of debug section it is
256 coff_locate_sections (bfd
*abfd
, asection
*sectp
, PTR csip
)
258 register struct coff_symfile_info
*csi
;
261 csi
= (struct coff_symfile_info
*) csip
;
262 name
= bfd_get_section_name (abfd
, sectp
);
263 if (STREQ (name
, ".text"))
265 csi
->textaddr
= bfd_section_vma (abfd
, sectp
);
266 csi
->textsize
+= bfd_section_size (abfd
, sectp
);
268 else if (strncmp (name
, ".text", sizeof ".text" - 1) == 0)
270 csi
->textsize
+= bfd_section_size (abfd
, sectp
);
272 else if (STREQ (name
, ".stabstr"))
274 csi
->stabstrsect
= sectp
;
276 else if (strncmp (name
, ".stab", sizeof ".stab" - 1) == 0)
280 /* We can have multiple .stab sections if linked with
282 for (s
= name
+ sizeof ".stab" - 1; *s
!= '\0'; s
++)
287 struct stab_section_list
*n
, **pn
;
289 n
= ((struct stab_section_list
*)
290 xmalloc (sizeof (struct stab_section_list
)));
293 for (pn
= &csi
->stabsects
; *pn
!= NULL
; pn
= &(*pn
)->next
)
297 /* This will be run after coffstab_build_psymtabs is called
298 in coff_symfile_read, at which point we no longer need
300 make_cleanup (xfree
, n
);
305 /* Return the section_offsets* that CS points to. */
306 static int cs_to_section (struct coff_symbol
*, struct objfile
*);
308 struct find_targ_sec_arg
314 static void find_targ_sec (bfd
*, asection
*, void *);
317 find_targ_sec (bfd
*abfd
, asection
*sect
, PTR obj
)
319 struct find_targ_sec_arg
*args
= (struct find_targ_sec_arg
*) obj
;
320 if (sect
->target_index
== args
->targ_index
)
321 *args
->resultp
= sect
;
324 /* Return the section number (SECT_OFF_*) that CS points to. */
326 cs_to_section (struct coff_symbol
*cs
, struct objfile
*objfile
)
328 asection
*sect
= NULL
;
329 struct find_targ_sec_arg args
;
330 int off
= SECT_OFF_TEXT (objfile
);
332 args
.targ_index
= cs
->c_secnum
;
333 args
.resultp
= §
;
334 bfd_map_over_sections (objfile
->obfd
, find_targ_sec
, &args
);
337 /* This is the section. Figure out what SECT_OFF_* code it is. */
338 if (bfd_get_section_flags (abfd
, sect
) & SEC_CODE
)
339 off
= SECT_OFF_TEXT (objfile
);
340 else if (bfd_get_section_flags (abfd
, sect
) & SEC_LOAD
)
341 off
= SECT_OFF_DATA (objfile
);
343 /* Just return the bfd section index. */
349 /* Return the address of the section of a COFF symbol. */
351 static CORE_ADDR
cs_section_address (struct coff_symbol
*, bfd
*);
354 cs_section_address (struct coff_symbol
*cs
, bfd
*abfd
)
356 asection
*sect
= NULL
;
357 struct find_targ_sec_arg args
;
360 args
.targ_index
= cs
->c_secnum
;
361 args
.resultp
= §
;
362 bfd_map_over_sections (abfd
, find_targ_sec
, &args
);
364 addr
= bfd_get_section_vma (objfile
->obfd
, sect
);
368 /* Look up a coff type-number index. Return the address of the slot
369 where the type for that index is stored.
370 The type-number is in INDEX.
372 This can be used for finding the type associated with that index
373 or for associating a new type with the index. */
375 static struct type
**
376 coff_lookup_type (register int index
)
378 if (index
>= type_vector_length
)
380 int old_vector_length
= type_vector_length
;
382 type_vector_length
*= 2;
383 if (index
/* is still */ >= type_vector_length
)
384 type_vector_length
= index
* 2;
386 type_vector
= (struct type
**)
387 xrealloc ((char *) type_vector
,
388 type_vector_length
* sizeof (struct type
*));
389 memset (&type_vector
[old_vector_length
], 0,
390 (type_vector_length
- old_vector_length
) * sizeof (struct type
*));
392 return &type_vector
[index
];
395 /* Make sure there is a type allocated for type number index
396 and return the type object.
397 This can create an empty (zeroed) type object. */
400 coff_alloc_type (int index
)
402 register struct type
**type_addr
= coff_lookup_type (index
);
403 register struct type
*type
= *type_addr
;
405 /* If we are referring to a type not known at all yet,
406 allocate an empty type for it.
407 We will fill it in later if we find out how. */
410 type
= alloc_type (current_objfile
);
416 /* Start a new symtab for a new source file.
417 This is called when a COFF ".file" symbol is seen;
418 it indicates the start of data for one original source file. */
421 coff_start_symtab (char *name
)
424 /* We fill in the filename later. start_symtab puts
425 this pointer into last_source_file and we put it in
426 subfiles->name, which end_symtab frees; that's why
427 it must be malloc'd. */
428 savestring (name
, strlen (name
)),
429 /* We never know the directory name for COFF. */
431 /* The start address is irrelevant, since we set
432 last_source_start_addr in coff_end_symtab. */
434 record_debugformat ("COFF");
437 /* Save the vital information from when starting to read a file,
438 for use when closing off the current file.
439 NAME is the file name the symbols came from, START_ADDR is the first
440 text address for the file, and SIZE is the number of bytes of text. */
443 complete_symtab (char *name
, CORE_ADDR start_addr
, unsigned int size
)
445 if (last_source_file
!= NULL
)
446 xfree (last_source_file
);
447 last_source_file
= savestring (name
, strlen (name
));
448 current_source_start_addr
= start_addr
;
449 current_source_end_addr
= start_addr
+ size
;
451 if (current_objfile
->ei
.entry_point
>= current_source_start_addr
&&
452 current_objfile
->ei
.entry_point
< current_source_end_addr
)
454 current_objfile
->ei
.entry_file_lowpc
= current_source_start_addr
;
455 current_objfile
->ei
.entry_file_highpc
= current_source_end_addr
;
459 /* Finish the symbol definitions for one main source file,
460 close off all the lexical contexts for that file
461 (creating struct block's for them), then make the
462 struct symtab for that file and put it in the list of all such. */
465 coff_end_symtab (struct objfile
*objfile
)
467 struct symtab
*symtab
;
469 last_source_start_addr
= current_source_start_addr
;
471 symtab
= end_symtab (current_source_end_addr
, objfile
, SECT_OFF_TEXT (objfile
));
474 free_named_symtabs (symtab
->filename
);
476 /* Reinitialize for beginning of new file. */
477 last_source_file
= NULL
;
481 record_minimal_symbol (char *name
, CORE_ADDR address
,
482 enum minimal_symbol_type type
, struct objfile
*objfile
)
484 /* We don't want TDESC entry points in the minimal symbol table */
488 prim_record_minimal_symbol (name
, address
, type
, objfile
);
491 /* coff_symfile_init ()
492 is the coff-specific initialization routine for reading symbols.
493 It is passed a struct objfile which contains, among other things,
494 the BFD for the file whose symbols are being read, and a slot for
495 a pointer to "private data" which we fill with cookies and other
496 treats for coff_symfile_read ().
498 We will only be called if this is a COFF or COFF-like file.
499 BFD handles figuring out the format of the file, and code in symtab.c
500 uses BFD's determination to vector to us.
502 The ultimate result is a new symtab (or, FIXME, eventually a psymtab). */
505 coff_symfile_init (struct objfile
*objfile
)
507 /* Allocate struct to keep track of stab reading. */
508 objfile
->sym_stab_info
= (struct dbx_symfile_info
*)
509 xmmalloc (objfile
->md
, sizeof (struct dbx_symfile_info
));
511 memset ((PTR
) objfile
->sym_stab_info
, 0, sizeof (struct dbx_symfile_info
));
513 /* Allocate struct to keep track of the symfile */
514 objfile
->sym_private
= xmmalloc (objfile
->md
,
515 sizeof (struct coff_symfile_info
));
517 memset (objfile
->sym_private
, 0, sizeof (struct coff_symfile_info
));
519 /* COFF objects may be reordered, so set OBJF_REORDERED. If we
520 find this causes a significant slowdown in gdb then we could
521 set it in the debug symbol readers only when necessary. */
522 objfile
->flags
|= OBJF_REORDERED
;
524 init_entry_point_info (objfile
);
527 /* This function is called for every section; it finds the outer limits
528 of the line table (minimum and maximum file offset) so that the
529 mainline code can read the whole thing for efficiency. */
533 find_linenos (bfd
*abfd
, sec_ptr asect
, PTR vpinfo
)
535 struct coff_symfile_info
*info
;
537 file_ptr offset
, maxoff
;
539 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
540 count
= asect
->lineno_count
;
545 size
= count
* local_linesz
;
547 info
= (struct coff_symfile_info
*) vpinfo
;
548 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
549 offset
= asect
->line_filepos
;
552 if (offset
< info
->min_lineno_offset
|| info
->min_lineno_offset
== 0)
553 info
->min_lineno_offset
= offset
;
555 maxoff
= offset
+ size
;
556 if (maxoff
> info
->max_lineno_offset
)
557 info
->max_lineno_offset
= maxoff
;
561 /* The BFD for this file -- only good while we're actively reading
562 symbols into a psymtab or a symtab. */
564 static bfd
*symfile_bfd
;
566 /* Read a symbol file, after initialization by coff_symfile_init. */
570 coff_symfile_read (struct objfile
*objfile
, int mainline
)
572 struct coff_symfile_info
*info
;
573 struct dbx_symfile_info
*dbxinfo
;
574 bfd
*abfd
= objfile
->obfd
;
575 coff_data_type
*cdata
= coff_data (abfd
);
576 char *name
= bfd_get_filename (abfd
);
578 unsigned int num_symbols
;
580 int stringtab_offset
;
581 struct cleanup
*back_to
;
586 info
= (struct coff_symfile_info
*) objfile
->sym_private
;
587 dbxinfo
= objfile
->sym_stab_info
;
588 symfile_bfd
= abfd
; /* Kludge for swap routines */
590 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
591 num_symbols
= bfd_get_symcount (abfd
); /* How many syms */
592 symtab_offset
= cdata
->sym_filepos
; /* Symbol table file offset */
593 stringtab_offset
= symtab_offset
+ /* String table file offset */
594 num_symbols
* cdata
->local_symesz
;
596 /* Set a few file-statics that give us specific information about
597 the particular COFF file format we're reading. */
598 local_n_btmask
= cdata
->local_n_btmask
;
599 local_n_btshft
= cdata
->local_n_btshft
;
600 local_n_tmask
= cdata
->local_n_tmask
;
601 local_n_tshift
= cdata
->local_n_tshift
;
602 local_linesz
= cdata
->local_linesz
;
603 local_symesz
= cdata
->local_symesz
;
604 local_auxesz
= cdata
->local_auxesz
;
606 /* Allocate space for raw symbol and aux entries, based on their
607 space requirements as reported by BFD. */
608 temp_sym
= (char *) xmalloc
609 (cdata
->local_symesz
+ cdata
->local_auxesz
);
610 temp_aux
= temp_sym
+ cdata
->local_symesz
;
611 back_to
= make_cleanup (free_current_contents
, &temp_sym
);
613 /* We need to know whether this is a PE file, because in PE files,
614 unlike standard COFF files, symbol values are stored as offsets
615 from the section address, rather than as absolute addresses.
616 FIXME: We should use BFD to read the symbol table, and thus avoid
619 strncmp (bfd_get_target (objfile
->obfd
), "pe", 2) == 0
620 || strncmp (bfd_get_target (objfile
->obfd
), "epoc-pe", 7) == 0;
624 /* Read the line number table, all at once. */
625 info
->min_lineno_offset
= 0;
626 info
->max_lineno_offset
= 0;
627 bfd_map_over_sections (abfd
, find_linenos
, (PTR
) info
);
629 make_cleanup (free_linetab_cleanup
, 0 /*ignore*/);
630 val
= init_lineno (abfd
, info
->min_lineno_offset
,
631 info
->max_lineno_offset
- info
->min_lineno_offset
);
633 error ("\"%s\": error reading line numbers\n", name
);
635 /* Now read the string table, all at once. */
637 make_cleanup (free_stringtab_cleanup
, 0 /*ignore*/);
638 val
= init_stringtab (abfd
, stringtab_offset
);
640 error ("\"%s\": can't get string table", name
);
642 init_minimal_symbol_collection ();
643 make_cleanup_discard_minimal_symbols ();
645 /* Now that the executable file is positioned at symbol table,
646 process it and define symbols accordingly. */
648 coff_symtab_read ((long) symtab_offset
, num_symbols
, objfile
);
650 /* Sort symbols alphabetically within each block. */
655 for (s
= objfile
->symtabs
; s
!= NULL
; s
= s
->next
)
656 sort_symtab_syms (s
);
659 /* Install any minimal symbols that have been collected as the current
660 minimal symbols for this objfile. */
662 install_minimal_symbols (objfile
);
664 bfd_map_over_sections (abfd
, coff_locate_sections
, (PTR
) info
);
668 if (!info
->stabstrsect
)
673 ("The debugging information in `%s' is corrupted.\n"
674 "The file has a `.stabs' section, but no `.stabstr' section.\n"),
676 return_to_top_level (RETURN_ERROR
);
679 /* FIXME: dubious. Why can't we use something normal like
680 bfd_get_section_contents? */
681 bfd_seek (abfd
, abfd
->where
, 0);
683 stabstrsize
= bfd_section_size (abfd
, info
->stabstrsect
);
685 coffstab_build_psymtabs (objfile
,
687 info
->textaddr
, info
->textsize
,
689 info
->stabstrsect
->filepos
, stabstrsize
);
692 do_cleanups (back_to
);
696 coff_new_init (struct objfile
*ignore
)
700 /* Perform any local cleanups required when we are done with a particular
701 objfile. I.E, we are in the process of discarding all symbol information
702 for an objfile, freeing up all memory held for it, and unlinking the
703 objfile struct from the global list of known objfiles. */
706 coff_symfile_finish (struct objfile
*objfile
)
708 if (objfile
->sym_private
!= NULL
)
710 mfree (objfile
->md
, objfile
->sym_private
);
713 /* Let stabs reader clean up */
714 stabsread_clear_cache ();
718 /* Given pointers to a symbol table in coff style exec file,
719 analyze them and create struct symtab's describing the symbols.
720 NSYMS is the number of symbols in the symbol table.
721 We read them one at a time using read_one_sym (). */
724 coff_symtab_read (long symtab_offset
, unsigned int nsyms
,
725 struct objfile
*objfile
)
727 register struct context_stack
*new;
728 struct coff_symbol coff_symbol
;
729 register struct coff_symbol
*cs
= &coff_symbol
;
730 static struct internal_syment main_sym
;
731 static union internal_auxent main_aux
;
732 struct coff_symbol fcn_cs_saved
;
733 static struct internal_syment fcn_sym_saved
;
734 static union internal_auxent fcn_aux_saved
;
736 /* A .file is open. */
737 int in_source_file
= 0;
738 int next_file_symnum
= -1;
739 /* Name of the current file. */
740 char *filestring
= "";
742 int fcn_first_line
= 0;
743 CORE_ADDR fcn_first_line_addr
;
744 int fcn_last_line
= 0;
745 int fcn_start_addr
= 0;
746 long fcn_line_ptr
= 0;
750 /* Work around a stdio bug in SunOS4.1.1 (this makes me nervous....
751 it's hard to know I've really worked around it. The fix should be
752 harmless, anyway). The symptom of the bug is that the first
753 fread (in read_one_sym), will (in my example) actually get data
754 from file offset 268, when the fseek was to 264 (and ftell shows
755 264). This causes all hell to break loose. I was unable to
756 reproduce this on a short test program which operated on the same
757 file, performing (I think) the same sequence of operations.
759 It stopped happening when I put in this (former) rewind().
761 FIXME: Find out if this has been reported to Sun, whether it has
762 been fixed in a later release, etc. */
764 bfd_seek (objfile
->obfd
, 0, 0);
766 /* Position to read the symbol table. */
767 val
= bfd_seek (objfile
->obfd
, (long) symtab_offset
, 0);
769 perror_with_name (objfile
->name
);
771 current_objfile
= objfile
;
772 nlist_bfd_global
= objfile
->obfd
;
773 nlist_nsyms_global
= nsyms
;
774 last_source_file
= NULL
;
775 memset (opaque_type_chain
, 0, sizeof opaque_type_chain
);
777 if (type_vector
) /* Get rid of previous one */
779 type_vector_length
= 160;
780 type_vector
= (struct type
**)
781 xmalloc (type_vector_length
* sizeof (struct type
*));
782 memset (type_vector
, 0, type_vector_length
* sizeof (struct type
*));
784 coff_start_symtab ("");
787 while (symnum
< nsyms
)
789 QUIT
; /* Make this command interruptable. */
791 read_one_sym (cs
, &main_sym
, &main_aux
);
793 if (cs
->c_symnum
== next_file_symnum
&& cs
->c_sclass
!= C_FILE
)
795 if (last_source_file
)
796 coff_end_symtab (objfile
);
798 coff_start_symtab ("_globals_");
799 complete_symtab ("_globals_", 0, 0);
800 /* done with all files, everything from here on out is globals */
803 /* Special case for file with type declarations only, no text. */
804 if (!last_source_file
&& SDB_TYPE (cs
->c_type
)
805 && cs
->c_secnum
== N_DEBUG
)
806 complete_symtab (filestring
, 0, 0);
808 /* Typedefs should not be treated as symbol definitions. */
809 if (ISFCN (cs
->c_type
) && cs
->c_sclass
!= C_TPDEF
)
811 /* Record all functions -- external and static -- in minsyms. */
812 tmpaddr
= cs
->c_value
+ ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
813 record_minimal_symbol (cs
->c_name
, tmpaddr
, mst_text
, objfile
);
815 fcn_line_ptr
= main_aux
.x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
;
816 fcn_start_addr
= tmpaddr
;
818 fcn_sym_saved
= main_sym
;
819 fcn_aux_saved
= main_aux
;
823 switch (cs
->c_sclass
)
832 complain (&bad_sclass_complaint
, cs
->c_name
);
836 /* c_value field contains symnum of next .file entry in table
837 or symnum of first global after last .file. */
838 next_file_symnum
= cs
->c_value
;
840 filestring
= coff_getfilename (&main_aux
);
844 /* Complete symbol table for last object file
845 containing debugging information. */
846 if (last_source_file
)
848 coff_end_symtab (objfile
);
849 coff_start_symtab (filestring
);
854 /* C_LABEL is used for labels and static functions. Including
855 it here allows gdb to see static functions when no debug
856 info is available. */
858 /* However, labels within a function can make weird backtraces,
859 so filter them out (from phdm@macqel.be). */
865 case C_THUMBSTATFUNC
:
866 if (cs
->c_name
[0] == '.')
868 if (STREQ (cs
->c_name
, ".text"))
870 /* FIXME: don't wire in ".text" as section name
872 /* Check for in_source_file deals with case of
873 a file with debugging symbols
874 followed by a later file with no symbols. */
876 complete_symtab (filestring
,
877 cs
->c_value
+ ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
)),
878 main_aux
.x_scn
.x_scnlen
);
881 /* flush rest of '.' symbols */
884 else if (!SDB_TYPE (cs
->c_type
)
885 && cs
->c_name
[0] == 'L'
886 && (strncmp (cs
->c_name
, "LI%", 3) == 0
887 || strncmp (cs
->c_name
, "LF%", 3) == 0
888 || strncmp (cs
->c_name
, "LC%", 3) == 0
889 || strncmp (cs
->c_name
, "LP%", 3) == 0
890 || strncmp (cs
->c_name
, "LPB%", 4) == 0
891 || strncmp (cs
->c_name
, "LBB%", 4) == 0
892 || strncmp (cs
->c_name
, "LBE%", 4) == 0
893 || strncmp (cs
->c_name
, "LPBX%", 5) == 0))
894 /* At least on a 3b1, gcc generates swbeg and string labels
895 that look like this. Ignore them. */
897 /* fall in for static symbols that don't start with '.' */
902 /* Record it in the minimal symbols regardless of
903 SDB_TYPE. This parallels what we do for other debug
904 formats, and probably is needed to make
905 print_address_symbolic work right without the (now
906 gone) "set fast-symbolic-addr off" kludge. */
908 /* FIXME: should use mst_abs, and not relocate, if absolute. */
909 enum minimal_symbol_type ms_type
;
912 if (cs
->c_secnum
== N_UNDEF
)
914 /* This is a common symbol. See if the target
915 environment knows where it has been relocated to. */
917 if (target_lookup_symbol (cs
->c_name
, &reladdr
))
919 /* Error in lookup; ignore symbol. */
923 /* The address has already been relocated; make sure that
924 objfile_relocate doesn't relocate it again. */
926 ms_type
= cs
->c_sclass
== C_EXT
927 || cs
->c_sclass
== C_THUMBEXT
?
928 mst_bss
: mst_file_bss
;
932 sec
= cs_to_section (cs
, objfile
);
933 tmpaddr
= cs
->c_value
;
934 if (cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXTFUNC
935 || cs
->c_sclass
== C_THUMBEXT
)
936 tmpaddr
+= ANOFFSET (objfile
->section_offsets
, sec
);
938 if (sec
== SECT_OFF_TEXT (objfile
))
941 cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXTFUNC
942 || cs
->c_sclass
== C_THUMBEXT
?
943 mst_text
: mst_file_text
;
944 #ifdef SMASH_TEXT_ADDRESS
945 if (tmpaddr
& 1) /* FIXME: delete this line */
946 SMASH_TEXT_ADDRESS (tmpaddr
);
949 else if (sec
== SECT_OFF_DATA (objfile
))
952 cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXT
?
953 mst_data
: mst_file_data
;
955 else if (sec
== SECT_OFF_BSS (objfile
))
958 cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXT
?
959 mst_data
: mst_file_data
;
962 ms_type
= mst_unknown
;
965 if (cs
->c_name
[0] != '@' /* Skip tdesc symbols */ )
967 struct minimal_symbol
*msym
;
969 msym
= prim_record_minimal_symbol_and_info
970 (cs
->c_name
, tmpaddr
, ms_type
, (char *) cs
->c_sclass
, sec
,
972 #ifdef COFF_MAKE_MSYMBOL_SPECIAL
974 COFF_MAKE_MSYMBOL_SPECIAL (cs
->c_sclass
, msym
);
977 if (SDB_TYPE (cs
->c_type
))
980 sym
= process_coff_symbol
981 (cs
, &main_aux
, objfile
);
982 SYMBOL_VALUE (sym
) = tmpaddr
;
983 SYMBOL_SECTION (sym
) = sec
;
989 if (STREQ (cs
->c_name
, ".bf"))
993 /* value contains address of first non-init type code */
994 /* main_aux.x_sym.x_misc.x_lnsz.x_lnno
995 contains line number of '{' } */
997 complain (&bf_no_aux_complaint
, cs
->c_symnum
);
998 fcn_first_line
= main_aux
.x_sym
.x_misc
.x_lnsz
.x_lnno
;
999 fcn_first_line_addr
= cs
->c_value
;
1001 /* Might want to check that locals are 0 and
1002 context_stack_depth is zero, and complain if not. */
1005 new = push_context (depth
, fcn_start_addr
);
1006 fcn_cs_saved
.c_name
= getsymname (&fcn_sym_saved
);
1008 process_coff_symbol (&fcn_cs_saved
, &fcn_aux_saved
, objfile
);
1010 else if (STREQ (cs
->c_name
, ".ef"))
1012 /* the value of .ef is the address of epilogue code;
1013 not useful for gdb. */
1014 /* { main_aux.x_sym.x_misc.x_lnsz.x_lnno
1015 contains number of lines to '}' */
1017 if (context_stack_depth
<= 0)
1018 { /* We attempted to pop an empty context stack */
1019 complain (&ef_stack_complaint
, cs
->c_symnum
);
1020 within_function
= 0;
1024 new = pop_context ();
1025 /* Stack must be empty now. */
1026 if (context_stack_depth
> 0 || new == NULL
)
1028 complain (&ef_complaint
, cs
->c_symnum
);
1029 within_function
= 0;
1032 if (cs
->c_naux
!= 1)
1034 complain (&ef_no_aux_complaint
, cs
->c_symnum
);
1035 fcn_last_line
= 0x7FFFFFFF;
1039 fcn_last_line
= main_aux
.x_sym
.x_misc
.x_lnsz
.x_lnno
;
1041 /* fcn_first_line is the line number of the opening '{'.
1042 Do not record it - because it would affect gdb's idea
1043 of the line number of the first statement of the function -
1044 except for one-line functions, for which it is also the line
1045 number of all the statements and of the closing '}', and
1046 for which we do not have any other statement-line-number. */
1047 if (fcn_last_line
== 1)
1048 record_line (current_subfile
, fcn_first_line
,
1049 fcn_first_line_addr
);
1051 enter_linenos (fcn_line_ptr
, fcn_first_line
, fcn_last_line
,
1054 finish_block (new->name
, &local_symbols
, new->old_blocks
,
1056 #if defined (FUNCTION_EPILOGUE_SIZE)
1057 /* This macro should be defined only on
1059 fcn_aux_saved.x_sym.x_misc.x_fsize
1060 field is always zero.
1061 So use the .bf record information that
1062 points to the epilogue and add the size
1065 + FUNCTION_EPILOGUE_SIZE
1066 + ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
)),
1068 fcn_cs_saved
.c_value
1069 + fcn_aux_saved
.x_sym
.x_misc
.x_fsize
1070 + ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
)),
1074 within_function
= 0;
1079 if (STREQ (cs
->c_name
, ".bb"))
1081 tmpaddr
= cs
->c_value
;
1082 tmpaddr
+= ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
1083 push_context (++depth
, tmpaddr
);
1085 else if (STREQ (cs
->c_name
, ".eb"))
1087 if (context_stack_depth
<= 0)
1088 { /* We attempted to pop an empty context stack */
1089 complain (&eb_stack_complaint
, cs
->c_symnum
);
1093 new = pop_context ();
1094 if (depth
-- != new->depth
)
1096 complain (&eb_complaint
, symnum
);
1099 if (local_symbols
&& context_stack_depth
> 0)
1102 cs
->c_value
+ ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
1103 /* Make a block for the local symbols within. */
1104 finish_block (0, &local_symbols
, new->old_blocks
,
1105 new->start_addr
, tmpaddr
, objfile
);
1107 /* Now pop locals of block just finished. */
1108 local_symbols
= new->locals
;
1113 process_coff_symbol (cs
, &main_aux
, objfile
);
1118 if (last_source_file
)
1119 coff_end_symtab (objfile
);
1121 /* Patch up any opaque types (references to types that are not defined
1122 in the file where they are referenced, e.g. "struct foo *bar"). */
1123 ALL_OBJFILE_SYMTABS (objfile
, s
)
1124 patch_opaque_types (s
);
1126 current_objfile
= NULL
;
1129 /* Routines for reading headers and symbols from executable. */
1131 /* Read the next symbol, swap it, and return it in both internal_syment
1132 form, and coff_symbol form. Also return its first auxent, if any,
1133 in internal_auxent form, and skip any other auxents. */
1136 read_one_sym (register struct coff_symbol
*cs
,
1137 register struct internal_syment
*sym
,
1138 register union internal_auxent
*aux
)
1142 cs
->c_symnum
= symnum
;
1143 bfd_read (temp_sym
, local_symesz
, 1, nlist_bfd_global
);
1144 bfd_coff_swap_sym_in (symfile_bfd
, temp_sym
, (char *) sym
);
1145 cs
->c_naux
= sym
->n_numaux
& 0xff;
1146 if (cs
->c_naux
>= 1)
1148 bfd_read (temp_aux
, local_auxesz
, 1, nlist_bfd_global
);
1149 bfd_coff_swap_aux_in (symfile_bfd
, temp_aux
, sym
->n_type
, sym
->n_sclass
,
1150 0, cs
->c_naux
, (char *) aux
);
1151 /* If more than one aux entry, read past it (only the first aux
1153 for (i
= 1; i
< cs
->c_naux
; i
++)
1154 bfd_read (temp_aux
, local_auxesz
, 1, nlist_bfd_global
);
1156 cs
->c_name
= getsymname (sym
);
1157 cs
->c_value
= sym
->n_value
;
1158 cs
->c_sclass
= (sym
->n_sclass
& 0xff);
1159 cs
->c_secnum
= sym
->n_scnum
;
1160 cs
->c_type
= (unsigned) sym
->n_type
;
1161 if (!SDB_TYPE (cs
->c_type
))
1165 if (cs
->c_sclass
& 128)
1166 printf ("thumb symbol %s, class 0x%x\n", cs
->c_name
, cs
->c_sclass
);
1169 symnum
+= 1 + cs
->c_naux
;
1171 /* The PE file format stores symbol values as offsets within the
1172 section, rather than as absolute addresses. We correct that
1173 here, if the symbol has an appropriate storage class. FIXME: We
1174 should use BFD to read the symbols, rather than duplicating the
1178 switch (cs
->c_sclass
)
1182 case C_THUMBEXTFUNC
:
1187 case C_THUMBSTATFUNC
:
1193 if (cs
->c_secnum
!= 0)
1194 cs
->c_value
+= cs_section_address (cs
, symfile_bfd
);
1200 /* Support for string table handling */
1202 static char *stringtab
= NULL
;
1205 init_stringtab (bfd
*abfd
, long offset
)
1209 unsigned char lengthbuf
[4];
1213 /* If the file is stripped, the offset might be zero, indicating no
1214 string table. Just return with `stringtab' set to null. */
1218 if (bfd_seek (abfd
, offset
, 0) < 0)
1221 val
= bfd_read ((char *) lengthbuf
, sizeof lengthbuf
, 1, abfd
);
1222 length
= bfd_h_get_32 (symfile_bfd
, lengthbuf
);
1224 /* If no string table is needed, then the file may end immediately
1225 after the symbols. Just return with `stringtab' set to null. */
1226 if (val
!= sizeof lengthbuf
|| length
< sizeof lengthbuf
)
1229 stringtab
= (char *) xmalloc (length
);
1230 /* This is in target format (probably not very useful, and not currently
1231 used), not host format. */
1232 memcpy (stringtab
, lengthbuf
, sizeof lengthbuf
);
1233 if (length
== sizeof length
) /* Empty table -- just the count */
1236 val
= bfd_read (stringtab
+ sizeof lengthbuf
, length
- sizeof lengthbuf
, 1, abfd
);
1237 if (val
!= length
- sizeof lengthbuf
|| stringtab
[length
- 1] != '\0')
1244 free_stringtab (void)
1252 free_stringtab_cleanup (void *ignore
)
1258 getsymname (struct internal_syment
*symbol_entry
)
1260 static char buffer
[SYMNMLEN
+ 1];
1263 if (symbol_entry
->_n
._n_n
._n_zeroes
== 0)
1265 /* FIXME: Probably should be detecting corrupt symbol files by
1266 seeing whether offset points to within the stringtab. */
1267 result
= stringtab
+ symbol_entry
->_n
._n_n
._n_offset
;
1271 strncpy (buffer
, symbol_entry
->_n
._n_name
, SYMNMLEN
);
1272 buffer
[SYMNMLEN
] = '\0';
1278 /* Extract the file name from the aux entry of a C_FILE symbol. Return
1279 only the last component of the name. Result is in static storage and
1280 is only good for temporary use. */
1283 coff_getfilename (union internal_auxent
*aux_entry
)
1285 static char buffer
[BUFSIZ
];
1286 register char *temp
;
1289 if (aux_entry
->x_file
.x_n
.x_zeroes
== 0)
1290 strcpy (buffer
, stringtab
+ aux_entry
->x_file
.x_n
.x_offset
);
1293 strncpy (buffer
, aux_entry
->x_file
.x_fname
, FILNMLEN
);
1294 buffer
[FILNMLEN
] = '\0';
1298 /* FIXME: We should not be throwing away the information about what
1299 directory. It should go into dirname of the symtab, or some such
1301 if ((temp
= strrchr (result
, '/')) != NULL
)
1306 /* Support for line number handling. */
1308 static char *linetab
= NULL
;
1309 static long linetab_offset
;
1310 static unsigned long linetab_size
;
1312 /* Read in all the line numbers for fast lookups later. Leave them in
1313 external (unswapped) format in memory; we'll swap them as we enter
1314 them into GDB's data structures. */
1317 init_lineno (bfd
*abfd
, long offset
, int size
)
1321 linetab_offset
= offset
;
1322 linetab_size
= size
;
1329 if (bfd_seek (abfd
, offset
, 0) < 0)
1332 /* Allocate the desired table, plus a sentinel */
1333 linetab
= (char *) xmalloc (size
+ local_linesz
);
1335 val
= bfd_read (linetab
, size
, 1, abfd
);
1339 /* Terminate it with an all-zero sentinel record */
1340 memset (linetab
+ size
, 0, local_linesz
);
1354 free_linetab_cleanup (void *ignore
)
1359 #if !defined (L_LNNO32)
1360 #define L_LNNO32(lp) ((lp)->l_lnno)
1364 enter_linenos (long file_offset
, register int first_line
,
1365 register int last_line
, struct objfile
*objfile
)
1367 register char *rawptr
;
1368 struct internal_lineno lptr
;
1372 if (file_offset
< linetab_offset
)
1374 complain (&lineno_complaint
, file_offset
);
1375 if (file_offset
> linetab_size
) /* Too big to be an offset? */
1377 file_offset
+= linetab_offset
; /* Try reading at that linetab offset */
1380 rawptr
= &linetab
[file_offset
- linetab_offset
];
1382 /* skip first line entry for each function */
1383 rawptr
+= local_linesz
;
1384 /* line numbers start at one for the first line of the function */
1389 bfd_coff_swap_lineno_in (symfile_bfd
, rawptr
, &lptr
);
1390 rawptr
+= local_linesz
;
1391 /* The next function, or the sentinel, will have L_LNNO32 zero; we exit. */
1392 if (L_LNNO32 (&lptr
) && L_LNNO32 (&lptr
) <= last_line
)
1393 record_line (current_subfile
, first_line
+ L_LNNO32 (&lptr
),
1395 + ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
)));
1402 patch_type (struct type
*type
, struct type
*real_type
)
1404 register struct type
*target
= TYPE_TARGET_TYPE (type
);
1405 register struct type
*real_target
= TYPE_TARGET_TYPE (real_type
);
1406 int field_size
= TYPE_NFIELDS (real_target
) * sizeof (struct field
);
1408 TYPE_LENGTH (target
) = TYPE_LENGTH (real_target
);
1409 TYPE_NFIELDS (target
) = TYPE_NFIELDS (real_target
);
1410 TYPE_FIELDS (target
) = (struct field
*) TYPE_ALLOC (target
, field_size
);
1412 memcpy (TYPE_FIELDS (target
), TYPE_FIELDS (real_target
), field_size
);
1414 if (TYPE_NAME (real_target
))
1416 if (TYPE_NAME (target
))
1417 xfree (TYPE_NAME (target
));
1418 TYPE_NAME (target
) = concat (TYPE_NAME (real_target
), NULL
);
1422 /* Patch up all appropriate typedef symbols in the opaque_type_chains
1423 so that they can be used to print out opaque data structures properly. */
1426 patch_opaque_types (struct symtab
*s
)
1428 register struct block
*b
;
1430 register struct symbol
*real_sym
;
1432 /* Go through the per-file symbols only */
1433 b
= BLOCKVECTOR_BLOCK (BLOCKVECTOR (s
), STATIC_BLOCK
);
1434 for (i
= BLOCK_NSYMS (b
) - 1; i
>= 0; i
--)
1436 /* Find completed typedefs to use to fix opaque ones.
1437 Remove syms from the chain when their types are stored,
1438 but search the whole chain, as there may be several syms
1439 from different files with the same name. */
1440 real_sym
= BLOCK_SYM (b
, i
);
1441 if (SYMBOL_CLASS (real_sym
) == LOC_TYPEDEF
&&
1442 SYMBOL_NAMESPACE (real_sym
) == VAR_NAMESPACE
&&
1443 TYPE_CODE (SYMBOL_TYPE (real_sym
)) == TYPE_CODE_PTR
&&
1444 TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (real_sym
))) != 0)
1446 register char *name
= SYMBOL_NAME (real_sym
);
1447 register int hash
= hashname (name
);
1448 register struct symbol
*sym
, *prev
;
1451 for (sym
= opaque_type_chain
[hash
]; sym
;)
1453 if (name
[0] == SYMBOL_NAME (sym
)[0] &&
1454 STREQ (name
+ 1, SYMBOL_NAME (sym
) + 1))
1458 SYMBOL_VALUE_CHAIN (prev
) = SYMBOL_VALUE_CHAIN (sym
);
1462 opaque_type_chain
[hash
] = SYMBOL_VALUE_CHAIN (sym
);
1465 patch_type (SYMBOL_TYPE (sym
), SYMBOL_TYPE (real_sym
));
1469 sym
= SYMBOL_VALUE_CHAIN (prev
);
1473 sym
= opaque_type_chain
[hash
];
1479 sym
= SYMBOL_VALUE_CHAIN (sym
);
1486 static struct symbol
*
1487 process_coff_symbol (register struct coff_symbol
*cs
,
1488 register union internal_auxent
*aux
,
1489 struct objfile
*objfile
)
1491 register struct symbol
*sym
1492 = (struct symbol
*) obstack_alloc (&objfile
->symbol_obstack
,
1493 sizeof (struct symbol
));
1496 memset (sym
, 0, sizeof (struct symbol
));
1498 name
= EXTERNAL_NAME (name
, objfile
->obfd
);
1499 SYMBOL_NAME (sym
) = obsavestring (name
, strlen (name
),
1500 &objfile
->symbol_obstack
);
1501 SYMBOL_LANGUAGE (sym
) = language_auto
;
1502 SYMBOL_INIT_DEMANGLED_NAME (sym
, &objfile
->symbol_obstack
);
1504 /* default assumptions */
1505 SYMBOL_VALUE (sym
) = cs
->c_value
;
1506 SYMBOL_NAMESPACE (sym
) = VAR_NAMESPACE
;
1507 SYMBOL_SECTION (sym
) = cs_to_section (cs
, objfile
);
1509 if (ISFCN (cs
->c_type
))
1511 SYMBOL_VALUE (sym
) += ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
1513 lookup_function_type (decode_function_type (cs
, cs
->c_type
, aux
));
1515 SYMBOL_CLASS (sym
) = LOC_BLOCK
;
1516 if (cs
->c_sclass
== C_STAT
|| cs
->c_sclass
== C_THUMBSTAT
1517 || cs
->c_sclass
== C_THUMBSTATFUNC
)
1518 add_symbol_to_list (sym
, &file_symbols
);
1519 else if (cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXT
1520 || cs
->c_sclass
== C_THUMBEXTFUNC
)
1521 add_symbol_to_list (sym
, &global_symbols
);
1525 SYMBOL_TYPE (sym
) = decode_type (cs
, cs
->c_type
, aux
);
1526 switch (cs
->c_sclass
)
1532 SYMBOL_CLASS (sym
) = LOC_LOCAL
;
1533 add_symbol_to_list (sym
, &local_symbols
);
1537 case C_THUMBEXTFUNC
:
1539 SYMBOL_CLASS (sym
) = LOC_STATIC
;
1540 SYMBOL_VALUE_ADDRESS (sym
) = (CORE_ADDR
) cs
->c_value
;
1541 SYMBOL_VALUE_ADDRESS (sym
) += ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
1542 add_symbol_to_list (sym
, &global_symbols
);
1546 case C_THUMBSTATFUNC
:
1548 SYMBOL_CLASS (sym
) = LOC_STATIC
;
1549 SYMBOL_VALUE_ADDRESS (sym
) = (CORE_ADDR
) cs
->c_value
;
1550 SYMBOL_VALUE_ADDRESS (sym
) += ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
1551 if (within_function
)
1553 /* Static symbol of local scope */
1554 add_symbol_to_list (sym
, &local_symbols
);
1558 /* Static symbol at top level of file */
1559 add_symbol_to_list (sym
, &file_symbols
);
1563 #ifdef C_GLBLREG /* AMD coff */
1567 SYMBOL_CLASS (sym
) = LOC_REGISTER
;
1568 SYMBOL_VALUE (sym
) = SDB_REG_TO_REGNUM (cs
->c_value
);
1569 add_symbol_to_list (sym
, &local_symbols
);
1577 SYMBOL_CLASS (sym
) = LOC_ARG
;
1578 add_symbol_to_list (sym
, &local_symbols
);
1579 #if !defined (BELIEVE_PCC_PROMOTION)
1580 if (TARGET_BYTE_ORDER
== BIG_ENDIAN
)
1582 /* If PCC says a parameter is a short or a char,
1583 aligned on an int boundary, realign it to the
1584 "little end" of the int. */
1585 struct type
*temptype
;
1586 temptype
= lookup_fundamental_type (current_objfile
,
1588 if (TYPE_LENGTH (SYMBOL_TYPE (sym
)) < TYPE_LENGTH (temptype
)
1589 && TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_INT
1590 && 0 == SYMBOL_VALUE (sym
) % TYPE_LENGTH (temptype
))
1592 SYMBOL_VALUE (sym
) +=
1593 TYPE_LENGTH (temptype
)
1594 - TYPE_LENGTH (SYMBOL_TYPE (sym
));
1601 SYMBOL_CLASS (sym
) = LOC_REGPARM
;
1602 SYMBOL_VALUE (sym
) = SDB_REG_TO_REGNUM (cs
->c_value
);
1603 add_symbol_to_list (sym
, &local_symbols
);
1604 #if !defined (BELIEVE_PCC_PROMOTION)
1605 /* FIXME: This should retain the current type, since it's just
1606 a register value. gnu@adobe, 26Feb93 */
1608 /* If PCC says a parameter is a short or a char,
1609 it is really an int. */
1610 struct type
*temptype
;
1612 lookup_fundamental_type (current_objfile
, FT_INTEGER
);
1613 if (TYPE_LENGTH (SYMBOL_TYPE (sym
)) < TYPE_LENGTH (temptype
)
1614 && TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_INT
)
1617 (TYPE_UNSIGNED (SYMBOL_TYPE (sym
))
1618 ? lookup_fundamental_type (current_objfile
,
1619 FT_UNSIGNED_INTEGER
)
1627 SYMBOL_CLASS (sym
) = LOC_TYPEDEF
;
1628 SYMBOL_NAMESPACE (sym
) = VAR_NAMESPACE
;
1630 /* If type has no name, give it one */
1631 if (TYPE_NAME (SYMBOL_TYPE (sym
)) == 0)
1633 if (TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_PTR
1634 || TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_FUNC
)
1636 /* If we are giving a name to a type such as "pointer to
1637 foo" or "function returning foo", we better not set
1638 the TYPE_NAME. If the program contains "typedef char
1639 *caddr_t;", we don't want all variables of type char
1640 * to print as caddr_t. This is not just a
1641 consequence of GDB's type management; CC and GCC (at
1642 least through version 2.4) both output variables of
1643 either type char * or caddr_t with the type
1644 refering to the C_TPDEF symbol for caddr_t. If a future
1645 compiler cleans this up it GDB is not ready for it
1646 yet, but if it becomes ready we somehow need to
1647 disable this check (without breaking the PCC/GCC2.4
1652 Fortunately, this check seems not to be necessary
1653 for anything except pointers or functions. */
1657 TYPE_NAME (SYMBOL_TYPE (sym
)) =
1658 concat (SYMBOL_NAME (sym
), NULL
);
1661 /* Ignore vendor section for Harris CX/UX targets. */
1662 else if (cs
->c_name
[0] == '$')
1664 #endif /* CXUX_TARGET */
1666 /* Keep track of any type which points to empty structured type,
1667 so it can be filled from a definition from another file. A
1668 simple forward reference (TYPE_CODE_UNDEF) is not an
1669 empty structured type, though; the forward references
1670 work themselves out via the magic of coff_lookup_type. */
1671 if (TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_PTR
&&
1672 TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym
))) == 0 &&
1673 TYPE_CODE (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym
))) !=
1676 register int i
= hashname (SYMBOL_NAME (sym
));
1678 SYMBOL_VALUE_CHAIN (sym
) = opaque_type_chain
[i
];
1679 opaque_type_chain
[i
] = sym
;
1681 add_symbol_to_list (sym
, &file_symbols
);
1687 SYMBOL_CLASS (sym
) = LOC_TYPEDEF
;
1688 SYMBOL_NAMESPACE (sym
) = STRUCT_NAMESPACE
;
1690 /* Some compilers try to be helpful by inventing "fake"
1691 names for anonymous enums, structures, and unions, like
1692 "~0fake" or ".0fake". Thanks, but no thanks... */
1693 if (TYPE_TAG_NAME (SYMBOL_TYPE (sym
)) == 0)
1694 if (SYMBOL_NAME (sym
) != NULL
1695 && *SYMBOL_NAME (sym
) != '~'
1696 && *SYMBOL_NAME (sym
) != '.')
1697 TYPE_TAG_NAME (SYMBOL_TYPE (sym
)) =
1698 concat (SYMBOL_NAME (sym
), NULL
);
1700 add_symbol_to_list (sym
, &file_symbols
);
1710 /* Decode a coff type specifier; return the type that is meant. */
1712 static struct type
*
1713 decode_type (register struct coff_symbol
*cs
, unsigned int c_type
,
1714 register union internal_auxent
*aux
)
1716 register struct type
*type
= 0;
1717 unsigned int new_c_type
;
1719 if (c_type
& ~N_BTMASK
)
1721 new_c_type
= DECREF (c_type
);
1724 type
= decode_type (cs
, new_c_type
, aux
);
1725 type
= lookup_pointer_type (type
);
1727 else if (ISFCN (c_type
))
1729 type
= decode_type (cs
, new_c_type
, aux
);
1730 type
= lookup_function_type (type
);
1732 else if (ISARY (c_type
))
1735 register unsigned short *dim
;
1736 struct type
*base_type
, *index_type
, *range_type
;
1738 /* Define an array type. */
1739 /* auxent refers to array, not base type */
1740 if (aux
->x_sym
.x_tagndx
.l
== 0)
1743 /* shift the indices down */
1744 dim
= &aux
->x_sym
.x_fcnary
.x_ary
.x_dimen
[0];
1747 for (i
= 0; *dim
&& i
< DIMNUM
- 1; i
++, dim
++)
1751 base_type
= decode_type (cs
, new_c_type
, aux
);
1752 index_type
= lookup_fundamental_type (current_objfile
, FT_INTEGER
);
1754 create_range_type ((struct type
*) NULL
, index_type
, 0, n
- 1);
1756 create_array_type ((struct type
*) NULL
, base_type
, range_type
);
1761 /* Reference to existing type. This only occurs with the
1762 struct, union, and enum types. EPI a29k coff
1763 fakes us out by producing aux entries with a nonzero
1764 x_tagndx for definitions of structs, unions, and enums, so we
1765 have to check the c_sclass field. SCO 3.2v4 cc gets confused
1766 with pointers to pointers to defined structs, and generates
1767 negative x_tagndx fields. */
1768 if (cs
->c_naux
> 0 && aux
->x_sym
.x_tagndx
.l
!= 0)
1770 if (cs
->c_sclass
!= C_STRTAG
1771 && cs
->c_sclass
!= C_UNTAG
1772 && cs
->c_sclass
!= C_ENTAG
1773 && aux
->x_sym
.x_tagndx
.l
>= 0)
1775 type
= coff_alloc_type (aux
->x_sym
.x_tagndx
.l
);
1780 complain (&tagndx_bad_complaint
, cs
->c_name
);
1781 /* And fall through to decode_base_type... */
1785 return decode_base_type (cs
, BTYPE (c_type
), aux
);
1788 /* Decode a coff type specifier for function definition;
1789 return the type that the function returns. */
1791 static struct type
*
1792 decode_function_type (register struct coff_symbol
*cs
, unsigned int c_type
,
1793 register union internal_auxent
*aux
)
1795 if (aux
->x_sym
.x_tagndx
.l
== 0)
1796 cs
->c_naux
= 0; /* auxent refers to function, not base type */
1798 return decode_type (cs
, DECREF (c_type
), aux
);
1803 static struct type
*
1804 decode_base_type (register struct coff_symbol
*cs
, unsigned int c_type
,
1805 register union internal_auxent
*aux
)
1812 /* shows up with "void (*foo)();" structure members */
1813 return lookup_fundamental_type (current_objfile
, FT_VOID
);
1816 /* DGUX actually defines both T_ARG and T_VOID to the same value. */
1819 /* Shows up in DGUX, I think. Not sure where. */
1820 return lookup_fundamental_type (current_objfile
, FT_VOID
); /* shouldn't show up here */
1826 /* Intel 960 COFF has this symbol and meaning. */
1827 return lookup_fundamental_type (current_objfile
, FT_VOID
);
1831 return lookup_fundamental_type (current_objfile
, FT_CHAR
);
1834 return lookup_fundamental_type (current_objfile
, FT_SHORT
);
1837 return lookup_fundamental_type (current_objfile
, FT_INTEGER
);
1840 if (cs
->c_sclass
== C_FIELD
1841 && aux
->x_sym
.x_misc
.x_lnsz
.x_size
> TARGET_LONG_BIT
)
1842 return lookup_fundamental_type (current_objfile
, FT_LONG_LONG
);
1844 return lookup_fundamental_type (current_objfile
, FT_LONG
);
1847 return lookup_fundamental_type (current_objfile
, FT_FLOAT
);
1850 return lookup_fundamental_type (current_objfile
, FT_DBL_PREC_FLOAT
);
1853 return lookup_fundamental_type (current_objfile
, FT_EXT_PREC_FLOAT
);
1856 if (cs
->c_naux
!= 1)
1858 /* anonymous structure type */
1859 type
= coff_alloc_type (cs
->c_symnum
);
1860 TYPE_CODE (type
) = TYPE_CODE_STRUCT
;
1861 TYPE_NAME (type
) = NULL
;
1862 /* This used to set the tag to "<opaque>". But I think setting it
1863 to NULL is right, and the printing code can print it as
1865 TYPE_TAG_NAME (type
) = NULL
;
1866 INIT_CPLUS_SPECIFIC (type
);
1867 TYPE_LENGTH (type
) = 0;
1868 TYPE_FIELDS (type
) = 0;
1869 TYPE_NFIELDS (type
) = 0;
1873 type
= coff_read_struct_type (cs
->c_symnum
,
1874 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1875 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
);
1880 if (cs
->c_naux
!= 1)
1882 /* anonymous union type */
1883 type
= coff_alloc_type (cs
->c_symnum
);
1884 TYPE_NAME (type
) = NULL
;
1885 /* This used to set the tag to "<opaque>". But I think setting it
1886 to NULL is right, and the printing code can print it as
1888 TYPE_TAG_NAME (type
) = NULL
;
1889 INIT_CPLUS_SPECIFIC (type
);
1890 TYPE_LENGTH (type
) = 0;
1891 TYPE_FIELDS (type
) = 0;
1892 TYPE_NFIELDS (type
) = 0;
1896 type
= coff_read_struct_type (cs
->c_symnum
,
1897 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1898 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
);
1900 TYPE_CODE (type
) = TYPE_CODE_UNION
;
1904 if (cs
->c_naux
!= 1)
1906 /* anonymous enum type */
1907 type
= coff_alloc_type (cs
->c_symnum
);
1908 TYPE_CODE (type
) = TYPE_CODE_ENUM
;
1909 TYPE_NAME (type
) = NULL
;
1910 /* This used to set the tag to "<opaque>". But I think setting it
1911 to NULL is right, and the printing code can print it as
1913 TYPE_TAG_NAME (type
) = NULL
;
1914 TYPE_LENGTH (type
) = 0;
1915 TYPE_FIELDS (type
) = 0;
1916 TYPE_NFIELDS (type
) = 0;
1920 type
= coff_read_enum_type (cs
->c_symnum
,
1921 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1922 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
);
1927 /* shouldn't show up here */
1931 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_CHAR
);
1934 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_SHORT
);
1937 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_INTEGER
);
1940 if (cs
->c_sclass
== C_FIELD
1941 && aux
->x_sym
.x_misc
.x_lnsz
.x_size
> TARGET_LONG_BIT
)
1942 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_LONG_LONG
);
1944 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_LONG
);
1946 complain (&unexpected_type_complaint
, cs
->c_name
);
1947 return lookup_fundamental_type (current_objfile
, FT_VOID
);
1950 /* This page contains subroutines of read_type. */
1952 /* Read the description of a structure (or union type) and return an
1953 object describing the type. */
1955 static struct type
*
1956 coff_read_struct_type (int index
, int length
, int lastsym
)
1960 struct nextfield
*next
;
1964 register struct type
*type
;
1965 register struct nextfield
*list
= 0;
1966 struct nextfield
*new;
1970 struct coff_symbol member_sym
;
1971 register struct coff_symbol
*ms
= &member_sym
;
1972 struct internal_syment sub_sym
;
1973 union internal_auxent sub_aux
;
1976 type
= coff_alloc_type (index
);
1977 TYPE_CODE (type
) = TYPE_CODE_STRUCT
;
1978 INIT_CPLUS_SPECIFIC (type
);
1979 TYPE_LENGTH (type
) = length
;
1981 while (!done
&& symnum
< lastsym
&& symnum
< nlist_nsyms_global
)
1983 read_one_sym (ms
, &sub_sym
, &sub_aux
);
1985 name
= EXTERNAL_NAME (name
, current_objfile
->obfd
);
1987 switch (ms
->c_sclass
)
1992 /* Get space to record the next field's data. */
1993 new = (struct nextfield
*) alloca (sizeof (struct nextfield
));
1997 /* Save the data. */
2001 ¤t_objfile
->symbol_obstack
);
2002 FIELD_TYPE (list
->field
) = decode_type (ms
, ms
->c_type
, &sub_aux
);
2003 FIELD_BITPOS (list
->field
) = 8 * ms
->c_value
;
2004 FIELD_BITSIZE (list
->field
) = 0;
2010 /* Get space to record the next field's data. */
2011 new = (struct nextfield
*) alloca (sizeof (struct nextfield
));
2015 /* Save the data. */
2019 ¤t_objfile
->symbol_obstack
);
2020 FIELD_TYPE (list
->field
) = decode_type (ms
, ms
->c_type
, &sub_aux
);
2021 FIELD_BITPOS (list
->field
) = ms
->c_value
;
2022 FIELD_BITSIZE (list
->field
) = sub_aux
.x_sym
.x_misc
.x_lnsz
.x_size
;
2031 /* Now create the vector of fields, and record how big it is. */
2033 TYPE_NFIELDS (type
) = nfields
;
2034 TYPE_FIELDS (type
) = (struct field
*)
2035 TYPE_ALLOC (type
, sizeof (struct field
) * nfields
);
2037 /* Copy the saved-up fields into the field vector. */
2039 for (n
= nfields
; list
; list
= list
->next
)
2040 TYPE_FIELD (type
, --n
) = list
->field
;
2045 /* Read a definition of an enumeration type,
2046 and create and return a suitable type object.
2047 Also defines the symbols that represent the values of the type. */
2050 static struct type
*
2051 coff_read_enum_type (int index
, int length
, int lastsym
)
2053 register struct symbol
*sym
;
2054 register struct type
*type
;
2057 struct pending
**symlist
;
2058 struct coff_symbol member_sym
;
2059 register struct coff_symbol
*ms
= &member_sym
;
2060 struct internal_syment sub_sym
;
2061 union internal_auxent sub_aux
;
2062 struct pending
*osyms
, *syms
;
2066 int unsigned_enum
= 1;
2068 type
= coff_alloc_type (index
);
2069 if (within_function
)
2070 symlist
= &local_symbols
;
2072 symlist
= &file_symbols
;
2074 o_nsyms
= osyms
? osyms
->nsyms
: 0;
2076 while (!done
&& symnum
< lastsym
&& symnum
< nlist_nsyms_global
)
2078 read_one_sym (ms
, &sub_sym
, &sub_aux
);
2080 name
= EXTERNAL_NAME (name
, current_objfile
->obfd
);
2082 switch (ms
->c_sclass
)
2085 sym
= (struct symbol
*) obstack_alloc
2086 (¤t_objfile
->symbol_obstack
,
2087 sizeof (struct symbol
));
2088 memset (sym
, 0, sizeof (struct symbol
));
2091 obsavestring (name
, strlen (name
),
2092 ¤t_objfile
->symbol_obstack
);
2093 SYMBOL_CLASS (sym
) = LOC_CONST
;
2094 SYMBOL_NAMESPACE (sym
) = VAR_NAMESPACE
;
2095 SYMBOL_VALUE (sym
) = ms
->c_value
;
2096 add_symbol_to_list (sym
, symlist
);
2101 /* Sometimes the linker (on 386/ix 2.0.2 at least) screws
2102 up the count of how many symbols to read. So stop
2109 /* Now fill in the fields of the type-structure. */
2112 TYPE_LENGTH (type
) = length
;
2114 TYPE_LENGTH (type
) = TARGET_INT_BIT
/ TARGET_CHAR_BIT
; /* Assume ints */
2115 TYPE_CODE (type
) = TYPE_CODE_ENUM
;
2116 TYPE_NFIELDS (type
) = nsyms
;
2117 TYPE_FIELDS (type
) = (struct field
*)
2118 TYPE_ALLOC (type
, sizeof (struct field
) * nsyms
);
2120 /* Find the symbols for the values and put them into the type.
2121 The symbols can be found in the symlist that we put them on
2122 to cause them to be defined. osyms contains the old value
2123 of that symlist; everything up to there was defined by us. */
2124 /* Note that we preserve the order of the enum constants, so
2125 that in something like "enum {FOO, LAST_THING=FOO}" we print
2126 FOO, not LAST_THING. */
2128 for (syms
= *symlist
, n
= 0; syms
; syms
= syms
->next
)
2134 for (; j
< syms
->nsyms
; j
++, n
++)
2136 struct symbol
*xsym
= syms
->symbol
[j
];
2137 SYMBOL_TYPE (xsym
) = type
;
2138 TYPE_FIELD_NAME (type
, n
) = SYMBOL_NAME (xsym
);
2139 TYPE_FIELD_BITPOS (type
, n
) = SYMBOL_VALUE (xsym
);
2140 if (SYMBOL_VALUE (xsym
) < 0)
2142 TYPE_FIELD_BITSIZE (type
, n
) = 0;
2149 TYPE_FLAGS (type
) |= TYPE_FLAG_UNSIGNED
;
2154 /* Register our ability to parse symbols for coff BFD files. */
2156 static struct sym_fns coff_sym_fns
=
2158 bfd_target_coff_flavour
,
2159 coff_new_init
, /* sym_new_init: init anything gbl to entire symtab */
2160 coff_symfile_init
, /* sym_init: read initial info, setup for sym_read() */
2161 coff_symfile_read
, /* sym_read: read a symbol file into symtab */
2162 coff_symfile_finish
, /* sym_finish: finished with file, cleanup */
2163 default_symfile_offsets
, /* sym_offsets: xlate external to internal form */
2164 NULL
/* next: pointer to next struct sym_fns */
2168 _initialize_coffread (void)
2170 add_symtab_fns (&coff_sym_fns
);