1 /* Read coff symbol tables and convert to internal format, for GDB.
2 Contributed by David D. Johnson, Brown University (ddj@cs.brown.edu).
3 Copyright 1987, 1988, 1989, 1990, 1991, 1992, 1993
4 Free Software Foundation, Inc.
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., 675 Mass Ave, Cambridge, MA 02139, USA. */
25 #include "breakpoint.h"
30 #include "gdb-stabs.h"
31 #include "complaints.h"
36 #include <time.h> /* For time_t in libbfd.h. */
37 #include <sys/types.h> /* For time_t, if not in time.h. */
38 #include "libbfd.h" /* FIXME secret internal data from BFD */
39 #include "coff/internal.h" /* Internal format of COFF symbols in BFD */
40 #include "libcoff.h" /* FIXME secret internal data from BFD */
42 struct coff_symfile_info
{
43 asection
*text_sect
; /* Text section accessor */
44 int symcount
; /* How many symbols are there in the file */
45 char *stringtab
; /* The actual string table */
46 int stringtab_size
; /* Its size */
47 file_ptr symtab_offset
; /* Offset in file to symbol table */
48 int symbol_size
; /* Bytes in a single symbol */
49 struct stab_section_info
*stab_section_info
; /* section starting points
50 of the original .o files before linking. */
52 asection
*stabsect
; /* Section pointer for .stab section */
53 asection
*stabstrsect
; /* Section pointer for .stab section */
54 asection
*stabindexsect
; /* Section pointer for .stab.index section */
57 file_ptr min_lineno_offset
; /* Where in file lowest line#s are */
58 file_ptr max_lineno_offset
; /* 1+last byte of line#s in file */
61 /* Translate an external name string into a user-visible name. */
62 #define EXTERNAL_NAME(string, abfd) \
63 (string[0] == bfd_get_symbol_leading_char(abfd)? string+1: string)
65 /* To be an sdb debug type, type must have at least a basic or primary
66 derived type. Using this rather than checking against T_NULL is
67 said to prevent core dumps if we try to operate on Michael Bloom
70 #define SDB_TYPE(type) (BTYPE(type) | (type & N_TMASK))
73 * Convert from an sdb register number to an internal gdb register number.
74 * This should be defined in tm.h, if REGISTER_NAMES is not set up
75 * to map one to one onto the sdb register numbers.
77 #ifndef SDB_REG_TO_REGNUM
78 # define SDB_REG_TO_REGNUM(value) (value)
81 /* Core address of start and end of text of current source file.
82 This comes from a ".text" symbol where x_nlinno > 0. */
84 static CORE_ADDR cur_src_start_addr
;
85 static CORE_ADDR cur_src_end_addr
;
87 /* Core address of the end of the first object file. */
88 static CORE_ADDR first_object_file_end
;
90 /* The addresses of the symbol table stream and number of symbols
91 of the object file we are reading (as copied into core). */
93 static FILE *nlist_stream_global
;
94 static int nlist_nsyms_global
;
96 /* Vector of line number information. */
98 static struct linetable
*line_vector
;
100 /* Index of next entry to go in line_vector_index. */
102 static int line_vector_index
;
104 /* Last line number recorded in the line vector. */
106 static int prev_line_number
;
108 /* Number of elements allocated for line_vector currently. */
110 static int line_vector_length
;
112 /* Pointers to scratch storage, used for reading raw symbols and auxents. */
114 static char *temp_sym
;
115 static char *temp_aux
;
117 /* Local variables that hold the shift and mask values for the
118 COFF file that we are currently reading. These come back to us
119 from BFD, and are referenced by their macro names, as well as
120 internally to the BTYPE, ISPTR, ISFCN, ISARY, ISTAG, and DECREF
121 macros from ../internalcoff.h . */
123 static unsigned local_n_btmask
;
124 static unsigned local_n_btshft
;
125 static unsigned local_n_tmask
;
126 static unsigned local_n_tshift
;
128 #define N_BTMASK local_n_btmask
129 #define N_BTSHFT local_n_btshft
130 #define N_TMASK local_n_tmask
131 #define N_TSHIFT local_n_tshift
133 /* Local variables that hold the sizes in the file of various COFF structures.
134 (We only need to know this to read them from the file -- BFD will then
135 translate the data in them, into `internal_xxx' structs in the right
136 byte order, alignment, etc.) */
138 static unsigned local_linesz
;
139 static unsigned local_symesz
;
140 static unsigned local_auxesz
;
143 /* Chain of typedefs of pointers to empty struct/union types.
144 They are chained thru the SYMBOL_VALUE_CHAIN. */
146 static struct symbol
*opaque_type_chain
[HASHSIZE
];
149 /* The type of the function we are currently reading in. This is
150 used by define_symbol to record the type of arguments to a function. */
152 struct type
*in_function_type
;
155 struct pending_block
*pending_blocks
;
157 /* Complaints about various problems in the file being read */
159 struct complaint ef_complaint
=
160 {"Unmatched .ef symbol(s) ignored starting at symnum %d", 0, 0};
162 struct complaint bf_no_aux_complaint
=
163 {"`.bf' symbol %d has no aux entry", 0, 0};
165 struct complaint ef_no_aux_complaint
=
166 {"`.ef' symbol %d has no aux entry", 0, 0};
168 struct complaint lineno_complaint
=
169 {"Line number pointer %d lower than start of line numbers", 0, 0};
171 struct complaint unexpected_type_complaint
=
172 {"Unexpected type for symbol %s", 0, 0};
174 struct complaint bad_sclass_complaint
=
175 {"Bad n_sclass for symbol %s", 0, 0};
177 struct complaint misordered_blocks_complaint
=
178 {"Blocks out of order at address %x", 0, 0};
180 struct complaint tagndx_bad_complaint
=
181 {"Symbol table entry for %s has bad tagndx value", 0, 0};
183 struct complaint eb_complaint
=
184 {"Mismatched .eb symbol ignored starting at symnum %d", 0, 0};
186 /* Simplified internal version of coff symbol table information */
190 int c_symnum
; /* symbol number of this entry */
191 int c_naux
; /* 0 if syment only, 1 if syment + auxent, etc */
199 coff_read_struct_type
PARAMS ((int, int, int));
202 decode_base_type
PARAMS ((struct coff_symbol
*, unsigned int,
203 union internal_auxent
*));
206 decode_type
PARAMS ((struct coff_symbol
*, unsigned int,
207 union internal_auxent
*));
210 decode_function_type
PARAMS ((struct coff_symbol
*, unsigned int,
211 union internal_auxent
*));
214 coff_read_enum_type
PARAMS ((int, int, int));
216 static struct symbol
*
217 process_coff_symbol
PARAMS ((struct coff_symbol
*, union internal_auxent
*,
221 patch_opaque_types
PARAMS ((struct symtab
*));
224 patch_type
PARAMS ((struct type
*, struct type
*));
227 enter_linenos
PARAMS ((long, int, int));
230 free_linetab
PARAMS ((void));
233 init_lineno
PARAMS ((int, long, int));
236 getfilename
PARAMS ((union internal_auxent
*));
239 getsymname
PARAMS ((struct internal_syment
*));
242 free_stringtab
PARAMS ((void));
245 init_stringtab
PARAMS ((int, long));
248 read_one_sym
PARAMS ((struct coff_symbol
*, struct internal_syment
*,
249 union internal_auxent
*));
252 read_coff_symtab
PARAMS ((long, int, struct objfile
*));
255 find_linenos
PARAMS ((bfd
*, sec_ptr
, PTR
));
258 coff_symfile_init
PARAMS ((struct objfile
*));
261 coff_new_init
PARAMS ((struct objfile
*));
264 coff_symfile_read
PARAMS ((struct objfile
*, struct section_offsets
*, int));
267 coff_symfile_finish
PARAMS ((struct objfile
*));
270 record_minimal_symbol
PARAMS ((char *, CORE_ADDR
, enum minimal_symbol_type
));
273 coff_end_symtab
PARAMS ((struct objfile
*));
276 complete_symtab
PARAMS ((char *, CORE_ADDR
, unsigned int));
279 coff_start_symtab
PARAMS ((void));
282 coff_record_line
PARAMS ((int, CORE_ADDR
));
285 coff_alloc_type
PARAMS ((int));
287 static struct type
**
288 coff_lookup_type
PARAMS ((int));
292 coff_locate_sections
PARAMS ((bfd
*, asection
*, PTR
));
294 /* We are called once per section from coff_symfile_read. We
295 need to examine each section we are passed, check to see
296 if it is something we are interested in processing, and
297 if so, stash away some access information for the section.
299 FIXME: The section names should not be hardwired strings. */
302 coff_locate_sections (ignore_abfd
, sectp
, csip
)
307 register struct coff_symfile_info
*csi
;
309 csi
= (struct coff_symfile_info
*) csip
;
310 if (STREQ (sectp
->name
, ".stab"))
312 csi
->stabsect
= sectp
;
314 else if (STREQ (sectp
->name
, ".stabstr"))
316 csi
->stabstrsect
= sectp
;
318 else if (STREQ (sectp
->name
, ".stab.index"))
320 csi
->stabindexsect
= sectp
;
324 /* Look up a coff type-number index. Return the address of the slot
325 where the type for that index is stored.
326 The type-number is in INDEX.
328 This can be used for finding the type associated with that index
329 or for associating a new type with the index. */
331 static struct type
**
332 coff_lookup_type (index
)
335 if (index
>= type_vector_length
)
337 int old_vector_length
= type_vector_length
;
339 type_vector_length
*= 2;
340 if (index
/* is still */ >= type_vector_length
) {
341 type_vector_length
= index
* 2;
343 type_vector
= (struct type
**)
344 xrealloc ((char *) type_vector
,
345 type_vector_length
* sizeof (struct type
*));
346 memset (&type_vector
[old_vector_length
], 0,
347 (type_vector_length
- old_vector_length
) * sizeof(struct type
*));
349 return &type_vector
[index
];
352 /* Make sure there is a type allocated for type number index
353 and return the type object.
354 This can create an empty (zeroed) type object. */
357 coff_alloc_type (index
)
360 register struct type
**type_addr
= coff_lookup_type (index
);
361 register struct type
*type
= *type_addr
;
363 /* If we are referring to a type not known at all yet,
364 allocate an empty type for it.
365 We will fill it in later if we find out how. */
368 type
= alloc_type (current_objfile
);
375 coff_record_line (line
, pc
)
379 struct linetable_entry
*e
;
380 /* Make sure line vector is big enough. */
382 if (line_vector_index
+ 2 >= line_vector_length
)
384 line_vector_length
*= 2;
385 line_vector
= (struct linetable
*)
386 xrealloc ((char *) line_vector
, sizeof (struct linetable
)
387 + (line_vector_length
388 * sizeof (struct linetable_entry
)));
391 e
= line_vector
->item
+ line_vector_index
++;
392 e
->line
= line
; e
->pc
= pc
;
395 /* Start a new symtab for a new source file.
396 This is called when a COFF ".file" symbol is seen;
397 it indicates the start of data for one original source file. */
403 /* We fill in the filename later. start_symtab
404 puts this pointer into last_source file and in
405 coff_end_symtab we assume we can free() it.
406 FIXME: leaks memory. */
408 /* We never know the directory name for COFF. */
410 /* The start address is irrelevant, since we set
411 last_source_start_addr in coff_end_symtab. */
414 /* Initialize the source file line number information for this file. */
416 if (line_vector
) /* Unlikely, but maybe possible? */
417 free ((PTR
)line_vector
);
418 line_vector_index
= 0;
419 line_vector_length
= 1000;
420 prev_line_number
= -2; /* Force first line number to be explicit */
421 line_vector
= (struct linetable
*)
422 xmalloc (sizeof (struct linetable
)
423 + line_vector_length
* sizeof (struct linetable_entry
));
426 /* Save the vital information from when starting to read a file,
427 for use when closing off the current file.
428 NAME is the file name the symbols came from, START_ADDR is the first
429 text address for the file, and SIZE is the number of bytes of text. */
432 complete_symtab (name
, start_addr
, size
)
434 CORE_ADDR start_addr
;
437 last_source_file
= savestring (name
, strlen (name
));
438 cur_src_start_addr
= start_addr
;
439 cur_src_end_addr
= start_addr
+ size
;
441 if (current_objfile
-> ei
.entry_point
>= cur_src_start_addr
&&
442 current_objfile
-> ei
.entry_point
< cur_src_end_addr
)
444 current_objfile
-> ei
.entry_file_lowpc
= cur_src_start_addr
;
445 current_objfile
-> ei
.entry_file_highpc
= cur_src_end_addr
;
449 /* Finish the symbol definitions for one main source file,
450 close off all the lexical contexts for that file
451 (creating struct block's for them), then make the
452 struct symtab for that file and put it in the list of all such. */
455 coff_end_symtab (objfile
)
456 struct objfile
*objfile
;
458 struct symtab
*symtab
;
460 last_source_start_addr
= cur_src_start_addr
;
462 /* For no good reason, this file stores the number of entries in a
463 separate variable instead of in line_vector->nitems. Fix it. */
465 line_vector
->nitems
= line_vector_index
;
467 /* For COFF, we only have one subfile, so we can just look at
468 subfiles and not worry about there being other elements in the
469 chain. We fill in various fields now because we didn't know them
470 before (or because doing it now is simply an artifact of how this
471 file used to be written). */
472 subfiles
->line_vector
= line_vector
;
473 subfiles
->name
= last_source_file
;
475 /* sort_pending is needed for amdcoff, at least.
476 sort_linevec is needed for the SCO compiler. */
477 symtab
= end_symtab (cur_src_end_addr
, 1, 1, objfile
, 0);
480 free_named_symtabs (symtab
->filename
);
482 /* Reinitialize for beginning of new file. */
484 line_vector_length
= -1;
485 last_source_file
= NULL
;
489 record_minimal_symbol (name
, address
, type
)
492 enum minimal_symbol_type type
;
494 /* We don't want TDESC entry points in the minimal symbol table */
495 if (name
[0] == '@') return;
497 prim_record_minimal_symbol (savestring (name
, strlen (name
)), address
, type
);
500 /* coff_symfile_init ()
501 is the coff-specific initialization routine for reading symbols.
502 It is passed a struct objfile which contains, among other things,
503 the BFD for the file whose symbols are being read, and a slot for
504 a pointer to "private data" which we fill with cookies and other
505 treats for coff_symfile_read ().
507 We will only be called if this is a COFF or COFF-like file.
508 BFD handles figuring out the format of the file, and code in symtab.c
509 uses BFD's determination to vector to us.
511 The ultimate result is a new symtab (or, FIXME, eventually a psymtab). */
513 static int text_bfd_scnum
;
516 coff_symfile_init (objfile
)
517 struct objfile
*objfile
;
519 asection
*section
, *strsection
;
520 bfd
*abfd
= objfile
->obfd
;
522 /* Allocate struct to keep track of the symfile */
523 objfile
-> sym_private
= xmmalloc (objfile
-> md
,
524 sizeof (struct coff_symfile_info
));
526 memset (objfile
->sym_private
, 0, sizeof (struct coff_symfile_info
));
528 init_entry_point_info (objfile
);
530 /* Save the section number for the text section */
531 section
= bfd_get_section_by_name (abfd
, ".text");
533 text_bfd_scnum
= section
->index
;
538 /* This function is called for every section; it finds the outer limits
539 of the line table (minimum and maximum file offset) so that the
540 mainline code can read the whole thing for efficiency. */
544 find_linenos (abfd
, asect
, vpinfo
)
549 struct coff_symfile_info
*info
;
551 file_ptr offset
, maxoff
;
553 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
554 count
= asect
->lineno_count
;
559 size
= count
* local_linesz
;
561 info
= (struct coff_symfile_info
*)vpinfo
;
562 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
563 offset
= asect
->line_filepos
;
566 if (offset
< info
->min_lineno_offset
|| info
->min_lineno_offset
== 0)
567 info
->min_lineno_offset
= offset
;
569 maxoff
= offset
+ size
;
570 if (maxoff
> info
->max_lineno_offset
)
571 info
->max_lineno_offset
= maxoff
;
575 /* The BFD for this file -- only good while we're actively reading
576 symbols into a psymtab or a symtab. */
578 static bfd
*symfile_bfd
;
580 /* Read a symbol file, after initialization by coff_symfile_init. */
581 /* FIXME! Addr and Mainline are not used yet -- this will not work for
582 shared libraries or add_file! */
586 coff_symfile_read (objfile
, section_offsets
, mainline
)
587 struct objfile
*objfile
;
588 struct section_offsets
*section_offsets
;
591 struct coff_symfile_info
*info
;
592 bfd
*abfd
= objfile
->obfd
;
593 coff_data_type
*cdata
= coff_data (abfd
);
594 char *name
= bfd_get_filename (abfd
);
599 int stringtab_offset
;
600 struct cleanup
*back_to
;
601 int stabsize
, stabstrsize
;
603 info
= (struct coff_symfile_info
*) objfile
-> sym_private
;
604 symfile_bfd
= abfd
; /* Kludge for swap routines */
606 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
607 desc
= fileno ((FILE *)(abfd
->iostream
)); /* File descriptor */
608 num_symbols
= bfd_get_symcount (abfd
); /* How many syms */
609 symtab_offset
= cdata
->sym_filepos
; /* Symbol table file offset */
610 stringtab_offset
= symtab_offset
+ /* String table file offset */
611 num_symbols
* cdata
->local_symesz
;
613 /* Set a few file-statics that give us specific information about
614 the particular COFF file format we're reading. */
615 local_linesz
= cdata
->local_linesz
;
616 local_n_btmask
= cdata
->local_n_btmask
;
617 local_n_btshft
= cdata
->local_n_btshft
;
618 local_n_tmask
= cdata
->local_n_tmask
;
619 local_n_tshift
= cdata
->local_n_tshift
;
620 local_linesz
= cdata
->local_linesz
;
621 local_symesz
= cdata
->local_symesz
;
622 local_auxesz
= cdata
->local_auxesz
;
624 /* Allocate space for raw symbol and aux entries, based on their
625 space requirements as reported by BFD. */
626 temp_sym
= (char *) xmalloc
627 (cdata
->local_symesz
+ cdata
->local_auxesz
);
628 temp_aux
= temp_sym
+ cdata
->local_symesz
;
629 back_to
= make_cleanup (free_current_contents
, &temp_sym
);
632 /* Read the line number table, all at once. */
633 info
->min_lineno_offset
= 0;
634 info
->max_lineno_offset
= 0;
635 bfd_map_over_sections (abfd
, find_linenos
, (PTR
) info
);
637 make_cleanup (free_linetab
, 0);
638 val
= init_lineno (desc
, info
->min_lineno_offset
,
639 info
->max_lineno_offset
- info
->min_lineno_offset
);
641 error ("\"%s\": error reading line numbers\n", name
);
643 /* Now read the string table, all at once. */
645 make_cleanup (free_stringtab
, 0);
646 val
= init_stringtab (desc
, stringtab_offset
);
648 error ("\"%s\": can't get string table", name
);
650 init_minimal_symbol_collection ();
651 make_cleanup (discard_minimal_symbols
, 0);
653 /* Now that the executable file is positioned at symbol table,
654 process it and define symbols accordingly. */
656 read_coff_symtab ((long)symtab_offset
, num_symbols
, objfile
);
658 /* Sort symbols alphabetically within each block. */
660 sort_all_symtab_syms ();
662 /* Install any minimal symbols that have been collected as the current
663 minimal symbols for this objfile. */
665 install_minimal_symbols (objfile
);
667 bfd_map_over_sections (abfd
, coff_locate_sections
, (PTR
) info
);
672 fseek ((FILE *) abfd
->iostream
, abfd
->where
, 0);
674 stabsize
= bfd_section_size (abfd
, info
->stabsect
);
675 stabstrsize
= bfd_section_size (abfd
, info
->stabstrsect
);
677 coffstab_build_psymtabs (objfile
,
680 info
->stabsect
->filepos
, stabsize
,
681 info
->stabstrsect
->filepos
, stabstrsize
);
684 do_cleanups (back_to
);
688 coff_new_init (ignore
)
689 struct objfile
*ignore
;
693 /* Perform any local cleanups required when we are done with a particular
694 objfile. I.E, we are in the process of discarding all symbol information
695 for an objfile, freeing up all memory held for it, and unlinking the
696 objfile struct from the global list of known objfiles. */
699 coff_symfile_finish (objfile
)
700 struct objfile
*objfile
;
702 if (objfile
-> sym_private
!= NULL
)
704 mfree (objfile
-> md
, objfile
-> sym_private
);
709 /* Given pointers to a symbol table in coff style exec file,
710 analyze them and create struct symtab's describing the symbols.
711 NSYMS is the number of symbols in the symbol table.
712 We read them one at a time using read_one_sym (). */
715 read_coff_symtab (symtab_offset
, nsyms
, objfile
)
718 struct objfile
*objfile
;
721 register struct context_stack
*new;
722 struct coff_symbol coff_symbol
;
723 register struct coff_symbol
*cs
= &coff_symbol
;
724 static struct internal_syment main_sym
;
725 static union internal_auxent main_aux
;
726 struct coff_symbol fcn_cs_saved
;
727 static struct internal_syment fcn_sym_saved
;
728 static union internal_auxent fcn_aux_saved
;
731 /* A .file is open. */
732 int in_source_file
= 0;
733 int num_object_files
= 0;
734 int next_file_symnum
= -1;
736 /* Name of the current file. */
737 char *filestring
= "";
739 int fcn_first_line
= 0;
740 int fcn_last_line
= 0;
741 int fcn_start_addr
= 0;
742 long fcn_line_ptr
= 0;
745 stream
= bfd_cache_lookup(objfile
->obfd
);
747 perror_with_name(objfile
->name
);
749 /* Work around a stdio bug in SunOS4.1.1 (this makes me nervous....
750 it's hard to know I've really worked around it. The fix should be
751 harmless, anyway). The symptom of the bug is that the first
752 fread (in read_one_sym), will (in my example) actually get data
753 from file offset 268, when the fseek was to 264 (and ftell shows
754 264). This causes all hell to break loose. I was unable to
755 reproduce this on a short test program which operated on the same
756 file, performing (I think) the same sequence of operations.
758 It stopped happening when I put in this rewind().
760 FIXME: Find out if this has been reported to Sun, whether it has
761 been fixed in a later release, etc. */
765 /* Position to read the symbol table. */
766 val
= fseek (stream
, (long)symtab_offset
, 0);
768 perror_with_name (objfile
->name
);
770 current_objfile
= objfile
;
771 nlist_stream_global
= stream
;
772 nlist_nsyms_global
= nsyms
;
773 last_source_file
= NULL
;
774 memset (opaque_type_chain
, 0, sizeof opaque_type_chain
);
776 if (type_vector
) /* Get rid of previous one */
777 free ((PTR
)type_vector
);
778 type_vector_length
= 160;
779 type_vector
= (struct type
**)
780 xmalloc (type_vector_length
* sizeof (struct type
*));
781 memset (type_vector
, 0, type_vector_length
* sizeof (struct type
*));
783 coff_start_symtab ();
786 while (symnum
< nsyms
)
788 QUIT
; /* Make this command interruptable. */
789 read_one_sym (cs
, &main_sym
, &main_aux
);
792 temp_sem_val
= cs
->c_name
[0] << 24 | cs
->c_name
[1] << 16 |
793 cs
->c_name
[2] << 8 | cs
->c_name
[3];
794 if (int_sem_val
== temp_sem_val
)
795 last_coffsem
= (int) strtol (cs
->c_name
+4, (char **) NULL
, 10);
798 if (cs
->c_symnum
== next_file_symnum
&& cs
->c_sclass
!= C_FILE
)
800 if (last_source_file
)
801 coff_end_symtab (objfile
);
803 coff_start_symtab ();
804 complete_symtab ("_globals_", 0, first_object_file_end
);
805 /* done with all files, everything from here on out is globals */
808 /* Special case for file with type declarations only, no text. */
809 if (!last_source_file
&& SDB_TYPE (cs
->c_type
)
810 && cs
->c_secnum
== N_DEBUG
)
811 complete_symtab (filestring
, 0, 0);
813 /* Typedefs should not be treated as symbol definitions. */
814 if (ISFCN (cs
->c_type
) && cs
->c_sclass
!= C_TPDEF
)
816 /* Record all functions -- external and static -- in minsyms. */
817 record_minimal_symbol (cs
->c_name
, cs
->c_value
, mst_text
);
819 fcn_line_ptr
= main_aux
.x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
;
820 fcn_start_addr
= cs
->c_value
;
822 fcn_sym_saved
= main_sym
;
823 fcn_aux_saved
= main_aux
;
827 switch (cs
->c_sclass
)
836 complain (&bad_sclass_complaint
, cs
->c_name
);
841 * c_value field contains symnum of next .file entry in table
842 * or symnum of first global after last .file.
844 next_file_symnum
= cs
->c_value
;
846 filestring
= getfilename (&main_aux
);
851 * Complete symbol table for last object file
852 * containing debugging information.
854 if (last_source_file
)
856 coff_end_symtab (objfile
);
857 coff_start_symtab ();
863 if (cs
->c_name
[0] == '.') {
864 if (STREQ (cs
->c_name
, ".text")) {
865 /* FIXME: don't wire in ".text" as section name
867 if (++num_object_files
== 1) {
868 /* last address of startup file */
869 first_object_file_end
= cs
->c_value
+
870 main_aux
.x_scn
.x_scnlen
;
872 /* Check for in_source_file deals with case of
873 a file with debugging symbols
874 followed by a later file with no symbols. */
876 complete_symtab (filestring
, cs
->c_value
,
877 main_aux
.x_scn
.x_scnlen
);
880 /* flush rest of '.' symbols */
883 else if (!SDB_TYPE (cs
->c_type
)
884 && cs
->c_name
[0] == 'L'
885 && (strncmp (cs
->c_name
, "LI%", 3) == 0
886 || strncmp (cs
->c_name
, "LF%", 3) == 0
887 || strncmp (cs
->c_name
,"LC%",3) == 0
888 || strncmp (cs
->c_name
,"LP%",3) == 0
889 || strncmp (cs
->c_name
,"LPB%",4) == 0
890 || strncmp (cs
->c_name
,"LBB%",4) == 0
891 || strncmp (cs
->c_name
,"LBE%",4) == 0
892 || strncmp (cs
->c_name
,"LPBX%",5) == 0))
893 /* At least on a 3b1, gcc generates swbeg and string labels
894 that look like this. Ignore them. */
896 /* fall in for static symbols that don't start with '.' */
898 /* Record external symbols in minsyms if we don't have debug
899 info for them. FIXME, this is probably the wrong thing
900 to do. Why don't we record them even if we do have
901 debug symbol info? What really belongs in the minsyms
903 if (!SDB_TYPE (cs
->c_type
)) {
904 /* FIXME: This is BOGUS Will Robinson!
905 Coff should provide the SEC_CODE flag for executable sections,
906 then if we could look up sections by section number we
907 could see if the flags indicate SEC_CODE. If so, then
908 record this symbol as a function in the minimal symbol table.
909 But why are absolute syms recorded as functions, anyway? */
910 if (cs
->c_secnum
<= text_bfd_scnum
+1) {/* text or abs */
911 record_minimal_symbol (cs
->c_name
, cs
->c_value
,
915 record_minimal_symbol (cs
->c_name
, cs
->c_value
,
920 process_coff_symbol (cs
, &main_aux
, objfile
);
924 if (STREQ (cs
->c_name
, ".bf"))
928 /* value contains address of first non-init type code */
929 /* main_aux.x_sym.x_misc.x_lnsz.x_lnno
930 contains line number of '{' } */
932 complain (&bf_no_aux_complaint
, cs
->c_symnum
);
933 fcn_first_line
= main_aux
.x_sym
.x_misc
.x_lnsz
.x_lnno
;
935 /* Might want to check that locals are 0 and
936 context_stack_depth is zero, and complain if not. */
939 new = push_context (depth
, fcn_start_addr
);
940 fcn_cs_saved
.c_name
= getsymname (&fcn_sym_saved
);
941 new->name
= process_coff_symbol (&fcn_cs_saved
,
942 &fcn_aux_saved
, objfile
);
944 else if (STREQ (cs
->c_name
, ".ef"))
946 /* the value of .ef is the address of epilogue code;
947 not useful for gdb. */
948 /* { main_aux.x_sym.x_misc.x_lnsz.x_lnno
949 contains number of lines to '}' */
950 new = pop_context ();
951 /* Stack must be empty now. */
952 if (context_stack_depth
> 0 || new == NULL
)
954 complain (&ef_complaint
, cs
->c_symnum
);
960 complain (&ef_no_aux_complaint
, cs
->c_symnum
);
961 fcn_last_line
= 0x7FFFFFFF;
965 fcn_last_line
= main_aux
.x_sym
.x_misc
.x_lnsz
.x_lnno
;
967 enter_linenos (fcn_line_ptr
, fcn_first_line
, fcn_last_line
);
969 finish_block (new->name
, &local_symbols
, new->old_blocks
,
971 #if defined (FUNCTION_EPILOGUE_SIZE)
972 /* This macro should be defined only on
974 fcn_aux_saved.x_sym.x_misc.x_fsize
975 field is always zero.
976 So use the .bf record information that
977 points to the epilogue and add the size
979 cs
->c_value
+ FUNCTION_EPILOGUE_SIZE
,
981 fcn_cs_saved
.c_value
+
982 fcn_aux_saved
.x_sym
.x_misc
.x_fsize
,
991 if (STREQ (cs
->c_name
, ".bb"))
993 push_context (++depth
, cs
->c_value
);
995 else if (STREQ (cs
->c_name
, ".eb"))
997 new = pop_context ();
998 if (depth
-- != new->depth
)
1000 complain (&eb_complaint
, symnum
);
1003 if (local_symbols
&& context_stack_depth
> 0)
1005 /* Make a block for the local symbols within. */
1006 finish_block (0, &local_symbols
, new->old_blocks
,
1007 new->start_addr
, cs
->c_value
, objfile
);
1009 /* Now pop locals of block just finished. */
1010 local_symbols
= new->locals
;
1015 process_coff_symbol (cs
, &main_aux
, objfile
);
1020 if (last_source_file
)
1021 coff_end_symtab (objfile
);
1023 /* Patch up any opaque types (references to types that are not defined
1024 in the file where they are referenced, e.g. "struct foo *bar"). */
1025 ALL_OBJFILE_SYMTABS (objfile
, s
)
1026 patch_opaque_types (s
);
1028 current_objfile
= NULL
;
1031 /* Routines for reading headers and symbols from executable. */
1034 /* Move these XXXMAGIC symbol defns into BFD! */
1036 /* Read COFF file header, check magic number,
1037 and return number of symbols. */
1038 read_file_hdr (chan
, file_hdr
)
1042 lseek (chan
, 0L, 0);
1043 if (myread (chan
, (char *)file_hdr
, FILHSZ
) < 0)
1046 switch (file_hdr
->f_magic
)
1061 #if defined (MC68KWRMAGIC) \
1062 && (!defined (MC68MAGIC) || MC68KWRMAGIC != MC68MAGIC)
1076 case I960ROMAGIC
: /* Intel 960 */
1079 case I960RWMAGIC
: /* Intel 960 */
1081 return file_hdr
->f_nsyms
;
1085 if (BADMAG(file_hdr
))
1088 return file_hdr
->f_nsyms
;
1096 /* Read the next symbol, swap it, and return it in both internal_syment
1097 form, and coff_symbol form. Also return its first auxent, if any,
1098 in internal_auxent form, and skip any other auxents. */
1101 read_one_sym (cs
, sym
, aux
)
1102 register struct coff_symbol
*cs
;
1103 register struct internal_syment
*sym
;
1104 register union internal_auxent
*aux
;
1108 cs
->c_symnum
= symnum
;
1109 fread (temp_sym
, local_symesz
, 1, nlist_stream_global
);
1110 bfd_coff_swap_sym_in (symfile_bfd
, temp_sym
, (char *)sym
);
1111 cs
->c_naux
= sym
->n_numaux
& 0xff;
1112 if (cs
->c_naux
>= 1)
1114 fread (temp_aux
, local_auxesz
, 1, nlist_stream_global
);
1115 bfd_coff_swap_aux_in (symfile_bfd
, temp_aux
, sym
->n_type
, sym
->n_sclass
,
1117 /* If more than one aux entry, read past it (only the first aux
1119 for (i
= 1; i
< cs
->c_naux
; i
++)
1120 fread (temp_aux
, local_auxesz
, 1, nlist_stream_global
);
1122 cs
->c_name
= getsymname (sym
);
1123 cs
->c_value
= sym
->n_value
;
1124 cs
->c_sclass
= (sym
->n_sclass
& 0xff);
1125 cs
->c_secnum
= sym
->n_scnum
;
1126 cs
->c_type
= (unsigned) sym
->n_type
;
1127 if (!SDB_TYPE (cs
->c_type
))
1130 symnum
+= 1 + cs
->c_naux
;
1133 /* Support for string table handling */
1135 static char *stringtab
= NULL
;
1138 init_stringtab (chan
, offset
)
1144 unsigned char lengthbuf
[4];
1148 if (lseek (chan
, offset
, 0) < 0)
1151 val
= myread (chan
, (char *)lengthbuf
, sizeof lengthbuf
);
1152 length
= bfd_h_get_32 (symfile_bfd
, lengthbuf
);
1154 /* If no string table is needed, then the file may end immediately
1155 after the symbols. Just return with `stringtab' set to null. */
1156 if (val
!= sizeof lengthbuf
|| length
< sizeof lengthbuf
)
1159 stringtab
= (char *) xmalloc (length
);
1160 memcpy (stringtab
, &length
, sizeof length
);
1161 if (length
== sizeof length
) /* Empty table -- just the count */
1164 val
= myread (chan
, stringtab
+ sizeof lengthbuf
, length
- sizeof lengthbuf
);
1165 if (val
!= length
- sizeof lengthbuf
|| stringtab
[length
- 1] != '\0')
1180 getsymname (symbol_entry
)
1181 struct internal_syment
*symbol_entry
;
1183 static char buffer
[SYMNMLEN
+1];
1186 if (symbol_entry
->_n
._n_n
._n_zeroes
== 0)
1188 result
= stringtab
+ symbol_entry
->_n
._n_n
._n_offset
;
1192 strncpy (buffer
, symbol_entry
->_n
._n_name
, SYMNMLEN
);
1193 buffer
[SYMNMLEN
] = '\0';
1199 /* Extract the file name from the aux entry of a C_FILE symbol. Return
1200 only the last component of the name. Result is in static storage and
1201 is only good for temporary use. */
1204 getfilename (aux_entry
)
1205 union internal_auxent
*aux_entry
;
1207 static char buffer
[BUFSIZ
];
1208 register char *temp
;
1211 if (aux_entry
->x_file
.x_n
.x_zeroes
== 0)
1212 strcpy (buffer
, stringtab
+ aux_entry
->x_file
.x_n
.x_offset
);
1215 strncpy (buffer
, aux_entry
->x_file
.x_fname
, FILNMLEN
);
1216 buffer
[FILNMLEN
] = '\0';
1219 if ((temp
= strrchr (result
, '/')) != NULL
)
1224 /* Support for line number handling */
1225 static char *linetab
= NULL
;
1226 static long linetab_offset
;
1227 static unsigned long linetab_size
;
1229 /* Read in all the line numbers for fast lookups later. Leave them in
1230 external (unswapped) format in memory; we'll swap them as we enter
1231 them into GDB's data structures. */
1234 init_lineno (chan
, offset
, size
)
1241 linetab_offset
= offset
;
1242 linetab_size
= size
;
1249 if (lseek (chan
, offset
, 0) < 0)
1252 /* Allocate the desired table, plus a sentinel */
1253 linetab
= (char *) xmalloc (size
+ local_linesz
);
1255 val
= myread (chan
, linetab
, size
);
1259 /* Terminate it with an all-zero sentinel record */
1260 memset (linetab
+ size
, 0, local_linesz
);
1273 #if !defined (L_LNNO32)
1274 #define L_LNNO32(lp) ((lp)->l_lnno)
1278 enter_linenos (file_offset
, first_line
, last_line
)
1280 register int first_line
;
1281 register int last_line
;
1283 register char *rawptr
;
1284 struct internal_lineno lptr
;
1286 if (file_offset
< linetab_offset
)
1288 complain (&lineno_complaint
, file_offset
);
1289 if (file_offset
> linetab_size
) /* Too big to be an offset? */
1291 file_offset
+= linetab_offset
; /* Try reading at that linetab offset */
1294 rawptr
= &linetab
[file_offset
- linetab_offset
];
1296 /* skip first line entry for each function */
1297 rawptr
+= local_linesz
;
1298 /* line numbers start at one for the first line of the function */
1302 bfd_coff_swap_lineno_in (symfile_bfd
, rawptr
, &lptr
);
1303 rawptr
+= local_linesz
;
1304 /* The next function, or the sentinel, will have L_LNNO32 zero; we exit. */
1305 if (L_LNNO32 (&lptr
) && L_LNNO32 (&lptr
) <= last_line
)
1306 coff_record_line (first_line
+ L_LNNO32 (&lptr
), lptr
.l_addr
.l_paddr
);
1313 patch_type (type
, real_type
)
1315 struct type
*real_type
;
1317 register struct type
*target
= TYPE_TARGET_TYPE (type
);
1318 register struct type
*real_target
= TYPE_TARGET_TYPE (real_type
);
1319 int field_size
= TYPE_NFIELDS (real_target
) * sizeof (struct field
);
1321 TYPE_LENGTH (target
) = TYPE_LENGTH (real_target
);
1322 TYPE_NFIELDS (target
) = TYPE_NFIELDS (real_target
);
1323 TYPE_FIELDS (target
) = (struct field
*) TYPE_ALLOC (target
, field_size
);
1325 memcpy (TYPE_FIELDS (target
), TYPE_FIELDS (real_target
), field_size
);
1327 if (TYPE_NAME (real_target
))
1329 if (TYPE_NAME (target
))
1330 free (TYPE_NAME (target
));
1331 TYPE_NAME (target
) = concat (TYPE_NAME (real_target
), NULL
);
1335 /* Patch up all appropriate typedef symbols in the opaque_type_chains
1336 so that they can be used to print out opaque data structures properly. */
1339 patch_opaque_types (s
)
1342 register struct block
*b
;
1344 register struct symbol
*real_sym
;
1346 /* Go through the per-file symbols only */
1347 b
= BLOCKVECTOR_BLOCK (BLOCKVECTOR (s
), STATIC_BLOCK
);
1348 for (i
= BLOCK_NSYMS (b
) - 1; i
>= 0; i
--)
1350 /* Find completed typedefs to use to fix opaque ones.
1351 Remove syms from the chain when their types are stored,
1352 but search the whole chain, as there may be several syms
1353 from different files with the same name. */
1354 real_sym
= BLOCK_SYM (b
, i
);
1355 if (SYMBOL_CLASS (real_sym
) == LOC_TYPEDEF
&&
1356 SYMBOL_NAMESPACE (real_sym
) == VAR_NAMESPACE
&&
1357 TYPE_CODE (SYMBOL_TYPE (real_sym
)) == TYPE_CODE_PTR
&&
1358 TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (real_sym
))) != 0)
1360 register char *name
= SYMBOL_NAME (real_sym
);
1361 register int hash
= hashname (name
);
1362 register struct symbol
*sym
, *prev
;
1365 for (sym
= opaque_type_chain
[hash
]; sym
;)
1367 if (name
[0] == SYMBOL_NAME (sym
)[0] &&
1368 STREQ (name
+ 1, SYMBOL_NAME (sym
) + 1))
1372 SYMBOL_VALUE_CHAIN (prev
) = SYMBOL_VALUE_CHAIN (sym
);
1376 opaque_type_chain
[hash
] = SYMBOL_VALUE_CHAIN (sym
);
1379 patch_type (SYMBOL_TYPE (sym
), SYMBOL_TYPE (real_sym
));
1383 sym
= SYMBOL_VALUE_CHAIN (prev
);
1387 sym
= opaque_type_chain
[hash
];
1393 sym
= SYMBOL_VALUE_CHAIN (sym
);
1400 static struct symbol
*
1401 process_coff_symbol (cs
, aux
, objfile
)
1402 register struct coff_symbol
*cs
;
1403 register union internal_auxent
*aux
;
1404 struct objfile
*objfile
;
1406 register struct symbol
*sym
1407 = (struct symbol
*) obstack_alloc (&objfile
->symbol_obstack
,
1408 sizeof (struct symbol
));
1410 struct type
*temptype
;
1412 memset (sym
, 0, sizeof (struct symbol
));
1414 name
= EXTERNAL_NAME (name
, objfile
->obfd
);
1415 SYMBOL_NAME (sym
) = obstack_copy0 (&objfile
->symbol_obstack
, name
,
1418 /* default assumptions */
1419 SYMBOL_VALUE (sym
) = cs
->c_value
;
1420 SYMBOL_NAMESPACE (sym
) = VAR_NAMESPACE
;
1422 if (ISFCN (cs
->c_type
))
1425 /* FIXME: This has NOT been tested. The DBX version has.. */
1426 /* Generate a template for the type of this function. The
1427 types of the arguments will be added as we read the symbol
1429 struct type
*new = (struct type
*)
1430 obstack_alloc (&objfile
->symbol_obstack
, sizeof (struct type
));
1432 memcpy (new, lookup_function_type (decode_function_type (cs
, cs
->c_type
, aux
)),
1433 sizeof(struct type
));
1434 SYMBOL_TYPE (sym
) = new;
1435 in_function_type
= SYMBOL_TYPE(sym
);
1438 lookup_function_type (decode_function_type (cs
, cs
->c_type
, aux
));
1441 SYMBOL_CLASS (sym
) = LOC_BLOCK
;
1442 if (cs
->c_sclass
== C_STAT
)
1443 add_symbol_to_list (sym
, &file_symbols
);
1444 else if (cs
->c_sclass
== C_EXT
)
1445 add_symbol_to_list (sym
, &global_symbols
);
1449 SYMBOL_TYPE (sym
) = decode_type (cs
, cs
->c_type
, aux
);
1450 switch (cs
->c_sclass
)
1456 SYMBOL_CLASS (sym
) = LOC_LOCAL
;
1457 add_symbol_to_list (sym
, &local_symbols
);
1461 SYMBOL_CLASS (sym
) = LOC_STATIC
;
1462 SYMBOL_VALUE_ADDRESS (sym
) = (CORE_ADDR
) cs
->c_value
;
1463 add_symbol_to_list (sym
, &global_symbols
);
1467 SYMBOL_CLASS (sym
) = LOC_STATIC
;
1468 SYMBOL_VALUE_ADDRESS (sym
) = (CORE_ADDR
) cs
->c_value
;
1469 if (within_function
) {
1470 /* Static symbol of local scope */
1471 add_symbol_to_list (sym
, &local_symbols
);
1474 /* Static symbol at top level of file */
1475 add_symbol_to_list (sym
, &file_symbols
);
1479 #ifdef C_GLBLREG /* AMD coff */
1483 SYMBOL_CLASS (sym
) = LOC_REGISTER
;
1484 SYMBOL_VALUE (sym
) = SDB_REG_TO_REGNUM(cs
->c_value
);
1485 add_symbol_to_list (sym
, &local_symbols
);
1492 SYMBOL_CLASS (sym
) = LOC_ARG
;
1494 /* FIXME: This has not been tested. */
1495 /* Add parameter to function. */
1496 add_param_to_type(&in_function_type
,sym
);
1498 add_symbol_to_list (sym
, &local_symbols
);
1499 #if !defined (BELIEVE_PCC_PROMOTION) && (TARGET_BYTE_ORDER == BIG_ENDIAN)
1500 /* If PCC says a parameter is a short or a char,
1501 aligned on an int boundary, realign it to the "little end"
1503 temptype
= lookup_fundamental_type (current_objfile
, FT_INTEGER
);
1504 if (TYPE_LENGTH (SYMBOL_TYPE (sym
)) < TYPE_LENGTH (temptype
)
1505 && TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_INT
1506 && 0 == SYMBOL_VALUE (sym
) % TYPE_LENGTH (temptype
))
1508 SYMBOL_VALUE (sym
) += TYPE_LENGTH (temptype
)
1509 - TYPE_LENGTH (SYMBOL_TYPE (sym
));
1515 SYMBOL_CLASS (sym
) = LOC_REGPARM
;
1516 SYMBOL_VALUE (sym
) = SDB_REG_TO_REGNUM(cs
->c_value
);
1517 add_symbol_to_list (sym
, &local_symbols
);
1518 #if !defined (BELIEVE_PCC_PROMOTION)
1519 /* FIXME: This should retain the current type, since it's just
1520 a register value. gnu@adobe, 26Feb93 */
1521 /* If PCC says a parameter is a short or a char,
1522 it is really an int. */
1523 temptype
= lookup_fundamental_type (current_objfile
, FT_INTEGER
);
1524 if (TYPE_LENGTH (SYMBOL_TYPE (sym
)) < TYPE_LENGTH (temptype
)
1525 && TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_INT
)
1527 SYMBOL_TYPE (sym
) = TYPE_UNSIGNED (SYMBOL_TYPE (sym
))
1528 ? lookup_fundamental_type (current_objfile
,
1529 FT_UNSIGNED_INTEGER
)
1536 SYMBOL_CLASS (sym
) = LOC_TYPEDEF
;
1537 SYMBOL_NAMESPACE (sym
) = VAR_NAMESPACE
;
1539 /* If type has no name, give it one */
1540 if (TYPE_NAME (SYMBOL_TYPE (sym
)) == 0)
1541 TYPE_NAME (SYMBOL_TYPE (sym
)) = concat (SYMBOL_NAME (sym
), NULL
);
1543 /* Keep track of any type which points to empty structured type,
1544 so it can be filled from a definition from another file. A
1545 simple forward reference (TYPE_CODE_UNDEF) is not an
1546 empty structured type, though; the forward references
1547 work themselves out via the magic of coff_lookup_type. */
1548 if (TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_PTR
&&
1549 TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym
))) == 0 &&
1550 TYPE_CODE (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym
))) !=
1553 register int i
= hashname (SYMBOL_NAME (sym
));
1555 SYMBOL_VALUE_CHAIN (sym
) = opaque_type_chain
[i
];
1556 opaque_type_chain
[i
] = sym
;
1558 add_symbol_to_list (sym
, &file_symbols
);
1564 SYMBOL_CLASS (sym
) = LOC_TYPEDEF
;
1565 SYMBOL_NAMESPACE (sym
) = STRUCT_NAMESPACE
;
1567 /* Some compilers try to be helpful by inventing "fake"
1568 names for anonymous enums, structures, and unions, like
1569 "~0fake" or ".0fake". Thanks, but no thanks... */
1570 if (TYPE_TAG_NAME (SYMBOL_TYPE (sym
)) == 0)
1571 if (SYMBOL_NAME(sym
) != NULL
1572 && *SYMBOL_NAME(sym
) != '~'
1573 && *SYMBOL_NAME(sym
) != '.')
1574 TYPE_TAG_NAME (SYMBOL_TYPE (sym
)) =
1575 concat (SYMBOL_NAME (sym
), NULL
);
1577 add_symbol_to_list (sym
, &file_symbols
);
1587 /* Decode a coff type specifier;
1588 return the type that is meant. */
1592 decode_type (cs
, c_type
, aux
)
1593 register struct coff_symbol
*cs
;
1594 unsigned int c_type
;
1595 register union internal_auxent
*aux
;
1597 register struct type
*type
= 0;
1598 unsigned int new_c_type
;
1600 if (c_type
& ~N_BTMASK
)
1602 new_c_type
= DECREF (c_type
);
1605 type
= decode_type (cs
, new_c_type
, aux
);
1606 type
= lookup_pointer_type (type
);
1608 else if (ISFCN (c_type
))
1610 type
= decode_type (cs
, new_c_type
, aux
);
1611 type
= lookup_function_type (type
);
1613 else if (ISARY (c_type
))
1616 register unsigned short *dim
;
1617 struct type
*base_type
, *index_type
, *range_type
;
1619 /* Define an array type. */
1620 /* auxent refers to array, not base type */
1621 if (aux
->x_sym
.x_tagndx
.l
== 0)
1624 /* shift the indices down */
1625 dim
= &aux
->x_sym
.x_fcnary
.x_ary
.x_dimen
[0];
1628 for (i
= 0; *dim
&& i
< DIMNUM
- 1; i
++, dim
++)
1632 base_type
= decode_type (cs
, new_c_type
, aux
);
1633 index_type
= lookup_fundamental_type (current_objfile
, FT_INTEGER
);
1635 create_range_type ((struct type
*) NULL
, index_type
, 0, n
- 1);
1637 create_array_type ((struct type
*) NULL
, base_type
, range_type
);
1642 /* Reference to existing type. This only occurs with the
1643 struct, union, and enum types. EPI a29k coff
1644 fakes us out by producing aux entries with a nonzero
1645 x_tagndx for definitions of structs, unions, and enums, so we
1646 have to check the c_sclass field. SCO 3.2v4 cc gets confused
1647 with pointers to pointers to defined structs, and generates
1648 negative x_tagndx fields. */
1649 if (cs
->c_naux
> 0 && aux
->x_sym
.x_tagndx
.l
!= 0)
1651 if (cs
->c_sclass
!= C_STRTAG
1652 && cs
->c_sclass
!= C_UNTAG
1653 && cs
->c_sclass
!= C_ENTAG
1654 && aux
->x_sym
.x_tagndx
.l
>= 0)
1656 type
= coff_alloc_type (aux
->x_sym
.x_tagndx
.l
);
1659 complain (&tagndx_bad_complaint
, cs
->c_name
);
1660 /* And fall through to decode_base_type... */
1664 return decode_base_type (cs
, BTYPE (c_type
), aux
);
1667 /* Decode a coff type specifier for function definition;
1668 return the type that the function returns. */
1672 decode_function_type (cs
, c_type
, aux
)
1673 register struct coff_symbol
*cs
;
1674 unsigned int c_type
;
1675 register union internal_auxent
*aux
;
1677 if (aux
->x_sym
.x_tagndx
.l
== 0)
1678 cs
->c_naux
= 0; /* auxent refers to function, not base type */
1680 return decode_type (cs
, DECREF (c_type
), aux
);
1687 decode_base_type (cs
, c_type
, aux
)
1688 register struct coff_symbol
*cs
;
1689 unsigned int c_type
;
1690 register union internal_auxent
*aux
;
1697 /* shows up with "void (*foo)();" structure members */
1698 return lookup_fundamental_type (current_objfile
, FT_VOID
);
1701 /* DGUX actually defines both T_ARG and T_VOID to the same value. */
1704 /* Shows up in DGUX, I think. Not sure where. */
1705 return lookup_fundamental_type (current_objfile
, FT_VOID
); /* shouldn't show up here */
1711 /* Intel 960 COFF has this symbol and meaning. */
1712 return lookup_fundamental_type (current_objfile
, FT_VOID
);
1716 return lookup_fundamental_type (current_objfile
, FT_CHAR
);
1719 return lookup_fundamental_type (current_objfile
, FT_SHORT
);
1722 return lookup_fundamental_type (current_objfile
, FT_INTEGER
);
1725 return lookup_fundamental_type (current_objfile
, FT_LONG
);
1728 return lookup_fundamental_type (current_objfile
, FT_FLOAT
);
1731 return lookup_fundamental_type (current_objfile
, FT_DBL_PREC_FLOAT
);
1734 if (cs
->c_naux
!= 1)
1736 /* anonymous structure type */
1737 type
= coff_alloc_type (cs
->c_symnum
);
1738 TYPE_CODE (type
) = TYPE_CODE_STRUCT
;
1739 TYPE_NAME (type
) = NULL
;
1740 /* This used to set the tag to "<opaque>". But I think setting it
1741 to NULL is right, and the printing code can print it as
1743 TYPE_TAG_NAME (type
) = NULL
;
1744 INIT_CPLUS_SPECIFIC(type
);
1745 TYPE_LENGTH (type
) = 0;
1746 TYPE_FIELDS (type
) = 0;
1747 TYPE_NFIELDS (type
) = 0;
1751 type
= coff_read_struct_type (cs
->c_symnum
,
1752 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1753 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
);
1758 if (cs
->c_naux
!= 1)
1760 /* anonymous union type */
1761 type
= coff_alloc_type (cs
->c_symnum
);
1762 TYPE_NAME (type
) = NULL
;
1763 /* This used to set the tag to "<opaque>". But I think setting it
1764 to NULL is right, and the printing code can print it as
1766 TYPE_TAG_NAME (type
) = NULL
;
1767 INIT_CPLUS_SPECIFIC(type
);
1768 TYPE_LENGTH (type
) = 0;
1769 TYPE_FIELDS (type
) = 0;
1770 TYPE_NFIELDS (type
) = 0;
1774 type
= coff_read_struct_type (cs
->c_symnum
,
1775 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1776 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
);
1778 TYPE_CODE (type
) = TYPE_CODE_UNION
;
1782 if (cs
->c_naux
!= 1)
1784 /* anonymous enum type */
1785 type
= coff_alloc_type (cs
->c_symnum
);
1786 TYPE_CODE (type
) = TYPE_CODE_ENUM
;
1787 TYPE_NAME (type
) = NULL
;
1788 /* This used to set the tag to "<opaque>". But I think setting it
1789 to NULL is right, and the printing code can print it as
1791 TYPE_TAG_NAME (type
) = NULL
;
1792 TYPE_LENGTH (type
) = 0;
1793 TYPE_FIELDS (type
) = 0;
1794 TYPE_NFIELDS(type
) = 0;
1798 type
= coff_read_enum_type (cs
->c_symnum
,
1799 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1800 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
);
1805 /* shouldn't show up here */
1809 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_CHAR
);
1812 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_SHORT
);
1815 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_INTEGER
);
1818 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_LONG
);
1820 complain (&unexpected_type_complaint
, cs
->c_name
);
1821 return lookup_fundamental_type (current_objfile
, FT_VOID
);
1824 /* This page contains subroutines of read_type. */
1826 /* Read the description of a structure (or union type)
1827 and return an object describing the type. */
1829 static struct type
*
1830 coff_read_struct_type (index
, length
, lastsym
)
1837 struct nextfield
*next
;
1841 register struct type
*type
;
1842 register struct nextfield
*list
= 0;
1843 struct nextfield
*new;
1847 struct coff_symbol member_sym
;
1848 register struct coff_symbol
*ms
= &member_sym
;
1849 struct internal_syment sub_sym
;
1850 union internal_auxent sub_aux
;
1853 type
= coff_alloc_type (index
);
1854 TYPE_CODE (type
) = TYPE_CODE_STRUCT
;
1855 INIT_CPLUS_SPECIFIC(type
);
1856 TYPE_LENGTH (type
) = length
;
1858 while (!done
&& symnum
< lastsym
&& symnum
< nlist_nsyms_global
)
1860 read_one_sym (ms
, &sub_sym
, &sub_aux
);
1862 name
= EXTERNAL_NAME (name
, current_objfile
->obfd
);
1864 switch (ms
->c_sclass
)
1869 /* Get space to record the next field's data. */
1870 new = (struct nextfield
*) alloca (sizeof (struct nextfield
));
1874 /* Save the data. */
1875 list
->field
.name
= savestring (name
, strlen (name
));
1876 list
->field
.type
= decode_type (ms
, ms
->c_type
, &sub_aux
);
1877 list
->field
.bitpos
= 8 * ms
->c_value
;
1878 list
->field
.bitsize
= 0;
1884 /* Get space to record the next field's data. */
1885 new = (struct nextfield
*) alloca (sizeof (struct nextfield
));
1889 /* Save the data. */
1890 list
->field
.name
= savestring (name
, strlen (name
));
1891 list
->field
.type
= decode_type (ms
, ms
->c_type
, &sub_aux
);
1892 list
->field
.bitpos
= ms
->c_value
;
1893 list
->field
.bitsize
= sub_aux
.x_sym
.x_misc
.x_lnsz
.x_size
;
1902 /* Now create the vector of fields, and record how big it is. */
1904 TYPE_NFIELDS (type
) = nfields
;
1905 TYPE_FIELDS (type
) = (struct field
*)
1906 TYPE_ALLOC (type
, sizeof (struct field
) * nfields
);
1908 /* Copy the saved-up fields into the field vector. */
1910 for (n
= nfields
; list
; list
= list
->next
)
1911 TYPE_FIELD (type
, --n
) = list
->field
;
1916 /* Read a definition of an enumeration type,
1917 and create and return a suitable type object.
1918 Also defines the symbols that represent the values of the type. */
1921 static struct type
*
1922 coff_read_enum_type (index
, length
, lastsym
)
1927 register struct symbol
*sym
;
1928 register struct type
*type
;
1931 struct pending
**symlist
;
1932 struct coff_symbol member_sym
;
1933 register struct coff_symbol
*ms
= &member_sym
;
1934 struct internal_syment sub_sym
;
1935 union internal_auxent sub_aux
;
1936 struct pending
*osyms
, *syms
;
1941 type
= coff_alloc_type (index
);
1942 if (within_function
)
1943 symlist
= &local_symbols
;
1945 symlist
= &file_symbols
;
1947 o_nsyms
= osyms
? osyms
->nsyms
: 0;
1949 while (!done
&& symnum
< lastsym
&& symnum
< nlist_nsyms_global
)
1951 read_one_sym (ms
, &sub_sym
, &sub_aux
);
1953 name
= EXTERNAL_NAME (name
, current_objfile
->obfd
);
1955 switch (ms
->c_sclass
)
1958 sym
= (struct symbol
*) xmalloc (sizeof (struct symbol
));
1959 memset (sym
, 0, sizeof (struct symbol
));
1961 SYMBOL_NAME (sym
) = savestring (name
, strlen (name
));
1962 SYMBOL_CLASS (sym
) = LOC_CONST
;
1963 SYMBOL_NAMESPACE (sym
) = VAR_NAMESPACE
;
1964 SYMBOL_VALUE (sym
) = ms
->c_value
;
1965 add_symbol_to_list (sym
, symlist
);
1970 /* Sometimes the linker (on 386/ix 2.0.2 at least) screws
1971 up the count of how many symbols to read. So stop
1978 /* Now fill in the fields of the type-structure. */
1981 TYPE_LENGTH (type
) = length
;
1983 TYPE_LENGTH (type
) = TARGET_INT_BIT
/ TARGET_CHAR_BIT
; /* Assume ints */
1984 TYPE_CODE (type
) = TYPE_CODE_ENUM
;
1985 TYPE_NFIELDS (type
) = nsyms
;
1986 TYPE_FIELDS (type
) = (struct field
*)
1987 TYPE_ALLOC (type
, sizeof (struct field
) * nsyms
);
1989 /* Find the symbols for the values and put them into the type.
1990 The symbols can be found in the symlist that we put them on
1991 to cause them to be defined. osyms contains the old value
1992 of that symlist; everything up to there was defined by us. */
1993 /* Note that we preserve the order of the enum constants, so
1994 that in something like "enum {FOO, LAST_THING=FOO}" we print
1995 FOO, not LAST_THING. */
1997 for (syms
= *symlist
, n
= 0; syms
; syms
= syms
->next
)
2002 for (; j
< syms
->nsyms
; j
++,n
++)
2004 struct symbol
*xsym
= syms
->symbol
[j
];
2005 SYMBOL_TYPE (xsym
) = type
;
2006 TYPE_FIELD_NAME (type
, n
) = SYMBOL_NAME (xsym
);
2007 TYPE_FIELD_VALUE (type
, n
) = 0;
2008 TYPE_FIELD_BITPOS (type
, n
) = SYMBOL_VALUE (xsym
);
2009 TYPE_FIELD_BITSIZE (type
, n
) = 0;
2016 /* This screws up perfectly good C programs with enums. FIXME. */
2017 /* Is this Modula-2's BOOLEAN type? Flag it as such if so. */
2018 if(TYPE_NFIELDS(type
) == 2 &&
2019 ((STREQ(TYPE_FIELD_NAME(type
,0),"TRUE") &&
2020 STREQ(TYPE_FIELD_NAME(type
,1),"FALSE")) ||
2021 (STREQ(TYPE_FIELD_NAME(type
,1),"TRUE") &&
2022 STREQ(TYPE_FIELD_NAME(type
,0),"FALSE"))))
2023 TYPE_CODE(type
) = TYPE_CODE_BOOL
;
2028 struct section_offsets
*
2029 coff_symfile_offsets (objfile
, addr
)
2030 struct objfile
*objfile
;
2033 struct section_offsets
*section_offsets
;
2036 section_offsets
= (struct section_offsets
*)
2037 obstack_alloc (&objfile
-> psymbol_obstack
,
2038 sizeof (struct section_offsets
) +
2039 sizeof (section_offsets
->offsets
) * (SECT_OFF_MAX
-1));
2041 for (i
= 0; i
< SECT_OFF_MAX
; i
++)
2042 ANOFFSET (section_offsets
, i
) = addr
;
2044 return section_offsets
;
2047 /* Register our ability to parse symbols for coff BFD files */
2049 static struct sym_fns coff_sym_fns
=
2051 "coff", /* sym_name: name or name prefix of BFD target type */
2052 4, /* sym_namelen: number of significant sym_name chars */
2053 coff_new_init
, /* sym_new_init: init anything gbl to entire symtab */
2054 coff_symfile_init
, /* sym_init: read initial info, setup for sym_read() */
2055 coff_symfile_read
, /* sym_read: read a symbol file into symtab */
2056 coff_symfile_finish
, /* sym_finish: finished with file, cleanup */
2057 coff_symfile_offsets
, /* sym_offsets: xlate external to internal form */
2058 NULL
/* next: pointer to next struct sym_fns */
2062 _initialize_coffread ()
2064 add_symtab_fns(&coff_sym_fns
);