1 /* Read coff symbol tables and convert to internal format, for GDB.
2 Copyright 1987, 88, 89, 90, 91, 92, 93, 94, 96, 97, 1998
3 Free Software Foundation, Inc.
4 Contributed by David D. Johnson, Brown University (ddj@cs.brown.edu).
6 This file is part of GDB.
8 This program is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 2 of the License, or
11 (at your option) any later version.
13 This program is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with this program; if not, write to the Free Software
20 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
26 #include "breakpoint.h"
31 #include "gdb_string.h"
34 #include "coff/internal.h" /* Internal format of COFF symbols in BFD */
35 #include "libcoff.h" /* FIXME secret internal data from BFD */
40 #include "gdb-stabs.h"
41 #include "stabsread.h"
42 #include "complaints.h"
45 struct coff_symfile_info
{
46 file_ptr min_lineno_offset
; /* Where in file lowest line#s are */
47 file_ptr max_lineno_offset
; /* 1+last byte of line#s in file */
49 CORE_ADDR textaddr
; /* Addr of .text section. */
50 unsigned int textsize
; /* Size of .text section. */
51 struct stab_section_list
*stabsects
; /* .stab sections. */
52 asection
*stabstrsect
; /* Section pointer for .stab section */
56 /* Translate an external name string into a user-visible name. */
57 #define EXTERNAL_NAME(string, abfd) \
58 (string[0] == bfd_get_symbol_leading_char(abfd)? string+1: string)
60 /* To be an sdb debug type, type must have at least a basic or primary
61 derived type. Using this rather than checking against T_NULL is
62 said to prevent core dumps if we try to operate on Michael Bloom
65 #define SDB_TYPE(type) (BTYPE(type) | (type & N_TMASK))
67 /* Convert from an sdb register number to an internal gdb register number.
68 This should be defined in tm.h, if REGISTER_NAMES is not set up
69 to map one to one onto the sdb register numbers. */
71 #ifndef SDB_REG_TO_REGNUM
72 # define SDB_REG_TO_REGNUM(value) (value)
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 /* Complaints about various problems in the file being read */
129 struct complaint ef_complaint
=
130 {"Unmatched .ef symbol(s) ignored starting at symnum %d", 0, 0};
132 struct complaint ef_stack_complaint
=
133 {"`.ef' symbol without matching `.bf' symbol ignored starting at symnum %d", 0, 0};
135 struct complaint eb_stack_complaint
=
136 {"`.eb' symbol without matching `.bb' symbol ignored starting at symnum %d", 0, 0};
138 struct complaint bf_no_aux_complaint
=
139 {"`.bf' symbol %d has no aux entry", 0, 0};
141 struct complaint ef_no_aux_complaint
=
142 {"`.ef' symbol %d has no aux entry", 0, 0};
144 struct complaint lineno_complaint
=
145 {"Line number pointer %d lower than start of line numbers", 0, 0};
147 struct complaint unexpected_type_complaint
=
148 {"Unexpected type for symbol %s", 0, 0};
150 struct complaint bad_sclass_complaint
=
151 {"Bad n_sclass for symbol %s", 0, 0};
153 struct complaint misordered_blocks_complaint
=
154 {"Blocks out of order at address %x", 0, 0};
156 struct complaint tagndx_bad_complaint
=
157 {"Symbol table entry for %s has bad tagndx value", 0, 0};
159 struct complaint eb_complaint
=
160 {"Mismatched .eb symbol ignored starting at symnum %d", 0, 0};
162 /* Simplified internal version of coff symbol table information */
166 int c_symnum
; /* symbol number of this entry */
167 int c_naux
; /* 0 if syment only, 1 if syment + auxent, etc */
174 static struct type
*coff_read_struct_type
PARAMS ((int, int, int));
176 static struct type
*decode_base_type
PARAMS ((struct coff_symbol
*,
178 union internal_auxent
*));
180 static struct type
*decode_type
PARAMS ((struct coff_symbol
*, unsigned int,
181 union internal_auxent
*));
183 static struct type
*decode_function_type
PARAMS ((struct coff_symbol
*,
185 union internal_auxent
*));
187 static struct type
*coff_read_enum_type
PARAMS ((int, int, int));
189 static struct symbol
*process_coff_symbol
PARAMS ((struct coff_symbol
*,
190 union internal_auxent
*,
191 struct section_offsets
*,
194 static void patch_opaque_types
PARAMS ((struct symtab
*));
196 static void patch_type
PARAMS ((struct type
*, struct type
*));
198 static void enter_linenos
PARAMS ((long, int, int, struct section_offsets
*));
200 static void free_linetab
PARAMS ((void));
202 static int init_lineno
PARAMS ((bfd
*, long, int));
204 static char *getsymname
PARAMS ((struct internal_syment
*));
206 static char *coff_getfilename
PARAMS ((union internal_auxent
*));
208 static void free_stringtab
PARAMS ((void));
210 static int init_stringtab
PARAMS ((bfd
*, long));
212 static void read_one_sym
PARAMS ((struct coff_symbol
*,
213 struct internal_syment
*,
214 union internal_auxent
*));
216 static void coff_symtab_read
PARAMS ((long, int, struct section_offsets
*,
219 static void find_linenos
PARAMS ((bfd
*, sec_ptr
, PTR
));
221 static void coff_symfile_init
PARAMS ((struct objfile
*));
223 static void coff_new_init
PARAMS ((struct objfile
*));
225 static void coff_symfile_read
PARAMS ((struct objfile
*,
226 struct section_offsets
*, int));
228 static void coff_symfile_finish
PARAMS ((struct objfile
*));
230 static void record_minimal_symbol
PARAMS ((char *, CORE_ADDR
,
231 enum minimal_symbol_type
,
234 static void coff_end_symtab
PARAMS ((struct objfile
*));
236 static void complete_symtab
PARAMS ((char *, CORE_ADDR
, unsigned int));
238 static void coff_start_symtab
PARAMS ((char *));
240 static struct type
*coff_alloc_type
PARAMS ((int));
242 static struct type
**coff_lookup_type
PARAMS ((int));
244 static void coff_locate_sections
PARAMS ((bfd
*, asection
*, PTR
));
246 /* We are called once per section from coff_symfile_read. We
247 need to examine each section we are passed, check to see
248 if it is something we are interested in processing, and
249 if so, stash away some access information for the section.
251 FIXME: The section names should not be hardwired strings (what
252 should they be? I don't think most object file formats have enough
253 section flags to specify what kind of debug section it is
257 coff_locate_sections (abfd
, sectp
, csip
)
262 register struct coff_symfile_info
*csi
;
265 csi
= (struct coff_symfile_info
*) csip
;
266 name
= bfd_get_section_name (abfd
, sectp
);
267 if (STREQ (name
, ".text"))
269 csi
->textaddr
= bfd_section_vma (abfd
, sectp
);
270 csi
->textsize
+= bfd_section_size (abfd
, sectp
);
272 else if (strncmp (name
, ".text", sizeof ".text" - 1) == 0)
274 csi
->textsize
+= bfd_section_size (abfd
, sectp
);
276 else if (STREQ (name
, ".stabstr"))
278 csi
->stabstrsect
= sectp
;
280 else if (strncmp (name
, ".stab", sizeof ".stab" - 1) == 0)
284 /* We can have multiple .stab sections if linked with
286 for (s
= name
+ sizeof ".stab" - 1; *s
!= '\0'; s
++)
291 struct stab_section_list
*n
, **pn
;
293 n
= ((struct stab_section_list
*)
294 xmalloc (sizeof (struct stab_section_list
)));
297 for (pn
= &csi
->stabsects
; *pn
!= NULL
; pn
= &(*pn
)->next
)
301 /* This will be run after coffstab_build_psymtabs is called
302 in coff_symfile_read, at which point we no longer need
304 make_cleanup (free
, n
);
309 /* Return the section_offsets* that CS points to. */
310 static int cs_to_section
PARAMS ((struct coff_symbol
*, struct objfile
*));
312 struct find_targ_sec_arg
{
317 static void find_targ_sec
PARAMS ((bfd
*, asection
*, void *));
319 static void find_targ_sec (abfd
, sect
, obj
)
324 struct find_targ_sec_arg
*args
= (struct find_targ_sec_arg
*)obj
;
325 if (sect
->target_index
== args
->targ_index
)
326 *args
->resultp
= sect
;
329 /* Return the section number (SECT_OFF_*) that CS points to. */
331 cs_to_section (cs
, objfile
)
332 struct coff_symbol
*cs
;
333 struct objfile
*objfile
;
335 asection
*sect
= NULL
;
336 struct find_targ_sec_arg args
;
337 int off
= SECT_OFF_TEXT
;
339 args
.targ_index
= cs
->c_secnum
;
340 args
.resultp
= §
;
341 bfd_map_over_sections (objfile
->obfd
, find_targ_sec
, &args
);
344 /* This is the section. Figure out what SECT_OFF_* code it is. */
345 if (bfd_get_section_flags (abfd
, sect
) & SEC_CODE
)
347 else if (bfd_get_section_flags (abfd
, sect
) & SEC_LOAD
)
355 /* Return the address of the section of a COFF symbol. */
357 static CORE_ADDR cs_section_address
PARAMS ((struct coff_symbol
*, bfd
*));
360 cs_section_address (cs
, abfd
)
361 struct coff_symbol
*cs
;
364 asection
*sect
= NULL
;
365 struct find_targ_sec_arg args
;
368 args
.targ_index
= cs
->c_secnum
;
369 args
.resultp
= §
;
370 bfd_map_over_sections (abfd
, find_targ_sec
, &args
);
372 addr
= bfd_get_section_vma (objfile
->obfd
, sect
);
376 /* Look up a coff type-number index. Return the address of the slot
377 where the type for that index is stored.
378 The type-number is in INDEX.
380 This can be used for finding the type associated with that index
381 or for associating a new type with the index. */
383 static struct type
**
384 coff_lookup_type (index
)
387 if (index
>= type_vector_length
)
389 int old_vector_length
= type_vector_length
;
391 type_vector_length
*= 2;
392 if (index
/* is still */ >= type_vector_length
)
393 type_vector_length
= index
* 2;
395 type_vector
= (struct type
**)
396 xrealloc ((char *) type_vector
,
397 type_vector_length
* sizeof (struct type
*));
398 memset (&type_vector
[old_vector_length
], 0,
399 (type_vector_length
- old_vector_length
) * sizeof(struct type
*));
401 return &type_vector
[index
];
404 /* Make sure there is a type allocated for type number index
405 and return the type object.
406 This can create an empty (zeroed) type object. */
409 coff_alloc_type (index
)
412 register struct type
**type_addr
= coff_lookup_type (index
);
413 register struct type
*type
= *type_addr
;
415 /* If we are referring to a type not known at all yet,
416 allocate an empty type for it.
417 We will fill it in later if we find out how. */
420 type
= alloc_type (current_objfile
);
426 /* Start a new symtab for a new source file.
427 This is called when a COFF ".file" symbol is seen;
428 it indicates the start of data for one original source file. */
431 coff_start_symtab (name
)
435 /* We fill in the filename later. start_symtab puts
436 this pointer into last_source_file and we put it in
437 subfiles->name, which end_symtab frees; that's why
438 it must be malloc'd. */
439 savestring (name
, strlen(name
)),
440 /* We never know the directory name for COFF. */
442 /* The start address is irrelevant, since we set
443 last_source_start_addr in coff_end_symtab. */
445 record_debugformat ("COFF");
448 /* Save the vital information from when starting to read a file,
449 for use when closing off the current file.
450 NAME is the file name the symbols came from, START_ADDR is the first
451 text address for the file, and SIZE is the number of bytes of text. */
454 complete_symtab (name
, start_addr
, size
)
456 CORE_ADDR start_addr
;
459 if (last_source_file
!= NULL
)
460 free (last_source_file
);
461 last_source_file
= savestring (name
, strlen (name
));
462 current_source_start_addr
= start_addr
;
463 current_source_end_addr
= start_addr
+ size
;
465 if (current_objfile
-> ei
.entry_point
>= current_source_start_addr
&&
466 current_objfile
-> ei
.entry_point
< current_source_end_addr
)
468 current_objfile
-> ei
.entry_file_lowpc
= current_source_start_addr
;
469 current_objfile
-> ei
.entry_file_highpc
= current_source_end_addr
;
473 /* Finish the symbol definitions for one main source file,
474 close off all the lexical contexts for that file
475 (creating struct block's for them), then make the
476 struct symtab for that file and put it in the list of all such. */
479 coff_end_symtab (objfile
)
480 struct objfile
*objfile
;
482 struct symtab
*symtab
;
484 last_source_start_addr
= current_source_start_addr
;
486 symtab
= end_symtab (current_source_end_addr
, objfile
, 0);
489 free_named_symtabs (symtab
->filename
);
491 /* Reinitialize for beginning of new file. */
492 last_source_file
= NULL
;
496 record_minimal_symbol (name
, address
, type
, objfile
)
499 enum minimal_symbol_type type
;
500 struct objfile
*objfile
;
502 /* We don't want TDESC entry points in the minimal symbol table */
503 if (name
[0] == '@') return;
505 prim_record_minimal_symbol (name
, address
, type
, objfile
);
508 /* coff_symfile_init ()
509 is the coff-specific initialization routine for reading symbols.
510 It is passed a struct objfile which contains, among other things,
511 the BFD for the file whose symbols are being read, and a slot for
512 a pointer to "private data" which we fill with cookies and other
513 treats for coff_symfile_read ().
515 We will only be called if this is a COFF or COFF-like file.
516 BFD handles figuring out the format of the file, and code in symtab.c
517 uses BFD's determination to vector to us.
519 The ultimate result is a new symtab (or, FIXME, eventually a psymtab). */
522 coff_symfile_init (objfile
)
523 struct objfile
*objfile
;
525 /* Allocate struct to keep track of stab reading. */
526 objfile
->sym_stab_info
= (struct dbx_symfile_info
*)
527 xmmalloc (objfile
->md
, sizeof (struct dbx_symfile_info
));
529 memset ((PTR
) objfile
->sym_stab_info
, 0, sizeof (struct dbx_symfile_info
));
531 /* Allocate struct to keep track of the symfile */
532 objfile
->sym_private
= xmmalloc (objfile
->md
,
533 sizeof (struct coff_symfile_info
));
535 memset (objfile
->sym_private
, 0, sizeof (struct coff_symfile_info
));
537 /* COFF objects may be reordered, so set OBJF_REORDERED. If we
538 find this causes a significant slowdown in gdb then we could
539 set it in the debug symbol readers only when necessary. */
540 objfile
->flags
|= OBJF_REORDERED
;
542 init_entry_point_info (objfile
);
545 /* This function is called for every section; it finds the outer limits
546 of the line table (minimum and maximum file offset) so that the
547 mainline code can read the whole thing for efficiency. */
551 find_linenos (abfd
, asect
, vpinfo
)
556 struct coff_symfile_info
*info
;
558 file_ptr offset
, maxoff
;
560 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
561 count
= asect
->lineno_count
;
566 size
= count
* local_linesz
;
568 info
= (struct coff_symfile_info
*)vpinfo
;
569 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
570 offset
= asect
->line_filepos
;
573 if (offset
< info
->min_lineno_offset
|| info
->min_lineno_offset
== 0)
574 info
->min_lineno_offset
= offset
;
576 maxoff
= offset
+ size
;
577 if (maxoff
> info
->max_lineno_offset
)
578 info
->max_lineno_offset
= maxoff
;
582 /* The BFD for this file -- only good while we're actively reading
583 symbols into a psymtab or a symtab. */
585 static bfd
*symfile_bfd
;
587 /* Read a symbol file, after initialization by coff_symfile_init. */
591 coff_symfile_read (objfile
, section_offsets
, mainline
)
592 struct objfile
*objfile
;
593 struct section_offsets
*section_offsets
;
596 struct coff_symfile_info
*info
;
597 struct dbx_symfile_info
*dbxinfo
;
598 bfd
*abfd
= objfile
->obfd
;
599 coff_data_type
*cdata
= coff_data (abfd
);
600 char *name
= bfd_get_filename (abfd
);
604 int stringtab_offset
;
605 struct cleanup
*back_to
;
608 info
= (struct coff_symfile_info
*) objfile
-> sym_private
;
609 dbxinfo
= objfile
->sym_stab_info
;
610 symfile_bfd
= abfd
; /* Kludge for swap routines */
612 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
613 num_symbols
= bfd_get_symcount (abfd
); /* How many syms */
614 symtab_offset
= cdata
->sym_filepos
; /* Symbol table file offset */
615 stringtab_offset
= symtab_offset
+ /* String table file offset */
616 num_symbols
* cdata
->local_symesz
;
618 /* Set a few file-statics that give us specific information about
619 the particular COFF file format we're reading. */
620 local_n_btmask
= cdata
->local_n_btmask
;
621 local_n_btshft
= cdata
->local_n_btshft
;
622 local_n_tmask
= cdata
->local_n_tmask
;
623 local_n_tshift
= cdata
->local_n_tshift
;
624 local_linesz
= cdata
->local_linesz
;
625 local_symesz
= cdata
->local_symesz
;
626 local_auxesz
= cdata
->local_auxesz
;
628 /* Allocate space for raw symbol and aux entries, based on their
629 space requirements as reported by BFD. */
630 temp_sym
= (char *) xmalloc
631 (cdata
->local_symesz
+ cdata
->local_auxesz
);
632 temp_aux
= temp_sym
+ cdata
->local_symesz
;
633 back_to
= make_cleanup ((make_cleanup_func
) free_current_contents
, &temp_sym
);
635 /* We need to know whether this is a PE file, because in PE files,
636 unlike standard COFF files, symbol values are stored as offsets
637 from the section address, rather than as absolute addresses.
638 FIXME: We should use BFD to read the symbol table, and thus avoid
640 pe_file
= strncmp (bfd_get_target (objfile
->obfd
), "pe", 2) == 0;
644 /* Read the line number table, all at once. */
645 info
->min_lineno_offset
= 0;
646 info
->max_lineno_offset
= 0;
647 bfd_map_over_sections (abfd
, find_linenos
, (PTR
) info
);
649 make_cleanup ((make_cleanup_func
) free_linetab
, 0);
650 val
= init_lineno (abfd
, info
->min_lineno_offset
,
651 info
->max_lineno_offset
- info
->min_lineno_offset
);
653 error ("\"%s\": error reading line numbers\n", name
);
655 /* Now read the string table, all at once. */
657 make_cleanup ((make_cleanup_func
) free_stringtab
, 0);
658 val
= init_stringtab (abfd
, stringtab_offset
);
660 error ("\"%s\": can't get string table", name
);
662 init_minimal_symbol_collection ();
663 make_cleanup ((make_cleanup_func
) discard_minimal_symbols
, 0);
665 /* Now that the executable file is positioned at symbol table,
666 process it and define symbols accordingly. */
668 coff_symtab_read ((long) symtab_offset
, num_symbols
, section_offsets
,
671 /* Sort symbols alphabetically within each block. */
676 for (s
= objfile
-> symtabs
; s
!= NULL
; s
= s
-> next
)
677 sort_symtab_syms (s
);
680 /* Install any minimal symbols that have been collected as the current
681 minimal symbols for this objfile. */
683 install_minimal_symbols (objfile
);
685 bfd_map_over_sections (abfd
, coff_locate_sections
, (PTR
) info
);
689 if (! info
->stabstrsect
)
694 ("The debugging information in `%s' is corrupted.\n"
695 "The file has a `.stabs' section, but no `.stabstr' section.\n"),
697 return_to_top_level (RETURN_ERROR
);
700 /* FIXME: dubious. Why can't we use something normal like
701 bfd_get_section_contents? */
702 bfd_seek (abfd
, abfd
->where
, 0);
704 stabstrsize
= bfd_section_size (abfd
, info
->stabstrsect
);
706 coffstab_build_psymtabs (objfile
,
709 info
->textaddr
, info
->textsize
,
711 info
->stabstrsect
->filepos
, stabstrsize
);
714 do_cleanups (back_to
);
718 coff_new_init (ignore
)
719 struct objfile
*ignore
;
723 /* Perform any local cleanups required when we are done with a particular
724 objfile. I.E, we are in the process of discarding all symbol information
725 for an objfile, freeing up all memory held for it, and unlinking the
726 objfile struct from the global list of known objfiles. */
729 coff_symfile_finish (objfile
)
730 struct objfile
*objfile
;
732 if (objfile
-> sym_private
!= NULL
)
734 mfree (objfile
-> md
, objfile
-> sym_private
);
739 /* Given pointers to a symbol table in coff style exec file,
740 analyze them and create struct symtab's describing the symbols.
741 NSYMS is the number of symbols in the symbol table.
742 We read them one at a time using read_one_sym (). */
745 coff_symtab_read (symtab_offset
, nsyms
, section_offsets
, objfile
)
748 struct section_offsets
*section_offsets
;
749 struct objfile
*objfile
;
751 register struct context_stack
*new;
752 struct coff_symbol coff_symbol
;
753 register struct coff_symbol
*cs
= &coff_symbol
;
754 static struct internal_syment main_sym
;
755 static union internal_auxent main_aux
;
756 struct coff_symbol fcn_cs_saved
;
757 static struct internal_syment fcn_sym_saved
;
758 static union internal_auxent fcn_aux_saved
;
760 /* A .file is open. */
761 int in_source_file
= 0;
762 int next_file_symnum
= -1;
763 /* Name of the current file. */
764 char *filestring
= "";
766 int fcn_first_line
= 0;
767 CORE_ADDR fcn_first_line_addr
;
768 int fcn_last_line
= 0;
769 int fcn_start_addr
= 0;
770 long fcn_line_ptr
= 0;
774 /* Work around a stdio bug in SunOS4.1.1 (this makes me nervous....
775 it's hard to know I've really worked around it. The fix should be
776 harmless, anyway). The symptom of the bug is that the first
777 fread (in read_one_sym), will (in my example) actually get data
778 from file offset 268, when the fseek was to 264 (and ftell shows
779 264). This causes all hell to break loose. I was unable to
780 reproduce this on a short test program which operated on the same
781 file, performing (I think) the same sequence of operations.
783 It stopped happening when I put in this (former) rewind().
785 FIXME: Find out if this has been reported to Sun, whether it has
786 been fixed in a later release, etc. */
788 bfd_seek (objfile
->obfd
, 0, 0);
790 /* Position to read the symbol table. */
791 val
= bfd_seek (objfile
->obfd
, (long) symtab_offset
, 0);
793 perror_with_name (objfile
->name
);
795 current_objfile
= objfile
;
796 nlist_bfd_global
= objfile
->obfd
;
797 nlist_nsyms_global
= nsyms
;
798 last_source_file
= NULL
;
799 memset (opaque_type_chain
, 0, sizeof opaque_type_chain
);
801 if (type_vector
) /* Get rid of previous one */
802 free ((PTR
) type_vector
);
803 type_vector_length
= 160;
804 type_vector
= (struct type
**)
805 xmalloc (type_vector_length
* sizeof (struct type
*));
806 memset (type_vector
, 0, type_vector_length
* sizeof (struct type
*));
808 coff_start_symtab ("");
811 while (symnum
< nsyms
)
813 QUIT
; /* Make this command interruptable. */
815 read_one_sym (cs
, &main_sym
, &main_aux
);
817 if (cs
->c_symnum
== next_file_symnum
&& cs
->c_sclass
!= C_FILE
)
819 if (last_source_file
)
820 coff_end_symtab (objfile
);
822 coff_start_symtab ("_globals_");
823 complete_symtab ("_globals_", 0, 0);
824 /* done with all files, everything from here on out is globals */
827 /* Special case for file with type declarations only, no text. */
828 if (!last_source_file
&& SDB_TYPE (cs
->c_type
)
829 && cs
->c_secnum
== N_DEBUG
)
830 complete_symtab (filestring
, 0, 0);
832 /* Typedefs should not be treated as symbol definitions. */
833 if (ISFCN (cs
->c_type
) && cs
->c_sclass
!= C_TPDEF
)
835 /* Record all functions -- external and static -- in minsyms. */
836 tmpaddr
= cs
->c_value
+ ANOFFSET (section_offsets
, SECT_OFF_TEXT
);
837 record_minimal_symbol (cs
->c_name
, tmpaddr
, mst_text
, objfile
);
839 fcn_line_ptr
= main_aux
.x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
;
840 fcn_start_addr
= tmpaddr
;
842 fcn_sym_saved
= main_sym
;
843 fcn_aux_saved
= main_aux
;
847 switch (cs
->c_sclass
)
856 complain (&bad_sclass_complaint
, cs
->c_name
);
860 /* c_value field contains symnum of next .file entry in table
861 or symnum of first global after last .file. */
862 next_file_symnum
= cs
->c_value
;
864 filestring
= coff_getfilename (&main_aux
);
868 /* Complete symbol table for last object file
869 containing debugging information. */
870 if (last_source_file
)
872 coff_end_symtab (objfile
);
873 coff_start_symtab (filestring
);
878 /* C_LABEL is used for labels and static functions. Including
879 it here allows gdb to see static functions when no debug
880 info is available. */
882 /* However, labels within a function can make weird backtraces,
883 so filter them out (from phdm@macqel.be). */
889 case C_THUMBSTATFUNC
:
890 if (cs
->c_name
[0] == '.')
892 if (STREQ (cs
->c_name
, ".text")) {
893 /* FIXME: don't wire in ".text" as section name
895 /* Check for in_source_file deals with case of
896 a file with debugging symbols
897 followed by a later file with no symbols. */
899 complete_symtab (filestring
,
900 cs
->c_value
+ ANOFFSET (section_offsets
, SECT_OFF_TEXT
),
901 main_aux
.x_scn
.x_scnlen
);
904 /* flush rest of '.' symbols */
907 else if (!SDB_TYPE (cs
->c_type
)
908 && cs
->c_name
[0] == 'L'
909 && (strncmp (cs
->c_name
, "LI%", 3) == 0
910 || strncmp (cs
->c_name
, "LF%", 3) == 0
911 || strncmp (cs
->c_name
,"LC%",3) == 0
912 || strncmp (cs
->c_name
,"LP%",3) == 0
913 || strncmp (cs
->c_name
,"LPB%",4) == 0
914 || strncmp (cs
->c_name
,"LBB%",4) == 0
915 || strncmp (cs
->c_name
,"LBE%",4) == 0
916 || strncmp (cs
->c_name
,"LPBX%",5) == 0))
917 /* At least on a 3b1, gcc generates swbeg and string labels
918 that look like this. Ignore them. */
920 /* fall in for static symbols that don't start with '.' */
925 /* Record it in the minimal symbols regardless of
926 SDB_TYPE. This parallels what we do for other debug
927 formats, and probably is needed to make
928 print_address_symbolic work right without the (now
929 gone) "set fast-symbolic-addr off" kludge. */
931 /* FIXME: should use mst_abs, and not relocate, if absolute. */
932 enum minimal_symbol_type ms_type
;
935 if (cs
->c_secnum
== N_UNDEF
)
937 /* This is a common symbol. See if the target
938 environment knows where it has been relocated to. */
940 if (target_lookup_symbol (cs
->c_name
, &reladdr
))
942 /* Error in lookup; ignore symbol. */
946 /* The address has already been relocated; make sure that
947 objfile_relocate doesn't relocate it again. */
949 ms_type
= cs
->c_sclass
== C_EXT
950 || cs
->c_sclass
== C_THUMBEXT
?
951 mst_bss
: mst_file_bss
;
955 sec
= cs_to_section (cs
, objfile
);
956 tmpaddr
= cs
->c_value
;
957 if (cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXTFUNC
958 || cs
->c_sclass
== C_THUMBEXT
)
959 tmpaddr
+= ANOFFSET (section_offsets
, sec
);
964 case SECT_OFF_RODATA
:
966 cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXTFUNC
967 || cs
->c_sclass
== C_THUMBEXT
?
968 mst_text
: mst_file_text
;
969 #ifdef SMASH_TEXT_ADDRESS
970 if (tmpaddr
& 1) /* FIXME: delete this line */
971 SMASH_TEXT_ADDRESS (tmpaddr
);
976 cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXT
?
977 mst_data
: mst_file_data
;
981 cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXT
?
982 mst_data
: mst_file_data
;
985 ms_type
= mst_unknown
;
990 if (cs
->c_name
[0] != '@' /* Skip tdesc symbols */)
992 struct minimal_symbol
*msym
;
994 msym
= prim_record_minimal_symbol_and_info
995 (cs
->c_name
, tmpaddr
, ms_type
, (char *)cs
->c_sclass
, sec
,
997 #ifdef COFF_MAKE_MSYMBOL_SPECIAL
999 COFF_MAKE_MSYMBOL_SPECIAL(cs
->c_sclass
, msym
);
1002 if (SDB_TYPE (cs
->c_type
))
1005 sym
= process_coff_symbol
1006 (cs
, &main_aux
, section_offsets
, objfile
);
1007 SYMBOL_VALUE (sym
) = tmpaddr
;
1008 SYMBOL_SECTION (sym
) = sec
;
1014 if (STREQ (cs
->c_name
, ".bf"))
1016 within_function
= 1;
1018 /* value contains address of first non-init type code */
1019 /* main_aux.x_sym.x_misc.x_lnsz.x_lnno
1020 contains line number of '{' } */
1021 if (cs
->c_naux
!= 1)
1022 complain (&bf_no_aux_complaint
, cs
->c_symnum
);
1023 fcn_first_line
= main_aux
.x_sym
.x_misc
.x_lnsz
.x_lnno
;
1024 fcn_first_line_addr
= cs
->c_value
;
1026 /* Might want to check that locals are 0 and
1027 context_stack_depth is zero, and complain if not. */
1030 new = push_context (depth
, fcn_start_addr
);
1031 fcn_cs_saved
.c_name
= getsymname (&fcn_sym_saved
);
1033 process_coff_symbol (&fcn_cs_saved
, &fcn_aux_saved
,
1034 section_offsets
, objfile
);
1036 else if (STREQ (cs
->c_name
, ".ef"))
1038 /* the value of .ef is the address of epilogue code;
1039 not useful for gdb. */
1040 /* { main_aux.x_sym.x_misc.x_lnsz.x_lnno
1041 contains number of lines to '}' */
1043 if (context_stack_depth
<= 0)
1044 { /* We attempted to pop an empty context stack */
1045 complain (&ef_stack_complaint
, cs
->c_symnum
);
1046 within_function
= 0;
1050 new = pop_context ();
1051 /* Stack must be empty now. */
1052 if (context_stack_depth
> 0 || new == NULL
)
1054 complain (&ef_complaint
, cs
->c_symnum
);
1055 within_function
= 0;
1058 if (cs
->c_naux
!= 1)
1060 complain (&ef_no_aux_complaint
, cs
->c_symnum
);
1061 fcn_last_line
= 0x7FFFFFFF;
1065 fcn_last_line
= main_aux
.x_sym
.x_misc
.x_lnsz
.x_lnno
;
1067 /* fcn_first_line is the line number of the opening '{'.
1068 Do not record it - because it would affect gdb's idea
1069 of the line number of the first statement of the function -
1070 except for one-line functions, for which it is also the line
1071 number of all the statements and of the closing '}', and
1072 for which we do not have any other statement-line-number. */
1073 if (fcn_last_line
== 1)
1074 record_line (current_subfile
, fcn_first_line
,
1075 fcn_first_line_addr
);
1077 enter_linenos (fcn_line_ptr
, fcn_first_line
, fcn_last_line
,
1080 finish_block (new->name
, &local_symbols
, new->old_blocks
,
1082 #if defined (FUNCTION_EPILOGUE_SIZE)
1083 /* This macro should be defined only on
1085 fcn_aux_saved.x_sym.x_misc.x_fsize
1086 field is always zero.
1087 So use the .bf record information that
1088 points to the epilogue and add the size
1091 + FUNCTION_EPILOGUE_SIZE
1092 + ANOFFSET (section_offsets
, SECT_OFF_TEXT
),
1094 fcn_cs_saved
.c_value
1095 + fcn_aux_saved
.x_sym
.x_misc
.x_fsize
1096 + ANOFFSET (section_offsets
, SECT_OFF_TEXT
),
1100 within_function
= 0;
1105 if (STREQ (cs
->c_name
, ".bb"))
1107 tmpaddr
= cs
->c_value
;
1108 tmpaddr
+= ANOFFSET (section_offsets
, SECT_OFF_TEXT
);
1109 push_context (++depth
, tmpaddr
);
1111 else if (STREQ (cs
->c_name
, ".eb"))
1113 if (context_stack_depth
<= 0)
1114 { /* We attempted to pop an empty context stack */
1115 complain (&eb_stack_complaint
, cs
->c_symnum
);
1119 new = pop_context ();
1120 if (depth
-- != new->depth
)
1122 complain (&eb_complaint
, symnum
);
1125 if (local_symbols
&& context_stack_depth
> 0)
1128 cs
->c_value
+ ANOFFSET (section_offsets
, SECT_OFF_TEXT
);
1129 /* Make a block for the local symbols within. */
1130 finish_block (0, &local_symbols
, new->old_blocks
,
1131 new->start_addr
, tmpaddr
, objfile
);
1133 /* Now pop locals of block just finished. */
1134 local_symbols
= new->locals
;
1139 process_coff_symbol (cs
, &main_aux
, section_offsets
, objfile
);
1144 if (last_source_file
)
1145 coff_end_symtab (objfile
);
1147 /* Patch up any opaque types (references to types that are not defined
1148 in the file where they are referenced, e.g. "struct foo *bar"). */
1149 ALL_OBJFILE_SYMTABS (objfile
, s
)
1150 patch_opaque_types (s
);
1152 current_objfile
= NULL
;
1155 /* Routines for reading headers and symbols from executable. */
1157 /* Read the next symbol, swap it, and return it in both internal_syment
1158 form, and coff_symbol form. Also return its first auxent, if any,
1159 in internal_auxent form, and skip any other auxents. */
1162 read_one_sym (cs
, sym
, aux
)
1163 register struct coff_symbol
*cs
;
1164 register struct internal_syment
*sym
;
1165 register union internal_auxent
*aux
;
1169 cs
->c_symnum
= symnum
;
1170 bfd_read (temp_sym
, local_symesz
, 1, nlist_bfd_global
);
1171 bfd_coff_swap_sym_in (symfile_bfd
, temp_sym
, (char *)sym
);
1172 cs
->c_naux
= sym
->n_numaux
& 0xff;
1173 if (cs
->c_naux
>= 1)
1175 bfd_read (temp_aux
, local_auxesz
, 1, nlist_bfd_global
);
1176 bfd_coff_swap_aux_in (symfile_bfd
, temp_aux
, sym
->n_type
, sym
->n_sclass
,
1177 0, cs
->c_naux
, (char *)aux
);
1178 /* If more than one aux entry, read past it (only the first aux
1180 for (i
= 1; i
< cs
->c_naux
; i
++)
1181 bfd_read (temp_aux
, local_auxesz
, 1, nlist_bfd_global
);
1183 cs
->c_name
= getsymname (sym
);
1184 cs
->c_value
= sym
->n_value
;
1185 cs
->c_sclass
= (sym
->n_sclass
& 0xff);
1186 cs
->c_secnum
= sym
->n_scnum
;
1187 cs
->c_type
= (unsigned) sym
->n_type
;
1188 if (!SDB_TYPE (cs
->c_type
))
1192 if (cs
->c_sclass
& 128)
1193 printf("thumb symbol %s, class 0x%x\n", cs
->c_name
, cs
->c_sclass
);
1196 symnum
+= 1 + cs
->c_naux
;
1198 /* The PE file format stores symbol values as offsets within the
1199 section, rather than as absolute addresses. We correct that
1200 here, if the symbol has an appropriate storage class. FIXME: We
1201 should use BFD to read the symbols, rather than duplicating the
1205 switch (cs
->c_sclass
)
1209 case C_THUMBEXTFUNC
:
1214 case C_THUMBSTATFUNC
:
1220 if (cs
->c_secnum
!= 0)
1221 cs
->c_value
+= cs_section_address (cs
, symfile_bfd
);
1227 /* Support for string table handling */
1229 static char *stringtab
= NULL
;
1232 init_stringtab (abfd
, offset
)
1238 unsigned char lengthbuf
[4];
1242 /* If the file is stripped, the offset might be zero, indicating no
1243 string table. Just return with `stringtab' set to null. */
1247 if (bfd_seek (abfd
, offset
, 0) < 0)
1250 val
= bfd_read ((char *)lengthbuf
, sizeof lengthbuf
, 1, abfd
);
1251 length
= bfd_h_get_32 (symfile_bfd
, lengthbuf
);
1253 /* If no string table is needed, then the file may end immediately
1254 after the symbols. Just return with `stringtab' set to null. */
1255 if (val
!= sizeof lengthbuf
|| length
< sizeof lengthbuf
)
1258 stringtab
= (char *) xmalloc (length
);
1259 /* This is in target format (probably not very useful, and not currently
1260 used), not host format. */
1261 memcpy (stringtab
, lengthbuf
, sizeof lengthbuf
);
1262 if (length
== sizeof length
) /* Empty table -- just the count */
1265 val
= bfd_read (stringtab
+ sizeof lengthbuf
, length
- sizeof lengthbuf
, 1, abfd
);
1266 if (val
!= length
- sizeof lengthbuf
|| stringtab
[length
- 1] != '\0')
1281 getsymname (symbol_entry
)
1282 struct internal_syment
*symbol_entry
;
1284 static char buffer
[SYMNMLEN
+1];
1287 if (symbol_entry
->_n
._n_n
._n_zeroes
== 0)
1289 /* FIXME: Probably should be detecting corrupt symbol files by
1290 seeing whether offset points to within the stringtab. */
1291 result
= stringtab
+ symbol_entry
->_n
._n_n
._n_offset
;
1295 strncpy (buffer
, symbol_entry
->_n
._n_name
, SYMNMLEN
);
1296 buffer
[SYMNMLEN
] = '\0';
1302 /* Extract the file name from the aux entry of a C_FILE symbol. Return
1303 only the last component of the name. Result is in static storage and
1304 is only good for temporary use. */
1307 coff_getfilename (aux_entry
)
1308 union internal_auxent
*aux_entry
;
1310 static char buffer
[BUFSIZ
];
1311 register char *temp
;
1314 if (aux_entry
->x_file
.x_n
.x_zeroes
== 0)
1315 strcpy (buffer
, stringtab
+ aux_entry
->x_file
.x_n
.x_offset
);
1318 strncpy (buffer
, aux_entry
->x_file
.x_fname
, FILNMLEN
);
1319 buffer
[FILNMLEN
] = '\0';
1323 /* FIXME: We should not be throwing away the information about what
1324 directory. It should go into dirname of the symtab, or some such
1326 if ((temp
= strrchr (result
, '/')) != NULL
)
1331 /* Support for line number handling. */
1333 static char *linetab
= NULL
;
1334 static long linetab_offset
;
1335 static unsigned long linetab_size
;
1337 /* Read in all the line numbers for fast lookups later. Leave them in
1338 external (unswapped) format in memory; we'll swap them as we enter
1339 them into GDB's data structures. */
1342 init_lineno (abfd
, offset
, size
)
1349 linetab_offset
= offset
;
1350 linetab_size
= size
;
1357 if (bfd_seek (abfd
, offset
, 0) < 0)
1360 /* Allocate the desired table, plus a sentinel */
1361 linetab
= (char *) xmalloc (size
+ local_linesz
);
1363 val
= bfd_read (linetab
, size
, 1, abfd
);
1367 /* Terminate it with an all-zero sentinel record */
1368 memset (linetab
+ size
, 0, local_linesz
);
1381 #if !defined (L_LNNO32)
1382 #define L_LNNO32(lp) ((lp)->l_lnno)
1386 enter_linenos (file_offset
, first_line
, last_line
, section_offsets
)
1388 register int first_line
;
1389 register int last_line
;
1390 struct section_offsets
*section_offsets
;
1392 register char *rawptr
;
1393 struct internal_lineno lptr
;
1397 if (file_offset
< linetab_offset
)
1399 complain (&lineno_complaint
, file_offset
);
1400 if (file_offset
> linetab_size
) /* Too big to be an offset? */
1402 file_offset
+= linetab_offset
; /* Try reading at that linetab offset */
1405 rawptr
= &linetab
[file_offset
- linetab_offset
];
1407 /* skip first line entry for each function */
1408 rawptr
+= local_linesz
;
1409 /* line numbers start at one for the first line of the function */
1413 bfd_coff_swap_lineno_in (symfile_bfd
, rawptr
, &lptr
);
1414 rawptr
+= local_linesz
;
1415 /* The next function, or the sentinel, will have L_LNNO32 zero; we exit. */
1416 if (L_LNNO32 (&lptr
) && L_LNNO32 (&lptr
) <= last_line
)
1417 record_line (current_subfile
, first_line
+ L_LNNO32 (&lptr
),
1419 + ANOFFSET (section_offsets
, SECT_OFF_TEXT
));
1426 patch_type (type
, real_type
)
1428 struct type
*real_type
;
1430 register struct type
*target
= TYPE_TARGET_TYPE (type
);
1431 register struct type
*real_target
= TYPE_TARGET_TYPE (real_type
);
1432 int field_size
= TYPE_NFIELDS (real_target
) * sizeof (struct field
);
1434 TYPE_LENGTH (target
) = TYPE_LENGTH (real_target
);
1435 TYPE_NFIELDS (target
) = TYPE_NFIELDS (real_target
);
1436 TYPE_FIELDS (target
) = (struct field
*) TYPE_ALLOC (target
, field_size
);
1438 memcpy (TYPE_FIELDS (target
), TYPE_FIELDS (real_target
), field_size
);
1440 if (TYPE_NAME (real_target
))
1442 if (TYPE_NAME (target
))
1443 free (TYPE_NAME (target
));
1444 TYPE_NAME (target
) = concat (TYPE_NAME (real_target
), NULL
);
1448 /* Patch up all appropriate typedef symbols in the opaque_type_chains
1449 so that they can be used to print out opaque data structures properly. */
1452 patch_opaque_types (s
)
1455 register struct block
*b
;
1457 register struct symbol
*real_sym
;
1459 /* Go through the per-file symbols only */
1460 b
= BLOCKVECTOR_BLOCK (BLOCKVECTOR (s
), STATIC_BLOCK
);
1461 for (i
= BLOCK_NSYMS (b
) - 1; i
>= 0; i
--)
1463 /* Find completed typedefs to use to fix opaque ones.
1464 Remove syms from the chain when their types are stored,
1465 but search the whole chain, as there may be several syms
1466 from different files with the same name. */
1467 real_sym
= BLOCK_SYM (b
, i
);
1468 if (SYMBOL_CLASS (real_sym
) == LOC_TYPEDEF
&&
1469 SYMBOL_NAMESPACE (real_sym
) == VAR_NAMESPACE
&&
1470 TYPE_CODE (SYMBOL_TYPE (real_sym
)) == TYPE_CODE_PTR
&&
1471 TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (real_sym
))) != 0)
1473 register char *name
= SYMBOL_NAME (real_sym
);
1474 register int hash
= hashname (name
);
1475 register struct symbol
*sym
, *prev
;
1478 for (sym
= opaque_type_chain
[hash
]; sym
;)
1480 if (name
[0] == SYMBOL_NAME (sym
)[0] &&
1481 STREQ (name
+ 1, SYMBOL_NAME (sym
) + 1))
1485 SYMBOL_VALUE_CHAIN (prev
) = SYMBOL_VALUE_CHAIN (sym
);
1489 opaque_type_chain
[hash
] = SYMBOL_VALUE_CHAIN (sym
);
1492 patch_type (SYMBOL_TYPE (sym
), SYMBOL_TYPE (real_sym
));
1496 sym
= SYMBOL_VALUE_CHAIN (prev
);
1500 sym
= opaque_type_chain
[hash
];
1506 sym
= SYMBOL_VALUE_CHAIN (sym
);
1513 static struct symbol
*
1514 process_coff_symbol (cs
, aux
, section_offsets
, objfile
)
1515 register struct coff_symbol
*cs
;
1516 register union internal_auxent
*aux
;
1517 struct section_offsets
*section_offsets
;
1518 struct objfile
*objfile
;
1520 register struct symbol
*sym
1521 = (struct symbol
*) obstack_alloc (&objfile
->symbol_obstack
,
1522 sizeof (struct symbol
));
1525 memset (sym
, 0, sizeof (struct symbol
));
1527 name
= EXTERNAL_NAME (name
, objfile
->obfd
);
1528 SYMBOL_NAME (sym
) = obsavestring (name
, strlen (name
),
1529 &objfile
->symbol_obstack
);
1530 SYMBOL_LANGUAGE (sym
) = language_auto
;
1531 SYMBOL_INIT_DEMANGLED_NAME (sym
, &objfile
->symbol_obstack
);
1533 /* default assumptions */
1534 SYMBOL_VALUE (sym
) = cs
->c_value
;
1535 SYMBOL_NAMESPACE (sym
) = VAR_NAMESPACE
;
1536 SYMBOL_SECTION (sym
) = cs_to_section (cs
, objfile
);
1538 if (ISFCN (cs
->c_type
))
1540 SYMBOL_VALUE (sym
) += ANOFFSET (section_offsets
, SECT_OFF_TEXT
);
1542 lookup_function_type (decode_function_type (cs
, cs
->c_type
, aux
));
1544 SYMBOL_CLASS (sym
) = LOC_BLOCK
;
1545 if (cs
->c_sclass
== C_STAT
|| cs
->c_sclass
== C_THUMBSTAT
1546 || cs
->c_sclass
== C_THUMBSTATFUNC
)
1547 add_symbol_to_list (sym
, &file_symbols
);
1548 else if (cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXT
1549 || cs
->c_sclass
== C_THUMBEXTFUNC
)
1550 add_symbol_to_list (sym
, &global_symbols
);
1554 SYMBOL_TYPE (sym
) = decode_type (cs
, cs
->c_type
, aux
);
1555 switch (cs
->c_sclass
)
1561 SYMBOL_CLASS (sym
) = LOC_LOCAL
;
1562 add_symbol_to_list (sym
, &local_symbols
);
1566 case C_THUMBEXTFUNC
:
1568 SYMBOL_CLASS (sym
) = LOC_STATIC
;
1569 SYMBOL_VALUE_ADDRESS (sym
) = (CORE_ADDR
) cs
->c_value
;
1570 SYMBOL_VALUE_ADDRESS (sym
) += ANOFFSET (section_offsets
, SECT_OFF_TEXT
);
1571 add_symbol_to_list (sym
, &global_symbols
);
1575 case C_THUMBSTATFUNC
:
1577 SYMBOL_CLASS (sym
) = LOC_STATIC
;
1578 SYMBOL_VALUE_ADDRESS (sym
) = (CORE_ADDR
) cs
->c_value
;
1579 SYMBOL_VALUE_ADDRESS (sym
) += ANOFFSET (section_offsets
, SECT_OFF_TEXT
);
1580 if (within_function
) {
1581 /* Static symbol of local scope */
1582 add_symbol_to_list (sym
, &local_symbols
);
1585 /* Static symbol at top level of file */
1586 add_symbol_to_list (sym
, &file_symbols
);
1590 #ifdef C_GLBLREG /* AMD coff */
1594 SYMBOL_CLASS (sym
) = LOC_REGISTER
;
1595 SYMBOL_VALUE (sym
) = SDB_REG_TO_REGNUM(cs
->c_value
);
1596 add_symbol_to_list (sym
, &local_symbols
);
1604 SYMBOL_CLASS (sym
) = LOC_ARG
;
1605 add_symbol_to_list (sym
, &local_symbols
);
1606 #if !defined (BELIEVE_PCC_PROMOTION)
1607 if (TARGET_BYTE_ORDER
== BIG_ENDIAN
)
1609 /* If PCC says a parameter is a short or a char,
1610 aligned on an int boundary, realign it to the
1611 "little end" of the int. */
1612 struct type
*temptype
;
1613 temptype
= lookup_fundamental_type (current_objfile
,
1615 if (TYPE_LENGTH (SYMBOL_TYPE (sym
)) < TYPE_LENGTH (temptype
)
1616 && TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_INT
1617 && 0 == SYMBOL_VALUE (sym
) % TYPE_LENGTH (temptype
))
1619 SYMBOL_VALUE (sym
) +=
1620 TYPE_LENGTH (temptype
)
1621 - TYPE_LENGTH (SYMBOL_TYPE (sym
));
1628 SYMBOL_CLASS (sym
) = LOC_REGPARM
;
1629 SYMBOL_VALUE (sym
) = SDB_REG_TO_REGNUM(cs
->c_value
);
1630 add_symbol_to_list (sym
, &local_symbols
);
1631 #if !defined (BELIEVE_PCC_PROMOTION)
1632 /* FIXME: This should retain the current type, since it's just
1633 a register value. gnu@adobe, 26Feb93 */
1635 /* If PCC says a parameter is a short or a char,
1636 it is really an int. */
1637 struct type
*temptype
;
1639 lookup_fundamental_type (current_objfile
, FT_INTEGER
);
1640 if (TYPE_LENGTH (SYMBOL_TYPE (sym
)) < TYPE_LENGTH (temptype
)
1641 && TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_INT
)
1644 (TYPE_UNSIGNED (SYMBOL_TYPE (sym
))
1645 ? lookup_fundamental_type (current_objfile
,
1646 FT_UNSIGNED_INTEGER
)
1654 SYMBOL_CLASS (sym
) = LOC_TYPEDEF
;
1655 SYMBOL_NAMESPACE (sym
) = VAR_NAMESPACE
;
1657 /* If type has no name, give it one */
1658 if (TYPE_NAME (SYMBOL_TYPE (sym
)) == 0)
1660 if (TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_PTR
1661 || TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_FUNC
)
1663 /* If we are giving a name to a type such as "pointer to
1664 foo" or "function returning foo", we better not set
1665 the TYPE_NAME. If the program contains "typedef char
1666 *caddr_t;", we don't want all variables of type char
1667 * to print as caddr_t. This is not just a
1668 consequence of GDB's type management; CC and GCC (at
1669 least through version 2.4) both output variables of
1670 either type char * or caddr_t with the type
1671 refering to the C_TPDEF symbol for caddr_t. If a future
1672 compiler cleans this up it GDB is not ready for it
1673 yet, but if it becomes ready we somehow need to
1674 disable this check (without breaking the PCC/GCC2.4
1679 Fortunately, this check seems not to be necessary
1680 for anything except pointers or functions. */
1684 TYPE_NAME (SYMBOL_TYPE (sym
)) =
1685 concat (SYMBOL_NAME (sym
), NULL
);
1688 /* Ignore vendor section for Harris CX/UX targets. */
1689 else if (cs
->c_name
[0] == '$')
1691 #endif /* CXUX_TARGET */
1693 /* Keep track of any type which points to empty structured type,
1694 so it can be filled from a definition from another file. A
1695 simple forward reference (TYPE_CODE_UNDEF) is not an
1696 empty structured type, though; the forward references
1697 work themselves out via the magic of coff_lookup_type. */
1698 if (TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_PTR
&&
1699 TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym
))) == 0 &&
1700 TYPE_CODE (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym
))) !=
1703 register int i
= hashname (SYMBOL_NAME (sym
));
1705 SYMBOL_VALUE_CHAIN (sym
) = opaque_type_chain
[i
];
1706 opaque_type_chain
[i
] = sym
;
1708 add_symbol_to_list (sym
, &file_symbols
);
1714 SYMBOL_CLASS (sym
) = LOC_TYPEDEF
;
1715 SYMBOL_NAMESPACE (sym
) = STRUCT_NAMESPACE
;
1717 /* Some compilers try to be helpful by inventing "fake"
1718 names for anonymous enums, structures, and unions, like
1719 "~0fake" or ".0fake". Thanks, but no thanks... */
1720 if (TYPE_TAG_NAME (SYMBOL_TYPE (sym
)) == 0)
1721 if (SYMBOL_NAME(sym
) != NULL
1722 && *SYMBOL_NAME(sym
) != '~'
1723 && *SYMBOL_NAME(sym
) != '.')
1724 TYPE_TAG_NAME (SYMBOL_TYPE (sym
)) =
1725 concat (SYMBOL_NAME (sym
), NULL
);
1727 add_symbol_to_list (sym
, &file_symbols
);
1737 /* Decode a coff type specifier; return the type that is meant. */
1739 static struct type
*
1740 decode_type (cs
, c_type
, aux
)
1741 register struct coff_symbol
*cs
;
1742 unsigned int c_type
;
1743 register union internal_auxent
*aux
;
1745 register struct type
*type
= 0;
1746 unsigned int new_c_type
;
1748 if (c_type
& ~N_BTMASK
)
1750 new_c_type
= DECREF (c_type
);
1753 type
= decode_type (cs
, new_c_type
, aux
);
1754 type
= lookup_pointer_type (type
);
1756 else if (ISFCN (c_type
))
1758 type
= decode_type (cs
, new_c_type
, aux
);
1759 type
= lookup_function_type (type
);
1761 else if (ISARY (c_type
))
1764 register unsigned short *dim
;
1765 struct type
*base_type
, *index_type
, *range_type
;
1767 /* Define an array type. */
1768 /* auxent refers to array, not base type */
1769 if (aux
->x_sym
.x_tagndx
.l
== 0)
1772 /* shift the indices down */
1773 dim
= &aux
->x_sym
.x_fcnary
.x_ary
.x_dimen
[0];
1776 for (i
= 0; *dim
&& i
< DIMNUM
- 1; i
++, dim
++)
1780 base_type
= decode_type (cs
, new_c_type
, aux
);
1781 index_type
= lookup_fundamental_type (current_objfile
, FT_INTEGER
);
1783 create_range_type ((struct type
*) NULL
, index_type
, 0, n
- 1);
1785 create_array_type ((struct type
*) NULL
, base_type
, range_type
);
1790 /* Reference to existing type. This only occurs with the
1791 struct, union, and enum types. EPI a29k coff
1792 fakes us out by producing aux entries with a nonzero
1793 x_tagndx for definitions of structs, unions, and enums, so we
1794 have to check the c_sclass field. SCO 3.2v4 cc gets confused
1795 with pointers to pointers to defined structs, and generates
1796 negative x_tagndx fields. */
1797 if (cs
->c_naux
> 0 && aux
->x_sym
.x_tagndx
.l
!= 0)
1799 if (cs
->c_sclass
!= C_STRTAG
1800 && cs
->c_sclass
!= C_UNTAG
1801 && cs
->c_sclass
!= C_ENTAG
1802 && aux
->x_sym
.x_tagndx
.l
>= 0)
1804 type
= coff_alloc_type (aux
->x_sym
.x_tagndx
.l
);
1809 complain (&tagndx_bad_complaint
, cs
->c_name
);
1810 /* And fall through to decode_base_type... */
1814 return decode_base_type (cs
, BTYPE (c_type
), aux
);
1817 /* Decode a coff type specifier for function definition;
1818 return the type that the function returns. */
1820 static struct type
*
1821 decode_function_type (cs
, c_type
, aux
)
1822 register struct coff_symbol
*cs
;
1823 unsigned int c_type
;
1824 register union internal_auxent
*aux
;
1826 if (aux
->x_sym
.x_tagndx
.l
== 0)
1827 cs
->c_naux
= 0; /* auxent refers to function, not base type */
1829 return decode_type (cs
, DECREF (c_type
), aux
);
1834 static struct type
*
1835 decode_base_type (cs
, c_type
, aux
)
1836 register struct coff_symbol
*cs
;
1837 unsigned int c_type
;
1838 register union internal_auxent
*aux
;
1845 /* shows up with "void (*foo)();" structure members */
1846 return lookup_fundamental_type (current_objfile
, FT_VOID
);
1849 /* DGUX actually defines both T_ARG and T_VOID to the same value. */
1852 /* Shows up in DGUX, I think. Not sure where. */
1853 return lookup_fundamental_type (current_objfile
, FT_VOID
); /* shouldn't show up here */
1859 /* Intel 960 COFF has this symbol and meaning. */
1860 return lookup_fundamental_type (current_objfile
, FT_VOID
);
1864 return lookup_fundamental_type (current_objfile
, FT_CHAR
);
1867 return lookup_fundamental_type (current_objfile
, FT_SHORT
);
1870 return lookup_fundamental_type (current_objfile
, FT_INTEGER
);
1873 if (cs
->c_sclass
== C_FIELD
1874 && aux
->x_sym
.x_misc
.x_lnsz
.x_size
> TARGET_LONG_BIT
)
1875 return lookup_fundamental_type (current_objfile
, FT_LONG_LONG
);
1877 return lookup_fundamental_type (current_objfile
, FT_LONG
);
1880 return lookup_fundamental_type (current_objfile
, FT_FLOAT
);
1883 return lookup_fundamental_type (current_objfile
, FT_DBL_PREC_FLOAT
);
1886 return lookup_fundamental_type (current_objfile
, FT_EXT_PREC_FLOAT
);
1889 if (cs
->c_naux
!= 1)
1891 /* anonymous structure type */
1892 type
= coff_alloc_type (cs
->c_symnum
);
1893 TYPE_CODE (type
) = TYPE_CODE_STRUCT
;
1894 TYPE_NAME (type
) = NULL
;
1895 /* This used to set the tag to "<opaque>". But I think setting it
1896 to NULL is right, and the printing code can print it as
1898 TYPE_TAG_NAME (type
) = NULL
;
1899 INIT_CPLUS_SPECIFIC(type
);
1900 TYPE_LENGTH (type
) = 0;
1901 TYPE_FIELDS (type
) = 0;
1902 TYPE_NFIELDS (type
) = 0;
1906 type
= coff_read_struct_type (cs
->c_symnum
,
1907 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1908 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
);
1913 if (cs
->c_naux
!= 1)
1915 /* anonymous union type */
1916 type
= coff_alloc_type (cs
->c_symnum
);
1917 TYPE_NAME (type
) = NULL
;
1918 /* This used to set the tag to "<opaque>". But I think setting it
1919 to NULL is right, and the printing code can print it as
1921 TYPE_TAG_NAME (type
) = NULL
;
1922 INIT_CPLUS_SPECIFIC(type
);
1923 TYPE_LENGTH (type
) = 0;
1924 TYPE_FIELDS (type
) = 0;
1925 TYPE_NFIELDS (type
) = 0;
1929 type
= coff_read_struct_type (cs
->c_symnum
,
1930 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1931 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
);
1933 TYPE_CODE (type
) = TYPE_CODE_UNION
;
1937 if (cs
->c_naux
!= 1)
1939 /* anonymous enum type */
1940 type
= coff_alloc_type (cs
->c_symnum
);
1941 TYPE_CODE (type
) = TYPE_CODE_ENUM
;
1942 TYPE_NAME (type
) = NULL
;
1943 /* This used to set the tag to "<opaque>". But I think setting it
1944 to NULL is right, and the printing code can print it as
1946 TYPE_TAG_NAME (type
) = NULL
;
1947 TYPE_LENGTH (type
) = 0;
1948 TYPE_FIELDS (type
) = 0;
1949 TYPE_NFIELDS(type
) = 0;
1953 type
= coff_read_enum_type (cs
->c_symnum
,
1954 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1955 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
);
1960 /* shouldn't show up here */
1964 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_CHAR
);
1967 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_SHORT
);
1970 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_INTEGER
);
1973 if (cs
->c_sclass
== C_FIELD
1974 && aux
->x_sym
.x_misc
.x_lnsz
.x_size
> TARGET_LONG_BIT
)
1975 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_LONG_LONG
);
1977 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_LONG
);
1979 complain (&unexpected_type_complaint
, cs
->c_name
);
1980 return lookup_fundamental_type (current_objfile
, FT_VOID
);
1983 /* This page contains subroutines of read_type. */
1985 /* Read the description of a structure (or union type) and return an
1986 object describing the type. */
1988 static struct type
*
1989 coff_read_struct_type (index
, length
, lastsym
)
1996 struct nextfield
*next
;
2000 register struct type
*type
;
2001 register struct nextfield
*list
= 0;
2002 struct nextfield
*new;
2006 struct coff_symbol member_sym
;
2007 register struct coff_symbol
*ms
= &member_sym
;
2008 struct internal_syment sub_sym
;
2009 union internal_auxent sub_aux
;
2012 type
= coff_alloc_type (index
);
2013 TYPE_CODE (type
) = TYPE_CODE_STRUCT
;
2014 INIT_CPLUS_SPECIFIC(type
);
2015 TYPE_LENGTH (type
) = length
;
2017 while (!done
&& symnum
< lastsym
&& symnum
< nlist_nsyms_global
)
2019 read_one_sym (ms
, &sub_sym
, &sub_aux
);
2021 name
= EXTERNAL_NAME (name
, current_objfile
->obfd
);
2023 switch (ms
->c_sclass
)
2028 /* Get space to record the next field's data. */
2029 new = (struct nextfield
*) alloca (sizeof (struct nextfield
));
2033 /* Save the data. */
2037 ¤t_objfile
->symbol_obstack
);
2038 FIELD_TYPE (list
->field
) = decode_type (ms
, ms
->c_type
, &sub_aux
);
2039 FIELD_BITPOS (list
->field
) = 8 * ms
->c_value
;
2040 FIELD_BITSIZE (list
->field
) = 0;
2046 /* Get space to record the next field's data. */
2047 new = (struct nextfield
*) alloca (sizeof (struct nextfield
));
2051 /* Save the data. */
2055 ¤t_objfile
->symbol_obstack
);
2056 FIELD_TYPE (list
->field
) = decode_type (ms
, ms
->c_type
, &sub_aux
);
2057 FIELD_BITPOS (list
->field
) = ms
->c_value
;
2058 FIELD_BITSIZE (list
->field
) = sub_aux
.x_sym
.x_misc
.x_lnsz
.x_size
;
2067 /* Now create the vector of fields, and record how big it is. */
2069 TYPE_NFIELDS (type
) = nfields
;
2070 TYPE_FIELDS (type
) = (struct field
*)
2071 TYPE_ALLOC (type
, sizeof (struct field
) * nfields
);
2073 /* Copy the saved-up fields into the field vector. */
2075 for (n
= nfields
; list
; list
= list
->next
)
2076 TYPE_FIELD (type
, --n
) = list
->field
;
2081 /* Read a definition of an enumeration type,
2082 and create and return a suitable type object.
2083 Also defines the symbols that represent the values of the type. */
2086 static struct type
*
2087 coff_read_enum_type (index
, length
, lastsym
)
2092 register struct symbol
*sym
;
2093 register struct type
*type
;
2096 struct pending
**symlist
;
2097 struct coff_symbol member_sym
;
2098 register struct coff_symbol
*ms
= &member_sym
;
2099 struct internal_syment sub_sym
;
2100 union internal_auxent sub_aux
;
2101 struct pending
*osyms
, *syms
;
2105 int unsigned_enum
= 1;
2107 type
= coff_alloc_type (index
);
2108 if (within_function
)
2109 symlist
= &local_symbols
;
2111 symlist
= &file_symbols
;
2113 o_nsyms
= osyms
? osyms
->nsyms
: 0;
2115 while (!done
&& symnum
< lastsym
&& symnum
< nlist_nsyms_global
)
2117 read_one_sym (ms
, &sub_sym
, &sub_aux
);
2119 name
= EXTERNAL_NAME (name
, current_objfile
->obfd
);
2121 switch (ms
->c_sclass
)
2124 sym
= (struct symbol
*) obstack_alloc
2125 (¤t_objfile
->symbol_obstack
,
2126 sizeof (struct symbol
));
2127 memset (sym
, 0, sizeof (struct symbol
));
2130 obsavestring (name
, strlen (name
),
2131 ¤t_objfile
->symbol_obstack
);
2132 SYMBOL_CLASS (sym
) = LOC_CONST
;
2133 SYMBOL_NAMESPACE (sym
) = VAR_NAMESPACE
;
2134 SYMBOL_VALUE (sym
) = ms
->c_value
;
2135 add_symbol_to_list (sym
, symlist
);
2140 /* Sometimes the linker (on 386/ix 2.0.2 at least) screws
2141 up the count of how many symbols to read. So stop
2148 /* Now fill in the fields of the type-structure. */
2151 TYPE_LENGTH (type
) = length
;
2153 TYPE_LENGTH (type
) = TARGET_INT_BIT
/ TARGET_CHAR_BIT
; /* Assume ints */
2154 TYPE_CODE (type
) = TYPE_CODE_ENUM
;
2155 TYPE_NFIELDS (type
) = nsyms
;
2156 TYPE_FIELDS (type
) = (struct field
*)
2157 TYPE_ALLOC (type
, sizeof (struct field
) * nsyms
);
2159 /* Find the symbols for the values and put them into the type.
2160 The symbols can be found in the symlist that we put them on
2161 to cause them to be defined. osyms contains the old value
2162 of that symlist; everything up to there was defined by us. */
2163 /* Note that we preserve the order of the enum constants, so
2164 that in something like "enum {FOO, LAST_THING=FOO}" we print
2165 FOO, not LAST_THING. */
2167 for (syms
= *symlist
, n
= 0; syms
; syms
= syms
->next
)
2173 for (; j
< syms
->nsyms
; j
++,n
++)
2175 struct symbol
*xsym
= syms
->symbol
[j
];
2176 SYMBOL_TYPE (xsym
) = type
;
2177 TYPE_FIELD_NAME (type
, n
) = SYMBOL_NAME (xsym
);
2178 TYPE_FIELD_BITPOS (type
, n
) = SYMBOL_VALUE (xsym
);
2179 if (SYMBOL_VALUE (xsym
) < 0)
2181 TYPE_FIELD_BITSIZE (type
, n
) = 0;
2188 TYPE_FLAGS (type
) |= TYPE_FLAG_UNSIGNED
;
2193 /* Register our ability to parse symbols for coff BFD files. */
2195 static struct sym_fns coff_sym_fns
=
2197 bfd_target_coff_flavour
,
2198 coff_new_init
, /* sym_new_init: init anything gbl to entire symtab */
2199 coff_symfile_init
, /* sym_init: read initial info, setup for sym_read() */
2200 coff_symfile_read
, /* sym_read: read a symbol file into symtab */
2201 coff_symfile_finish
, /* sym_finish: finished with file, cleanup */
2202 default_symfile_offsets
,
2203 /* sym_offsets: xlate external to internal form */
2204 NULL
/* next: pointer to next struct sym_fns */
2208 _initialize_coffread ()
2210 add_symtab_fns (&coff_sym_fns
);