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 /* Just return the bfd section index. */
356 /* Return the address of the section of a COFF symbol. */
358 static CORE_ADDR
cs_section_address (struct coff_symbol
*, bfd
*);
361 cs_section_address (struct coff_symbol
*cs
, bfd
*abfd
)
363 asection
*sect
= NULL
;
364 struct find_targ_sec_arg args
;
367 args
.targ_index
= cs
->c_secnum
;
368 args
.resultp
= §
;
369 bfd_map_over_sections (abfd
, find_targ_sec
, &args
);
371 addr
= bfd_get_section_vma (objfile
->obfd
, sect
);
375 /* Look up a coff type-number index. Return the address of the slot
376 where the type for that index is stored.
377 The type-number is in INDEX.
379 This can be used for finding the type associated with that index
380 or for associating a new type with the index. */
382 static struct type
**
383 coff_lookup_type (register int index
)
385 if (index
>= type_vector_length
)
387 int old_vector_length
= type_vector_length
;
389 type_vector_length
*= 2;
390 if (index
/* is still */ >= type_vector_length
)
391 type_vector_length
= index
* 2;
393 type_vector
= (struct type
**)
394 xrealloc ((char *) type_vector
,
395 type_vector_length
* sizeof (struct type
*));
396 memset (&type_vector
[old_vector_length
], 0,
397 (type_vector_length
- old_vector_length
) * sizeof (struct type
*));
399 return &type_vector
[index
];
402 /* Make sure there is a type allocated for type number index
403 and return the type object.
404 This can create an empty (zeroed) type object. */
407 coff_alloc_type (int index
)
409 register struct type
**type_addr
= coff_lookup_type (index
);
410 register struct type
*type
= *type_addr
;
412 /* If we are referring to a type not known at all yet,
413 allocate an empty type for it.
414 We will fill it in later if we find out how. */
417 type
= alloc_type (current_objfile
);
423 /* Start a new symtab for a new source file.
424 This is called when a COFF ".file" symbol is seen;
425 it indicates the start of data for one original source file. */
428 coff_start_symtab (char *name
)
431 /* We fill in the filename later. start_symtab puts
432 this pointer into last_source_file and we put it in
433 subfiles->name, which end_symtab frees; that's why
434 it must be malloc'd. */
435 savestring (name
, strlen (name
)),
436 /* We never know the directory name for COFF. */
438 /* The start address is irrelevant, since we set
439 last_source_start_addr in coff_end_symtab. */
441 record_debugformat ("COFF");
444 /* Save the vital information from when starting to read a file,
445 for use when closing off the current file.
446 NAME is the file name the symbols came from, START_ADDR is the first
447 text address for the file, and SIZE is the number of bytes of text. */
450 complete_symtab (char *name
, CORE_ADDR start_addr
, unsigned int size
)
452 if (last_source_file
!= NULL
)
453 free (last_source_file
);
454 last_source_file
= savestring (name
, strlen (name
));
455 current_source_start_addr
= start_addr
;
456 current_source_end_addr
= start_addr
+ size
;
458 if (current_objfile
->ei
.entry_point
>= current_source_start_addr
&&
459 current_objfile
->ei
.entry_point
< current_source_end_addr
)
461 current_objfile
->ei
.entry_file_lowpc
= current_source_start_addr
;
462 current_objfile
->ei
.entry_file_highpc
= current_source_end_addr
;
466 /* Finish the symbol definitions for one main source file,
467 close off all the lexical contexts for that file
468 (creating struct block's for them), then make the
469 struct symtab for that file and put it in the list of all such. */
472 coff_end_symtab (struct objfile
*objfile
)
474 struct symtab
*symtab
;
476 last_source_start_addr
= current_source_start_addr
;
478 symtab
= end_symtab (current_source_end_addr
, objfile
, SECT_OFF_TEXT (objfile
));
481 free_named_symtabs (symtab
->filename
);
483 /* Reinitialize for beginning of new file. */
484 last_source_file
= NULL
;
488 record_minimal_symbol (char *name
, CORE_ADDR address
,
489 enum minimal_symbol_type type
, struct objfile
*objfile
)
491 /* We don't want TDESC entry points in the minimal symbol table */
495 prim_record_minimal_symbol (name
, address
, type
, objfile
);
498 /* coff_symfile_init ()
499 is the coff-specific initialization routine for reading symbols.
500 It is passed a struct objfile which contains, among other things,
501 the BFD for the file whose symbols are being read, and a slot for
502 a pointer to "private data" which we fill with cookies and other
503 treats for coff_symfile_read ().
505 We will only be called if this is a COFF or COFF-like file.
506 BFD handles figuring out the format of the file, and code in symtab.c
507 uses BFD's determination to vector to us.
509 The ultimate result is a new symtab (or, FIXME, eventually a psymtab). */
512 coff_symfile_init (struct objfile
*objfile
)
514 /* Allocate struct to keep track of stab reading. */
515 objfile
->sym_stab_info
= (struct dbx_symfile_info
*)
516 xmmalloc (objfile
->md
, sizeof (struct dbx_symfile_info
));
518 memset ((PTR
) objfile
->sym_stab_info
, 0, sizeof (struct dbx_symfile_info
));
520 /* Allocate struct to keep track of the symfile */
521 objfile
->sym_private
= xmmalloc (objfile
->md
,
522 sizeof (struct coff_symfile_info
));
524 memset (objfile
->sym_private
, 0, sizeof (struct coff_symfile_info
));
526 /* COFF objects may be reordered, so set OBJF_REORDERED. If we
527 find this causes a significant slowdown in gdb then we could
528 set it in the debug symbol readers only when necessary. */
529 objfile
->flags
|= OBJF_REORDERED
;
531 init_entry_point_info (objfile
);
534 /* This function is called for every section; it finds the outer limits
535 of the line table (minimum and maximum file offset) so that the
536 mainline code can read the whole thing for efficiency. */
540 find_linenos (bfd
*abfd
, sec_ptr asect
, PTR vpinfo
)
542 struct coff_symfile_info
*info
;
544 file_ptr offset
, maxoff
;
546 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
547 count
= asect
->lineno_count
;
552 size
= count
* local_linesz
;
554 info
= (struct coff_symfile_info
*) vpinfo
;
555 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
556 offset
= asect
->line_filepos
;
559 if (offset
< info
->min_lineno_offset
|| info
->min_lineno_offset
== 0)
560 info
->min_lineno_offset
= offset
;
562 maxoff
= offset
+ size
;
563 if (maxoff
> info
->max_lineno_offset
)
564 info
->max_lineno_offset
= maxoff
;
568 /* The BFD for this file -- only good while we're actively reading
569 symbols into a psymtab or a symtab. */
571 static bfd
*symfile_bfd
;
573 /* Read a symbol file, after initialization by coff_symfile_init. */
577 coff_symfile_read (struct objfile
*objfile
, int mainline
)
579 struct coff_symfile_info
*info
;
580 struct dbx_symfile_info
*dbxinfo
;
581 bfd
*abfd
= objfile
->obfd
;
582 coff_data_type
*cdata
= coff_data (abfd
);
583 char *name
= bfd_get_filename (abfd
);
585 unsigned int num_symbols
;
587 int stringtab_offset
;
588 struct cleanup
*back_to
;
593 info
= (struct coff_symfile_info
*) objfile
->sym_private
;
594 dbxinfo
= objfile
->sym_stab_info
;
595 symfile_bfd
= abfd
; /* Kludge for swap routines */
597 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
598 num_symbols
= bfd_get_symcount (abfd
); /* How many syms */
599 symtab_offset
= cdata
->sym_filepos
; /* Symbol table file offset */
600 stringtab_offset
= symtab_offset
+ /* String table file offset */
601 num_symbols
* cdata
->local_symesz
;
603 /* Set a few file-statics that give us specific information about
604 the particular COFF file format we're reading. */
605 local_n_btmask
= cdata
->local_n_btmask
;
606 local_n_btshft
= cdata
->local_n_btshft
;
607 local_n_tmask
= cdata
->local_n_tmask
;
608 local_n_tshift
= cdata
->local_n_tshift
;
609 local_linesz
= cdata
->local_linesz
;
610 local_symesz
= cdata
->local_symesz
;
611 local_auxesz
= cdata
->local_auxesz
;
613 /* Allocate space for raw symbol and aux entries, based on their
614 space requirements as reported by BFD. */
615 temp_sym
= (char *) xmalloc
616 (cdata
->local_symesz
+ cdata
->local_auxesz
);
617 temp_aux
= temp_sym
+ cdata
->local_symesz
;
618 back_to
= make_cleanup (free_current_contents
, &temp_sym
);
620 /* We need to know whether this is a PE file, because in PE files,
621 unlike standard COFF files, symbol values are stored as offsets
622 from the section address, rather than as absolute addresses.
623 FIXME: We should use BFD to read the symbol table, and thus avoid
626 strncmp (bfd_get_target (objfile
->obfd
), "pe", 2) == 0
627 || strncmp (bfd_get_target (objfile
->obfd
), "epoc-pe", 7) == 0;
631 /* Read the line number table, all at once. */
632 info
->min_lineno_offset
= 0;
633 info
->max_lineno_offset
= 0;
634 bfd_map_over_sections (abfd
, find_linenos
, (PTR
) info
);
636 make_cleanup (free_linetab_cleanup
, 0 /*ignore*/);
637 val
= init_lineno (abfd
, info
->min_lineno_offset
,
638 info
->max_lineno_offset
- info
->min_lineno_offset
);
640 error ("\"%s\": error reading line numbers\n", name
);
642 /* Now read the string table, all at once. */
644 make_cleanup (free_stringtab_cleanup
, 0 /*ignore*/);
645 val
= init_stringtab (abfd
, stringtab_offset
);
647 error ("\"%s\": can't get string table", name
);
649 init_minimal_symbol_collection ();
650 make_cleanup_discard_minimal_symbols ();
652 /* Now that the executable file is positioned at symbol table,
653 process it and define symbols accordingly. */
655 coff_symtab_read ((long) symtab_offset
, num_symbols
, objfile
);
657 /* Sort symbols alphabetically within each block. */
662 for (s
= objfile
->symtabs
; s
!= NULL
; s
= s
->next
)
663 sort_symtab_syms (s
);
666 /* Install any minimal symbols that have been collected as the current
667 minimal symbols for this objfile. */
669 install_minimal_symbols (objfile
);
671 bfd_map_over_sections (abfd
, coff_locate_sections
, (PTR
) info
);
675 if (!info
->stabstrsect
)
680 ("The debugging information in `%s' is corrupted.\n"
681 "The file has a `.stabs' section, but no `.stabstr' section.\n"),
683 return_to_top_level (RETURN_ERROR
);
686 /* FIXME: dubious. Why can't we use something normal like
687 bfd_get_section_contents? */
688 bfd_seek (abfd
, abfd
->where
, 0);
690 stabstrsize
= bfd_section_size (abfd
, info
->stabstrsect
);
692 coffstab_build_psymtabs (objfile
,
694 info
->textaddr
, info
->textsize
,
696 info
->stabstrsect
->filepos
, stabstrsize
);
699 do_cleanups (back_to
);
703 coff_new_init (struct objfile
*ignore
)
707 /* Perform any local cleanups required when we are done with a particular
708 objfile. I.E, we are in the process of discarding all symbol information
709 for an objfile, freeing up all memory held for it, and unlinking the
710 objfile struct from the global list of known objfiles. */
713 coff_symfile_finish (struct objfile
*objfile
)
715 if (objfile
->sym_private
!= NULL
)
717 mfree (objfile
->md
, objfile
->sym_private
);
720 /* Let stabs reader clean up */
721 stabsread_clear_cache ();
725 /* Given pointers to a symbol table in coff style exec file,
726 analyze them and create struct symtab's describing the symbols.
727 NSYMS is the number of symbols in the symbol table.
728 We read them one at a time using read_one_sym (). */
731 coff_symtab_read (long symtab_offset
, unsigned int nsyms
,
732 struct objfile
*objfile
)
734 register struct context_stack
*new;
735 struct coff_symbol coff_symbol
;
736 register struct coff_symbol
*cs
= &coff_symbol
;
737 static struct internal_syment main_sym
;
738 static union internal_auxent main_aux
;
739 struct coff_symbol fcn_cs_saved
;
740 static struct internal_syment fcn_sym_saved
;
741 static union internal_auxent fcn_aux_saved
;
743 /* A .file is open. */
744 int in_source_file
= 0;
745 int next_file_symnum
= -1;
746 /* Name of the current file. */
747 char *filestring
= "";
749 int fcn_first_line
= 0;
750 CORE_ADDR fcn_first_line_addr
;
751 int fcn_last_line
= 0;
752 int fcn_start_addr
= 0;
753 long fcn_line_ptr
= 0;
757 /* Work around a stdio bug in SunOS4.1.1 (this makes me nervous....
758 it's hard to know I've really worked around it. The fix should be
759 harmless, anyway). The symptom of the bug is that the first
760 fread (in read_one_sym), will (in my example) actually get data
761 from file offset 268, when the fseek was to 264 (and ftell shows
762 264). This causes all hell to break loose. I was unable to
763 reproduce this on a short test program which operated on the same
764 file, performing (I think) the same sequence of operations.
766 It stopped happening when I put in this (former) rewind().
768 FIXME: Find out if this has been reported to Sun, whether it has
769 been fixed in a later release, etc. */
771 bfd_seek (objfile
->obfd
, 0, 0);
773 /* Position to read the symbol table. */
774 val
= bfd_seek (objfile
->obfd
, (long) symtab_offset
, 0);
776 perror_with_name (objfile
->name
);
778 current_objfile
= objfile
;
779 nlist_bfd_global
= objfile
->obfd
;
780 nlist_nsyms_global
= nsyms
;
781 last_source_file
= NULL
;
782 memset (opaque_type_chain
, 0, sizeof opaque_type_chain
);
784 if (type_vector
) /* Get rid of previous one */
785 free ((PTR
) type_vector
);
786 type_vector_length
= 160;
787 type_vector
= (struct type
**)
788 xmalloc (type_vector_length
* sizeof (struct type
*));
789 memset (type_vector
, 0, type_vector_length
* sizeof (struct type
*));
791 coff_start_symtab ("");
794 while (symnum
< nsyms
)
796 QUIT
; /* Make this command interruptable. */
798 read_one_sym (cs
, &main_sym
, &main_aux
);
800 if (cs
->c_symnum
== next_file_symnum
&& cs
->c_sclass
!= C_FILE
)
802 if (last_source_file
)
803 coff_end_symtab (objfile
);
805 coff_start_symtab ("_globals_");
806 complete_symtab ("_globals_", 0, 0);
807 /* done with all files, everything from here on out is globals */
810 /* Special case for file with type declarations only, no text. */
811 if (!last_source_file
&& SDB_TYPE (cs
->c_type
)
812 && cs
->c_secnum
== N_DEBUG
)
813 complete_symtab (filestring
, 0, 0);
815 /* Typedefs should not be treated as symbol definitions. */
816 if (ISFCN (cs
->c_type
) && cs
->c_sclass
!= C_TPDEF
)
818 /* Record all functions -- external and static -- in minsyms. */
819 tmpaddr
= cs
->c_value
+ ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
820 record_minimal_symbol (cs
->c_name
, tmpaddr
, mst_text
, objfile
);
822 fcn_line_ptr
= main_aux
.x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
;
823 fcn_start_addr
= tmpaddr
;
825 fcn_sym_saved
= main_sym
;
826 fcn_aux_saved
= main_aux
;
830 switch (cs
->c_sclass
)
839 complain (&bad_sclass_complaint
, cs
->c_name
);
843 /* c_value field contains symnum of next .file entry in table
844 or symnum of first global after last .file. */
845 next_file_symnum
= cs
->c_value
;
847 filestring
= coff_getfilename (&main_aux
);
851 /* Complete symbol table for last object file
852 containing debugging information. */
853 if (last_source_file
)
855 coff_end_symtab (objfile
);
856 coff_start_symtab (filestring
);
861 /* C_LABEL is used for labels and static functions. Including
862 it here allows gdb to see static functions when no debug
863 info is available. */
865 /* However, labels within a function can make weird backtraces,
866 so filter them out (from phdm@macqel.be). */
872 case C_THUMBSTATFUNC
:
873 if (cs
->c_name
[0] == '.')
875 if (STREQ (cs
->c_name
, ".text"))
877 /* FIXME: don't wire in ".text" as section name
879 /* Check for in_source_file deals with case of
880 a file with debugging symbols
881 followed by a later file with no symbols. */
883 complete_symtab (filestring
,
884 cs
->c_value
+ ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
)),
885 main_aux
.x_scn
.x_scnlen
);
888 /* flush rest of '.' symbols */
891 else if (!SDB_TYPE (cs
->c_type
)
892 && cs
->c_name
[0] == 'L'
893 && (strncmp (cs
->c_name
, "LI%", 3) == 0
894 || strncmp (cs
->c_name
, "LF%", 3) == 0
895 || strncmp (cs
->c_name
, "LC%", 3) == 0
896 || strncmp (cs
->c_name
, "LP%", 3) == 0
897 || strncmp (cs
->c_name
, "LPB%", 4) == 0
898 || strncmp (cs
->c_name
, "LBB%", 4) == 0
899 || strncmp (cs
->c_name
, "LBE%", 4) == 0
900 || strncmp (cs
->c_name
, "LPBX%", 5) == 0))
901 /* At least on a 3b1, gcc generates swbeg and string labels
902 that look like this. Ignore them. */
904 /* fall in for static symbols that don't start with '.' */
909 /* Record it in the minimal symbols regardless of
910 SDB_TYPE. This parallels what we do for other debug
911 formats, and probably is needed to make
912 print_address_symbolic work right without the (now
913 gone) "set fast-symbolic-addr off" kludge. */
915 /* FIXME: should use mst_abs, and not relocate, if absolute. */
916 enum minimal_symbol_type ms_type
;
919 if (cs
->c_secnum
== N_UNDEF
)
921 /* This is a common symbol. See if the target
922 environment knows where it has been relocated to. */
924 if (target_lookup_symbol (cs
->c_name
, &reladdr
))
926 /* Error in lookup; ignore symbol. */
930 /* The address has already been relocated; make sure that
931 objfile_relocate doesn't relocate it again. */
933 ms_type
= cs
->c_sclass
== C_EXT
934 || cs
->c_sclass
== C_THUMBEXT
?
935 mst_bss
: mst_file_bss
;
939 sec
= cs_to_section (cs
, objfile
);
940 tmpaddr
= cs
->c_value
;
941 if (cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXTFUNC
942 || cs
->c_sclass
== C_THUMBEXT
)
943 tmpaddr
+= ANOFFSET (objfile
->section_offsets
, sec
);
945 if (sec
== SECT_OFF_TEXT (objfile
))
948 cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXTFUNC
949 || cs
->c_sclass
== C_THUMBEXT
?
950 mst_text
: mst_file_text
;
951 #ifdef SMASH_TEXT_ADDRESS
952 if (tmpaddr
& 1) /* FIXME: delete this line */
953 SMASH_TEXT_ADDRESS (tmpaddr
);
956 else if (sec
== SECT_OFF_DATA (objfile
))
959 cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXT
?
960 mst_data
: mst_file_data
;
962 else if (sec
== SECT_OFF_BSS (objfile
))
965 cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXT
?
966 mst_data
: mst_file_data
;
969 ms_type
= mst_unknown
;
972 if (cs
->c_name
[0] != '@' /* Skip tdesc symbols */ )
974 struct minimal_symbol
*msym
;
976 msym
= prim_record_minimal_symbol_and_info
977 (cs
->c_name
, tmpaddr
, ms_type
, (char *) cs
->c_sclass
, sec
,
979 #ifdef COFF_MAKE_MSYMBOL_SPECIAL
981 COFF_MAKE_MSYMBOL_SPECIAL (cs
->c_sclass
, msym
);
984 if (SDB_TYPE (cs
->c_type
))
987 sym
= process_coff_symbol
988 (cs
, &main_aux
, objfile
);
989 SYMBOL_VALUE (sym
) = tmpaddr
;
990 SYMBOL_SECTION (sym
) = sec
;
996 if (STREQ (cs
->c_name
, ".bf"))
1000 /* value contains address of first non-init type code */
1001 /* main_aux.x_sym.x_misc.x_lnsz.x_lnno
1002 contains line number of '{' } */
1003 if (cs
->c_naux
!= 1)
1004 complain (&bf_no_aux_complaint
, cs
->c_symnum
);
1005 fcn_first_line
= main_aux
.x_sym
.x_misc
.x_lnsz
.x_lnno
;
1006 fcn_first_line_addr
= cs
->c_value
;
1008 /* Might want to check that locals are 0 and
1009 context_stack_depth is zero, and complain if not. */
1012 new = push_context (depth
, fcn_start_addr
);
1013 fcn_cs_saved
.c_name
= getsymname (&fcn_sym_saved
);
1015 process_coff_symbol (&fcn_cs_saved
, &fcn_aux_saved
, objfile
);
1017 else if (STREQ (cs
->c_name
, ".ef"))
1019 /* the value of .ef is the address of epilogue code;
1020 not useful for gdb. */
1021 /* { main_aux.x_sym.x_misc.x_lnsz.x_lnno
1022 contains number of lines to '}' */
1024 if (context_stack_depth
<= 0)
1025 { /* We attempted to pop an empty context stack */
1026 complain (&ef_stack_complaint
, cs
->c_symnum
);
1027 within_function
= 0;
1031 new = pop_context ();
1032 /* Stack must be empty now. */
1033 if (context_stack_depth
> 0 || new == NULL
)
1035 complain (&ef_complaint
, cs
->c_symnum
);
1036 within_function
= 0;
1039 if (cs
->c_naux
!= 1)
1041 complain (&ef_no_aux_complaint
, cs
->c_symnum
);
1042 fcn_last_line
= 0x7FFFFFFF;
1046 fcn_last_line
= main_aux
.x_sym
.x_misc
.x_lnsz
.x_lnno
;
1048 /* fcn_first_line is the line number of the opening '{'.
1049 Do not record it - because it would affect gdb's idea
1050 of the line number of the first statement of the function -
1051 except for one-line functions, for which it is also the line
1052 number of all the statements and of the closing '}', and
1053 for which we do not have any other statement-line-number. */
1054 if (fcn_last_line
== 1)
1055 record_line (current_subfile
, fcn_first_line
,
1056 fcn_first_line_addr
);
1058 enter_linenos (fcn_line_ptr
, fcn_first_line
, fcn_last_line
,
1061 finish_block (new->name
, &local_symbols
, new->old_blocks
,
1063 #if defined (FUNCTION_EPILOGUE_SIZE)
1064 /* This macro should be defined only on
1066 fcn_aux_saved.x_sym.x_misc.x_fsize
1067 field is always zero.
1068 So use the .bf record information that
1069 points to the epilogue and add the size
1072 + FUNCTION_EPILOGUE_SIZE
1073 + ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
)),
1075 fcn_cs_saved
.c_value
1076 + fcn_aux_saved
.x_sym
.x_misc
.x_fsize
1077 + ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
)),
1081 within_function
= 0;
1086 if (STREQ (cs
->c_name
, ".bb"))
1088 tmpaddr
= cs
->c_value
;
1089 tmpaddr
+= ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
1090 push_context (++depth
, tmpaddr
);
1092 else if (STREQ (cs
->c_name
, ".eb"))
1094 if (context_stack_depth
<= 0)
1095 { /* We attempted to pop an empty context stack */
1096 complain (&eb_stack_complaint
, cs
->c_symnum
);
1100 new = pop_context ();
1101 if (depth
-- != new->depth
)
1103 complain (&eb_complaint
, symnum
);
1106 if (local_symbols
&& context_stack_depth
> 0)
1109 cs
->c_value
+ ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
1110 /* Make a block for the local symbols within. */
1111 finish_block (0, &local_symbols
, new->old_blocks
,
1112 new->start_addr
, tmpaddr
, objfile
);
1114 /* Now pop locals of block just finished. */
1115 local_symbols
= new->locals
;
1120 process_coff_symbol (cs
, &main_aux
, objfile
);
1125 if (last_source_file
)
1126 coff_end_symtab (objfile
);
1128 /* Patch up any opaque types (references to types that are not defined
1129 in the file where they are referenced, e.g. "struct foo *bar"). */
1130 ALL_OBJFILE_SYMTABS (objfile
, s
)
1131 patch_opaque_types (s
);
1133 current_objfile
= NULL
;
1136 /* Routines for reading headers and symbols from executable. */
1138 /* Read the next symbol, swap it, and return it in both internal_syment
1139 form, and coff_symbol form. Also return its first auxent, if any,
1140 in internal_auxent form, and skip any other auxents. */
1143 read_one_sym (register struct coff_symbol
*cs
,
1144 register struct internal_syment
*sym
,
1145 register union internal_auxent
*aux
)
1149 cs
->c_symnum
= symnum
;
1150 bfd_read (temp_sym
, local_symesz
, 1, nlist_bfd_global
);
1151 bfd_coff_swap_sym_in (symfile_bfd
, temp_sym
, (char *) sym
);
1152 cs
->c_naux
= sym
->n_numaux
& 0xff;
1153 if (cs
->c_naux
>= 1)
1155 bfd_read (temp_aux
, local_auxesz
, 1, nlist_bfd_global
);
1156 bfd_coff_swap_aux_in (symfile_bfd
, temp_aux
, sym
->n_type
, sym
->n_sclass
,
1157 0, cs
->c_naux
, (char *) aux
);
1158 /* If more than one aux entry, read past it (only the first aux
1160 for (i
= 1; i
< cs
->c_naux
; i
++)
1161 bfd_read (temp_aux
, local_auxesz
, 1, nlist_bfd_global
);
1163 cs
->c_name
= getsymname (sym
);
1164 cs
->c_value
= sym
->n_value
;
1165 cs
->c_sclass
= (sym
->n_sclass
& 0xff);
1166 cs
->c_secnum
= sym
->n_scnum
;
1167 cs
->c_type
= (unsigned) sym
->n_type
;
1168 if (!SDB_TYPE (cs
->c_type
))
1172 if (cs
->c_sclass
& 128)
1173 printf ("thumb symbol %s, class 0x%x\n", cs
->c_name
, cs
->c_sclass
);
1176 symnum
+= 1 + cs
->c_naux
;
1178 /* The PE file format stores symbol values as offsets within the
1179 section, rather than as absolute addresses. We correct that
1180 here, if the symbol has an appropriate storage class. FIXME: We
1181 should use BFD to read the symbols, rather than duplicating the
1185 switch (cs
->c_sclass
)
1189 case C_THUMBEXTFUNC
:
1194 case C_THUMBSTATFUNC
:
1200 if (cs
->c_secnum
!= 0)
1201 cs
->c_value
+= cs_section_address (cs
, symfile_bfd
);
1207 /* Support for string table handling */
1209 static char *stringtab
= NULL
;
1212 init_stringtab (bfd
*abfd
, long offset
)
1216 unsigned char lengthbuf
[4];
1220 /* If the file is stripped, the offset might be zero, indicating no
1221 string table. Just return with `stringtab' set to null. */
1225 if (bfd_seek (abfd
, offset
, 0) < 0)
1228 val
= bfd_read ((char *) lengthbuf
, sizeof lengthbuf
, 1, abfd
);
1229 length
= bfd_h_get_32 (symfile_bfd
, lengthbuf
);
1231 /* If no string table is needed, then the file may end immediately
1232 after the symbols. Just return with `stringtab' set to null. */
1233 if (val
!= sizeof lengthbuf
|| length
< sizeof lengthbuf
)
1236 stringtab
= (char *) xmalloc (length
);
1237 /* This is in target format (probably not very useful, and not currently
1238 used), not host format. */
1239 memcpy (stringtab
, lengthbuf
, sizeof lengthbuf
);
1240 if (length
== sizeof length
) /* Empty table -- just the count */
1243 val
= bfd_read (stringtab
+ sizeof lengthbuf
, length
- sizeof lengthbuf
, 1, abfd
);
1244 if (val
!= length
- sizeof lengthbuf
|| stringtab
[length
- 1] != '\0')
1251 free_stringtab (void)
1259 free_stringtab_cleanup (void *ignore
)
1265 getsymname (struct internal_syment
*symbol_entry
)
1267 static char buffer
[SYMNMLEN
+ 1];
1270 if (symbol_entry
->_n
._n_n
._n_zeroes
== 0)
1272 /* FIXME: Probably should be detecting corrupt symbol files by
1273 seeing whether offset points to within the stringtab. */
1274 result
= stringtab
+ symbol_entry
->_n
._n_n
._n_offset
;
1278 strncpy (buffer
, symbol_entry
->_n
._n_name
, SYMNMLEN
);
1279 buffer
[SYMNMLEN
] = '\0';
1285 /* Extract the file name from the aux entry of a C_FILE symbol. Return
1286 only the last component of the name. Result is in static storage and
1287 is only good for temporary use. */
1290 coff_getfilename (union internal_auxent
*aux_entry
)
1292 static char buffer
[BUFSIZ
];
1293 register char *temp
;
1296 if (aux_entry
->x_file
.x_n
.x_zeroes
== 0)
1297 strcpy (buffer
, stringtab
+ aux_entry
->x_file
.x_n
.x_offset
);
1300 strncpy (buffer
, aux_entry
->x_file
.x_fname
, FILNMLEN
);
1301 buffer
[FILNMLEN
] = '\0';
1305 /* FIXME: We should not be throwing away the information about what
1306 directory. It should go into dirname of the symtab, or some such
1308 if ((temp
= strrchr (result
, '/')) != NULL
)
1313 /* Support for line number handling. */
1315 static char *linetab
= NULL
;
1316 static long linetab_offset
;
1317 static unsigned long linetab_size
;
1319 /* Read in all the line numbers for fast lookups later. Leave them in
1320 external (unswapped) format in memory; we'll swap them as we enter
1321 them into GDB's data structures. */
1324 init_lineno (bfd
*abfd
, long offset
, int size
)
1328 linetab_offset
= offset
;
1329 linetab_size
= size
;
1336 if (bfd_seek (abfd
, offset
, 0) < 0)
1339 /* Allocate the desired table, plus a sentinel */
1340 linetab
= (char *) xmalloc (size
+ local_linesz
);
1342 val
= bfd_read (linetab
, size
, 1, abfd
);
1346 /* Terminate it with an all-zero sentinel record */
1347 memset (linetab
+ size
, 0, local_linesz
);
1361 free_linetab_cleanup (void *ignore
)
1366 #if !defined (L_LNNO32)
1367 #define L_LNNO32(lp) ((lp)->l_lnno)
1371 enter_linenos (long file_offset
, register int first_line
,
1372 register int last_line
, struct objfile
*objfile
)
1374 register char *rawptr
;
1375 struct internal_lineno lptr
;
1379 if (file_offset
< linetab_offset
)
1381 complain (&lineno_complaint
, file_offset
);
1382 if (file_offset
> linetab_size
) /* Too big to be an offset? */
1384 file_offset
+= linetab_offset
; /* Try reading at that linetab offset */
1387 rawptr
= &linetab
[file_offset
- linetab_offset
];
1389 /* skip first line entry for each function */
1390 rawptr
+= local_linesz
;
1391 /* line numbers start at one for the first line of the function */
1396 bfd_coff_swap_lineno_in (symfile_bfd
, rawptr
, &lptr
);
1397 rawptr
+= local_linesz
;
1398 /* The next function, or the sentinel, will have L_LNNO32 zero; we exit. */
1399 if (L_LNNO32 (&lptr
) && L_LNNO32 (&lptr
) <= last_line
)
1400 record_line (current_subfile
, first_line
+ L_LNNO32 (&lptr
),
1402 + ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
)));
1409 patch_type (struct type
*type
, struct type
*real_type
)
1411 register struct type
*target
= TYPE_TARGET_TYPE (type
);
1412 register struct type
*real_target
= TYPE_TARGET_TYPE (real_type
);
1413 int field_size
= TYPE_NFIELDS (real_target
) * sizeof (struct field
);
1415 TYPE_LENGTH (target
) = TYPE_LENGTH (real_target
);
1416 TYPE_NFIELDS (target
) = TYPE_NFIELDS (real_target
);
1417 TYPE_FIELDS (target
) = (struct field
*) TYPE_ALLOC (target
, field_size
);
1419 memcpy (TYPE_FIELDS (target
), TYPE_FIELDS (real_target
), field_size
);
1421 if (TYPE_NAME (real_target
))
1423 if (TYPE_NAME (target
))
1424 free (TYPE_NAME (target
));
1425 TYPE_NAME (target
) = concat (TYPE_NAME (real_target
), NULL
);
1429 /* Patch up all appropriate typedef symbols in the opaque_type_chains
1430 so that they can be used to print out opaque data structures properly. */
1433 patch_opaque_types (struct symtab
*s
)
1435 register struct block
*b
;
1437 register struct symbol
*real_sym
;
1439 /* Go through the per-file symbols only */
1440 b
= BLOCKVECTOR_BLOCK (BLOCKVECTOR (s
), STATIC_BLOCK
);
1441 for (i
= BLOCK_NSYMS (b
) - 1; i
>= 0; i
--)
1443 /* Find completed typedefs to use to fix opaque ones.
1444 Remove syms from the chain when their types are stored,
1445 but search the whole chain, as there may be several syms
1446 from different files with the same name. */
1447 real_sym
= BLOCK_SYM (b
, i
);
1448 if (SYMBOL_CLASS (real_sym
) == LOC_TYPEDEF
&&
1449 SYMBOL_NAMESPACE (real_sym
) == VAR_NAMESPACE
&&
1450 TYPE_CODE (SYMBOL_TYPE (real_sym
)) == TYPE_CODE_PTR
&&
1451 TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (real_sym
))) != 0)
1453 register char *name
= SYMBOL_NAME (real_sym
);
1454 register int hash
= hashname (name
);
1455 register struct symbol
*sym
, *prev
;
1458 for (sym
= opaque_type_chain
[hash
]; sym
;)
1460 if (name
[0] == SYMBOL_NAME (sym
)[0] &&
1461 STREQ (name
+ 1, SYMBOL_NAME (sym
) + 1))
1465 SYMBOL_VALUE_CHAIN (prev
) = SYMBOL_VALUE_CHAIN (sym
);
1469 opaque_type_chain
[hash
] = SYMBOL_VALUE_CHAIN (sym
);
1472 patch_type (SYMBOL_TYPE (sym
), SYMBOL_TYPE (real_sym
));
1476 sym
= SYMBOL_VALUE_CHAIN (prev
);
1480 sym
= opaque_type_chain
[hash
];
1486 sym
= SYMBOL_VALUE_CHAIN (sym
);
1493 static struct symbol
*
1494 process_coff_symbol (register struct coff_symbol
*cs
,
1495 register union internal_auxent
*aux
,
1496 struct objfile
*objfile
)
1498 register struct symbol
*sym
1499 = (struct symbol
*) obstack_alloc (&objfile
->symbol_obstack
,
1500 sizeof (struct symbol
));
1503 memset (sym
, 0, sizeof (struct symbol
));
1505 name
= EXTERNAL_NAME (name
, objfile
->obfd
);
1506 SYMBOL_NAME (sym
) = obsavestring (name
, strlen (name
),
1507 &objfile
->symbol_obstack
);
1508 SYMBOL_LANGUAGE (sym
) = language_auto
;
1509 SYMBOL_INIT_DEMANGLED_NAME (sym
, &objfile
->symbol_obstack
);
1511 /* default assumptions */
1512 SYMBOL_VALUE (sym
) = cs
->c_value
;
1513 SYMBOL_NAMESPACE (sym
) = VAR_NAMESPACE
;
1514 SYMBOL_SECTION (sym
) = cs_to_section (cs
, objfile
);
1516 if (ISFCN (cs
->c_type
))
1518 SYMBOL_VALUE (sym
) += ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
1520 lookup_function_type (decode_function_type (cs
, cs
->c_type
, aux
));
1522 SYMBOL_CLASS (sym
) = LOC_BLOCK
;
1523 if (cs
->c_sclass
== C_STAT
|| cs
->c_sclass
== C_THUMBSTAT
1524 || cs
->c_sclass
== C_THUMBSTATFUNC
)
1525 add_symbol_to_list (sym
, &file_symbols
);
1526 else if (cs
->c_sclass
== C_EXT
|| cs
->c_sclass
== C_THUMBEXT
1527 || cs
->c_sclass
== C_THUMBEXTFUNC
)
1528 add_symbol_to_list (sym
, &global_symbols
);
1532 SYMBOL_TYPE (sym
) = decode_type (cs
, cs
->c_type
, aux
);
1533 switch (cs
->c_sclass
)
1539 SYMBOL_CLASS (sym
) = LOC_LOCAL
;
1540 add_symbol_to_list (sym
, &local_symbols
);
1544 case C_THUMBEXTFUNC
:
1546 SYMBOL_CLASS (sym
) = LOC_STATIC
;
1547 SYMBOL_VALUE_ADDRESS (sym
) = (CORE_ADDR
) cs
->c_value
;
1548 SYMBOL_VALUE_ADDRESS (sym
) += ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
1549 add_symbol_to_list (sym
, &global_symbols
);
1553 case C_THUMBSTATFUNC
:
1555 SYMBOL_CLASS (sym
) = LOC_STATIC
;
1556 SYMBOL_VALUE_ADDRESS (sym
) = (CORE_ADDR
) cs
->c_value
;
1557 SYMBOL_VALUE_ADDRESS (sym
) += ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
1558 if (within_function
)
1560 /* Static symbol of local scope */
1561 add_symbol_to_list (sym
, &local_symbols
);
1565 /* Static symbol at top level of file */
1566 add_symbol_to_list (sym
, &file_symbols
);
1570 #ifdef C_GLBLREG /* AMD coff */
1574 SYMBOL_CLASS (sym
) = LOC_REGISTER
;
1575 SYMBOL_VALUE (sym
) = SDB_REG_TO_REGNUM (cs
->c_value
);
1576 add_symbol_to_list (sym
, &local_symbols
);
1584 SYMBOL_CLASS (sym
) = LOC_ARG
;
1585 add_symbol_to_list (sym
, &local_symbols
);
1586 #if !defined (BELIEVE_PCC_PROMOTION)
1587 if (TARGET_BYTE_ORDER
== BIG_ENDIAN
)
1589 /* If PCC says a parameter is a short or a char,
1590 aligned on an int boundary, realign it to the
1591 "little end" of the int. */
1592 struct type
*temptype
;
1593 temptype
= lookup_fundamental_type (current_objfile
,
1595 if (TYPE_LENGTH (SYMBOL_TYPE (sym
)) < TYPE_LENGTH (temptype
)
1596 && TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_INT
1597 && 0 == SYMBOL_VALUE (sym
) % TYPE_LENGTH (temptype
))
1599 SYMBOL_VALUE (sym
) +=
1600 TYPE_LENGTH (temptype
)
1601 - TYPE_LENGTH (SYMBOL_TYPE (sym
));
1608 SYMBOL_CLASS (sym
) = LOC_REGPARM
;
1609 SYMBOL_VALUE (sym
) = SDB_REG_TO_REGNUM (cs
->c_value
);
1610 add_symbol_to_list (sym
, &local_symbols
);
1611 #if !defined (BELIEVE_PCC_PROMOTION)
1612 /* FIXME: This should retain the current type, since it's just
1613 a register value. gnu@adobe, 26Feb93 */
1615 /* If PCC says a parameter is a short or a char,
1616 it is really an int. */
1617 struct type
*temptype
;
1619 lookup_fundamental_type (current_objfile
, FT_INTEGER
);
1620 if (TYPE_LENGTH (SYMBOL_TYPE (sym
)) < TYPE_LENGTH (temptype
)
1621 && TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_INT
)
1624 (TYPE_UNSIGNED (SYMBOL_TYPE (sym
))
1625 ? lookup_fundamental_type (current_objfile
,
1626 FT_UNSIGNED_INTEGER
)
1634 SYMBOL_CLASS (sym
) = LOC_TYPEDEF
;
1635 SYMBOL_NAMESPACE (sym
) = VAR_NAMESPACE
;
1637 /* If type has no name, give it one */
1638 if (TYPE_NAME (SYMBOL_TYPE (sym
)) == 0)
1640 if (TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_PTR
1641 || TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_FUNC
)
1643 /* If we are giving a name to a type such as "pointer to
1644 foo" or "function returning foo", we better not set
1645 the TYPE_NAME. If the program contains "typedef char
1646 *caddr_t;", we don't want all variables of type char
1647 * to print as caddr_t. This is not just a
1648 consequence of GDB's type management; CC and GCC (at
1649 least through version 2.4) both output variables of
1650 either type char * or caddr_t with the type
1651 refering to the C_TPDEF symbol for caddr_t. If a future
1652 compiler cleans this up it GDB is not ready for it
1653 yet, but if it becomes ready we somehow need to
1654 disable this check (without breaking the PCC/GCC2.4
1659 Fortunately, this check seems not to be necessary
1660 for anything except pointers or functions. */
1664 TYPE_NAME (SYMBOL_TYPE (sym
)) =
1665 concat (SYMBOL_NAME (sym
), NULL
);
1668 /* Ignore vendor section for Harris CX/UX targets. */
1669 else if (cs
->c_name
[0] == '$')
1671 #endif /* CXUX_TARGET */
1673 /* Keep track of any type which points to empty structured type,
1674 so it can be filled from a definition from another file. A
1675 simple forward reference (TYPE_CODE_UNDEF) is not an
1676 empty structured type, though; the forward references
1677 work themselves out via the magic of coff_lookup_type. */
1678 if (TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_PTR
&&
1679 TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym
))) == 0 &&
1680 TYPE_CODE (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym
))) !=
1683 register int i
= hashname (SYMBOL_NAME (sym
));
1685 SYMBOL_VALUE_CHAIN (sym
) = opaque_type_chain
[i
];
1686 opaque_type_chain
[i
] = sym
;
1688 add_symbol_to_list (sym
, &file_symbols
);
1694 SYMBOL_CLASS (sym
) = LOC_TYPEDEF
;
1695 SYMBOL_NAMESPACE (sym
) = STRUCT_NAMESPACE
;
1697 /* Some compilers try to be helpful by inventing "fake"
1698 names for anonymous enums, structures, and unions, like
1699 "~0fake" or ".0fake". Thanks, but no thanks... */
1700 if (TYPE_TAG_NAME (SYMBOL_TYPE (sym
)) == 0)
1701 if (SYMBOL_NAME (sym
) != NULL
1702 && *SYMBOL_NAME (sym
) != '~'
1703 && *SYMBOL_NAME (sym
) != '.')
1704 TYPE_TAG_NAME (SYMBOL_TYPE (sym
)) =
1705 concat (SYMBOL_NAME (sym
), NULL
);
1707 add_symbol_to_list (sym
, &file_symbols
);
1717 /* Decode a coff type specifier; return the type that is meant. */
1719 static struct type
*
1720 decode_type (register struct coff_symbol
*cs
, unsigned int c_type
,
1721 register union internal_auxent
*aux
)
1723 register struct type
*type
= 0;
1724 unsigned int new_c_type
;
1726 if (c_type
& ~N_BTMASK
)
1728 new_c_type
= DECREF (c_type
);
1731 type
= decode_type (cs
, new_c_type
, aux
);
1732 type
= lookup_pointer_type (type
);
1734 else if (ISFCN (c_type
))
1736 type
= decode_type (cs
, new_c_type
, aux
);
1737 type
= lookup_function_type (type
);
1739 else if (ISARY (c_type
))
1742 register unsigned short *dim
;
1743 struct type
*base_type
, *index_type
, *range_type
;
1745 /* Define an array type. */
1746 /* auxent refers to array, not base type */
1747 if (aux
->x_sym
.x_tagndx
.l
== 0)
1750 /* shift the indices down */
1751 dim
= &aux
->x_sym
.x_fcnary
.x_ary
.x_dimen
[0];
1754 for (i
= 0; *dim
&& i
< DIMNUM
- 1; i
++, dim
++)
1758 base_type
= decode_type (cs
, new_c_type
, aux
);
1759 index_type
= lookup_fundamental_type (current_objfile
, FT_INTEGER
);
1761 create_range_type ((struct type
*) NULL
, index_type
, 0, n
- 1);
1763 create_array_type ((struct type
*) NULL
, base_type
, range_type
);
1768 /* Reference to existing type. This only occurs with the
1769 struct, union, and enum types. EPI a29k coff
1770 fakes us out by producing aux entries with a nonzero
1771 x_tagndx for definitions of structs, unions, and enums, so we
1772 have to check the c_sclass field. SCO 3.2v4 cc gets confused
1773 with pointers to pointers to defined structs, and generates
1774 negative x_tagndx fields. */
1775 if (cs
->c_naux
> 0 && aux
->x_sym
.x_tagndx
.l
!= 0)
1777 if (cs
->c_sclass
!= C_STRTAG
1778 && cs
->c_sclass
!= C_UNTAG
1779 && cs
->c_sclass
!= C_ENTAG
1780 && aux
->x_sym
.x_tagndx
.l
>= 0)
1782 type
= coff_alloc_type (aux
->x_sym
.x_tagndx
.l
);
1787 complain (&tagndx_bad_complaint
, cs
->c_name
);
1788 /* And fall through to decode_base_type... */
1792 return decode_base_type (cs
, BTYPE (c_type
), aux
);
1795 /* Decode a coff type specifier for function definition;
1796 return the type that the function returns. */
1798 static struct type
*
1799 decode_function_type (register struct coff_symbol
*cs
, unsigned int c_type
,
1800 register union internal_auxent
*aux
)
1802 if (aux
->x_sym
.x_tagndx
.l
== 0)
1803 cs
->c_naux
= 0; /* auxent refers to function, not base type */
1805 return decode_type (cs
, DECREF (c_type
), aux
);
1810 static struct type
*
1811 decode_base_type (register struct coff_symbol
*cs
, unsigned int c_type
,
1812 register union internal_auxent
*aux
)
1819 /* shows up with "void (*foo)();" structure members */
1820 return lookup_fundamental_type (current_objfile
, FT_VOID
);
1823 /* DGUX actually defines both T_ARG and T_VOID to the same value. */
1826 /* Shows up in DGUX, I think. Not sure where. */
1827 return lookup_fundamental_type (current_objfile
, FT_VOID
); /* shouldn't show up here */
1833 /* Intel 960 COFF has this symbol and meaning. */
1834 return lookup_fundamental_type (current_objfile
, FT_VOID
);
1838 return lookup_fundamental_type (current_objfile
, FT_CHAR
);
1841 return lookup_fundamental_type (current_objfile
, FT_SHORT
);
1844 return lookup_fundamental_type (current_objfile
, FT_INTEGER
);
1847 if (cs
->c_sclass
== C_FIELD
1848 && aux
->x_sym
.x_misc
.x_lnsz
.x_size
> TARGET_LONG_BIT
)
1849 return lookup_fundamental_type (current_objfile
, FT_LONG_LONG
);
1851 return lookup_fundamental_type (current_objfile
, FT_LONG
);
1854 return lookup_fundamental_type (current_objfile
, FT_FLOAT
);
1857 return lookup_fundamental_type (current_objfile
, FT_DBL_PREC_FLOAT
);
1860 return lookup_fundamental_type (current_objfile
, FT_EXT_PREC_FLOAT
);
1863 if (cs
->c_naux
!= 1)
1865 /* anonymous structure type */
1866 type
= coff_alloc_type (cs
->c_symnum
);
1867 TYPE_CODE (type
) = TYPE_CODE_STRUCT
;
1868 TYPE_NAME (type
) = NULL
;
1869 /* This used to set the tag to "<opaque>". But I think setting it
1870 to NULL is right, and the printing code can print it as
1872 TYPE_TAG_NAME (type
) = NULL
;
1873 INIT_CPLUS_SPECIFIC (type
);
1874 TYPE_LENGTH (type
) = 0;
1875 TYPE_FIELDS (type
) = 0;
1876 TYPE_NFIELDS (type
) = 0;
1880 type
= coff_read_struct_type (cs
->c_symnum
,
1881 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1882 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
);
1887 if (cs
->c_naux
!= 1)
1889 /* anonymous union type */
1890 type
= coff_alloc_type (cs
->c_symnum
);
1891 TYPE_NAME (type
) = NULL
;
1892 /* This used to set the tag to "<opaque>". But I think setting it
1893 to NULL is right, and the printing code can print it as
1895 TYPE_TAG_NAME (type
) = NULL
;
1896 INIT_CPLUS_SPECIFIC (type
);
1897 TYPE_LENGTH (type
) = 0;
1898 TYPE_FIELDS (type
) = 0;
1899 TYPE_NFIELDS (type
) = 0;
1903 type
= coff_read_struct_type (cs
->c_symnum
,
1904 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1905 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
);
1907 TYPE_CODE (type
) = TYPE_CODE_UNION
;
1911 if (cs
->c_naux
!= 1)
1913 /* anonymous enum type */
1914 type
= coff_alloc_type (cs
->c_symnum
);
1915 TYPE_CODE (type
) = TYPE_CODE_ENUM
;
1916 TYPE_NAME (type
) = NULL
;
1917 /* This used to set the tag to "<opaque>". But I think setting it
1918 to NULL is right, and the printing code can print it as
1920 TYPE_TAG_NAME (type
) = NULL
;
1921 TYPE_LENGTH (type
) = 0;
1922 TYPE_FIELDS (type
) = 0;
1923 TYPE_NFIELDS (type
) = 0;
1927 type
= coff_read_enum_type (cs
->c_symnum
,
1928 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1929 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
);
1934 /* shouldn't show up here */
1938 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_CHAR
);
1941 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_SHORT
);
1944 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_INTEGER
);
1947 if (cs
->c_sclass
== C_FIELD
1948 && aux
->x_sym
.x_misc
.x_lnsz
.x_size
> TARGET_LONG_BIT
)
1949 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_LONG_LONG
);
1951 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_LONG
);
1953 complain (&unexpected_type_complaint
, cs
->c_name
);
1954 return lookup_fundamental_type (current_objfile
, FT_VOID
);
1957 /* This page contains subroutines of read_type. */
1959 /* Read the description of a structure (or union type) and return an
1960 object describing the type. */
1962 static struct type
*
1963 coff_read_struct_type (int index
, int length
, int lastsym
)
1967 struct nextfield
*next
;
1971 register struct type
*type
;
1972 register struct nextfield
*list
= 0;
1973 struct nextfield
*new;
1977 struct coff_symbol member_sym
;
1978 register struct coff_symbol
*ms
= &member_sym
;
1979 struct internal_syment sub_sym
;
1980 union internal_auxent sub_aux
;
1983 type
= coff_alloc_type (index
);
1984 TYPE_CODE (type
) = TYPE_CODE_STRUCT
;
1985 INIT_CPLUS_SPECIFIC (type
);
1986 TYPE_LENGTH (type
) = length
;
1988 while (!done
&& symnum
< lastsym
&& symnum
< nlist_nsyms_global
)
1990 read_one_sym (ms
, &sub_sym
, &sub_aux
);
1992 name
= EXTERNAL_NAME (name
, current_objfile
->obfd
);
1994 switch (ms
->c_sclass
)
1999 /* Get space to record the next field's data. */
2000 new = (struct nextfield
*) alloca (sizeof (struct nextfield
));
2004 /* Save the data. */
2008 ¤t_objfile
->symbol_obstack
);
2009 FIELD_TYPE (list
->field
) = decode_type (ms
, ms
->c_type
, &sub_aux
);
2010 FIELD_BITPOS (list
->field
) = 8 * ms
->c_value
;
2011 FIELD_BITSIZE (list
->field
) = 0;
2017 /* Get space to record the next field's data. */
2018 new = (struct nextfield
*) alloca (sizeof (struct nextfield
));
2022 /* Save the data. */
2026 ¤t_objfile
->symbol_obstack
);
2027 FIELD_TYPE (list
->field
) = decode_type (ms
, ms
->c_type
, &sub_aux
);
2028 FIELD_BITPOS (list
->field
) = ms
->c_value
;
2029 FIELD_BITSIZE (list
->field
) = sub_aux
.x_sym
.x_misc
.x_lnsz
.x_size
;
2038 /* Now create the vector of fields, and record how big it is. */
2040 TYPE_NFIELDS (type
) = nfields
;
2041 TYPE_FIELDS (type
) = (struct field
*)
2042 TYPE_ALLOC (type
, sizeof (struct field
) * nfields
);
2044 /* Copy the saved-up fields into the field vector. */
2046 for (n
= nfields
; list
; list
= list
->next
)
2047 TYPE_FIELD (type
, --n
) = list
->field
;
2052 /* Read a definition of an enumeration type,
2053 and create and return a suitable type object.
2054 Also defines the symbols that represent the values of the type. */
2057 static struct type
*
2058 coff_read_enum_type (int index
, int length
, int lastsym
)
2060 register struct symbol
*sym
;
2061 register struct type
*type
;
2064 struct pending
**symlist
;
2065 struct coff_symbol member_sym
;
2066 register struct coff_symbol
*ms
= &member_sym
;
2067 struct internal_syment sub_sym
;
2068 union internal_auxent sub_aux
;
2069 struct pending
*osyms
, *syms
;
2073 int unsigned_enum
= 1;
2075 type
= coff_alloc_type (index
);
2076 if (within_function
)
2077 symlist
= &local_symbols
;
2079 symlist
= &file_symbols
;
2081 o_nsyms
= osyms
? osyms
->nsyms
: 0;
2083 while (!done
&& symnum
< lastsym
&& symnum
< nlist_nsyms_global
)
2085 read_one_sym (ms
, &sub_sym
, &sub_aux
);
2087 name
= EXTERNAL_NAME (name
, current_objfile
->obfd
);
2089 switch (ms
->c_sclass
)
2092 sym
= (struct symbol
*) obstack_alloc
2093 (¤t_objfile
->symbol_obstack
,
2094 sizeof (struct symbol
));
2095 memset (sym
, 0, sizeof (struct symbol
));
2098 obsavestring (name
, strlen (name
),
2099 ¤t_objfile
->symbol_obstack
);
2100 SYMBOL_CLASS (sym
) = LOC_CONST
;
2101 SYMBOL_NAMESPACE (sym
) = VAR_NAMESPACE
;
2102 SYMBOL_VALUE (sym
) = ms
->c_value
;
2103 add_symbol_to_list (sym
, symlist
);
2108 /* Sometimes the linker (on 386/ix 2.0.2 at least) screws
2109 up the count of how many symbols to read. So stop
2116 /* Now fill in the fields of the type-structure. */
2119 TYPE_LENGTH (type
) = length
;
2121 TYPE_LENGTH (type
) = TARGET_INT_BIT
/ TARGET_CHAR_BIT
; /* Assume ints */
2122 TYPE_CODE (type
) = TYPE_CODE_ENUM
;
2123 TYPE_NFIELDS (type
) = nsyms
;
2124 TYPE_FIELDS (type
) = (struct field
*)
2125 TYPE_ALLOC (type
, sizeof (struct field
) * nsyms
);
2127 /* Find the symbols for the values and put them into the type.
2128 The symbols can be found in the symlist that we put them on
2129 to cause them to be defined. osyms contains the old value
2130 of that symlist; everything up to there was defined by us. */
2131 /* Note that we preserve the order of the enum constants, so
2132 that in something like "enum {FOO, LAST_THING=FOO}" we print
2133 FOO, not LAST_THING. */
2135 for (syms
= *symlist
, n
= 0; syms
; syms
= syms
->next
)
2141 for (; j
< syms
->nsyms
; j
++, n
++)
2143 struct symbol
*xsym
= syms
->symbol
[j
];
2144 SYMBOL_TYPE (xsym
) = type
;
2145 TYPE_FIELD_NAME (type
, n
) = SYMBOL_NAME (xsym
);
2146 TYPE_FIELD_BITPOS (type
, n
) = SYMBOL_VALUE (xsym
);
2147 if (SYMBOL_VALUE (xsym
) < 0)
2149 TYPE_FIELD_BITSIZE (type
, n
) = 0;
2156 TYPE_FLAGS (type
) |= TYPE_FLAG_UNSIGNED
;
2161 /* Register our ability to parse symbols for coff BFD files. */
2163 static struct sym_fns coff_sym_fns
=
2165 bfd_target_coff_flavour
,
2166 coff_new_init
, /* sym_new_init: init anything gbl to entire symtab */
2167 coff_symfile_init
, /* sym_init: read initial info, setup for sym_read() */
2168 coff_symfile_read
, /* sym_read: read a symbol file into symtab */
2169 coff_symfile_finish
, /* sym_finish: finished with file, cleanup */
2170 default_symfile_offsets
, /* sym_offsets: xlate external to internal form */
2171 NULL
/* next: pointer to next struct sym_fns */
2175 _initialize_coffread (void)
2177 add_symtab_fns (&coff_sym_fns
);