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,
21 Boston, MA 02111-1307, USA. */
27 #include "breakpoint.h"
32 #include "gdb_string.h"
35 #include "coff/internal.h" /* Internal format of COFF symbols in BFD */
36 #include "libcoff.h" /* FIXME secret internal data from BFD */
41 #include "gdb-stabs.h"
42 #include "stabsread.h"
43 #include "complaints.h"
46 extern void _initialize_coffread (void);
48 struct coff_symfile_info
50 file_ptr min_lineno_offset
; /* Where in file lowest line#s are */
51 file_ptr max_lineno_offset
; /* 1+last byte of line#s in file */
53 CORE_ADDR textaddr
; /* Addr of .text section. */
54 unsigned int textsize
; /* Size of .text section. */
55 struct stab_section_list
*stabsects
; /* .stab sections. */
56 asection
*stabstrsect
; /* Section pointer for .stab section */
60 /* Translate an external name string into a user-visible name. */
61 #define EXTERNAL_NAME(string, abfd) \
62 (string[0] == bfd_get_symbol_leading_char(abfd)? string+1: string)
64 /* To be an sdb debug type, type must have at least a basic or primary
65 derived type. Using this rather than checking against T_NULL is
66 said to prevent core dumps if we try to operate on Michael Bloom
69 #define SDB_TYPE(type) (BTYPE(type) | (type & N_TMASK))
71 /* Convert from an sdb register number to an internal gdb register number.
72 This should be defined in tm.h, if REGISTER_NAMES is not set up
73 to map one to one onto the sdb register numbers. */
75 #ifndef SDB_REG_TO_REGNUM
76 #define SDB_REG_TO_REGNUM(value) (value)
79 /* Core address of start and end of text of current source file.
80 This comes from a ".text" symbol where x_nlinno > 0. */
82 static CORE_ADDR current_source_start_addr
;
83 static CORE_ADDR current_source_end_addr
;
85 /* The addresses of the symbol table stream and number of symbols
86 of the object file we are reading (as copied into core). */
88 static bfd
*nlist_bfd_global
;
89 static int nlist_nsyms_global
;
92 /* Pointers to scratch storage, used for reading raw symbols and auxents. */
94 static char *temp_sym
;
95 static char *temp_aux
;
97 /* Local variables that hold the shift and mask values for the
98 COFF file that we are currently reading. These come back to us
99 from BFD, and are referenced by their macro names, as well as
100 internally to the BTYPE, ISPTR, ISFCN, ISARY, ISTAG, and DECREF
101 macros from include/coff/internal.h . */
103 static unsigned local_n_btmask
;
104 static unsigned local_n_btshft
;
105 static unsigned local_n_tmask
;
106 static unsigned local_n_tshift
;
108 #define N_BTMASK local_n_btmask
109 #define N_BTSHFT local_n_btshft
110 #define N_TMASK local_n_tmask
111 #define N_TSHIFT local_n_tshift
113 /* Local variables that hold the sizes in the file of various COFF structures.
114 (We only need to know this to read them from the file -- BFD will then
115 translate the data in them, into `internal_xxx' structs in the right
116 byte order, alignment, etc.) */
118 static unsigned local_linesz
;
119 static unsigned local_symesz
;
120 static unsigned local_auxesz
;
122 /* This is set if this is a PE format file. */
126 /* Chain of typedefs of pointers to empty struct/union types.
127 They are chained thru the SYMBOL_VALUE_CHAIN. */
129 static struct symbol
*opaque_type_chain
[HASHSIZE
];
131 /* Complaints about various problems in the file being read */
133 struct complaint ef_complaint
=
134 {"Unmatched .ef symbol(s) ignored starting at symnum %d", 0, 0};
136 struct complaint ef_stack_complaint
=
137 {"`.ef' symbol without matching `.bf' symbol ignored starting at symnum %d", 0, 0};
139 struct complaint eb_stack_complaint
=
140 {"`.eb' symbol without matching `.bb' symbol ignored starting at symnum %d", 0, 0};
142 struct complaint bf_no_aux_complaint
=
143 {"`.bf' symbol %d has no aux entry", 0, 0};
145 struct complaint ef_no_aux_complaint
=
146 {"`.ef' symbol %d has no aux entry", 0, 0};
148 struct complaint lineno_complaint
=
149 {"Line number pointer %d lower than start of line numbers", 0, 0};
151 struct complaint unexpected_type_complaint
=
152 {"Unexpected type for symbol %s", 0, 0};
154 struct complaint bad_sclass_complaint
=
155 {"Bad n_sclass for symbol %s", 0, 0};
157 struct complaint misordered_blocks_complaint
=
158 {"Blocks out of order at address %x", 0, 0};
160 struct complaint tagndx_bad_complaint
=
161 {"Symbol table entry for %s has bad tagndx value", 0, 0};
163 struct complaint eb_complaint
=
164 {"Mismatched .eb symbol ignored starting at symnum %d", 0, 0};
166 /* Simplified internal version of coff symbol table information */
171 int c_symnum
; /* symbol number of this entry */
172 int c_naux
; /* 0 if syment only, 1 if syment + auxent, etc */
179 extern void stabsread_clear_cache (void);
181 static struct type
*coff_read_struct_type (int, int, int);
183 static struct type
*decode_base_type (struct coff_symbol
*,
184 unsigned int, union internal_auxent
*);
186 static struct type
*decode_type (struct coff_symbol
*, unsigned int,
187 union internal_auxent
*);
189 static struct type
*decode_function_type (struct coff_symbol
*,
191 union internal_auxent
*);
193 static struct type
*coff_read_enum_type (int, int, int);
195 static struct symbol
*process_coff_symbol (struct coff_symbol
*,
196 union internal_auxent
*,
199 static void patch_opaque_types (struct symtab
*);
201 static void patch_type (struct type
*, struct type
*);
203 static void enter_linenos (long, int, int, struct objfile
*);
205 static void free_linetab (void);
207 static void free_linetab_cleanup (void *ignore
);
209 static int init_lineno (bfd
*, long, int);
211 static char *getsymname (struct internal_syment
*);
213 static char *coff_getfilename (union internal_auxent
*);
215 static void free_stringtab (void);
217 static void free_stringtab_cleanup (void *ignore
);
219 static int init_stringtab (bfd
*, long);
221 static void read_one_sym (struct coff_symbol
*,
222 struct internal_syment
*, union internal_auxent
*);
224 static void coff_symtab_read (long, unsigned int, struct objfile
*);
226 static void find_linenos (bfd
*, sec_ptr
, PTR
);
228 static void coff_symfile_init (struct objfile
*);
230 static void coff_new_init (struct objfile
*);
232 static void coff_symfile_read (struct objfile
*, int);
234 static void coff_symfile_finish (struct objfile
*);
236 static void record_minimal_symbol (char *, CORE_ADDR
,
237 enum minimal_symbol_type
,
240 static void coff_end_symtab (struct objfile
*);
242 static void complete_symtab (char *, CORE_ADDR
, unsigned int);
244 static void coff_start_symtab (char *);
246 static struct type
*coff_alloc_type (int);
248 static struct type
**coff_lookup_type (int);
250 static void coff_locate_sections (bfd
*, asection
*, PTR
);
252 /* We are called once per section from coff_symfile_read. We
253 need to examine each section we are passed, check to see
254 if it is something we are interested in processing, and
255 if so, stash away some access information for the section.
257 FIXME: The section names should not be hardwired strings (what
258 should they be? I don't think most object file formats have enough
259 section flags to specify what kind of debug section it is
263 coff_locate_sections (bfd
*abfd
, asection
*sectp
, PTR csip
)
265 register struct coff_symfile_info
*csi
;
268 csi
= (struct coff_symfile_info
*) csip
;
269 name
= bfd_get_section_name (abfd
, sectp
);
270 if (STREQ (name
, ".text"))
272 csi
->textaddr
= bfd_section_vma (abfd
, sectp
);
273 csi
->textsize
+= bfd_section_size (abfd
, sectp
);
275 else if (strncmp (name
, ".text", sizeof ".text" - 1) == 0)
277 csi
->textsize
+= bfd_section_size (abfd
, sectp
);
279 else if (STREQ (name
, ".stabstr"))
281 csi
->stabstrsect
= sectp
;
283 else if (strncmp (name
, ".stab", sizeof ".stab" - 1) == 0)
287 /* We can have multiple .stab sections if linked with
289 for (s
= name
+ sizeof ".stab" - 1; *s
!= '\0'; s
++)
294 struct stab_section_list
*n
, **pn
;
296 n
= ((struct stab_section_list
*)
297 xmalloc (sizeof (struct stab_section_list
)));
300 for (pn
= &csi
->stabsects
; *pn
!= NULL
; pn
= &(*pn
)->next
)
304 /* This will be run after coffstab_build_psymtabs is called
305 in coff_symfile_read, at which point we no longer need
307 make_cleanup (free
, n
);
312 /* Return the section_offsets* that CS points to. */
313 static int cs_to_section (struct coff_symbol
*, struct objfile
*);
315 struct find_targ_sec_arg
321 static void find_targ_sec (bfd
*, asection
*, void *);
324 find_targ_sec (bfd
*abfd
, asection
*sect
, PTR obj
)
326 struct find_targ_sec_arg
*args
= (struct find_targ_sec_arg
*) obj
;
327 if (sect
->target_index
== args
->targ_index
)
328 *args
->resultp
= sect
;
331 /* Return the section number (SECT_OFF_*) that CS points to. */
333 cs_to_section (struct coff_symbol
*cs
, struct objfile
*objfile
)
335 asection
*sect
= NULL
;
336 struct find_targ_sec_arg args
;
337 int off
= SECT_OFF_TEXT (objfile
);
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
)
346 off
= SECT_OFF_TEXT (objfile
);
347 else if (bfd_get_section_flags (abfd
, sect
) & SEC_LOAD
)
348 off
= SECT_OFF_DATA (objfile
);
350 off
= SECT_OFF_BSS (objfile
);
355 /* Return the address of the section of a COFF symbol. */
357 static CORE_ADDR
cs_section_address (struct coff_symbol
*, bfd
*);
360 cs_section_address (struct coff_symbol
*cs
, bfd
*abfd
)
362 asection
*sect
= NULL
;
363 struct find_targ_sec_arg args
;
366 args
.targ_index
= cs
->c_secnum
;
367 args
.resultp
= §
;
368 bfd_map_over_sections (abfd
, find_targ_sec
, &args
);
370 addr
= bfd_get_section_vma (objfile
->obfd
, sect
);
374 /* Look up a coff type-number index. Return the address of the slot
375 where the type for that index is stored.
376 The type-number is in INDEX.
378 This can be used for finding the type associated with that index
379 or for associating a new type with the index. */
381 static struct type
**
382 coff_lookup_type (register int index
)
384 if (index
>= type_vector_length
)
386 int old_vector_length
= type_vector_length
;
388 type_vector_length
*= 2;
389 if (index
/* is still */ >= type_vector_length
)
390 type_vector_length
= index
* 2;
392 type_vector
= (struct type
**)
393 xrealloc ((char *) type_vector
,
394 type_vector_length
* sizeof (struct type
*));
395 memset (&type_vector
[old_vector_length
], 0,
396 (type_vector_length
- old_vector_length
) * sizeof (struct type
*));
398 return &type_vector
[index
];
401 /* Make sure there is a type allocated for type number index
402 and return the type object.
403 This can create an empty (zeroed) type object. */
406 coff_alloc_type (int index
)
408 register struct type
**type_addr
= coff_lookup_type (index
);
409 register struct type
*type
= *type_addr
;
411 /* If we are referring to a type not known at all yet,
412 allocate an empty type for it.
413 We will fill it in later if we find out how. */
416 type
= alloc_type (current_objfile
);
422 /* Start a new symtab for a new source file.
423 This is called when a COFF ".file" symbol is seen;
424 it indicates the start of data for one original source file. */
427 coff_start_symtab (char *name
)
430 /* We fill in the filename later. start_symtab puts
431 this pointer into last_source_file and we put it in
432 subfiles->name, which end_symtab frees; that's why
433 it must be malloc'd. */
434 savestring (name
, strlen (name
)),
435 /* We never know the directory name for COFF. */
437 /* The start address is irrelevant, since we set
438 last_source_start_addr in coff_end_symtab. */
440 record_debugformat ("COFF");
443 /* Save the vital information from when starting to read a file,
444 for use when closing off the current file.
445 NAME is the file name the symbols came from, START_ADDR is the first
446 text address for the file, and SIZE is the number of bytes of text. */
449 complete_symtab (char *name
, CORE_ADDR start_addr
, unsigned int size
)
451 if (last_source_file
!= NULL
)
452 free (last_source_file
);
453 last_source_file
= savestring (name
, strlen (name
));
454 current_source_start_addr
= start_addr
;
455 current_source_end_addr
= start_addr
+ size
;
457 if (current_objfile
->ei
.entry_point
>= current_source_start_addr
&&
458 current_objfile
->ei
.entry_point
< current_source_end_addr
)
460 current_objfile
->ei
.entry_file_lowpc
= current_source_start_addr
;
461 current_objfile
->ei
.entry_file_highpc
= current_source_end_addr
;
465 /* Finish the symbol definitions for one main source file,
466 close off all the lexical contexts for that file
467 (creating struct block's for them), then make the
468 struct symtab for that file and put it in the list of all such. */
471 coff_end_symtab (struct objfile
*objfile
)
473 struct symtab
*symtab
;
475 last_source_start_addr
= current_source_start_addr
;
477 symtab
= end_symtab (current_source_end_addr
, objfile
, 0);
480 free_named_symtabs (symtab
->filename
);
482 /* Reinitialize for beginning of new file. */
483 last_source_file
= NULL
;
487 record_minimal_symbol (char *name
, CORE_ADDR address
,
488 enum minimal_symbol_type type
, struct objfile
*objfile
)
490 /* We don't want TDESC entry points in the minimal symbol table */
494 prim_record_minimal_symbol (name
, address
, type
, objfile
);
497 /* coff_symfile_init ()
498 is the coff-specific initialization routine for reading symbols.
499 It is passed a struct objfile which contains, among other things,
500 the BFD for the file whose symbols are being read, and a slot for
501 a pointer to "private data" which we fill with cookies and other
502 treats for coff_symfile_read ().
504 We will only be called if this is a COFF or COFF-like file.
505 BFD handles figuring out the format of the file, and code in symtab.c
506 uses BFD's determination to vector to us.
508 The ultimate result is a new symtab (or, FIXME, eventually a psymtab). */
511 coff_symfile_init (struct objfile
*objfile
)
513 /* Allocate struct to keep track of stab reading. */
514 objfile
->sym_stab_info
= (struct dbx_symfile_info
*)
515 xmmalloc (objfile
->md
, sizeof (struct dbx_symfile_info
));
517 memset ((PTR
) objfile
->sym_stab_info
, 0, sizeof (struct dbx_symfile_info
));
519 /* Allocate struct to keep track of the symfile */
520 objfile
->sym_private
= xmmalloc (objfile
->md
,
521 sizeof (struct coff_symfile_info
));
523 memset (objfile
->sym_private
, 0, sizeof (struct coff_symfile_info
));
525 /* COFF objects may be reordered, so set OBJF_REORDERED. If we
526 find this causes a significant slowdown in gdb then we could
527 set it in the debug symbol readers only when necessary. */
528 objfile
->flags
|= OBJF_REORDERED
;
530 init_entry_point_info (objfile
);
533 /* This function is called for every section; it finds the outer limits
534 of the line table (minimum and maximum file offset) so that the
535 mainline code can read the whole thing for efficiency. */
539 find_linenos (bfd
*abfd
, sec_ptr asect
, PTR vpinfo
)
541 struct coff_symfile_info
*info
;
543 file_ptr offset
, maxoff
;
545 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
546 count
= asect
->lineno_count
;
551 size
= count
* local_linesz
;
553 info
= (struct coff_symfile_info
*) vpinfo
;
554 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
555 offset
= asect
->line_filepos
;
558 if (offset
< info
->min_lineno_offset
|| info
->min_lineno_offset
== 0)
559 info
->min_lineno_offset
= offset
;
561 maxoff
= offset
+ size
;
562 if (maxoff
> info
->max_lineno_offset
)
563 info
->max_lineno_offset
= maxoff
;
567 /* The BFD for this file -- only good while we're actively reading
568 symbols into a psymtab or a symtab. */
570 static bfd
*symfile_bfd
;
572 /* Read a symbol file, after initialization by coff_symfile_init. */
576 coff_symfile_read (struct objfile
*objfile
, int mainline
)
578 struct coff_symfile_info
*info
;
579 struct dbx_symfile_info
*dbxinfo
;
580 bfd
*abfd
= objfile
->obfd
;
581 coff_data_type
*cdata
= coff_data (abfd
);
582 char *name
= bfd_get_filename (abfd
);
584 unsigned int num_symbols
;
586 int stringtab_offset
;
587 struct cleanup
*back_to
;
592 info
= (struct coff_symfile_info
*) objfile
->sym_private
;
593 dbxinfo
= objfile
->sym_stab_info
;
594 symfile_bfd
= abfd
; /* Kludge for swap routines */
596 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
597 num_symbols
= bfd_get_symcount (abfd
); /* How many syms */
598 symtab_offset
= cdata
->sym_filepos
; /* Symbol table file offset */
599 stringtab_offset
= symtab_offset
+ /* String table file offset */
600 num_symbols
* cdata
->local_symesz
;
602 /* Set a few file-statics that give us specific information about
603 the particular COFF file format we're reading. */
604 local_n_btmask
= cdata
->local_n_btmask
;
605 local_n_btshft
= cdata
->local_n_btshft
;
606 local_n_tmask
= cdata
->local_n_tmask
;
607 local_n_tshift
= cdata
->local_n_tshift
;
608 local_linesz
= cdata
->local_linesz
;
609 local_symesz
= cdata
->local_symesz
;
610 local_auxesz
= cdata
->local_auxesz
;
612 /* Allocate space for raw symbol and aux entries, based on their
613 space requirements as reported by BFD. */
614 temp_sym
= (char *) xmalloc
615 (cdata
->local_symesz
+ cdata
->local_auxesz
);
616 temp_aux
= temp_sym
+ cdata
->local_symesz
;
617 back_to
= make_cleanup (free_current_contents
, &temp_sym
);
619 /* We need to know whether this is a PE file, because in PE files,
620 unlike standard COFF files, symbol values are stored as offsets
621 from the section address, rather than as absolute addresses.
622 FIXME: We should use BFD to read the symbol table, and thus avoid
625 strncmp (bfd_get_target (objfile
->obfd
), "pe", 2) == 0
626 || strncmp (bfd_get_target (objfile
->obfd
), "epoc-pe", 7) == 0;
630 /* Read the line number table, all at once. */
631 info
->min_lineno_offset
= 0;
632 info
->max_lineno_offset
= 0;
633 bfd_map_over_sections (abfd
, find_linenos
, (PTR
) info
);
635 make_cleanup (free_linetab_cleanup
, 0 /*ignore*/);
636 val
= init_lineno (abfd
, info
->min_lineno_offset
,
637 info
->max_lineno_offset
- info
->min_lineno_offset
);
639 error ("\"%s\": error reading line numbers\n", name
);
641 /* Now read the string table, all at once. */
643 make_cleanup (free_stringtab_cleanup
, 0 /*ignore*/);
644 val
= init_stringtab (abfd
, stringtab_offset
);
646 error ("\"%s\": can't get string table", name
);
648 init_minimal_symbol_collection ();
649 make_cleanup_discard_minimal_symbols ();
651 /* Now that the executable file is positioned at symbol table,
652 process it and define symbols accordingly. */
654 coff_symtab_read ((long) symtab_offset
, num_symbols
, objfile
);
656 /* Sort symbols alphabetically within each block. */
661 for (s
= objfile
->symtabs
; s
!= NULL
; s
= s
->next
)
662 sort_symtab_syms (s
);
665 /* Install any minimal symbols that have been collected as the current
666 minimal symbols for this objfile. */
668 install_minimal_symbols (objfile
);
670 bfd_map_over_sections (abfd
, coff_locate_sections
, (PTR
) info
);
674 if (!info
->stabstrsect
)
679 ("The debugging information in `%s' is corrupted.\n"
680 "The file has a `.stabs' section, but no `.stabstr' section.\n"),
682 return_to_top_level (RETURN_ERROR
);
685 /* FIXME: dubious. Why can't we use something normal like
686 bfd_get_section_contents? */
687 bfd_seek (abfd
, abfd
->where
, 0);
689 stabstrsize
= bfd_section_size (abfd
, info
->stabstrsect
);
691 coffstab_build_psymtabs (objfile
,
693 info
->textaddr
, info
->textsize
,
695 info
->stabstrsect
->filepos
, stabstrsize
);
698 do_cleanups (back_to
);
702 coff_new_init (struct objfile
*ignore
)
706 /* Perform any local cleanups required when we are done with a particular
707 objfile. I.E, we are in the process of discarding all symbol information
708 for an objfile, freeing up all memory held for it, and unlinking the
709 objfile struct from the global list of known objfiles. */
712 coff_symfile_finish (struct objfile
*objfile
)
714 if (objfile
->sym_private
!= NULL
)
716 mfree (objfile
->md
, objfile
->sym_private
);
719 /* Let stabs reader clean up */
720 stabsread_clear_cache ();
724 /* Given pointers to a symbol table in coff style exec file,
725 analyze them and create struct symtab's describing the symbols.
726 NSYMS is the number of symbols in the symbol table.
727 We read them one at a time using read_one_sym (). */
730 coff_symtab_read (long symtab_offset
, unsigned int nsyms
,
731 struct objfile
*objfile
)
733 register struct context_stack
*new;
734 struct coff_symbol coff_symbol
;
735 register struct coff_symbol
*cs
= &coff_symbol
;
736 static struct internal_syment main_sym
;
737 static union internal_auxent main_aux
;
738 struct coff_symbol fcn_cs_saved
;
739 static struct internal_syment fcn_sym_saved
;
740 static union internal_auxent fcn_aux_saved
;
742 /* A .file is open. */
743 int in_source_file
= 0;
744 int next_file_symnum
= -1;
745 /* Name of the current file. */
746 char *filestring
= "";
748 int fcn_first_line
= 0;
749 CORE_ADDR fcn_first_line_addr
;
750 int fcn_last_line
= 0;
751 int fcn_start_addr
= 0;
752 long fcn_line_ptr
= 0;
756 /* Work around a stdio bug in SunOS4.1.1 (this makes me nervous....
757 it's hard to know I've really worked around it. The fix should be
758 harmless, anyway). The symptom of the bug is that the first
759 fread (in read_one_sym), will (in my example) actually get data
760 from file offset 268, when the fseek was to 264 (and ftell shows
761 264). This causes all hell to break loose. I was unable to
762 reproduce this on a short test program which operated on the same
763 file, performing (I think) the same sequence of operations.
765 It stopped happening when I put in this (former) rewind().
767 FIXME: Find out if this has been reported to Sun, whether it has
768 been fixed in a later release, etc. */
770 bfd_seek (objfile
->obfd
, 0, 0);
772 /* Position to read the symbol table. */
773 val
= bfd_seek (objfile
->obfd
, (long) symtab_offset
, 0);
775 perror_with_name (objfile
->name
);
777 current_objfile
= objfile
;
778 nlist_bfd_global
= objfile
->obfd
;
779 nlist_nsyms_global
= nsyms
;
780 last_source_file
= NULL
;
781 memset (opaque_type_chain
, 0, sizeof opaque_type_chain
);
783 if (type_vector
) /* Get rid of previous one */
784 free ((PTR
) type_vector
);
785 type_vector_length
= 160;
786 type_vector
= (struct type
**)
787 xmalloc (type_vector_length
* sizeof (struct type
*));
788 memset (type_vector
, 0, type_vector_length
* sizeof (struct type
*));
790 coff_start_symtab ("");
793 while (symnum
< nsyms
)
795 QUIT
; /* Make this command interruptable. */
797 read_one_sym (cs
, &main_sym
, &main_aux
);
799 if (cs
->c_symnum
== next_file_symnum
&& cs
->c_sclass
!= C_FILE
)
801 if (last_source_file
)
802 coff_end_symtab (objfile
);
804 coff_start_symtab ("_globals_");
805 complete_symtab ("_globals_", 0, 0);
806 /* done with all files, everything from here on out is globals */
809 /* Special case for file with type declarations only, no text. */
810 if (!last_source_file
&& SDB_TYPE (cs
->c_type
)
811 && cs
->c_secnum
== N_DEBUG
)
812 complete_symtab (filestring
, 0, 0);
814 /* Typedefs should not be treated as symbol definitions. */
815 if (ISFCN (cs
->c_type
) && cs
->c_sclass
!= C_TPDEF
)
817 /* Record all functions -- external and static -- in minsyms. */
818 tmpaddr
= cs
->c_value
+ ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
819 record_minimal_symbol (cs
->c_name
, tmpaddr
, mst_text
, objfile
);
821 fcn_line_ptr
= main_aux
.x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
;
822 fcn_start_addr
= tmpaddr
;
824 fcn_sym_saved
= main_sym
;
825 fcn_aux_saved
= main_aux
;
829 switch (cs
->c_sclass
)
838 complain (&bad_sclass_complaint
, cs
->c_name
);
842 /* c_value field contains symnum of next .file entry in table
843 or symnum of first global after last .file. */
844 next_file_symnum
= cs
->c_value
;
846 filestring
= coff_getfilename (&main_aux
);
850 /* Complete symbol table for last object file
851 containing debugging information. */
852 if (last_source_file
)
854 coff_end_symtab (objfile
);
855 coff_start_symtab (filestring
);
860 /* C_LABEL is used for labels and static functions. Including
861 it here allows gdb to see static functions when no debug
862 info is available. */
864 /* However, labels within a function can make weird backtraces,
865 so filter them out (from phdm@macqel.be). */
871 case C_THUMBSTATFUNC
:
872 if (cs
->c_name
[0] == '.')
874 if (STREQ (cs
->c_name
, ".text"))
876 /* FIXME: don't wire in ".text" as section name
878 /* Check for in_source_file deals with case of
879 a file with debugging symbols
880 followed by a later file with no symbols. */
882 complete_symtab (filestring
,
883 cs
->c_value
+ ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
)),
884 main_aux
.x_scn
.x_scnlen
);
887 /* flush rest of '.' symbols */
890 else if (!SDB_TYPE (cs
->c_type
)
891 && cs
->c_name
[0] == 'L'
892 && (strncmp (cs
->c_name
, "LI%", 3) == 0
893 || strncmp (cs
->c_name
, "LF%", 3) == 0
894 || strncmp (cs
->c_name
, "LC%", 3) == 0
895 || strncmp (cs
->c_name
, "LP%", 3) == 0
896 || strncmp (cs
->c_name
, "LPB%", 4) == 0
897 || strncmp (cs
->c_name
, "LBB%", 4) == 0
898 || strncmp (cs
->c_name
, "LBE%", 4) == 0
899 || strncmp (cs
->c_name
, "LPBX%", 5) == 0))
900 /* At least on a 3b1, gcc generates swbeg and string labels
901 that look like this. Ignore them. */
903 /* fall in for static symbols that don't start with '.' */
908 /* Record it in the minimal symbols regardless of
909 SDB_TYPE. This parallels what we do for other debug
910 formats, and probably is needed to make
911 print_address_symbolic work right without the (now
912 gone) "set fast-symbolic-addr off" kludge. */
914 /* FIXME: should use mst_abs, and not relocate, if absolute. */
915 enum minimal_symbol_type ms_type
;
918 if (cs
->c_secnum
== N_UNDEF
)
920 /* This is a common symbol. See if the target
921 environment knows where it has been relocated to. */
923 if (target_lookup_symbol (cs
->c_name
, &reladdr
))
925 /* Error in lookup; ignore symbol. */
929 /* The address has already been relocated; make sure that
930 objfile_relocate doesn't relocate it again. */
932 ms_type
= cs
->c_sclass
== C_EXT
933 || cs
->c_sclass
== C_THUMBEXT
?
934 mst_bss
: mst_file_bss
;
938 sec
= cs_to_section (cs
, objfile
);
939 tmpaddr
= cs
->c_value
;
940 if (cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXTFUNC
941 || cs
->c_sclass
== C_THUMBEXT
)
942 tmpaddr
+= ANOFFSET (objfile
->section_offsets
, sec
);
944 if (sec
== SECT_OFF_TEXT (objfile
))
947 cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXTFUNC
948 || cs
->c_sclass
== C_THUMBEXT
?
949 mst_text
: mst_file_text
;
950 #ifdef SMASH_TEXT_ADDRESS
951 if (tmpaddr
& 1) /* FIXME: delete this line */
952 SMASH_TEXT_ADDRESS (tmpaddr
);
955 else if (sec
== SECT_OFF_DATA (objfile
))
958 cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXT
?
959 mst_data
: mst_file_data
;
961 else if (sec
== SECT_OFF_BSS (objfile
))
964 cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXT
?
965 mst_data
: mst_file_data
;
968 ms_type
= mst_unknown
;
971 if (cs
->c_name
[0] != '@' /* Skip tdesc symbols */ )
973 struct minimal_symbol
*msym
;
975 msym
= prim_record_minimal_symbol_and_info
976 (cs
->c_name
, tmpaddr
, ms_type
, (char *) cs
->c_sclass
, sec
,
978 #ifdef COFF_MAKE_MSYMBOL_SPECIAL
980 COFF_MAKE_MSYMBOL_SPECIAL (cs
->c_sclass
, msym
);
983 if (SDB_TYPE (cs
->c_type
))
986 sym
= process_coff_symbol
987 (cs
, &main_aux
, objfile
);
988 SYMBOL_VALUE (sym
) = tmpaddr
;
989 SYMBOL_SECTION (sym
) = sec
;
995 if (STREQ (cs
->c_name
, ".bf"))
999 /* value contains address of first non-init type code */
1000 /* main_aux.x_sym.x_misc.x_lnsz.x_lnno
1001 contains line number of '{' } */
1002 if (cs
->c_naux
!= 1)
1003 complain (&bf_no_aux_complaint
, cs
->c_symnum
);
1004 fcn_first_line
= main_aux
.x_sym
.x_misc
.x_lnsz
.x_lnno
;
1005 fcn_first_line_addr
= cs
->c_value
;
1007 /* Might want to check that locals are 0 and
1008 context_stack_depth is zero, and complain if not. */
1011 new = push_context (depth
, fcn_start_addr
);
1012 fcn_cs_saved
.c_name
= getsymname (&fcn_sym_saved
);
1014 process_coff_symbol (&fcn_cs_saved
, &fcn_aux_saved
, objfile
);
1016 else if (STREQ (cs
->c_name
, ".ef"))
1018 /* the value of .ef is the address of epilogue code;
1019 not useful for gdb. */
1020 /* { main_aux.x_sym.x_misc.x_lnsz.x_lnno
1021 contains number of lines to '}' */
1023 if (context_stack_depth
<= 0)
1024 { /* We attempted to pop an empty context stack */
1025 complain (&ef_stack_complaint
, cs
->c_symnum
);
1026 within_function
= 0;
1030 new = pop_context ();
1031 /* Stack must be empty now. */
1032 if (context_stack_depth
> 0 || new == NULL
)
1034 complain (&ef_complaint
, cs
->c_symnum
);
1035 within_function
= 0;
1038 if (cs
->c_naux
!= 1)
1040 complain (&ef_no_aux_complaint
, cs
->c_symnum
);
1041 fcn_last_line
= 0x7FFFFFFF;
1045 fcn_last_line
= main_aux
.x_sym
.x_misc
.x_lnsz
.x_lnno
;
1047 /* fcn_first_line is the line number of the opening '{'.
1048 Do not record it - because it would affect gdb's idea
1049 of the line number of the first statement of the function -
1050 except for one-line functions, for which it is also the line
1051 number of all the statements and of the closing '}', and
1052 for which we do not have any other statement-line-number. */
1053 if (fcn_last_line
== 1)
1054 record_line (current_subfile
, fcn_first_line
,
1055 fcn_first_line_addr
);
1057 enter_linenos (fcn_line_ptr
, fcn_first_line
, fcn_last_line
,
1060 finish_block (new->name
, &local_symbols
, new->old_blocks
,
1062 #if defined (FUNCTION_EPILOGUE_SIZE)
1063 /* This macro should be defined only on
1065 fcn_aux_saved.x_sym.x_misc.x_fsize
1066 field is always zero.
1067 So use the .bf record information that
1068 points to the epilogue and add the size
1071 + FUNCTION_EPILOGUE_SIZE
1072 + ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
)),
1074 fcn_cs_saved
.c_value
1075 + fcn_aux_saved
.x_sym
.x_misc
.x_fsize
1076 + ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
)),
1080 within_function
= 0;
1085 if (STREQ (cs
->c_name
, ".bb"))
1087 tmpaddr
= cs
->c_value
;
1088 tmpaddr
+= ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
1089 push_context (++depth
, tmpaddr
);
1091 else if (STREQ (cs
->c_name
, ".eb"))
1093 if (context_stack_depth
<= 0)
1094 { /* We attempted to pop an empty context stack */
1095 complain (&eb_stack_complaint
, cs
->c_symnum
);
1099 new = pop_context ();
1100 if (depth
-- != new->depth
)
1102 complain (&eb_complaint
, symnum
);
1105 if (local_symbols
&& context_stack_depth
> 0)
1108 cs
->c_value
+ ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
1109 /* Make a block for the local symbols within. */
1110 finish_block (0, &local_symbols
, new->old_blocks
,
1111 new->start_addr
, tmpaddr
, objfile
);
1113 /* Now pop locals of block just finished. */
1114 local_symbols
= new->locals
;
1119 process_coff_symbol (cs
, &main_aux
, objfile
);
1124 if (last_source_file
)
1125 coff_end_symtab (objfile
);
1127 /* Patch up any opaque types (references to types that are not defined
1128 in the file where they are referenced, e.g. "struct foo *bar"). */
1129 ALL_OBJFILE_SYMTABS (objfile
, s
)
1130 patch_opaque_types (s
);
1132 current_objfile
= NULL
;
1135 /* Routines for reading headers and symbols from executable. */
1137 /* Read the next symbol, swap it, and return it in both internal_syment
1138 form, and coff_symbol form. Also return its first auxent, if any,
1139 in internal_auxent form, and skip any other auxents. */
1142 read_one_sym (register struct coff_symbol
*cs
,
1143 register struct internal_syment
*sym
,
1144 register union internal_auxent
*aux
)
1148 cs
->c_symnum
= symnum
;
1149 bfd_read (temp_sym
, local_symesz
, 1, nlist_bfd_global
);
1150 bfd_coff_swap_sym_in (symfile_bfd
, temp_sym
, (char *) sym
);
1151 cs
->c_naux
= sym
->n_numaux
& 0xff;
1152 if (cs
->c_naux
>= 1)
1154 bfd_read (temp_aux
, local_auxesz
, 1, nlist_bfd_global
);
1155 bfd_coff_swap_aux_in (symfile_bfd
, temp_aux
, sym
->n_type
, sym
->n_sclass
,
1156 0, cs
->c_naux
, (char *) aux
);
1157 /* If more than one aux entry, read past it (only the first aux
1159 for (i
= 1; i
< cs
->c_naux
; i
++)
1160 bfd_read (temp_aux
, local_auxesz
, 1, nlist_bfd_global
);
1162 cs
->c_name
= getsymname (sym
);
1163 cs
->c_value
= sym
->n_value
;
1164 cs
->c_sclass
= (sym
->n_sclass
& 0xff);
1165 cs
->c_secnum
= sym
->n_scnum
;
1166 cs
->c_type
= (unsigned) sym
->n_type
;
1167 if (!SDB_TYPE (cs
->c_type
))
1171 if (cs
->c_sclass
& 128)
1172 printf ("thumb symbol %s, class 0x%x\n", cs
->c_name
, cs
->c_sclass
);
1175 symnum
+= 1 + cs
->c_naux
;
1177 /* The PE file format stores symbol values as offsets within the
1178 section, rather than as absolute addresses. We correct that
1179 here, if the symbol has an appropriate storage class. FIXME: We
1180 should use BFD to read the symbols, rather than duplicating the
1184 switch (cs
->c_sclass
)
1188 case C_THUMBEXTFUNC
:
1193 case C_THUMBSTATFUNC
:
1199 if (cs
->c_secnum
!= 0)
1200 cs
->c_value
+= cs_section_address (cs
, symfile_bfd
);
1206 /* Support for string table handling */
1208 static char *stringtab
= NULL
;
1211 init_stringtab (bfd
*abfd
, long offset
)
1215 unsigned char lengthbuf
[4];
1219 /* If the file is stripped, the offset might be zero, indicating no
1220 string table. Just return with `stringtab' set to null. */
1224 if (bfd_seek (abfd
, offset
, 0) < 0)
1227 val
= bfd_read ((char *) lengthbuf
, sizeof lengthbuf
, 1, abfd
);
1228 length
= bfd_h_get_32 (symfile_bfd
, lengthbuf
);
1230 /* If no string table is needed, then the file may end immediately
1231 after the symbols. Just return with `stringtab' set to null. */
1232 if (val
!= sizeof lengthbuf
|| length
< sizeof lengthbuf
)
1235 stringtab
= (char *) xmalloc (length
);
1236 /* This is in target format (probably not very useful, and not currently
1237 used), not host format. */
1238 memcpy (stringtab
, lengthbuf
, sizeof lengthbuf
);
1239 if (length
== sizeof length
) /* Empty table -- just the count */
1242 val
= bfd_read (stringtab
+ sizeof lengthbuf
, length
- sizeof lengthbuf
, 1, abfd
);
1243 if (val
!= length
- sizeof lengthbuf
|| stringtab
[length
- 1] != '\0')
1250 free_stringtab (void)
1258 free_stringtab_cleanup (void *ignore
)
1264 getsymname (struct internal_syment
*symbol_entry
)
1266 static char buffer
[SYMNMLEN
+ 1];
1269 if (symbol_entry
->_n
._n_n
._n_zeroes
== 0)
1271 /* FIXME: Probably should be detecting corrupt symbol files by
1272 seeing whether offset points to within the stringtab. */
1273 result
= stringtab
+ symbol_entry
->_n
._n_n
._n_offset
;
1277 strncpy (buffer
, symbol_entry
->_n
._n_name
, SYMNMLEN
);
1278 buffer
[SYMNMLEN
] = '\0';
1284 /* Extract the file name from the aux entry of a C_FILE symbol. Return
1285 only the last component of the name. Result is in static storage and
1286 is only good for temporary use. */
1289 coff_getfilename (union internal_auxent
*aux_entry
)
1291 static char buffer
[BUFSIZ
];
1292 register char *temp
;
1295 if (aux_entry
->x_file
.x_n
.x_zeroes
== 0)
1296 strcpy (buffer
, stringtab
+ aux_entry
->x_file
.x_n
.x_offset
);
1299 strncpy (buffer
, aux_entry
->x_file
.x_fname
, FILNMLEN
);
1300 buffer
[FILNMLEN
] = '\0';
1304 /* FIXME: We should not be throwing away the information about what
1305 directory. It should go into dirname of the symtab, or some such
1307 if ((temp
= strrchr (result
, '/')) != NULL
)
1312 /* Support for line number handling. */
1314 static char *linetab
= NULL
;
1315 static long linetab_offset
;
1316 static unsigned long linetab_size
;
1318 /* Read in all the line numbers for fast lookups later. Leave them in
1319 external (unswapped) format in memory; we'll swap them as we enter
1320 them into GDB's data structures. */
1323 init_lineno (bfd
*abfd
, long offset
, int size
)
1327 linetab_offset
= offset
;
1328 linetab_size
= size
;
1335 if (bfd_seek (abfd
, offset
, 0) < 0)
1338 /* Allocate the desired table, plus a sentinel */
1339 linetab
= (char *) xmalloc (size
+ local_linesz
);
1341 val
= bfd_read (linetab
, size
, 1, abfd
);
1345 /* Terminate it with an all-zero sentinel record */
1346 memset (linetab
+ size
, 0, local_linesz
);
1360 free_linetab_cleanup (void *ignore
)
1365 #if !defined (L_LNNO32)
1366 #define L_LNNO32(lp) ((lp)->l_lnno)
1370 enter_linenos (long file_offset
, register int first_line
,
1371 register int last_line
, struct objfile
*objfile
)
1373 register char *rawptr
;
1374 struct internal_lineno lptr
;
1378 if (file_offset
< linetab_offset
)
1380 complain (&lineno_complaint
, file_offset
);
1381 if (file_offset
> linetab_size
) /* Too big to be an offset? */
1383 file_offset
+= linetab_offset
; /* Try reading at that linetab offset */
1386 rawptr
= &linetab
[file_offset
- linetab_offset
];
1388 /* skip first line entry for each function */
1389 rawptr
+= local_linesz
;
1390 /* line numbers start at one for the first line of the function */
1395 bfd_coff_swap_lineno_in (symfile_bfd
, rawptr
, &lptr
);
1396 rawptr
+= local_linesz
;
1397 /* The next function, or the sentinel, will have L_LNNO32 zero; we exit. */
1398 if (L_LNNO32 (&lptr
) && L_LNNO32 (&lptr
) <= last_line
)
1399 record_line (current_subfile
, first_line
+ L_LNNO32 (&lptr
),
1401 + ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
)));
1408 patch_type (struct type
*type
, struct type
*real_type
)
1410 register struct type
*target
= TYPE_TARGET_TYPE (type
);
1411 register struct type
*real_target
= TYPE_TARGET_TYPE (real_type
);
1412 int field_size
= TYPE_NFIELDS (real_target
) * sizeof (struct field
);
1414 TYPE_LENGTH (target
) = TYPE_LENGTH (real_target
);
1415 TYPE_NFIELDS (target
) = TYPE_NFIELDS (real_target
);
1416 TYPE_FIELDS (target
) = (struct field
*) TYPE_ALLOC (target
, field_size
);
1418 memcpy (TYPE_FIELDS (target
), TYPE_FIELDS (real_target
), field_size
);
1420 if (TYPE_NAME (real_target
))
1422 if (TYPE_NAME (target
))
1423 free (TYPE_NAME (target
));
1424 TYPE_NAME (target
) = concat (TYPE_NAME (real_target
), NULL
);
1428 /* Patch up all appropriate typedef symbols in the opaque_type_chains
1429 so that they can be used to print out opaque data structures properly. */
1432 patch_opaque_types (struct symtab
*s
)
1434 register struct block
*b
;
1436 register struct symbol
*real_sym
;
1438 /* Go through the per-file symbols only */
1439 b
= BLOCKVECTOR_BLOCK (BLOCKVECTOR (s
), STATIC_BLOCK
);
1440 for (i
= BLOCK_NSYMS (b
) - 1; i
>= 0; i
--)
1442 /* Find completed typedefs to use to fix opaque ones.
1443 Remove syms from the chain when their types are stored,
1444 but search the whole chain, as there may be several syms
1445 from different files with the same name. */
1446 real_sym
= BLOCK_SYM (b
, i
);
1447 if (SYMBOL_CLASS (real_sym
) == LOC_TYPEDEF
&&
1448 SYMBOL_NAMESPACE (real_sym
) == VAR_NAMESPACE
&&
1449 TYPE_CODE (SYMBOL_TYPE (real_sym
)) == TYPE_CODE_PTR
&&
1450 TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (real_sym
))) != 0)
1452 register char *name
= SYMBOL_NAME (real_sym
);
1453 register int hash
= hashname (name
);
1454 register struct symbol
*sym
, *prev
;
1457 for (sym
= opaque_type_chain
[hash
]; sym
;)
1459 if (name
[0] == SYMBOL_NAME (sym
)[0] &&
1460 STREQ (name
+ 1, SYMBOL_NAME (sym
) + 1))
1464 SYMBOL_VALUE_CHAIN (prev
) = SYMBOL_VALUE_CHAIN (sym
);
1468 opaque_type_chain
[hash
] = SYMBOL_VALUE_CHAIN (sym
);
1471 patch_type (SYMBOL_TYPE (sym
), SYMBOL_TYPE (real_sym
));
1475 sym
= SYMBOL_VALUE_CHAIN (prev
);
1479 sym
= opaque_type_chain
[hash
];
1485 sym
= SYMBOL_VALUE_CHAIN (sym
);
1492 static struct symbol
*
1493 process_coff_symbol (register struct coff_symbol
*cs
,
1494 register union internal_auxent
*aux
,
1495 struct objfile
*objfile
)
1497 register struct symbol
*sym
1498 = (struct symbol
*) obstack_alloc (&objfile
->symbol_obstack
,
1499 sizeof (struct symbol
));
1502 memset (sym
, 0, sizeof (struct symbol
));
1504 name
= EXTERNAL_NAME (name
, objfile
->obfd
);
1505 SYMBOL_NAME (sym
) = obsavestring (name
, strlen (name
),
1506 &objfile
->symbol_obstack
);
1507 SYMBOL_LANGUAGE (sym
) = language_auto
;
1508 SYMBOL_INIT_DEMANGLED_NAME (sym
, &objfile
->symbol_obstack
);
1510 /* default assumptions */
1511 SYMBOL_VALUE (sym
) = cs
->c_value
;
1512 SYMBOL_NAMESPACE (sym
) = VAR_NAMESPACE
;
1513 SYMBOL_SECTION (sym
) = cs_to_section (cs
, objfile
);
1515 if (ISFCN (cs
->c_type
))
1517 SYMBOL_VALUE (sym
) += ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
1519 lookup_function_type (decode_function_type (cs
, cs
->c_type
, aux
));
1521 SYMBOL_CLASS (sym
) = LOC_BLOCK
;
1522 if (cs
->c_sclass
== C_STAT
|| cs
->c_sclass
== C_THUMBSTAT
1523 || cs
->c_sclass
== C_THUMBSTATFUNC
)
1524 add_symbol_to_list (sym
, &file_symbols
);
1525 else if (cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXT
1526 || cs
->c_sclass
== C_THUMBEXTFUNC
)
1527 add_symbol_to_list (sym
, &global_symbols
);
1531 SYMBOL_TYPE (sym
) = decode_type (cs
, cs
->c_type
, aux
);
1532 switch (cs
->c_sclass
)
1538 SYMBOL_CLASS (sym
) = LOC_LOCAL
;
1539 add_symbol_to_list (sym
, &local_symbols
);
1543 case C_THUMBEXTFUNC
:
1545 SYMBOL_CLASS (sym
) = LOC_STATIC
;
1546 SYMBOL_VALUE_ADDRESS (sym
) = (CORE_ADDR
) cs
->c_value
;
1547 SYMBOL_VALUE_ADDRESS (sym
) += ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
1548 add_symbol_to_list (sym
, &global_symbols
);
1552 case C_THUMBSTATFUNC
:
1554 SYMBOL_CLASS (sym
) = LOC_STATIC
;
1555 SYMBOL_VALUE_ADDRESS (sym
) = (CORE_ADDR
) cs
->c_value
;
1556 SYMBOL_VALUE_ADDRESS (sym
) += ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
1557 if (within_function
)
1559 /* Static symbol of local scope */
1560 add_symbol_to_list (sym
, &local_symbols
);
1564 /* Static symbol at top level of file */
1565 add_symbol_to_list (sym
, &file_symbols
);
1569 #ifdef C_GLBLREG /* AMD coff */
1573 SYMBOL_CLASS (sym
) = LOC_REGISTER
;
1574 SYMBOL_VALUE (sym
) = SDB_REG_TO_REGNUM (cs
->c_value
);
1575 add_symbol_to_list (sym
, &local_symbols
);
1583 SYMBOL_CLASS (sym
) = LOC_ARG
;
1584 add_symbol_to_list (sym
, &local_symbols
);
1585 #if !defined (BELIEVE_PCC_PROMOTION)
1586 if (TARGET_BYTE_ORDER
== BIG_ENDIAN
)
1588 /* If PCC says a parameter is a short or a char,
1589 aligned on an int boundary, realign it to the
1590 "little end" of the int. */
1591 struct type
*temptype
;
1592 temptype
= lookup_fundamental_type (current_objfile
,
1594 if (TYPE_LENGTH (SYMBOL_TYPE (sym
)) < TYPE_LENGTH (temptype
)
1595 && TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_INT
1596 && 0 == SYMBOL_VALUE (sym
) % TYPE_LENGTH (temptype
))
1598 SYMBOL_VALUE (sym
) +=
1599 TYPE_LENGTH (temptype
)
1600 - TYPE_LENGTH (SYMBOL_TYPE (sym
));
1607 SYMBOL_CLASS (sym
) = LOC_REGPARM
;
1608 SYMBOL_VALUE (sym
) = SDB_REG_TO_REGNUM (cs
->c_value
);
1609 add_symbol_to_list (sym
, &local_symbols
);
1610 #if !defined (BELIEVE_PCC_PROMOTION)
1611 /* FIXME: This should retain the current type, since it's just
1612 a register value. gnu@adobe, 26Feb93 */
1614 /* If PCC says a parameter is a short or a char,
1615 it is really an int. */
1616 struct type
*temptype
;
1618 lookup_fundamental_type (current_objfile
, FT_INTEGER
);
1619 if (TYPE_LENGTH (SYMBOL_TYPE (sym
)) < TYPE_LENGTH (temptype
)
1620 && TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_INT
)
1623 (TYPE_UNSIGNED (SYMBOL_TYPE (sym
))
1624 ? lookup_fundamental_type (current_objfile
,
1625 FT_UNSIGNED_INTEGER
)
1633 SYMBOL_CLASS (sym
) = LOC_TYPEDEF
;
1634 SYMBOL_NAMESPACE (sym
) = VAR_NAMESPACE
;
1636 /* If type has no name, give it one */
1637 if (TYPE_NAME (SYMBOL_TYPE (sym
)) == 0)
1639 if (TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_PTR
1640 || TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_FUNC
)
1642 /* If we are giving a name to a type such as "pointer to
1643 foo" or "function returning foo", we better not set
1644 the TYPE_NAME. If the program contains "typedef char
1645 *caddr_t;", we don't want all variables of type char
1646 * to print as caddr_t. This is not just a
1647 consequence of GDB's type management; CC and GCC (at
1648 least through version 2.4) both output variables of
1649 either type char * or caddr_t with the type
1650 refering to the C_TPDEF symbol for caddr_t. If a future
1651 compiler cleans this up it GDB is not ready for it
1652 yet, but if it becomes ready we somehow need to
1653 disable this check (without breaking the PCC/GCC2.4
1658 Fortunately, this check seems not to be necessary
1659 for anything except pointers or functions. */
1663 TYPE_NAME (SYMBOL_TYPE (sym
)) =
1664 concat (SYMBOL_NAME (sym
), NULL
);
1667 /* Ignore vendor section for Harris CX/UX targets. */
1668 else if (cs
->c_name
[0] == '$')
1670 #endif /* CXUX_TARGET */
1672 /* Keep track of any type which points to empty structured type,
1673 so it can be filled from a definition from another file. A
1674 simple forward reference (TYPE_CODE_UNDEF) is not an
1675 empty structured type, though; the forward references
1676 work themselves out via the magic of coff_lookup_type. */
1677 if (TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_PTR
&&
1678 TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym
))) == 0 &&
1679 TYPE_CODE (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym
))) !=
1682 register int i
= hashname (SYMBOL_NAME (sym
));
1684 SYMBOL_VALUE_CHAIN (sym
) = opaque_type_chain
[i
];
1685 opaque_type_chain
[i
] = sym
;
1687 add_symbol_to_list (sym
, &file_symbols
);
1693 SYMBOL_CLASS (sym
) = LOC_TYPEDEF
;
1694 SYMBOL_NAMESPACE (sym
) = STRUCT_NAMESPACE
;
1696 /* Some compilers try to be helpful by inventing "fake"
1697 names for anonymous enums, structures, and unions, like
1698 "~0fake" or ".0fake". Thanks, but no thanks... */
1699 if (TYPE_TAG_NAME (SYMBOL_TYPE (sym
)) == 0)
1700 if (SYMBOL_NAME (sym
) != NULL
1701 && *SYMBOL_NAME (sym
) != '~'
1702 && *SYMBOL_NAME (sym
) != '.')
1703 TYPE_TAG_NAME (SYMBOL_TYPE (sym
)) =
1704 concat (SYMBOL_NAME (sym
), NULL
);
1706 add_symbol_to_list (sym
, &file_symbols
);
1716 /* Decode a coff type specifier; return the type that is meant. */
1718 static struct type
*
1719 decode_type (register struct coff_symbol
*cs
, unsigned int c_type
,
1720 register union internal_auxent
*aux
)
1722 register struct type
*type
= 0;
1723 unsigned int new_c_type
;
1725 if (c_type
& ~N_BTMASK
)
1727 new_c_type
= DECREF (c_type
);
1730 type
= decode_type (cs
, new_c_type
, aux
);
1731 type
= lookup_pointer_type (type
);
1733 else if (ISFCN (c_type
))
1735 type
= decode_type (cs
, new_c_type
, aux
);
1736 type
= lookup_function_type (type
);
1738 else if (ISARY (c_type
))
1741 register unsigned short *dim
;
1742 struct type
*base_type
, *index_type
, *range_type
;
1744 /* Define an array type. */
1745 /* auxent refers to array, not base type */
1746 if (aux
->x_sym
.x_tagndx
.l
== 0)
1749 /* shift the indices down */
1750 dim
= &aux
->x_sym
.x_fcnary
.x_ary
.x_dimen
[0];
1753 for (i
= 0; *dim
&& i
< DIMNUM
- 1; i
++, dim
++)
1757 base_type
= decode_type (cs
, new_c_type
, aux
);
1758 index_type
= lookup_fundamental_type (current_objfile
, FT_INTEGER
);
1760 create_range_type ((struct type
*) NULL
, index_type
, 0, n
- 1);
1762 create_array_type ((struct type
*) NULL
, base_type
, range_type
);
1767 /* Reference to existing type. This only occurs with the
1768 struct, union, and enum types. EPI a29k coff
1769 fakes us out by producing aux entries with a nonzero
1770 x_tagndx for definitions of structs, unions, and enums, so we
1771 have to check the c_sclass field. SCO 3.2v4 cc gets confused
1772 with pointers to pointers to defined structs, and generates
1773 negative x_tagndx fields. */
1774 if (cs
->c_naux
> 0 && aux
->x_sym
.x_tagndx
.l
!= 0)
1776 if (cs
->c_sclass
!= C_STRTAG
1777 && cs
->c_sclass
!= C_UNTAG
1778 && cs
->c_sclass
!= C_ENTAG
1779 && aux
->x_sym
.x_tagndx
.l
>= 0)
1781 type
= coff_alloc_type (aux
->x_sym
.x_tagndx
.l
);
1786 complain (&tagndx_bad_complaint
, cs
->c_name
);
1787 /* And fall through to decode_base_type... */
1791 return decode_base_type (cs
, BTYPE (c_type
), aux
);
1794 /* Decode a coff type specifier for function definition;
1795 return the type that the function returns. */
1797 static struct type
*
1798 decode_function_type (register struct coff_symbol
*cs
, unsigned int c_type
,
1799 register union internal_auxent
*aux
)
1801 if (aux
->x_sym
.x_tagndx
.l
== 0)
1802 cs
->c_naux
= 0; /* auxent refers to function, not base type */
1804 return decode_type (cs
, DECREF (c_type
), aux
);
1809 static struct type
*
1810 decode_base_type (register struct coff_symbol
*cs
, unsigned int c_type
,
1811 register union internal_auxent
*aux
)
1818 /* shows up with "void (*foo)();" structure members */
1819 return lookup_fundamental_type (current_objfile
, FT_VOID
);
1822 /* DGUX actually defines both T_ARG and T_VOID to the same value. */
1825 /* Shows up in DGUX, I think. Not sure where. */
1826 return lookup_fundamental_type (current_objfile
, FT_VOID
); /* shouldn't show up here */
1832 /* Intel 960 COFF has this symbol and meaning. */
1833 return lookup_fundamental_type (current_objfile
, FT_VOID
);
1837 return lookup_fundamental_type (current_objfile
, FT_CHAR
);
1840 return lookup_fundamental_type (current_objfile
, FT_SHORT
);
1843 return lookup_fundamental_type (current_objfile
, FT_INTEGER
);
1846 if (cs
->c_sclass
== C_FIELD
1847 && aux
->x_sym
.x_misc
.x_lnsz
.x_size
> TARGET_LONG_BIT
)
1848 return lookup_fundamental_type (current_objfile
, FT_LONG_LONG
);
1850 return lookup_fundamental_type (current_objfile
, FT_LONG
);
1853 return lookup_fundamental_type (current_objfile
, FT_FLOAT
);
1856 return lookup_fundamental_type (current_objfile
, FT_DBL_PREC_FLOAT
);
1859 return lookup_fundamental_type (current_objfile
, FT_EXT_PREC_FLOAT
);
1862 if (cs
->c_naux
!= 1)
1864 /* anonymous structure type */
1865 type
= coff_alloc_type (cs
->c_symnum
);
1866 TYPE_CODE (type
) = TYPE_CODE_STRUCT
;
1867 TYPE_NAME (type
) = NULL
;
1868 /* This used to set the tag to "<opaque>". But I think setting it
1869 to NULL is right, and the printing code can print it as
1871 TYPE_TAG_NAME (type
) = NULL
;
1872 INIT_CPLUS_SPECIFIC (type
);
1873 TYPE_LENGTH (type
) = 0;
1874 TYPE_FIELDS (type
) = 0;
1875 TYPE_NFIELDS (type
) = 0;
1879 type
= coff_read_struct_type (cs
->c_symnum
,
1880 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1881 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
);
1886 if (cs
->c_naux
!= 1)
1888 /* anonymous union type */
1889 type
= coff_alloc_type (cs
->c_symnum
);
1890 TYPE_NAME (type
) = NULL
;
1891 /* This used to set the tag to "<opaque>". But I think setting it
1892 to NULL is right, and the printing code can print it as
1894 TYPE_TAG_NAME (type
) = NULL
;
1895 INIT_CPLUS_SPECIFIC (type
);
1896 TYPE_LENGTH (type
) = 0;
1897 TYPE_FIELDS (type
) = 0;
1898 TYPE_NFIELDS (type
) = 0;
1902 type
= coff_read_struct_type (cs
->c_symnum
,
1903 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1904 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
);
1906 TYPE_CODE (type
) = TYPE_CODE_UNION
;
1910 if (cs
->c_naux
!= 1)
1912 /* anonymous enum type */
1913 type
= coff_alloc_type (cs
->c_symnum
);
1914 TYPE_CODE (type
) = TYPE_CODE_ENUM
;
1915 TYPE_NAME (type
) = NULL
;
1916 /* This used to set the tag to "<opaque>". But I think setting it
1917 to NULL is right, and the printing code can print it as
1919 TYPE_TAG_NAME (type
) = NULL
;
1920 TYPE_LENGTH (type
) = 0;
1921 TYPE_FIELDS (type
) = 0;
1922 TYPE_NFIELDS (type
) = 0;
1926 type
= coff_read_enum_type (cs
->c_symnum
,
1927 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1928 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
);
1933 /* shouldn't show up here */
1937 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_CHAR
);
1940 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_SHORT
);
1943 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_INTEGER
);
1946 if (cs
->c_sclass
== C_FIELD
1947 && aux
->x_sym
.x_misc
.x_lnsz
.x_size
> TARGET_LONG_BIT
)
1948 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_LONG_LONG
);
1950 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_LONG
);
1952 complain (&unexpected_type_complaint
, cs
->c_name
);
1953 return lookup_fundamental_type (current_objfile
, FT_VOID
);
1956 /* This page contains subroutines of read_type. */
1958 /* Read the description of a structure (or union type) and return an
1959 object describing the type. */
1961 static struct type
*
1962 coff_read_struct_type (int index
, int length
, int lastsym
)
1966 struct nextfield
*next
;
1970 register struct type
*type
;
1971 register struct nextfield
*list
= 0;
1972 struct nextfield
*new;
1976 struct coff_symbol member_sym
;
1977 register struct coff_symbol
*ms
= &member_sym
;
1978 struct internal_syment sub_sym
;
1979 union internal_auxent sub_aux
;
1982 type
= coff_alloc_type (index
);
1983 TYPE_CODE (type
) = TYPE_CODE_STRUCT
;
1984 INIT_CPLUS_SPECIFIC (type
);
1985 TYPE_LENGTH (type
) = length
;
1987 while (!done
&& symnum
< lastsym
&& symnum
< nlist_nsyms_global
)
1989 read_one_sym (ms
, &sub_sym
, &sub_aux
);
1991 name
= EXTERNAL_NAME (name
, current_objfile
->obfd
);
1993 switch (ms
->c_sclass
)
1998 /* Get space to record the next field's data. */
1999 new = (struct nextfield
*) alloca (sizeof (struct nextfield
));
2003 /* Save the data. */
2007 ¤t_objfile
->symbol_obstack
);
2008 FIELD_TYPE (list
->field
) = decode_type (ms
, ms
->c_type
, &sub_aux
);
2009 FIELD_BITPOS (list
->field
) = 8 * ms
->c_value
;
2010 FIELD_BITSIZE (list
->field
) = 0;
2016 /* Get space to record the next field's data. */
2017 new = (struct nextfield
*) alloca (sizeof (struct nextfield
));
2021 /* Save the data. */
2025 ¤t_objfile
->symbol_obstack
);
2026 FIELD_TYPE (list
->field
) = decode_type (ms
, ms
->c_type
, &sub_aux
);
2027 FIELD_BITPOS (list
->field
) = ms
->c_value
;
2028 FIELD_BITSIZE (list
->field
) = sub_aux
.x_sym
.x_misc
.x_lnsz
.x_size
;
2037 /* Now create the vector of fields, and record how big it is. */
2039 TYPE_NFIELDS (type
) = nfields
;
2040 TYPE_FIELDS (type
) = (struct field
*)
2041 TYPE_ALLOC (type
, sizeof (struct field
) * nfields
);
2043 /* Copy the saved-up fields into the field vector. */
2045 for (n
= nfields
; list
; list
= list
->next
)
2046 TYPE_FIELD (type
, --n
) = list
->field
;
2051 /* Read a definition of an enumeration type,
2052 and create and return a suitable type object.
2053 Also defines the symbols that represent the values of the type. */
2056 static struct type
*
2057 coff_read_enum_type (int index
, int length
, int lastsym
)
2059 register struct symbol
*sym
;
2060 register struct type
*type
;
2063 struct pending
**symlist
;
2064 struct coff_symbol member_sym
;
2065 register struct coff_symbol
*ms
= &member_sym
;
2066 struct internal_syment sub_sym
;
2067 union internal_auxent sub_aux
;
2068 struct pending
*osyms
, *syms
;
2072 int unsigned_enum
= 1;
2074 type
= coff_alloc_type (index
);
2075 if (within_function
)
2076 symlist
= &local_symbols
;
2078 symlist
= &file_symbols
;
2080 o_nsyms
= osyms
? osyms
->nsyms
: 0;
2082 while (!done
&& symnum
< lastsym
&& symnum
< nlist_nsyms_global
)
2084 read_one_sym (ms
, &sub_sym
, &sub_aux
);
2086 name
= EXTERNAL_NAME (name
, current_objfile
->obfd
);
2088 switch (ms
->c_sclass
)
2091 sym
= (struct symbol
*) obstack_alloc
2092 (¤t_objfile
->symbol_obstack
,
2093 sizeof (struct symbol
));
2094 memset (sym
, 0, sizeof (struct symbol
));
2097 obsavestring (name
, strlen (name
),
2098 ¤t_objfile
->symbol_obstack
);
2099 SYMBOL_CLASS (sym
) = LOC_CONST
;
2100 SYMBOL_NAMESPACE (sym
) = VAR_NAMESPACE
;
2101 SYMBOL_VALUE (sym
) = ms
->c_value
;
2102 add_symbol_to_list (sym
, symlist
);
2107 /* Sometimes the linker (on 386/ix 2.0.2 at least) screws
2108 up the count of how many symbols to read. So stop
2115 /* Now fill in the fields of the type-structure. */
2118 TYPE_LENGTH (type
) = length
;
2120 TYPE_LENGTH (type
) = TARGET_INT_BIT
/ TARGET_CHAR_BIT
; /* Assume ints */
2121 TYPE_CODE (type
) = TYPE_CODE_ENUM
;
2122 TYPE_NFIELDS (type
) = nsyms
;
2123 TYPE_FIELDS (type
) = (struct field
*)
2124 TYPE_ALLOC (type
, sizeof (struct field
) * nsyms
);
2126 /* Find the symbols for the values and put them into the type.
2127 The symbols can be found in the symlist that we put them on
2128 to cause them to be defined. osyms contains the old value
2129 of that symlist; everything up to there was defined by us. */
2130 /* Note that we preserve the order of the enum constants, so
2131 that in something like "enum {FOO, LAST_THING=FOO}" we print
2132 FOO, not LAST_THING. */
2134 for (syms
= *symlist
, n
= 0; syms
; syms
= syms
->next
)
2140 for (; j
< syms
->nsyms
; j
++, n
++)
2142 struct symbol
*xsym
= syms
->symbol
[j
];
2143 SYMBOL_TYPE (xsym
) = type
;
2144 TYPE_FIELD_NAME (type
, n
) = SYMBOL_NAME (xsym
);
2145 TYPE_FIELD_BITPOS (type
, n
) = SYMBOL_VALUE (xsym
);
2146 if (SYMBOL_VALUE (xsym
) < 0)
2148 TYPE_FIELD_BITSIZE (type
, n
) = 0;
2155 TYPE_FLAGS (type
) |= TYPE_FLAG_UNSIGNED
;
2160 /* Register our ability to parse symbols for coff BFD files. */
2162 static struct sym_fns coff_sym_fns
=
2164 bfd_target_coff_flavour
,
2165 coff_new_init
, /* sym_new_init: init anything gbl to entire symtab */
2166 coff_symfile_init
, /* sym_init: read initial info, setup for sym_read() */
2167 coff_symfile_read
, /* sym_read: read a symbol file into symtab */
2168 coff_symfile_finish
, /* sym_finish: finished with file, cleanup */
2169 default_symfile_offsets
, /* sym_offsets: xlate external to internal form */
2170 NULL
/* next: pointer to next struct sym_fns */
2174 _initialize_coffread (void)
2176 add_symtab_fns (&coff_sym_fns
);