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 "stabsread.h"
32 #include "complaints.h"
37 #include <time.h> /* For time_t in libbfd.h. */
38 #include <sys/types.h> /* For time_t, if not in time.h. */
39 #include "libbfd.h" /* FIXME secret internal data from BFD */
40 #include "coff/internal.h" /* Internal format of COFF symbols in BFD */
41 #include "libcoff.h" /* FIXME secret internal data from BFD */
43 struct coff_symfile_info
{
44 file_ptr min_lineno_offset
; /* Where in file lowest line#s are */
45 file_ptr max_lineno_offset
; /* 1+last byte of line#s in file */
47 asection
*stabsect
; /* Section pointer for .stab section */
48 asection
*stabstrsect
; /* Section pointer for .stab section */
49 asection
*stabindexsect
; /* Section pointer for .stab.index section */
53 /* Translate an external name string into a user-visible name. */
54 #define EXTERNAL_NAME(string, abfd) \
55 (string[0] == bfd_get_symbol_leading_char(abfd)? string+1: string)
57 /* To be an sdb debug type, type must have at least a basic or primary
58 derived type. Using this rather than checking against T_NULL is
59 said to prevent core dumps if we try to operate on Michael Bloom
62 #define SDB_TYPE(type) (BTYPE(type) | (type & N_TMASK))
65 * Convert from an sdb register number to an internal gdb register number.
66 * This should be defined in tm.h, if REGISTER_NAMES is not set up
67 * to map one to one onto the sdb register numbers.
69 #ifndef SDB_REG_TO_REGNUM
70 # define SDB_REG_TO_REGNUM(value) (value)
73 /* Core address of start and end of text of current source file.
74 This comes from a ".text" symbol where x_nlinno > 0. */
76 static CORE_ADDR cur_src_start_addr
;
77 static CORE_ADDR cur_src_end_addr
;
79 /* Core address of the end of the first object file. */
80 static CORE_ADDR first_object_file_end
;
82 /* The addresses of the symbol table stream and number of symbols
83 of the object file we are reading (as copied into core). */
85 static FILE *nlist_stream_global
;
86 static int nlist_nsyms_global
;
88 /* Vector of line number information. */
90 static struct linetable
*line_vector
;
92 /* Index of next entry to go in line_vector_index. */
94 static int line_vector_index
;
96 /* Last line number recorded in the line vector. */
98 static int prev_line_number
;
100 /* Number of elements allocated for line_vector currently. */
102 static int line_vector_length
;
104 /* Pointers to scratch storage, used for reading raw symbols and auxents. */
106 static char *temp_sym
;
107 static char *temp_aux
;
109 /* Local variables that hold the shift and mask values for the
110 COFF file that we are currently reading. These come back to us
111 from BFD, and are referenced by their macro names, as well as
112 internally to the BTYPE, ISPTR, ISFCN, ISARY, ISTAG, and DECREF
113 macros from ../internalcoff.h . */
115 static unsigned local_n_btmask
;
116 static unsigned local_n_btshft
;
117 static unsigned local_n_tmask
;
118 static unsigned local_n_tshift
;
120 #define N_BTMASK local_n_btmask
121 #define N_BTSHFT local_n_btshft
122 #define N_TMASK local_n_tmask
123 #define N_TSHIFT local_n_tshift
125 /* Local variables that hold the sizes in the file of various COFF structures.
126 (We only need to know this to read them from the file -- BFD will then
127 translate the data in them, into `internal_xxx' structs in the right
128 byte order, alignment, etc.) */
130 static unsigned local_linesz
;
131 static unsigned local_symesz
;
132 static unsigned local_auxesz
;
135 /* Chain of typedefs of pointers to empty struct/union types.
136 They are chained thru the SYMBOL_VALUE_CHAIN. */
138 static struct symbol
*opaque_type_chain
[HASHSIZE
];
141 /* The type of the function we are currently reading in. This is
142 used by define_symbol to record the type of arguments to a function. */
144 struct type
*in_function_type
;
147 struct pending_block
*pending_blocks
;
149 /* Complaints about various problems in the file being read */
151 struct complaint ef_complaint
=
152 {"Unmatched .ef symbol(s) ignored starting at symnum %d", 0, 0};
154 struct complaint bf_no_aux_complaint
=
155 {"`.bf' symbol %d has no aux entry", 0, 0};
157 struct complaint ef_no_aux_complaint
=
158 {"`.ef' symbol %d has no aux entry", 0, 0};
160 struct complaint lineno_complaint
=
161 {"Line number pointer %d lower than start of line numbers", 0, 0};
163 struct complaint unexpected_type_complaint
=
164 {"Unexpected type for symbol %s", 0, 0};
166 struct complaint bad_sclass_complaint
=
167 {"Bad n_sclass for symbol %s", 0, 0};
169 struct complaint misordered_blocks_complaint
=
170 {"Blocks out of order at address %x", 0, 0};
172 struct complaint tagndx_bad_complaint
=
173 {"Symbol table entry for %s has bad tagndx value", 0, 0};
175 struct complaint eb_complaint
=
176 {"Mismatched .eb symbol ignored starting at symnum %d", 0, 0};
178 /* Simplified internal version of coff symbol table information */
182 int c_symnum
; /* symbol number of this entry */
183 int c_naux
; /* 0 if syment only, 1 if syment + auxent, etc */
191 coff_read_struct_type
PARAMS ((int, int, int));
194 decode_base_type
PARAMS ((struct coff_symbol
*, unsigned int,
195 union internal_auxent
*));
198 decode_type
PARAMS ((struct coff_symbol
*, unsigned int,
199 union internal_auxent
*));
202 decode_function_type
PARAMS ((struct coff_symbol
*, unsigned int,
203 union internal_auxent
*));
206 coff_read_enum_type
PARAMS ((int, int, int));
208 static struct symbol
*
209 process_coff_symbol
PARAMS ((struct coff_symbol
*, union internal_auxent
*,
213 patch_opaque_types
PARAMS ((struct symtab
*));
216 patch_type
PARAMS ((struct type
*, struct type
*));
219 enter_linenos
PARAMS ((long, int, int));
222 free_linetab
PARAMS ((void));
225 init_lineno
PARAMS ((int, long, int));
228 getfilename
PARAMS ((union internal_auxent
*));
231 getsymname
PARAMS ((struct internal_syment
*));
234 free_stringtab
PARAMS ((void));
237 init_stringtab
PARAMS ((int, long));
240 read_one_sym
PARAMS ((struct coff_symbol
*, struct internal_syment
*,
241 union internal_auxent
*));
244 read_coff_symtab
PARAMS ((long, int, struct objfile
*));
247 find_linenos
PARAMS ((bfd
*, sec_ptr
, PTR
));
250 coff_symfile_init
PARAMS ((struct objfile
*));
253 coff_new_init
PARAMS ((struct objfile
*));
256 coff_symfile_read
PARAMS ((struct objfile
*, struct section_offsets
*, int));
259 coff_symfile_finish
PARAMS ((struct objfile
*));
262 record_minimal_symbol
PARAMS ((char *, CORE_ADDR
, enum minimal_symbol_type
));
265 coff_end_symtab
PARAMS ((struct objfile
*));
268 complete_symtab
PARAMS ((char *, CORE_ADDR
, unsigned int));
271 coff_start_symtab
PARAMS ((void));
274 coff_record_line
PARAMS ((int, CORE_ADDR
));
277 coff_alloc_type
PARAMS ((int));
279 static struct type
**
280 coff_lookup_type
PARAMS ((int));
284 coff_locate_sections
PARAMS ((bfd
*, asection
*, PTR
));
286 /* We are called once per section from coff_symfile_read. We
287 need to examine each section we are passed, check to see
288 if it is something we are interested in processing, and
289 if so, stash away some access information for the section.
291 FIXME: The section names should not be hardwired strings (what
292 should they be? I don't think most object file formats have enough
293 section flags to specify what kind of debug section it is
297 coff_locate_sections (ignore_abfd
, sectp
, csip
)
302 register struct coff_symfile_info
*csi
;
304 csi
= (struct coff_symfile_info
*) csip
;
305 if (STREQ (sectp
->name
, ".stab"))
307 csi
->stabsect
= sectp
;
309 else if (STREQ (sectp
->name
, ".stabstr"))
311 csi
->stabstrsect
= sectp
;
313 else if (STREQ (sectp
->name
, ".stab.index"))
315 csi
->stabindexsect
= sectp
;
319 /* Look up a coff type-number index. Return the address of the slot
320 where the type for that index is stored.
321 The type-number is in INDEX.
323 This can be used for finding the type associated with that index
324 or for associating a new type with the index. */
326 static struct type
**
327 coff_lookup_type (index
)
330 if (index
>= type_vector_length
)
332 int old_vector_length
= type_vector_length
;
334 type_vector_length
*= 2;
335 if (index
/* is still */ >= type_vector_length
) {
336 type_vector_length
= index
* 2;
338 type_vector
= (struct type
**)
339 xrealloc ((char *) type_vector
,
340 type_vector_length
* sizeof (struct type
*));
341 memset (&type_vector
[old_vector_length
], 0,
342 (type_vector_length
- old_vector_length
) * sizeof(struct type
*));
344 return &type_vector
[index
];
347 /* Make sure there is a type allocated for type number index
348 and return the type object.
349 This can create an empty (zeroed) type object. */
352 coff_alloc_type (index
)
355 register struct type
**type_addr
= coff_lookup_type (index
);
356 register struct type
*type
= *type_addr
;
358 /* If we are referring to a type not known at all yet,
359 allocate an empty type for it.
360 We will fill it in later if we find out how. */
363 type
= alloc_type (current_objfile
);
369 /* Record a line number entry for line LINE at address PC.
370 FIXME: Use record_line instead. */
373 coff_record_line (line
, pc
)
377 struct linetable_entry
*e
;
378 /* Make sure line vector is big enough. */
380 if (line_vector_index
+ 2 >= line_vector_length
)
382 line_vector_length
*= 2;
383 line_vector
= (struct linetable
*)
384 xrealloc ((char *) line_vector
, sizeof (struct linetable
)
385 + (line_vector_length
386 * sizeof (struct linetable_entry
)));
389 e
= line_vector
->item
+ line_vector_index
++;
390 e
->line
= line
; e
->pc
= pc
;
393 /* Start a new symtab for a new source file.
394 This is called when a COFF ".file" symbol is seen;
395 it indicates the start of data for one original source file. */
401 /* We fill in the filename later. start_symtab
402 puts this pointer into last_source file and in
403 coff_end_symtab we assume we can free() it.
404 FIXME: leaks memory. */
406 /* We never know the directory name for COFF. */
408 /* The start address is irrelevant, since we set
409 last_source_start_addr in coff_end_symtab. */
412 /* Initialize the source file line number information for this file. */
414 if (line_vector
) /* Unlikely, but maybe possible? */
415 free ((PTR
)line_vector
);
416 line_vector_index
= 0;
417 line_vector_length
= 1000;
418 prev_line_number
= -2; /* Force first line number to be explicit */
419 line_vector
= (struct linetable
*)
420 xmalloc (sizeof (struct linetable
)
421 + line_vector_length
* sizeof (struct linetable_entry
));
424 /* Save the vital information from when starting to read a file,
425 for use when closing off the current file.
426 NAME is the file name the symbols came from, START_ADDR is the first
427 text address for the file, and SIZE is the number of bytes of text. */
430 complete_symtab (name
, start_addr
, size
)
432 CORE_ADDR start_addr
;
435 last_source_file
= savestring (name
, strlen (name
));
436 cur_src_start_addr
= start_addr
;
437 cur_src_end_addr
= start_addr
+ size
;
439 if (current_objfile
-> ei
.entry_point
>= cur_src_start_addr
&&
440 current_objfile
-> ei
.entry_point
< cur_src_end_addr
)
442 current_objfile
-> ei
.entry_file_lowpc
= cur_src_start_addr
;
443 current_objfile
-> ei
.entry_file_highpc
= cur_src_end_addr
;
447 /* Finish the symbol definitions for one main source file,
448 close off all the lexical contexts for that file
449 (creating struct block's for them), then make the
450 struct symtab for that file and put it in the list of all such. */
453 coff_end_symtab (objfile
)
454 struct objfile
*objfile
;
456 struct symtab
*symtab
;
458 last_source_start_addr
= cur_src_start_addr
;
460 /* For no good reason, this file stores the number of entries in a
461 separate variable instead of in line_vector->nitems. Fix it. */
463 line_vector
->nitems
= line_vector_index
;
465 /* For COFF, we only have one subfile, so we can just look at
466 subfiles and not worry about there being other elements in the
467 chain. We fill in various fields now because we didn't know them
468 before (or because doing it now is simply an artifact of how this
469 file used to be written). */
470 subfiles
->line_vector
= line_vector
;
471 subfiles
->name
= last_source_file
;
473 /* sort_pending is needed for amdcoff, at least.
474 sort_linevec is needed for the SCO compiler. */
475 symtab
= end_symtab (cur_src_end_addr
, 1, 1, objfile
, 0);
478 free_named_symtabs (symtab
->filename
);
480 /* Reinitialize for beginning of new file. */
482 line_vector_length
= -1;
483 last_source_file
= NULL
;
487 record_minimal_symbol (name
, address
, type
)
490 enum minimal_symbol_type type
;
492 /* We don't want TDESC entry points in the minimal symbol table */
493 if (name
[0] == '@') return;
495 prim_record_minimal_symbol (savestring (name
, strlen (name
)), address
, type
);
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). */
511 static int text_bfd_scnum
;
514 coff_symfile_init (objfile
)
515 struct objfile
*objfile
;
518 bfd
*abfd
= objfile
->obfd
;
520 /* Allocate struct to keep track of stab reading. */
521 objfile
->sym_stab_info
= (PTR
)
522 xmmalloc (objfile
-> md
, sizeof (struct dbx_symfile_info
));
524 memset ((PTR
) objfile
->sym_stab_info
, 0, sizeof (struct dbx_symfile_info
));
526 /* Allocate struct to keep track of the symfile */
527 objfile
-> sym_private
= xmmalloc (objfile
-> md
,
528 sizeof (struct coff_symfile_info
));
530 memset (objfile
->sym_private
, 0, sizeof (struct coff_symfile_info
));
532 init_entry_point_info (objfile
);
534 /* Save the section number for the text section */
535 section
= bfd_get_section_by_name (abfd
, ".text");
537 text_bfd_scnum
= section
->index
;
542 /* This function is called for every section; it finds the outer limits
543 of the line table (minimum and maximum file offset) so that the
544 mainline code can read the whole thing for efficiency. */
548 find_linenos (abfd
, asect
, vpinfo
)
553 struct coff_symfile_info
*info
;
555 file_ptr offset
, maxoff
;
557 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
558 count
= asect
->lineno_count
;
563 size
= count
* local_linesz
;
565 info
= (struct coff_symfile_info
*)vpinfo
;
566 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
567 offset
= asect
->line_filepos
;
570 if (offset
< info
->min_lineno_offset
|| info
->min_lineno_offset
== 0)
571 info
->min_lineno_offset
= offset
;
573 maxoff
= offset
+ size
;
574 if (maxoff
> info
->max_lineno_offset
)
575 info
->max_lineno_offset
= maxoff
;
579 /* The BFD for this file -- only good while we're actively reading
580 symbols into a psymtab or a symtab. */
582 static bfd
*symfile_bfd
;
584 /* Read a symbol file, after initialization by coff_symfile_init. */
585 /* FIXME! Addr and Mainline are not used yet -- this will not work for
586 shared libraries or add_file! */
590 coff_symfile_read (objfile
, section_offsets
, mainline
)
591 struct objfile
*objfile
;
592 struct section_offsets
*section_offsets
;
595 struct coff_symfile_info
*info
;
596 struct dbx_symfile_info
*dbxinfo
;
597 bfd
*abfd
= objfile
->obfd
;
598 coff_data_type
*cdata
= coff_data (abfd
);
599 char *name
= bfd_get_filename (abfd
);
604 int stringtab_offset
;
605 struct cleanup
*back_to
;
606 int stabsize
, stabstrsize
;
608 info
= (struct coff_symfile_info
*) objfile
-> sym_private
;
609 dbxinfo
= (struct dbx_symfile_info
*) objfile
->sym_stab_info
;
610 symfile_bfd
= abfd
; /* Kludge for swap routines */
612 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
613 desc
= fileno ((FILE *)(abfd
->iostream
)); /* File descriptor */
614 num_symbols
= bfd_get_symcount (abfd
); /* How many syms */
615 symtab_offset
= cdata
->sym_filepos
; /* Symbol table file offset */
616 stringtab_offset
= symtab_offset
+ /* String table file offset */
617 num_symbols
* cdata
->local_symesz
;
619 /* Set a few file-statics that give us specific information about
620 the particular COFF file format we're reading. */
621 local_linesz
= cdata
->local_linesz
;
622 local_n_btmask
= cdata
->local_n_btmask
;
623 local_n_btshft
= cdata
->local_n_btshft
;
624 local_n_tmask
= cdata
->local_n_tmask
;
625 local_n_tshift
= cdata
->local_n_tshift
;
626 local_linesz
= cdata
->local_linesz
;
627 local_symesz
= cdata
->local_symesz
;
628 local_auxesz
= cdata
->local_auxesz
;
630 /* Allocate space for raw symbol and aux entries, based on their
631 space requirements as reported by BFD. */
632 temp_sym
= (char *) xmalloc
633 (cdata
->local_symesz
+ cdata
->local_auxesz
);
634 temp_aux
= temp_sym
+ cdata
->local_symesz
;
635 back_to
= make_cleanup (free_current_contents
, &temp_sym
);
638 /* Read the line number table, all at once. */
639 info
->min_lineno_offset
= 0;
640 info
->max_lineno_offset
= 0;
641 bfd_map_over_sections (abfd
, find_linenos
, (PTR
) info
);
643 make_cleanup (free_linetab
, 0);
644 val
= init_lineno (desc
, info
->min_lineno_offset
,
645 info
->max_lineno_offset
- info
->min_lineno_offset
);
647 error ("\"%s\": error reading line numbers\n", name
);
649 /* Now read the string table, all at once. */
651 make_cleanup (free_stringtab
, 0);
652 val
= init_stringtab (desc
, stringtab_offset
);
654 error ("\"%s\": can't get string table", name
);
656 init_minimal_symbol_collection ();
657 make_cleanup (discard_minimal_symbols
, 0);
659 /* Now that the executable file is positioned at symbol table,
660 process it and define symbols accordingly. */
662 read_coff_symtab ((long)symtab_offset
, num_symbols
, objfile
);
664 /* Sort symbols alphabetically within each block. */
668 for (s
= objfile
-> symtabs
; s
!= NULL
; s
= s
-> next
)
670 sort_symtab_syms (s
);
674 /* Install any minimal symbols that have been collected as the current
675 minimal symbols for this objfile. */
677 install_minimal_symbols (objfile
);
679 bfd_map_over_sections (abfd
, coff_locate_sections
, (PTR
) info
);
683 /* FIXME: dubious. Why can't we use something normal like
684 bfd_get_section_contents? */
685 fseek ((FILE *) abfd
->iostream
, abfd
->where
, 0);
687 stabsize
= bfd_section_size (abfd
, info
->stabsect
);
688 stabstrsize
= bfd_section_size (abfd
, info
->stabstrsect
);
690 coffstab_build_psymtabs (objfile
,
693 info
->stabsect
->filepos
, stabsize
,
694 info
->stabstrsect
->filepos
, stabstrsize
);
697 do_cleanups (back_to
);
701 coff_new_init (ignore
)
702 struct objfile
*ignore
;
706 /* Perform any local cleanups required when we are done with a particular
707 objfile. I.E, we are in the process of discarding all symbol information
708 for an objfile, freeing up all memory held for it, and unlinking the
709 objfile struct from the global list of known objfiles. */
712 coff_symfile_finish (objfile
)
713 struct objfile
*objfile
;
715 if (objfile
-> sym_private
!= NULL
)
717 mfree (objfile
-> md
, objfile
-> sym_private
);
722 /* Given pointers to a symbol table in coff style exec file,
723 analyze them and create struct symtab's describing the symbols.
724 NSYMS is the number of symbols in the symbol table.
725 We read them one at a time using read_one_sym (). */
728 read_coff_symtab (symtab_offset
, nsyms
, objfile
)
731 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
;
744 /* A .file is open. */
745 int in_source_file
= 0;
746 int num_object_files
= 0;
747 int next_file_symnum
= -1;
749 /* Name of the current file. */
750 char *filestring
= "";
752 int fcn_first_line
= 0;
753 int fcn_last_line
= 0;
754 int fcn_start_addr
= 0;
755 long fcn_line_ptr
= 0;
758 stream
= bfd_cache_lookup(objfile
->obfd
);
760 perror_with_name(objfile
->name
);
762 /* Work around a stdio bug in SunOS4.1.1 (this makes me nervous....
763 it's hard to know I've really worked around it. The fix should be
764 harmless, anyway). The symptom of the bug is that the first
765 fread (in read_one_sym), will (in my example) actually get data
766 from file offset 268, when the fseek was to 264 (and ftell shows
767 264). This causes all hell to break loose. I was unable to
768 reproduce this on a short test program which operated on the same
769 file, performing (I think) the same sequence of operations.
771 It stopped happening when I put in this rewind().
773 FIXME: Find out if this has been reported to Sun, whether it has
774 been fixed in a later release, etc. */
778 /* Position to read the symbol table. */
779 val
= fseek (stream
, (long)symtab_offset
, 0);
781 perror_with_name (objfile
->name
);
783 current_objfile
= objfile
;
784 nlist_stream_global
= stream
;
785 nlist_nsyms_global
= nsyms
;
786 last_source_file
= NULL
;
787 memset (opaque_type_chain
, 0, sizeof opaque_type_chain
);
789 if (type_vector
) /* Get rid of previous one */
790 free ((PTR
)type_vector
);
791 type_vector_length
= 160;
792 type_vector
= (struct type
**)
793 xmalloc (type_vector_length
* sizeof (struct type
*));
794 memset (type_vector
, 0, type_vector_length
* sizeof (struct type
*));
796 coff_start_symtab ();
799 while (symnum
< nsyms
)
801 QUIT
; /* Make this command interruptable. */
802 read_one_sym (cs
, &main_sym
, &main_aux
);
805 temp_sem_val
= cs
->c_name
[0] << 24 | cs
->c_name
[1] << 16 |
806 cs
->c_name
[2] << 8 | cs
->c_name
[3];
807 if (int_sem_val
== temp_sem_val
)
808 last_coffsem
= (int) strtol (cs
->c_name
+4, (char **) NULL
, 10);
811 if (cs
->c_symnum
== next_file_symnum
&& cs
->c_sclass
!= C_FILE
)
813 if (last_source_file
)
814 coff_end_symtab (objfile
);
816 coff_start_symtab ();
817 complete_symtab ("_globals_", 0, first_object_file_end
);
818 /* done with all files, everything from here on out is globals */
821 /* Special case for file with type declarations only, no text. */
822 if (!last_source_file
&& SDB_TYPE (cs
->c_type
)
823 && cs
->c_secnum
== N_DEBUG
)
824 complete_symtab (filestring
, 0, 0);
826 /* Typedefs should not be treated as symbol definitions. */
827 if (ISFCN (cs
->c_type
) && cs
->c_sclass
!= C_TPDEF
)
829 /* Record all functions -- external and static -- in minsyms. */
830 record_minimal_symbol (cs
->c_name
, cs
->c_value
, mst_text
);
832 fcn_line_ptr
= main_aux
.x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
;
833 fcn_start_addr
= cs
->c_value
;
835 fcn_sym_saved
= main_sym
;
836 fcn_aux_saved
= main_aux
;
840 switch (cs
->c_sclass
)
849 complain (&bad_sclass_complaint
, cs
->c_name
);
854 * c_value field contains symnum of next .file entry in table
855 * or symnum of first global after last .file.
857 next_file_symnum
= cs
->c_value
;
859 filestring
= getfilename (&main_aux
);
864 * Complete symbol table for last object file
865 * containing debugging information.
867 if (last_source_file
)
869 coff_end_symtab (objfile
);
870 coff_start_symtab ();
876 if (cs
->c_name
[0] == '.') {
877 if (STREQ (cs
->c_name
, ".text")) {
878 /* FIXME: don't wire in ".text" as section name
880 if (++num_object_files
== 1) {
881 /* last address of startup file */
882 first_object_file_end
= cs
->c_value
+
883 main_aux
.x_scn
.x_scnlen
;
885 /* Check for in_source_file deals with case of
886 a file with debugging symbols
887 followed by a later file with no symbols. */
889 complete_symtab (filestring
, cs
->c_value
,
890 main_aux
.x_scn
.x_scnlen
);
893 /* flush rest of '.' symbols */
896 else if (!SDB_TYPE (cs
->c_type
)
897 && cs
->c_name
[0] == 'L'
898 && (strncmp (cs
->c_name
, "LI%", 3) == 0
899 || strncmp (cs
->c_name
, "LF%", 3) == 0
900 || strncmp (cs
->c_name
,"LC%",3) == 0
901 || strncmp (cs
->c_name
,"LP%",3) == 0
902 || strncmp (cs
->c_name
,"LPB%",4) == 0
903 || strncmp (cs
->c_name
,"LBB%",4) == 0
904 || strncmp (cs
->c_name
,"LBE%",4) == 0
905 || strncmp (cs
->c_name
,"LPBX%",5) == 0))
906 /* At least on a 3b1, gcc generates swbeg and string labels
907 that look like this. Ignore them. */
909 /* fall in for static symbols that don't start with '.' */
911 /* Record external symbols in minsyms if we don't have debug
912 info for them. FIXME, this is probably the wrong thing
913 to do. Why don't we record them even if we do have
914 debug symbol info? What really belongs in the minsyms
916 if (!SDB_TYPE (cs
->c_type
)) {
917 /* FIXME: This is BOGUS Will Robinson!
918 Coff should provide the SEC_CODE flag for executable sections,
919 then if we could look up sections by section number we
920 could see if the flags indicate SEC_CODE. If so, then
921 record this symbol as a function in the minimal symbol table.
922 But why are absolute syms recorded as functions, anyway? */
923 if (cs
->c_secnum
<= text_bfd_scnum
+1) {/* text or abs */
924 record_minimal_symbol (cs
->c_name
, cs
->c_value
,
928 record_minimal_symbol (cs
->c_name
, cs
->c_value
,
933 process_coff_symbol (cs
, &main_aux
, objfile
);
937 if (STREQ (cs
->c_name
, ".bf"))
941 /* value contains address of first non-init type code */
942 /* main_aux.x_sym.x_misc.x_lnsz.x_lnno
943 contains line number of '{' } */
945 complain (&bf_no_aux_complaint
, cs
->c_symnum
);
946 fcn_first_line
= main_aux
.x_sym
.x_misc
.x_lnsz
.x_lnno
;
948 /* Might want to check that locals are 0 and
949 context_stack_depth is zero, and complain if not. */
952 new = push_context (depth
, fcn_start_addr
);
953 fcn_cs_saved
.c_name
= getsymname (&fcn_sym_saved
);
954 new->name
= process_coff_symbol (&fcn_cs_saved
,
955 &fcn_aux_saved
, objfile
);
957 else if (STREQ (cs
->c_name
, ".ef"))
959 /* the value of .ef is the address of epilogue code;
960 not useful for gdb. */
961 /* { main_aux.x_sym.x_misc.x_lnsz.x_lnno
962 contains number of lines to '}' */
963 new = pop_context ();
964 /* Stack must be empty now. */
965 if (context_stack_depth
> 0 || new == NULL
)
967 complain (&ef_complaint
, cs
->c_symnum
);
973 complain (&ef_no_aux_complaint
, cs
->c_symnum
);
974 fcn_last_line
= 0x7FFFFFFF;
978 fcn_last_line
= main_aux
.x_sym
.x_misc
.x_lnsz
.x_lnno
;
980 enter_linenos (fcn_line_ptr
, fcn_first_line
, fcn_last_line
);
982 finish_block (new->name
, &local_symbols
, new->old_blocks
,
984 #if defined (FUNCTION_EPILOGUE_SIZE)
985 /* This macro should be defined only on
987 fcn_aux_saved.x_sym.x_misc.x_fsize
988 field is always zero.
989 So use the .bf record information that
990 points to the epilogue and add the size
992 cs
->c_value
+ FUNCTION_EPILOGUE_SIZE
,
994 fcn_cs_saved
.c_value
+
995 fcn_aux_saved
.x_sym
.x_misc
.x_fsize
,
1004 if (STREQ (cs
->c_name
, ".bb"))
1006 push_context (++depth
, cs
->c_value
);
1008 else if (STREQ (cs
->c_name
, ".eb"))
1010 new = pop_context ();
1011 if (depth
-- != new->depth
)
1013 complain (&eb_complaint
, symnum
);
1016 if (local_symbols
&& context_stack_depth
> 0)
1018 /* Make a block for the local symbols within. */
1019 finish_block (0, &local_symbols
, new->old_blocks
,
1020 new->start_addr
, cs
->c_value
, objfile
);
1022 /* Now pop locals of block just finished. */
1023 local_symbols
= new->locals
;
1028 process_coff_symbol (cs
, &main_aux
, objfile
);
1033 if (last_source_file
)
1034 coff_end_symtab (objfile
);
1036 /* Patch up any opaque types (references to types that are not defined
1037 in the file where they are referenced, e.g. "struct foo *bar"). */
1038 ALL_OBJFILE_SYMTABS (objfile
, s
)
1039 patch_opaque_types (s
);
1041 current_objfile
= NULL
;
1044 /* Routines for reading headers and symbols from executable. */
1047 /* Move these XXXMAGIC symbol defns into BFD! */
1049 /* Read COFF file header, check magic number,
1050 and return number of symbols. */
1051 read_file_hdr (chan
, file_hdr
)
1055 lseek (chan
, 0L, 0);
1056 if (myread (chan
, (char *)file_hdr
, FILHSZ
) < 0)
1059 switch (file_hdr
->f_magic
)
1074 #if defined (MC68KWRMAGIC) \
1075 && (!defined (MC68MAGIC) || MC68KWRMAGIC != MC68MAGIC)
1089 case I960ROMAGIC
: /* Intel 960 */
1092 case I960RWMAGIC
: /* Intel 960 */
1094 return file_hdr
->f_nsyms
;
1098 if (BADMAG(file_hdr
))
1101 return file_hdr
->f_nsyms
;
1109 /* Read the next symbol, swap it, and return it in both internal_syment
1110 form, and coff_symbol form. Also return its first auxent, if any,
1111 in internal_auxent form, and skip any other auxents. */
1114 read_one_sym (cs
, sym
, aux
)
1115 register struct coff_symbol
*cs
;
1116 register struct internal_syment
*sym
;
1117 register union internal_auxent
*aux
;
1121 cs
->c_symnum
= symnum
;
1122 fread (temp_sym
, local_symesz
, 1, nlist_stream_global
);
1123 bfd_coff_swap_sym_in (symfile_bfd
, temp_sym
, (char *)sym
);
1124 cs
->c_naux
= sym
->n_numaux
& 0xff;
1125 if (cs
->c_naux
>= 1)
1127 fread (temp_aux
, local_auxesz
, 1, nlist_stream_global
);
1128 bfd_coff_swap_aux_in (symfile_bfd
, temp_aux
, sym
->n_type
, sym
->n_sclass
,
1130 /* If more than one aux entry, read past it (only the first aux
1132 for (i
= 1; i
< cs
->c_naux
; i
++)
1133 fread (temp_aux
, local_auxesz
, 1, nlist_stream_global
);
1135 cs
->c_name
= getsymname (sym
);
1136 cs
->c_value
= sym
->n_value
;
1137 cs
->c_sclass
= (sym
->n_sclass
& 0xff);
1138 cs
->c_secnum
= sym
->n_scnum
;
1139 cs
->c_type
= (unsigned) sym
->n_type
;
1140 if (!SDB_TYPE (cs
->c_type
))
1143 symnum
+= 1 + cs
->c_naux
;
1146 /* Support for string table handling */
1148 static char *stringtab
= NULL
;
1151 init_stringtab (chan
, offset
)
1157 unsigned char lengthbuf
[4];
1161 if (lseek (chan
, offset
, 0) < 0)
1164 val
= myread (chan
, (char *)lengthbuf
, sizeof lengthbuf
);
1165 length
= bfd_h_get_32 (symfile_bfd
, lengthbuf
);
1167 /* If no string table is needed, then the file may end immediately
1168 after the symbols. Just return with `stringtab' set to null. */
1169 if (val
!= sizeof lengthbuf
|| length
< sizeof lengthbuf
)
1172 stringtab
= (char *) xmalloc (length
);
1173 memcpy (stringtab
, &length
, sizeof length
);
1174 if (length
== sizeof length
) /* Empty table -- just the count */
1177 val
= myread (chan
, stringtab
+ sizeof lengthbuf
, length
- sizeof lengthbuf
);
1178 if (val
!= length
- sizeof lengthbuf
|| stringtab
[length
- 1] != '\0')
1193 getsymname (symbol_entry
)
1194 struct internal_syment
*symbol_entry
;
1196 static char buffer
[SYMNMLEN
+1];
1199 if (symbol_entry
->_n
._n_n
._n_zeroes
== 0)
1201 result
= stringtab
+ symbol_entry
->_n
._n_n
._n_offset
;
1205 strncpy (buffer
, symbol_entry
->_n
._n_name
, SYMNMLEN
);
1206 buffer
[SYMNMLEN
] = '\0';
1212 /* Extract the file name from the aux entry of a C_FILE symbol. Return
1213 only the last component of the name. Result is in static storage and
1214 is only good for temporary use. */
1217 getfilename (aux_entry
)
1218 union internal_auxent
*aux_entry
;
1220 static char buffer
[BUFSIZ
];
1221 register char *temp
;
1224 if (aux_entry
->x_file
.x_n
.x_zeroes
== 0)
1225 strcpy (buffer
, stringtab
+ aux_entry
->x_file
.x_n
.x_offset
);
1228 strncpy (buffer
, aux_entry
->x_file
.x_fname
, FILNMLEN
);
1229 buffer
[FILNMLEN
] = '\0';
1232 if ((temp
= strrchr (result
, '/')) != NULL
)
1237 /* Support for line number handling */
1238 static char *linetab
= NULL
;
1239 static long linetab_offset
;
1240 static unsigned long linetab_size
;
1242 /* Read in all the line numbers for fast lookups later. Leave them in
1243 external (unswapped) format in memory; we'll swap them as we enter
1244 them into GDB's data structures. */
1247 init_lineno (chan
, offset
, size
)
1254 linetab_offset
= offset
;
1255 linetab_size
= size
;
1262 if (lseek (chan
, offset
, 0) < 0)
1265 /* Allocate the desired table, plus a sentinel */
1266 linetab
= (char *) xmalloc (size
+ local_linesz
);
1268 val
= myread (chan
, linetab
, size
);
1272 /* Terminate it with an all-zero sentinel record */
1273 memset (linetab
+ size
, 0, local_linesz
);
1286 #if !defined (L_LNNO32)
1287 #define L_LNNO32(lp) ((lp)->l_lnno)
1291 enter_linenos (file_offset
, first_line
, last_line
)
1293 register int first_line
;
1294 register int last_line
;
1296 register char *rawptr
;
1297 struct internal_lineno lptr
;
1299 if (file_offset
< linetab_offset
)
1301 complain (&lineno_complaint
, file_offset
);
1302 if (file_offset
> linetab_size
) /* Too big to be an offset? */
1304 file_offset
+= linetab_offset
; /* Try reading at that linetab offset */
1307 rawptr
= &linetab
[file_offset
- linetab_offset
];
1309 /* skip first line entry for each function */
1310 rawptr
+= local_linesz
;
1311 /* line numbers start at one for the first line of the function */
1315 bfd_coff_swap_lineno_in (symfile_bfd
, rawptr
, &lptr
);
1316 rawptr
+= local_linesz
;
1317 /* The next function, or the sentinel, will have L_LNNO32 zero; we exit. */
1318 if (L_LNNO32 (&lptr
) && L_LNNO32 (&lptr
) <= last_line
)
1319 coff_record_line (first_line
+ L_LNNO32 (&lptr
), lptr
.l_addr
.l_paddr
);
1326 patch_type (type
, real_type
)
1328 struct type
*real_type
;
1330 register struct type
*target
= TYPE_TARGET_TYPE (type
);
1331 register struct type
*real_target
= TYPE_TARGET_TYPE (real_type
);
1332 int field_size
= TYPE_NFIELDS (real_target
) * sizeof (struct field
);
1334 TYPE_LENGTH (target
) = TYPE_LENGTH (real_target
);
1335 TYPE_NFIELDS (target
) = TYPE_NFIELDS (real_target
);
1336 TYPE_FIELDS (target
) = (struct field
*) TYPE_ALLOC (target
, field_size
);
1338 memcpy (TYPE_FIELDS (target
), TYPE_FIELDS (real_target
), field_size
);
1340 if (TYPE_NAME (real_target
))
1342 if (TYPE_NAME (target
))
1343 free (TYPE_NAME (target
));
1344 TYPE_NAME (target
) = concat (TYPE_NAME (real_target
), NULL
);
1348 /* Patch up all appropriate typedef symbols in the opaque_type_chains
1349 so that they can be used to print out opaque data structures properly. */
1352 patch_opaque_types (s
)
1355 register struct block
*b
;
1357 register struct symbol
*real_sym
;
1359 /* Go through the per-file symbols only */
1360 b
= BLOCKVECTOR_BLOCK (BLOCKVECTOR (s
), STATIC_BLOCK
);
1361 for (i
= BLOCK_NSYMS (b
) - 1; i
>= 0; i
--)
1363 /* Find completed typedefs to use to fix opaque ones.
1364 Remove syms from the chain when their types are stored,
1365 but search the whole chain, as there may be several syms
1366 from different files with the same name. */
1367 real_sym
= BLOCK_SYM (b
, i
);
1368 if (SYMBOL_CLASS (real_sym
) == LOC_TYPEDEF
&&
1369 SYMBOL_NAMESPACE (real_sym
) == VAR_NAMESPACE
&&
1370 TYPE_CODE (SYMBOL_TYPE (real_sym
)) == TYPE_CODE_PTR
&&
1371 TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (real_sym
))) != 0)
1373 register char *name
= SYMBOL_NAME (real_sym
);
1374 register int hash
= hashname (name
);
1375 register struct symbol
*sym
, *prev
;
1378 for (sym
= opaque_type_chain
[hash
]; sym
;)
1380 if (name
[0] == SYMBOL_NAME (sym
)[0] &&
1381 STREQ (name
+ 1, SYMBOL_NAME (sym
) + 1))
1385 SYMBOL_VALUE_CHAIN (prev
) = SYMBOL_VALUE_CHAIN (sym
);
1389 opaque_type_chain
[hash
] = SYMBOL_VALUE_CHAIN (sym
);
1392 patch_type (SYMBOL_TYPE (sym
), SYMBOL_TYPE (real_sym
));
1396 sym
= SYMBOL_VALUE_CHAIN (prev
);
1400 sym
= opaque_type_chain
[hash
];
1406 sym
= SYMBOL_VALUE_CHAIN (sym
);
1413 static struct symbol
*
1414 process_coff_symbol (cs
, aux
, objfile
)
1415 register struct coff_symbol
*cs
;
1416 register union internal_auxent
*aux
;
1417 struct objfile
*objfile
;
1419 register struct symbol
*sym
1420 = (struct symbol
*) obstack_alloc (&objfile
->symbol_obstack
,
1421 sizeof (struct symbol
));
1423 struct type
*temptype
;
1425 memset (sym
, 0, sizeof (struct symbol
));
1427 name
= EXTERNAL_NAME (name
, objfile
->obfd
);
1428 SYMBOL_NAME (sym
) = obstack_copy0 (&objfile
->symbol_obstack
, name
,
1431 /* default assumptions */
1432 SYMBOL_VALUE (sym
) = cs
->c_value
;
1433 SYMBOL_NAMESPACE (sym
) = VAR_NAMESPACE
;
1435 if (ISFCN (cs
->c_type
))
1438 /* FIXME: This has NOT been tested. The DBX version has.. */
1439 /* Generate a template for the type of this function. The
1440 types of the arguments will be added as we read the symbol
1442 struct type
*new = (struct type
*)
1443 obstack_alloc (&objfile
->symbol_obstack
, sizeof (struct type
));
1445 memcpy (new, lookup_function_type (decode_function_type (cs
, cs
->c_type
, aux
)),
1446 sizeof(struct type
));
1447 SYMBOL_TYPE (sym
) = new;
1448 in_function_type
= SYMBOL_TYPE(sym
);
1451 lookup_function_type (decode_function_type (cs
, cs
->c_type
, aux
));
1454 SYMBOL_CLASS (sym
) = LOC_BLOCK
;
1455 if (cs
->c_sclass
== C_STAT
)
1456 add_symbol_to_list (sym
, &file_symbols
);
1457 else if (cs
->c_sclass
== C_EXT
)
1458 add_symbol_to_list (sym
, &global_symbols
);
1462 SYMBOL_TYPE (sym
) = decode_type (cs
, cs
->c_type
, aux
);
1463 switch (cs
->c_sclass
)
1469 SYMBOL_CLASS (sym
) = LOC_LOCAL
;
1470 add_symbol_to_list (sym
, &local_symbols
);
1474 SYMBOL_CLASS (sym
) = LOC_STATIC
;
1475 SYMBOL_VALUE_ADDRESS (sym
) = (CORE_ADDR
) cs
->c_value
;
1476 add_symbol_to_list (sym
, &global_symbols
);
1480 SYMBOL_CLASS (sym
) = LOC_STATIC
;
1481 SYMBOL_VALUE_ADDRESS (sym
) = (CORE_ADDR
) cs
->c_value
;
1482 if (within_function
) {
1483 /* Static symbol of local scope */
1484 add_symbol_to_list (sym
, &local_symbols
);
1487 /* Static symbol at top level of file */
1488 add_symbol_to_list (sym
, &file_symbols
);
1492 #ifdef C_GLBLREG /* AMD coff */
1496 SYMBOL_CLASS (sym
) = LOC_REGISTER
;
1497 SYMBOL_VALUE (sym
) = SDB_REG_TO_REGNUM(cs
->c_value
);
1498 add_symbol_to_list (sym
, &local_symbols
);
1505 SYMBOL_CLASS (sym
) = LOC_ARG
;
1507 /* FIXME: This has not been tested. */
1508 /* Add parameter to function. */
1509 add_param_to_type(&in_function_type
,sym
);
1511 add_symbol_to_list (sym
, &local_symbols
);
1512 #if !defined (BELIEVE_PCC_PROMOTION) && (TARGET_BYTE_ORDER == BIG_ENDIAN)
1513 /* If PCC says a parameter is a short or a char,
1514 aligned on an int boundary, realign it to the "little end"
1516 temptype
= lookup_fundamental_type (current_objfile
, FT_INTEGER
);
1517 if (TYPE_LENGTH (SYMBOL_TYPE (sym
)) < TYPE_LENGTH (temptype
)
1518 && TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_INT
1519 && 0 == SYMBOL_VALUE (sym
) % TYPE_LENGTH (temptype
))
1521 SYMBOL_VALUE (sym
) += TYPE_LENGTH (temptype
)
1522 - TYPE_LENGTH (SYMBOL_TYPE (sym
));
1528 SYMBOL_CLASS (sym
) = LOC_REGPARM
;
1529 SYMBOL_VALUE (sym
) = SDB_REG_TO_REGNUM(cs
->c_value
);
1530 add_symbol_to_list (sym
, &local_symbols
);
1531 #if !defined (BELIEVE_PCC_PROMOTION)
1532 /* FIXME: This should retain the current type, since it's just
1533 a register value. gnu@adobe, 26Feb93 */
1534 /* If PCC says a parameter is a short or a char,
1535 it is really an int. */
1536 temptype
= lookup_fundamental_type (current_objfile
, FT_INTEGER
);
1537 if (TYPE_LENGTH (SYMBOL_TYPE (sym
)) < TYPE_LENGTH (temptype
)
1538 && TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_INT
)
1540 SYMBOL_TYPE (sym
) = TYPE_UNSIGNED (SYMBOL_TYPE (sym
))
1541 ? lookup_fundamental_type (current_objfile
,
1542 FT_UNSIGNED_INTEGER
)
1549 SYMBOL_CLASS (sym
) = LOC_TYPEDEF
;
1550 SYMBOL_NAMESPACE (sym
) = VAR_NAMESPACE
;
1552 /* If type has no name, give it one */
1553 if (TYPE_NAME (SYMBOL_TYPE (sym
)) == 0)
1554 TYPE_NAME (SYMBOL_TYPE (sym
)) = concat (SYMBOL_NAME (sym
), NULL
);
1556 /* Keep track of any type which points to empty structured type,
1557 so it can be filled from a definition from another file. A
1558 simple forward reference (TYPE_CODE_UNDEF) is not an
1559 empty structured type, though; the forward references
1560 work themselves out via the magic of coff_lookup_type. */
1561 if (TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_PTR
&&
1562 TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym
))) == 0 &&
1563 TYPE_CODE (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym
))) !=
1566 register int i
= hashname (SYMBOL_NAME (sym
));
1568 SYMBOL_VALUE_CHAIN (sym
) = opaque_type_chain
[i
];
1569 opaque_type_chain
[i
] = sym
;
1571 add_symbol_to_list (sym
, &file_symbols
);
1577 SYMBOL_CLASS (sym
) = LOC_TYPEDEF
;
1578 SYMBOL_NAMESPACE (sym
) = STRUCT_NAMESPACE
;
1580 /* Some compilers try to be helpful by inventing "fake"
1581 names for anonymous enums, structures, and unions, like
1582 "~0fake" or ".0fake". Thanks, but no thanks... */
1583 if (TYPE_TAG_NAME (SYMBOL_TYPE (sym
)) == 0)
1584 if (SYMBOL_NAME(sym
) != NULL
1585 && *SYMBOL_NAME(sym
) != '~'
1586 && *SYMBOL_NAME(sym
) != '.')
1587 TYPE_TAG_NAME (SYMBOL_TYPE (sym
)) =
1588 concat (SYMBOL_NAME (sym
), NULL
);
1590 add_symbol_to_list (sym
, &file_symbols
);
1600 /* Decode a coff type specifier;
1601 return the type that is meant. */
1605 decode_type (cs
, c_type
, aux
)
1606 register struct coff_symbol
*cs
;
1607 unsigned int c_type
;
1608 register union internal_auxent
*aux
;
1610 register struct type
*type
= 0;
1611 unsigned int new_c_type
;
1613 if (c_type
& ~N_BTMASK
)
1615 new_c_type
= DECREF (c_type
);
1618 type
= decode_type (cs
, new_c_type
, aux
);
1619 type
= lookup_pointer_type (type
);
1621 else if (ISFCN (c_type
))
1623 type
= decode_type (cs
, new_c_type
, aux
);
1624 type
= lookup_function_type (type
);
1626 else if (ISARY (c_type
))
1629 register unsigned short *dim
;
1630 struct type
*base_type
, *index_type
, *range_type
;
1632 /* Define an array type. */
1633 /* auxent refers to array, not base type */
1634 if (aux
->x_sym
.x_tagndx
.l
== 0)
1637 /* shift the indices down */
1638 dim
= &aux
->x_sym
.x_fcnary
.x_ary
.x_dimen
[0];
1641 for (i
= 0; *dim
&& i
< DIMNUM
- 1; i
++, dim
++)
1645 base_type
= decode_type (cs
, new_c_type
, aux
);
1646 index_type
= lookup_fundamental_type (current_objfile
, FT_INTEGER
);
1648 create_range_type ((struct type
*) NULL
, index_type
, 0, n
- 1);
1650 create_array_type ((struct type
*) NULL
, base_type
, range_type
);
1655 /* Reference to existing type. This only occurs with the
1656 struct, union, and enum types. EPI a29k coff
1657 fakes us out by producing aux entries with a nonzero
1658 x_tagndx for definitions of structs, unions, and enums, so we
1659 have to check the c_sclass field. SCO 3.2v4 cc gets confused
1660 with pointers to pointers to defined structs, and generates
1661 negative x_tagndx fields. */
1662 if (cs
->c_naux
> 0 && aux
->x_sym
.x_tagndx
.l
!= 0)
1664 if (cs
->c_sclass
!= C_STRTAG
1665 && cs
->c_sclass
!= C_UNTAG
1666 && cs
->c_sclass
!= C_ENTAG
1667 && aux
->x_sym
.x_tagndx
.l
>= 0)
1669 type
= coff_alloc_type (aux
->x_sym
.x_tagndx
.l
);
1672 complain (&tagndx_bad_complaint
, cs
->c_name
);
1673 /* And fall through to decode_base_type... */
1677 return decode_base_type (cs
, BTYPE (c_type
), aux
);
1680 /* Decode a coff type specifier for function definition;
1681 return the type that the function returns. */
1685 decode_function_type (cs
, c_type
, aux
)
1686 register struct coff_symbol
*cs
;
1687 unsigned int c_type
;
1688 register union internal_auxent
*aux
;
1690 if (aux
->x_sym
.x_tagndx
.l
== 0)
1691 cs
->c_naux
= 0; /* auxent refers to function, not base type */
1693 return decode_type (cs
, DECREF (c_type
), aux
);
1700 decode_base_type (cs
, c_type
, aux
)
1701 register struct coff_symbol
*cs
;
1702 unsigned int c_type
;
1703 register union internal_auxent
*aux
;
1710 /* shows up with "void (*foo)();" structure members */
1711 return lookup_fundamental_type (current_objfile
, FT_VOID
);
1714 /* DGUX actually defines both T_ARG and T_VOID to the same value. */
1717 /* Shows up in DGUX, I think. Not sure where. */
1718 return lookup_fundamental_type (current_objfile
, FT_VOID
); /* shouldn't show up here */
1724 /* Intel 960 COFF has this symbol and meaning. */
1725 return lookup_fundamental_type (current_objfile
, FT_VOID
);
1729 return lookup_fundamental_type (current_objfile
, FT_CHAR
);
1732 return lookup_fundamental_type (current_objfile
, FT_SHORT
);
1735 return lookup_fundamental_type (current_objfile
, FT_INTEGER
);
1738 return lookup_fundamental_type (current_objfile
, FT_LONG
);
1741 return lookup_fundamental_type (current_objfile
, FT_FLOAT
);
1744 return lookup_fundamental_type (current_objfile
, FT_DBL_PREC_FLOAT
);
1747 if (cs
->c_naux
!= 1)
1749 /* anonymous structure type */
1750 type
= coff_alloc_type (cs
->c_symnum
);
1751 TYPE_CODE (type
) = TYPE_CODE_STRUCT
;
1752 TYPE_NAME (type
) = NULL
;
1753 /* This used to set the tag to "<opaque>". But I think setting it
1754 to NULL is right, and the printing code can print it as
1756 TYPE_TAG_NAME (type
) = NULL
;
1757 INIT_CPLUS_SPECIFIC(type
);
1758 TYPE_LENGTH (type
) = 0;
1759 TYPE_FIELDS (type
) = 0;
1760 TYPE_NFIELDS (type
) = 0;
1764 type
= coff_read_struct_type (cs
->c_symnum
,
1765 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1766 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
);
1771 if (cs
->c_naux
!= 1)
1773 /* anonymous union type */
1774 type
= coff_alloc_type (cs
->c_symnum
);
1775 TYPE_NAME (type
) = NULL
;
1776 /* This used to set the tag to "<opaque>". But I think setting it
1777 to NULL is right, and the printing code can print it as
1779 TYPE_TAG_NAME (type
) = NULL
;
1780 INIT_CPLUS_SPECIFIC(type
);
1781 TYPE_LENGTH (type
) = 0;
1782 TYPE_FIELDS (type
) = 0;
1783 TYPE_NFIELDS (type
) = 0;
1787 type
= coff_read_struct_type (cs
->c_symnum
,
1788 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1789 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
);
1791 TYPE_CODE (type
) = TYPE_CODE_UNION
;
1795 if (cs
->c_naux
!= 1)
1797 /* anonymous enum type */
1798 type
= coff_alloc_type (cs
->c_symnum
);
1799 TYPE_CODE (type
) = TYPE_CODE_ENUM
;
1800 TYPE_NAME (type
) = NULL
;
1801 /* This used to set the tag to "<opaque>". But I think setting it
1802 to NULL is right, and the printing code can print it as
1804 TYPE_TAG_NAME (type
) = NULL
;
1805 TYPE_LENGTH (type
) = 0;
1806 TYPE_FIELDS (type
) = 0;
1807 TYPE_NFIELDS(type
) = 0;
1811 type
= coff_read_enum_type (cs
->c_symnum
,
1812 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1813 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
);
1818 /* shouldn't show up here */
1822 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_CHAR
);
1825 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_SHORT
);
1828 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_INTEGER
);
1831 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_LONG
);
1833 complain (&unexpected_type_complaint
, cs
->c_name
);
1834 return lookup_fundamental_type (current_objfile
, FT_VOID
);
1837 /* This page contains subroutines of read_type. */
1839 /* Read the description of a structure (or union type)
1840 and return an object describing the type. */
1842 static struct type
*
1843 coff_read_struct_type (index
, length
, lastsym
)
1850 struct nextfield
*next
;
1854 register struct type
*type
;
1855 register struct nextfield
*list
= 0;
1856 struct nextfield
*new;
1860 struct coff_symbol member_sym
;
1861 register struct coff_symbol
*ms
= &member_sym
;
1862 struct internal_syment sub_sym
;
1863 union internal_auxent sub_aux
;
1866 type
= coff_alloc_type (index
);
1867 TYPE_CODE (type
) = TYPE_CODE_STRUCT
;
1868 INIT_CPLUS_SPECIFIC(type
);
1869 TYPE_LENGTH (type
) = length
;
1871 while (!done
&& symnum
< lastsym
&& symnum
< nlist_nsyms_global
)
1873 read_one_sym (ms
, &sub_sym
, &sub_aux
);
1875 name
= EXTERNAL_NAME (name
, current_objfile
->obfd
);
1877 switch (ms
->c_sclass
)
1882 /* Get space to record the next field's data. */
1883 new = (struct nextfield
*) alloca (sizeof (struct nextfield
));
1887 /* Save the data. */
1888 list
->field
.name
= savestring (name
, strlen (name
));
1889 list
->field
.type
= decode_type (ms
, ms
->c_type
, &sub_aux
);
1890 list
->field
.bitpos
= 8 * ms
->c_value
;
1891 list
->field
.bitsize
= 0;
1897 /* Get space to record the next field's data. */
1898 new = (struct nextfield
*) alloca (sizeof (struct nextfield
));
1902 /* Save the data. */
1903 list
->field
.name
= savestring (name
, strlen (name
));
1904 list
->field
.type
= decode_type (ms
, ms
->c_type
, &sub_aux
);
1905 list
->field
.bitpos
= ms
->c_value
;
1906 list
->field
.bitsize
= sub_aux
.x_sym
.x_misc
.x_lnsz
.x_size
;
1915 /* Now create the vector of fields, and record how big it is. */
1917 TYPE_NFIELDS (type
) = nfields
;
1918 TYPE_FIELDS (type
) = (struct field
*)
1919 TYPE_ALLOC (type
, sizeof (struct field
) * nfields
);
1921 /* Copy the saved-up fields into the field vector. */
1923 for (n
= nfields
; list
; list
= list
->next
)
1924 TYPE_FIELD (type
, --n
) = list
->field
;
1929 /* Read a definition of an enumeration type,
1930 and create and return a suitable type object.
1931 Also defines the symbols that represent the values of the type. */
1934 static struct type
*
1935 coff_read_enum_type (index
, length
, lastsym
)
1940 register struct symbol
*sym
;
1941 register struct type
*type
;
1944 struct pending
**symlist
;
1945 struct coff_symbol member_sym
;
1946 register struct coff_symbol
*ms
= &member_sym
;
1947 struct internal_syment sub_sym
;
1948 union internal_auxent sub_aux
;
1949 struct pending
*osyms
, *syms
;
1954 type
= coff_alloc_type (index
);
1955 if (within_function
)
1956 symlist
= &local_symbols
;
1958 symlist
= &file_symbols
;
1960 o_nsyms
= osyms
? osyms
->nsyms
: 0;
1962 while (!done
&& symnum
< lastsym
&& symnum
< nlist_nsyms_global
)
1964 read_one_sym (ms
, &sub_sym
, &sub_aux
);
1966 name
= EXTERNAL_NAME (name
, current_objfile
->obfd
);
1968 switch (ms
->c_sclass
)
1971 sym
= (struct symbol
*) xmalloc (sizeof (struct symbol
));
1972 memset (sym
, 0, sizeof (struct symbol
));
1974 SYMBOL_NAME (sym
) = savestring (name
, strlen (name
));
1975 SYMBOL_CLASS (sym
) = LOC_CONST
;
1976 SYMBOL_NAMESPACE (sym
) = VAR_NAMESPACE
;
1977 SYMBOL_VALUE (sym
) = ms
->c_value
;
1978 add_symbol_to_list (sym
, symlist
);
1983 /* Sometimes the linker (on 386/ix 2.0.2 at least) screws
1984 up the count of how many symbols to read. So stop
1991 /* Now fill in the fields of the type-structure. */
1994 TYPE_LENGTH (type
) = length
;
1996 TYPE_LENGTH (type
) = TARGET_INT_BIT
/ TARGET_CHAR_BIT
; /* Assume ints */
1997 TYPE_CODE (type
) = TYPE_CODE_ENUM
;
1998 TYPE_NFIELDS (type
) = nsyms
;
1999 TYPE_FIELDS (type
) = (struct field
*)
2000 TYPE_ALLOC (type
, sizeof (struct field
) * nsyms
);
2002 /* Find the symbols for the values and put them into the type.
2003 The symbols can be found in the symlist that we put them on
2004 to cause them to be defined. osyms contains the old value
2005 of that symlist; everything up to there was defined by us. */
2006 /* Note that we preserve the order of the enum constants, so
2007 that in something like "enum {FOO, LAST_THING=FOO}" we print
2008 FOO, not LAST_THING. */
2010 for (syms
= *symlist
, n
= 0; syms
; syms
= syms
->next
)
2015 for (; j
< syms
->nsyms
; j
++,n
++)
2017 struct symbol
*xsym
= syms
->symbol
[j
];
2018 SYMBOL_TYPE (xsym
) = type
;
2019 TYPE_FIELD_NAME (type
, n
) = SYMBOL_NAME (xsym
);
2020 TYPE_FIELD_VALUE (type
, n
) = 0;
2021 TYPE_FIELD_BITPOS (type
, n
) = SYMBOL_VALUE (xsym
);
2022 TYPE_FIELD_BITSIZE (type
, n
) = 0;
2029 /* This screws up perfectly good C programs with enums. FIXME. */
2030 /* Is this Modula-2's BOOLEAN type? Flag it as such if so. */
2031 if(TYPE_NFIELDS(type
) == 2 &&
2032 ((STREQ(TYPE_FIELD_NAME(type
,0),"TRUE") &&
2033 STREQ(TYPE_FIELD_NAME(type
,1),"FALSE")) ||
2034 (STREQ(TYPE_FIELD_NAME(type
,1),"TRUE") &&
2035 STREQ(TYPE_FIELD_NAME(type
,0),"FALSE"))))
2036 TYPE_CODE(type
) = TYPE_CODE_BOOL
;
2041 struct section_offsets
*
2042 coff_symfile_offsets (objfile
, addr
)
2043 struct objfile
*objfile
;
2046 struct section_offsets
*section_offsets
;
2049 objfile
->num_sections
= SECT_OFF_MAX
;
2050 section_offsets
= (struct section_offsets
*)
2051 obstack_alloc (&objfile
-> psymbol_obstack
,
2052 sizeof (struct section_offsets
)
2053 + sizeof (section_offsets
->offsets
) * (SECT_OFF_MAX
-1));
2055 for (i
= 0; i
< SECT_OFF_MAX
; i
++)
2056 ANOFFSET (section_offsets
, i
) = addr
;
2058 return section_offsets
;
2061 /* Register our ability to parse symbols for coff BFD files */
2063 static struct sym_fns coff_sym_fns
=
2065 bfd_target_coff_flavour
,
2066 coff_new_init
, /* sym_new_init: init anything gbl to entire symtab */
2067 coff_symfile_init
, /* sym_init: read initial info, setup for sym_read() */
2068 coff_symfile_read
, /* sym_read: read a symbol file into symtab */
2069 coff_symfile_finish
, /* sym_finish: finished with file, cleanup */
2070 coff_symfile_offsets
, /* sym_offsets: xlate external to internal form */
2071 NULL
/* next: pointer to next struct sym_fns */
2075 _initialize_coffread ()
2077 add_symtab_fns(&coff_sym_fns
);