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 Free Software Foundation, Inc.
5 This file is part of GDB.
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2 of the License, or
10 (at your option) any later version.
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
24 #include "breakpoint.h"
29 #include "complaints.h"
34 #include "coff/internal.h" /* Internal format of COFF symbols in BFD */
35 #include "libcoff.h" /* FIXME secret internal data from BFD */
37 /* To be an sdb debug type, type must have at least a basic or primary
38 derived type. Using this rather than checking against T_NULL is
39 said to prevent core dumps if we try to operate on Michael Bloom
42 #define SDB_TYPE(type) (BTYPE(type) | (type & N_TMASK))
45 * Convert from an sdb register number to an internal gdb register number.
46 * This should be defined in tm.h, if REGISTER_NAMES is not set up
47 * to map one to one onto the sdb register numbers.
49 #ifndef SDB_REG_TO_REGNUM
50 # define SDB_REG_TO_REGNUM(value) (value)
53 /* Core address of start and end of text of current source file.
54 This comes from a ".text" symbol where x_nlinno > 0. */
56 static CORE_ADDR cur_src_start_addr;
57 static CORE_ADDR cur_src_end_addr;
59 /* Core address of the end of the first object file. */
60 static CORE_ADDR first_object_file_end;
62 /* The addresses of the symbol table stream and number of symbols
63 of the object file we are reading (as copied into core). */
65 static FILE *nlist_stream_global;
66 static int nlist_nsyms_global;
68 /* Vector of line number information. */
70 static struct linetable *line_vector;
72 /* Index of next entry to go in line_vector_index. */
74 static int line_vector_index;
76 /* Last line number recorded in the line vector. */
78 static int prev_line_number;
80 /* Number of elements allocated for line_vector currently. */
82 static int line_vector_length;
84 /* Pointers to scratch storage, used for reading raw symbols and auxents. */
86 static char *temp_sym;
87 static char *temp_aux;
89 /* Local variables that hold the shift and mask values for the
90 COFF file that we are currently reading. These come back to us
91 from BFD, and are referenced by their macro names, as well as
92 internally to the BTYPE, ISPTR, ISFCN, ISARY, ISTAG, and DECREF
93 macros from ../internalcoff.h . */
95 static unsigned local_n_btmask;
96 static unsigned local_n_btshft;
97 static unsigned local_n_tmask;
98 static unsigned local_n_tshift;
100 #define N_BTMASK local_n_btmask
101 #define N_BTSHFT local_n_btshft
102 #define N_TMASK local_n_tmask
103 #define N_TSHIFT local_n_tshift
105 /* Local variables that hold the sizes in the file of various COFF structures.
106 (We only need to know this to read them from the file -- BFD will then
107 translate the data in them, into `internal_xxx' structs in the right
108 byte order, alignment, etc.) */
110 static unsigned local_linesz;
111 static unsigned local_symesz;
112 static unsigned local_auxesz;
115 /* Chain of typedefs of pointers to empty struct/union types.
116 They are chained thru the SYMBOL_VALUE_CHAIN. */
118 static struct symbol *opaque_type_chain[HASHSIZE];
120 /* Record the symbols defined for each context in a list.
121 We don't create a struct block for the context until we
122 know how long to make it. */
126 struct coff_pending *next;
127 struct symbol *symbol;
130 /* Here are the three lists that symbols are put on. */
132 struct coff_pending *coff_file_symbols; /* static at top level, and types */
134 struct coff_pending *coff_global_symbols; /* global functions and variables */
136 struct coff_pending *coff_local_symbols; /* everything local to lexical context */
138 /* List of unclosed lexical contexts
139 (that will become blocks, eventually). */
141 struct coff_context_stack
143 struct coff_context_stack *next;
144 struct coff_pending *locals;
145 struct pending_block *old_blocks;
147 CORE_ADDR start_addr;
151 struct coff_context_stack *coff_context_stack;
153 /* Nonzero if within a function (so symbols should be local,
154 if nothing says specifically). */
159 /* The type of the function we are currently reading in. This is
160 used by define_symbol to record the type of arguments to a function. */
162 struct type *in_function_type;
165 struct pending_block *pending_blocks;
167 /* Complaints about various problems in the file being read */
169 struct complaint ef_complaint =
170 {"Unmatched .ef symbol(s) ignored starting at symnum %d", 0, 0};
172 struct complaint bf_no_aux_complaint =
173 {"`.bf' symbol %d has no aux entry", 0, 0};
175 struct complaint ef_no_aux_complaint =
176 {"`.ef' symbol %d has no aux entry", 0, 0};
178 struct complaint lineno_complaint =
179 {"Line number pointer %d lower than start of line numbers", 0, 0};
181 struct complaint unexpected_type_complaint =
182 {"Unexpected type for symbol %s", 0, 0};
184 struct complaint bad_sclass_complaint =
185 {"Bad n_sclass for symbol %s", 0, 0};
187 struct complaint misordered_blocks_complaint =
188 {"Blocks out of order at address %x", 0, 0};
190 struct complaint tagndx_bad_complaint =
191 {"Symbol table entry for %s has bad tagndx value", 0, 0};
193 /* Simplified internal version of coff symbol table information */
197 int c_symnum; /* symbol number of this entry */
198 int c_naux; /* 0 if syment only, 1 if syment + auxent, etc */
206 coff_read_struct_type PARAMS ((int, int, int));
209 decode_base_type PARAMS ((struct coff_symbol *, unsigned int,
210 union internal_auxent *));
213 decode_type PARAMS ((struct coff_symbol *, unsigned int,
214 union internal_auxent *));
217 decode_function_type PARAMS ((struct coff_symbol *, unsigned int,
218 union internal_auxent *));
221 coff_read_enum_type PARAMS ((int, int, int));
223 static struct blockvector *
224 make_blockvector PARAMS ((struct objfile *));
226 static struct symbol *
227 process_coff_symbol PARAMS ((struct coff_symbol *, union internal_auxent *,
231 patch_opaque_types PARAMS ((struct symtab *));
234 patch_type PARAMS ((struct type *, struct type *));
237 enter_linenos PARAMS ((long, int, int));
240 init_lineno PARAMS ((int, long, int));
243 getfilename PARAMS ((union internal_auxent *));
246 getsymname PARAMS ((struct internal_syment *));
249 free_stringtab PARAMS ((void));
252 init_stringtab PARAMS ((int, long));
255 read_one_sym PARAMS ((struct coff_symbol *, struct internal_syment *,
256 union internal_auxent *));
259 read_coff_symtab PARAMS ((long, int, struct objfile *));
262 find_linenos PARAMS ((bfd *, sec_ptr, PTR));
265 coff_symfile_init PARAMS ((struct objfile *));
268 coff_new_init PARAMS ((struct objfile *));
271 coff_symfile_read PARAMS ((struct objfile *, struct section_offsets *, int));
274 coff_symfile_finish PARAMS ((struct objfile *));
277 record_minimal_symbol PARAMS ((char *, CORE_ADDR, enum minimal_symbol_type));
280 coff_end_symtab PARAMS ((struct objfile *));
283 complete_symtab PARAMS ((char *, CORE_ADDR, unsigned int));
286 coff_start_symtab PARAMS ((void));
289 coff_record_line PARAMS ((int, CORE_ADDR));
292 coff_finish_block PARAMS ((struct symbol *, struct coff_pending **,
293 struct pending_block *, CORE_ADDR, CORE_ADDR,
297 coff_add_symbol_to_list PARAMS ((struct symbol *, struct coff_pending **));
300 coff_alloc_type PARAMS ((int));
302 static struct type **
303 coff_lookup_type PARAMS ((int));
306 /* Look up a coff type-number index. Return the address of the slot
307 where the type for that index is stored.
308 The type-number is in INDEX.
310 This can be used for finding the type associated with that index
311 or for associating a new type with the index. */
313 static struct type **
314 coff_lookup_type (index)
317 if (index >= type_vector_length)
319 int old_vector_length = type_vector_length;
321 type_vector_length *= 2;
322 if (type_vector_length < index) {
323 type_vector_length = index * 2;
325 type_vector = (struct type **)
326 xrealloc ((char *) type_vector,
327 type_vector_length * sizeof (struct type *));
328 memset (&type_vector[old_vector_length], 0,
329 (type_vector_length - old_vector_length) * sizeof(struct type *));
331 return &type_vector[index];
334 /* Make sure there is a type allocated for type number index
335 and return the type object.
336 This can create an empty (zeroed) type object. */
339 coff_alloc_type (index)
342 register struct type **type_addr = coff_lookup_type (index);
343 register struct type *type = *type_addr;
345 /* If we are referring to a type not known at all yet,
346 allocate an empty type for it.
347 We will fill it in later if we find out how. */
350 type = alloc_type (current_objfile);
356 /* maintain the lists of symbols and blocks */
358 /* Add a symbol to one of the lists of symbols. */
360 coff_add_symbol_to_list (symbol, listhead)
361 struct symbol *symbol;
362 struct coff_pending **listhead;
364 register struct coff_pending *link
365 = (struct coff_pending *) xmalloc (sizeof (struct coff_pending));
367 link->next = *listhead;
368 link->symbol = symbol;
372 /* Take one of the lists of symbols and make a block from it.
373 Put the block on the list of pending blocks. */
376 coff_finish_block (symbol, listhead, old_blocks, start, end, objfile)
377 struct symbol *symbol;
378 struct coff_pending **listhead;
379 struct pending_block *old_blocks;
380 CORE_ADDR start, end;
381 struct objfile *objfile;
383 register struct coff_pending *next, *next1;
384 register struct block *block;
385 register struct pending_block *pblock;
386 struct pending_block *opblock;
389 /* Count the length of the list of symbols. */
391 for (next = *listhead, i = 0; next; next = next->next, i++);
393 block = (struct block *)
394 obstack_alloc (&objfile->symbol_obstack, sizeof (struct block) + (i - 1) * sizeof (struct symbol *));
396 /* Copy the symbols into the block. */
398 BLOCK_NSYMS (block) = i;
399 for (next = *listhead; next; next = next->next)
400 BLOCK_SYM (block, --i) = next->symbol;
402 BLOCK_START (block) = start;
403 BLOCK_END (block) = end;
404 BLOCK_SUPERBLOCK (block) = 0; /* Filled in when containing block is made */
406 /* Put the block in as the value of the symbol that names it. */
410 SYMBOL_BLOCK_VALUE (symbol) = block;
411 BLOCK_FUNCTION (block) = symbol;
414 BLOCK_FUNCTION (block) = 0;
416 /* Now free the links of the list, and empty the list. */
418 for (next = *listhead; next; next = next1)
425 /* Install this block as the superblock
426 of all blocks made since the start of this scope
427 that don't have superblocks yet. */
430 for (pblock = pending_blocks; pblock != old_blocks; pblock = pblock->next)
432 if (BLOCK_SUPERBLOCK (pblock->block) == 0)
433 BLOCK_SUPERBLOCK (pblock->block) = block;
437 /* Record this block on the list of all blocks in the file.
438 Put it after opblock, or at the beginning if opblock is 0.
439 This puts the block in the list after all its subblocks. */
441 pblock = (struct pending_block *) xmalloc (sizeof (struct pending_block));
442 pblock->block = block;
445 pblock->next = opblock->next;
446 opblock->next = pblock;
450 pblock->next = pending_blocks;
451 pending_blocks = pblock;
455 static struct blockvector *
456 make_blockvector (objfile)
457 struct objfile *objfile;
459 register struct pending_block *next, *next1;
460 register struct blockvector *blockvector;
463 /* Count the length of the list of blocks. */
465 for (next = pending_blocks, i = 0; next; next = next->next, i++);
467 blockvector = (struct blockvector *)
468 obstack_alloc (&objfile->symbol_obstack, sizeof (struct blockvector) + (i - 1) * sizeof (struct block *));
470 /* Copy the blocks into the blockvector.
471 This is done in reverse order, which happens to put
472 the blocks into the proper order (ascending starting address).
473 coff_finish_block has hair to insert each block into the list
474 after its subblocks in order to make sure this is true. */
476 BLOCKVECTOR_NBLOCKS (blockvector) = i;
477 for (next = pending_blocks; next; next = next->next)
478 BLOCKVECTOR_BLOCK (blockvector, --i) = next->block;
480 /* Now free the links of the list, and empty the list. */
482 for (next = pending_blocks; next; next = next1)
492 /* Manage the vector of line numbers. */
495 coff_record_line (line, pc)
499 struct linetable_entry *e;
500 /* Make sure line vector is big enough. */
502 if (line_vector_index + 2 >= line_vector_length)
504 line_vector_length *= 2;
505 line_vector = (struct linetable *)
506 xrealloc ((char *) line_vector, sizeof (struct linetable)
507 + (line_vector_length
508 * sizeof (struct linetable_entry)));
511 e = line_vector->item + line_vector_index++;
512 e->line = line; e->pc = pc;
515 /* Start a new symtab for a new source file.
516 This is called when a COFF ".file" symbol is seen;
517 it indicates the start of data for one original source file. */
522 coff_file_symbols = 0;
523 coff_global_symbols = 0;
524 coff_context_stack = 0;
526 last_source_file = NULL;
528 /* Initialize the source file line number information for this file. */
530 if (line_vector) /* Unlikely, but maybe possible? */
531 free ((PTR)line_vector);
532 line_vector_index = 0;
533 line_vector_length = 1000;
534 prev_line_number = -2; /* Force first line number to be explicit */
535 line_vector = (struct linetable *)
536 xmalloc (sizeof (struct linetable)
537 + line_vector_length * sizeof (struct linetable_entry));
540 /* Save the vital information from when starting to read a file,
541 for use when closing off the current file.
542 NAME is the file name the symbols came from, START_ADDR is the first
543 text address for the file, and SIZE is the number of bytes of text. */
546 complete_symtab (name, start_addr, size)
548 CORE_ADDR start_addr;
551 last_source_file = savestring (name, strlen (name));
552 cur_src_start_addr = start_addr;
553 cur_src_end_addr = start_addr + size;
555 if (current_objfile -> ei.entry_point >= cur_src_start_addr &&
556 current_objfile -> ei.entry_point < cur_src_end_addr)
558 current_objfile -> ei.entry_file_lowpc = cur_src_start_addr;
559 current_objfile -> ei.entry_file_highpc = cur_src_end_addr;
563 /* Finish the symbol definitions for one main source file,
564 close off all the lexical contexts for that file
565 (creating struct block's for them), then make the
566 struct symtab for that file and put it in the list of all such. */
569 coff_end_symtab (objfile)
570 struct objfile *objfile;
572 register struct symtab *symtab;
573 register struct coff_context_stack *cstk;
574 register struct blockvector *blockvector;
575 register struct linetable *lv;
577 /* Finish the lexical context of the last function in the file. */
579 if (coff_context_stack)
581 cstk = coff_context_stack;
582 coff_context_stack = 0;
583 /* Make a block for the local symbols within. */
584 coff_finish_block (cstk->name, &coff_local_symbols, cstk->old_blocks,
585 cstk->start_addr, cur_src_end_addr, objfile);
589 /* Ignore a file that has no functions with real debugging info. */
590 if (pending_blocks == 0 && coff_file_symbols == 0 && coff_global_symbols == 0)
592 free ((PTR)line_vector);
594 line_vector_length = -1;
595 last_source_file = NULL;
599 /* It is unfortunate that in amdcoff, pending blocks might not be ordered
600 in this stage. Especially, blocks for static functions will show up at
601 the end. We need to sort them, so tools like `find_pc_function' and
602 `find_pc_block' can work reliably. */
603 if (pending_blocks) {
604 /* FIXME! Remove this horrid bubble sort and use qsort!!! */
607 struct pending_block *pb, *pbnext;
609 pb = pending_blocks, pbnext = pb->next;
614 /* swap blocks if unordered! */
616 if (BLOCK_START(pb->block) < BLOCK_START(pbnext->block)) {
617 struct block *tmp = pb->block;
618 complain (&misordered_blocks_complaint, BLOCK_START (pb->block));
619 pb->block = pbnext->block;
624 pbnext = pbnext->next;
629 /* Create the two top-level blocks for this file (STATIC_BLOCK and
631 coff_finish_block (0, &coff_file_symbols, 0, cur_src_start_addr, cur_src_end_addr, objfile);
632 coff_finish_block (0, &coff_global_symbols, 0, cur_src_start_addr, cur_src_end_addr, objfile);
634 /* Create the blockvector that points to all the file's blocks. */
635 blockvector = make_blockvector (objfile);
637 /* Now create the symtab object for this source file. */
638 symtab = allocate_symtab (last_source_file, objfile);
640 /* Fill in its components. */
641 symtab->blockvector = blockvector;
642 symtab->free_code = free_linetable;
643 symtab->free_ptr = 0;
644 symtab->filename = last_source_file;
645 symtab->dirname = NULL;
647 lv->nitems = line_vector_index;
648 symtab->linetable = (struct linetable *)
649 xrealloc ((char *) lv, (sizeof (struct linetable)
650 + lv->nitems * sizeof (struct linetable_entry)));
652 free_named_symtabs (symtab->filename);
654 /* Reinitialize for beginning of new file. */
656 line_vector_length = -1;
657 last_source_file = NULL;
661 record_minimal_symbol (name, address, type)
664 enum minimal_symbol_type type;
666 /* We don't want TDESC entry points in the minimal symbol table */
667 if (name[0] == '@') return;
669 /* mst_text isn't true, but apparently COFF doesn't tell us what it really
670 is, so this guess is more useful than mst_unknown. */
671 prim_record_minimal_symbol (savestring (name, strlen (name)),
676 /* coff_symfile_init ()
677 is the coff-specific initialization routine for reading symbols.
678 It is passed a struct objfile which contains, among other things,
679 the BFD for the file whose symbols are being read, and a slot for
680 a pointer to "private data" which we fill with cookies and other
681 treats for coff_symfile_read ().
683 We will only be called if this is a COFF or COFF-like file.
684 BFD handles figuring out the format of the file, and code in symtab.c
685 uses BFD's determination to vector to us.
687 The ultimate result is a new symtab (or, FIXME, eventually a psymtab). */
689 struct coff_symfile_info {
690 file_ptr min_lineno_offset; /* Where in file lowest line#s are */
691 file_ptr max_lineno_offset; /* 1+last byte of line#s in file */
694 static int text_bfd_scnum;
697 coff_symfile_init (objfile)
698 struct objfile *objfile;
701 bfd *abfd = objfile->obfd;
703 /* Allocate struct to keep track of the symfile */
704 objfile -> sym_private = xmmalloc (objfile -> md,
705 sizeof (struct coff_symfile_info));
707 init_entry_point_info (objfile);
709 /* Save the section number for the text section */
710 section = bfd_get_section_by_name(abfd,".text");
712 text_bfd_scnum = section->index;
717 /* This function is called for every section; it finds the outer limits
718 of the line table (minimum and maximum file offset) so that the
719 mainline code can read the whole thing for efficiency. */
723 find_linenos (abfd, asect, vpinfo)
728 struct coff_symfile_info *info;
730 file_ptr offset, maxoff;
732 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
733 count = asect->lineno_count;
738 size = count * local_linesz;
740 info = (struct coff_symfile_info *)vpinfo;
741 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
742 offset = asect->line_filepos;
745 if (offset < info->min_lineno_offset || info->min_lineno_offset == 0)
746 info->min_lineno_offset = offset;
748 maxoff = offset + size;
749 if (maxoff > info->max_lineno_offset)
750 info->max_lineno_offset = maxoff;
754 /* The BFD for this file -- only good while we're actively reading
755 symbols into a psymtab or a symtab. */
757 static bfd *symfile_bfd;
759 /* Read a symbol file, after initialization by coff_symfile_init. */
760 /* FIXME! Addr and Mainline are not used yet -- this will not work for
761 shared libraries or add_file! */
765 coff_symfile_read (objfile, section_offsets, mainline)
766 struct objfile *objfile;
767 struct section_offsets *section_offsets;
770 struct coff_symfile_info *info;
771 bfd *abfd = objfile->obfd;
772 coff_data_type *cdata = coff_data (abfd);
773 char *name = bfd_get_filename (abfd);
778 int stringtab_offset;
780 info = (struct coff_symfile_info *) objfile -> sym_private;
781 symfile_bfd = abfd; /* Kludge for swap routines */
783 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
784 desc = fileno ((FILE *)(abfd->iostream)); /* File descriptor */
785 num_symbols = bfd_get_symcount (abfd); /* How many syms */
786 symtab_offset = cdata->sym_filepos; /* Symbol table file offset */
787 stringtab_offset = symtab_offset + /* String table file offset */
788 num_symbols * cdata->local_symesz;
790 /* Set a few file-statics that give us specific information about
791 the particular COFF file format we're reading. */
792 local_linesz = cdata->local_linesz;
793 local_n_btmask = cdata->local_n_btmask;
794 local_n_btshft = cdata->local_n_btshft;
795 local_n_tmask = cdata->local_n_tmask;
796 local_n_tshift = cdata->local_n_tshift;
797 local_linesz = cdata->local_linesz;
798 local_symesz = cdata->local_symesz;
799 local_auxesz = cdata->local_auxesz;
801 /* Allocate space for raw symbol and aux entries, based on their
802 space requirements as reported by BFD. */
803 temp_sym = (char *) xmalloc
804 (cdata->local_symesz + cdata->local_auxesz);
805 temp_aux = temp_sym + cdata->local_symesz;
806 make_cleanup (free_current_contents, &temp_sym);
809 /* Read the line number table, all at once. */
810 info->min_lineno_offset = 0;
811 info->max_lineno_offset = 0;
812 bfd_map_over_sections (abfd, find_linenos, (PTR)info);
814 val = init_lineno (desc, info->min_lineno_offset,
815 info->max_lineno_offset - info->min_lineno_offset);
817 error ("\"%s\": error reading line numbers\n", name);
819 /* Now read the string table, all at once. */
821 val = init_stringtab (desc, stringtab_offset);
823 error ("\"%s\": can't get string table", name);
824 make_cleanup (free_stringtab, 0);
826 init_minimal_symbol_collection ();
827 make_cleanup (discard_minimal_symbols, 0);
829 /* Now that the executable file is positioned at symbol table,
830 process it and define symbols accordingly. */
832 read_coff_symtab ((long)symtab_offset, num_symbols, objfile);
834 /* Sort symbols alphabetically within each block. */
836 sort_all_symtab_syms ();
838 /* Install any minimal symbols that have been collected as the current
839 minimal symbols for this objfile. */
841 install_minimal_symbols (objfile);
845 coff_new_init (ignore)
846 struct objfile *ignore;
851 /* Perform any local cleanups required when we are done with a particular
852 objfile. I.E, we are in the process of discarding all symbol information
853 for an objfile, freeing up all memory held for it, and unlinking the
854 objfile struct from the global list of known objfiles. */
857 coff_symfile_finish (objfile)
858 struct objfile *objfile;
860 if (objfile -> sym_private != NULL)
862 mfree (objfile -> md, objfile -> sym_private);
867 /* Given pointers to a symbol table in coff style exec file,
868 analyze them and create struct symtab's describing the symbols.
869 NSYMS is the number of symbols in the symbol table.
870 We read them one at a time using read_one_sym (). */
873 read_coff_symtab (symtab_offset, nsyms, objfile)
876 struct objfile *objfile;
879 register struct coff_context_stack *new;
880 struct coff_symbol coff_symbol;
881 register struct coff_symbol *cs = &coff_symbol;
882 static struct internal_syment main_sym;
883 static union internal_auxent main_aux;
884 struct coff_symbol fcn_cs_saved;
885 static struct internal_syment fcn_sym_saved;
886 static union internal_auxent fcn_aux_saved;
889 /* A .file is open. */
890 int in_source_file = 0;
891 int num_object_files = 0;
892 int next_file_symnum = -1;
894 /* Name of the current file. */
895 char *filestring = "";
897 int fcn_first_line = 0;
898 int fcn_last_line = 0;
899 int fcn_start_addr = 0;
900 long fcn_line_ptr = 0;
901 struct cleanup *old_chain;
904 stream = fopen (objfile->name, FOPEN_RB);
906 perror_with_name(objfile->name);
908 /* Position to read the symbol table. */
909 val = fseek (stream, (long)symtab_offset, 0);
911 perror_with_name (objfile->name);
913 /* These cleanups will be discarded below if we succeed. */
914 old_chain = make_cleanup (free_objfile, objfile);
915 make_cleanup (fclose, stream);
917 current_objfile = objfile;
918 nlist_stream_global = stream;
919 nlist_nsyms_global = nsyms;
920 last_source_file = NULL;
921 memset (opaque_type_chain, 0, sizeof opaque_type_chain);
923 if (type_vector) /* Get rid of previous one */
924 free ((PTR)type_vector);
925 type_vector_length = 160;
926 type_vector = (struct type **)
927 xmalloc (type_vector_length * sizeof (struct type *));
928 memset (type_vector, 0, type_vector_length * sizeof (struct type *));
930 coff_start_symtab ();
933 while (symnum < nsyms)
935 QUIT; /* Make this command interruptable. */
936 read_one_sym (cs, &main_sym, &main_aux);
939 temp_sem_val = cs->c_name[0] << 24 | cs->c_name[1] << 16 |
940 cs->c_name[2] << 8 | cs->c_name[3];
941 if (int_sem_val == temp_sem_val)
942 last_coffsem = (int) strtol (cs->c_name+4, (char **) NULL, 10);
945 if (cs->c_symnum == next_file_symnum && cs->c_sclass != C_FILE)
947 if (last_source_file)
948 coff_end_symtab (objfile);
950 coff_start_symtab ();
951 complete_symtab ("_globals_", 0, first_object_file_end);
952 /* done with all files, everything from here on out is globals */
955 /* Special case for file with type declarations only, no text. */
956 if (!last_source_file && SDB_TYPE (cs->c_type)
957 && cs->c_secnum == N_DEBUG)
958 complete_symtab (filestring, 0, 0);
960 /* Typedefs should not be treated as symbol definitions. */
961 if (ISFCN (cs->c_type) && cs->c_sclass != C_TPDEF)
963 /* record as a minimal symbol. if we get '.bf' next,
964 * then we undo this step
966 record_minimal_symbol (cs->c_name, cs->c_value, mst_text);
968 fcn_line_ptr = main_aux.x_sym.x_fcnary.x_fcn.x_lnnoptr;
969 fcn_start_addr = cs->c_value;
971 fcn_sym_saved = main_sym;
972 fcn_aux_saved = main_aux;
976 switch (cs->c_sclass)
985 complain (&bad_sclass_complaint, cs->c_name);
990 * c_value field contains symnum of next .file entry in table
991 * or symnum of first global after last .file.
993 next_file_symnum = cs->c_value;
994 filestring = getfilename (&main_aux);
996 * Complete symbol table for last object file
997 * containing debugging information.
999 if (last_source_file)
1001 coff_end_symtab (objfile);
1002 coff_start_symtab ();
1008 if (cs->c_name[0] == '.') {
1009 if (strcmp (cs->c_name, ".text") == 0) {
1010 /* FIXME: don't wire in ".text" as section name
1012 if (++num_object_files == 1) {
1013 /* last address of startup file */
1014 first_object_file_end = cs->c_value +
1015 main_aux.x_scn.x_scnlen;
1017 /* Check for in_source_file deals with case of
1018 a file with debugging symbols
1019 followed by a later file with no symbols. */
1021 complete_symtab (filestring, cs->c_value,
1022 main_aux.x_scn.x_scnlen);
1025 /* flush rest of '.' symbols */
1028 else if (!SDB_TYPE (cs->c_type)
1029 && cs->c_name[0] == 'L'
1030 && (strncmp (cs->c_name, "LI%", 3) == 0
1031 || strncmp (cs->c_name, "LF%", 3) == 0
1032 || strncmp (cs->c_name,"LC%",3) == 0
1033 || strncmp (cs->c_name,"LP%",3) == 0
1034 || strncmp (cs->c_name,"LPB%",4) == 0
1035 || strncmp (cs->c_name,"LBB%",4) == 0
1036 || strncmp (cs->c_name,"LBE%",4) == 0
1037 || strncmp (cs->c_name,"LPBX%",5) == 0))
1038 /* At least on a 3b1, gcc generates swbeg and string labels
1039 that look like this. Ignore them. */
1041 /* fall in for static symbols that don't start with '.' */
1043 if (!SDB_TYPE (cs->c_type)) {
1044 /* FIXME: This is BOGUS Will Robinson!
1045 Coff should provide the SEC_CODE flag for executable sections,
1046 then if we could look up sections by section number we
1047 could see if the flags indicate SEC_CODE. If so, then
1048 record this symbol as a function in the minimal symbol table.
1049 But why are absolute syms recorded as functions, anyway? */
1050 if (cs->c_secnum <= text_bfd_scnum+1) {/* text or abs */
1051 record_minimal_symbol (cs->c_name, cs->c_value,
1055 record_minimal_symbol (cs->c_name, cs->c_value,
1060 process_coff_symbol (cs, &main_aux, objfile);
1064 if (strcmp (cs->c_name, ".bf") == 0)
1066 within_function = 1;
1068 /* value contains address of first non-init type code */
1069 /* main_aux.x_sym.x_misc.x_lnsz.x_lnno
1070 contains line number of '{' } */
1071 if (cs->c_naux != 1)
1072 complain (&bf_no_aux_complaint, cs->c_symnum);
1073 fcn_first_line = main_aux.x_sym.x_misc.x_lnsz.x_lnno;
1075 new = (struct coff_context_stack *)
1076 xmalloc (sizeof (struct coff_context_stack));
1077 new->depth = depth = 0;
1079 coff_context_stack = new;
1081 new->old_blocks = pending_blocks;
1082 new->start_addr = fcn_start_addr;
1083 fcn_cs_saved.c_name = getsymname (&fcn_sym_saved);
1084 new->name = process_coff_symbol (&fcn_cs_saved,
1085 &fcn_aux_saved, objfile);
1087 else if (strcmp (cs->c_name, ".ef") == 0)
1089 /* the value of .ef is the address of epilogue code;
1090 * not useful for gdb
1092 /* { main_aux.x_sym.x_misc.x_lnsz.x_lnno
1093 contains number of lines to '}' */
1094 new = coff_context_stack;
1097 complain (&ef_complaint, cs->c_symnum);
1098 within_function = 0;
1101 if (cs->c_naux != 1) {
1102 complain (&ef_no_aux_complaint, cs->c_symnum);
1103 fcn_last_line = 0x7FFFFFFF;
1105 fcn_last_line = main_aux.x_sym.x_misc.x_lnsz.x_lnno;
1107 enter_linenos (fcn_line_ptr, fcn_first_line, fcn_last_line);
1109 coff_finish_block (new->name, &coff_local_symbols, new->old_blocks,
1111 #if defined (FUNCTION_EPILOGUE_SIZE)
1112 /* This macro should be defined only on
1114 fcn_aux_saved.x_sym.x_misc.x_fsize
1115 field is always zero.
1116 So use the .bf record information that
1117 points to the epilogue and add the size
1119 cs->c_value + FUNCTION_EPILOGUE_SIZE,
1121 fcn_cs_saved.c_value +
1122 fcn_aux_saved.x_sym.x_misc.x_fsize,
1126 coff_context_stack = 0;
1127 within_function = 0;
1133 if (strcmp (cs->c_name, ".bb") == 0)
1135 new = (struct coff_context_stack *)
1136 xmalloc (sizeof (struct coff_context_stack));
1139 new->next = coff_context_stack;
1140 coff_context_stack = new;
1141 new->locals = coff_local_symbols;
1142 new->old_blocks = pending_blocks;
1143 new->start_addr = cs->c_value;
1145 coff_local_symbols = 0;
1147 else if (strcmp (cs->c_name, ".eb") == 0)
1149 new = coff_context_stack;
1150 if (new == 0 || depth != new->depth)
1151 error ("Invalid symbol data: .bb/.eb symbol mismatch at symbol %d.",
1153 if (coff_local_symbols && coff_context_stack->next)
1155 /* Make a block for the local symbols within. */
1156 coff_finish_block (0, &coff_local_symbols, new->old_blocks,
1157 new->start_addr, cs->c_value, objfile);
1160 coff_local_symbols = new->locals;
1161 coff_context_stack = new->next;
1167 process_coff_symbol (cs, &main_aux, objfile);
1172 if (last_source_file)
1173 coff_end_symtab (objfile);
1176 /* Patch up any opaque types (references to types that are not defined
1177 in the file where they are referenced, e.g. "struct foo *bar"). */
1178 ALL_OBJFILE_SYMTABS (objfile, s)
1179 patch_opaque_types (s);
1181 discard_cleanups (old_chain);
1182 current_objfile = NULL;
1185 /* Routines for reading headers and symbols from executable. */
1188 /* Move these XXXMAGIC symbol defns into BFD! */
1190 /* Read COFF file header, check magic number,
1191 and return number of symbols. */
1192 read_file_hdr (chan, file_hdr)
1196 lseek (chan, 0L, 0);
1197 if (myread (chan, (char *)file_hdr, FILHSZ) < 0)
1200 switch (file_hdr->f_magic)
1215 #if defined (MC68KWRMAGIC) \
1216 && (!defined (MC68MAGIC) || MC68KWRMAGIC != MC68MAGIC)
1230 case I960ROMAGIC: /* Intel 960 */
1233 case I960RWMAGIC: /* Intel 960 */
1235 return file_hdr->f_nsyms;
1239 if (BADMAG(file_hdr))
1242 return file_hdr->f_nsyms;
1250 /* Read the next symbol, swap it, and return it in both internal_syment
1251 form, and coff_symbol form. Also return its first auxent, if any,
1252 in internal_auxent form, and skip any other auxents. */
1255 read_one_sym (cs, sym, aux)
1256 register struct coff_symbol *cs;
1257 register struct internal_syment *sym;
1258 register union internal_auxent *aux;
1262 cs->c_symnum = symnum;
1263 fread (temp_sym, local_symesz, 1, nlist_stream_global);
1264 bfd_coff_swap_sym_in (symfile_bfd, temp_sym, (char *)sym);
1265 cs->c_naux = sym->n_numaux & 0xff;
1266 if (cs->c_naux >= 1)
1268 fread (temp_aux, local_auxesz, 1, nlist_stream_global);
1269 bfd_coff_swap_aux_in (symfile_bfd, temp_aux, sym->n_type, sym->n_sclass,
1271 /* If more than one aux entry, read past it (only the first aux
1273 for (i = 1; i < cs->c_naux; i++)
1274 fread (temp_aux, local_auxesz, 1, nlist_stream_global);
1276 cs->c_name = getsymname (sym);
1277 cs->c_value = sym->n_value;
1278 cs->c_sclass = (sym->n_sclass & 0xff);
1279 cs->c_secnum = sym->n_scnum;
1280 cs->c_type = (unsigned) sym->n_type;
1281 if (!SDB_TYPE (cs->c_type))
1284 symnum += 1 + cs->c_naux;
1287 /* Support for string table handling */
1289 static char *stringtab = NULL;
1292 init_stringtab (chan, offset)
1298 unsigned char lengthbuf[4];
1306 if (lseek (chan, offset, 0) < 0)
1309 val = myread (chan, (char *)lengthbuf, sizeof lengthbuf);
1310 length = bfd_h_get_32 (symfile_bfd, lengthbuf);
1312 /* If no string table is needed, then the file may end immediately
1313 after the symbols. Just return with `stringtab' set to null. */
1314 if (val != sizeof length || length < sizeof length)
1317 stringtab = (char *) xmalloc (length);
1318 if (stringtab == NULL)
1321 memcpy (stringtab, &length, sizeof length);
1322 if (length == sizeof length) /* Empty table -- just the count */
1325 val = myread (chan, stringtab + sizeof length, length - sizeof length);
1326 if (val != length - sizeof length || stringtab[length - 1] != '\0')
1341 getsymname (symbol_entry)
1342 struct internal_syment *symbol_entry;
1344 static char buffer[SYMNMLEN+1];
1347 if (symbol_entry->_n._n_n._n_zeroes == 0)
1349 result = stringtab + symbol_entry->_n._n_n._n_offset;
1353 strncpy (buffer, symbol_entry->_n._n_name, SYMNMLEN);
1354 buffer[SYMNMLEN] = '\0';
1361 getfilename (aux_entry)
1362 union internal_auxent *aux_entry;
1364 static char buffer[BUFSIZ];
1365 register char *temp;
1368 #ifndef COFF_NO_LONG_FILE_NAMES
1369 #if defined (x_zeroes)
1371 if (aux_entry->x_zeroes == 0)
1372 strcpy (buffer, stringtab + aux_entry->x_offset);
1373 #else /* no x_zeroes */
1374 if (aux_entry->x_file.x_n.x_zeroes == 0)
1375 strcpy (buffer, stringtab + aux_entry->x_file.x_n.x_offset);
1376 #endif /* no x_zeroes */
1378 #endif /* COFF_NO_LONG_FILE_NAMES */
1380 #if defined (x_name)
1382 strncpy (buffer, aux_entry->x_name, FILNMLEN);
1384 strncpy (buffer, aux_entry->x_file.x_fname, FILNMLEN);
1386 buffer[FILNMLEN] = '\0';
1389 if ((temp = strrchr (result, '/')) != NULL)
1394 /* Support for line number handling */
1395 static char *linetab = NULL;
1396 static long linetab_offset;
1397 static unsigned long linetab_size;
1399 /* Read in all the line numbers for fast lookups later. Leave them in
1400 external (unswapped) format in memory; we'll swap them as we enter
1401 them into GDB's data structures. */
1404 init_lineno (chan, offset, size)
1411 linetab_offset = offset;
1412 linetab_size = size;
1417 if (lseek (chan, offset, 0) < 0)
1420 /* Allocate the desired table, plus a sentinel */
1421 linetab = (char *) xmalloc (size + local_linesz);
1423 val = myread (chan, linetab, size);
1427 /* Terminate it with an all-zero sentinel record */
1428 memset (linetab + size, 0, local_linesz);
1430 make_cleanup (free, linetab); /* Be sure it gets de-allocated. */
1434 #if !defined (L_LNNO32)
1435 #define L_LNNO32(lp) ((lp)->l_lnno)
1439 enter_linenos (file_offset, first_line, last_line)
1441 register int first_line;
1442 register int last_line;
1444 register char *rawptr;
1445 struct internal_lineno lptr;
1447 if (file_offset < linetab_offset)
1449 complain (&lineno_complaint, file_offset);
1450 if (file_offset > linetab_size) /* Too big to be an offset? */
1452 file_offset += linetab_offset; /* Try reading at that linetab offset */
1455 rawptr = &linetab[file_offset - linetab_offset];
1457 /* skip first line entry for each function */
1458 rawptr += local_linesz;
1459 /* line numbers start at one for the first line of the function */
1463 bfd_coff_swap_lineno_in (symfile_bfd, rawptr, &lptr);
1464 rawptr += local_linesz;
1465 /* The next function, or the sentinel, will have L_LNNO32 zero; we exit. */
1466 if (L_LNNO32 (&lptr) && L_LNNO32 (&lptr) <= last_line)
1467 coff_record_line (first_line + L_LNNO32 (&lptr), lptr.l_addr.l_paddr);
1474 patch_type (type, real_type)
1476 struct type *real_type;
1478 register struct type *target = TYPE_TARGET_TYPE (type);
1479 register struct type *real_target = TYPE_TARGET_TYPE (real_type);
1480 int field_size = TYPE_NFIELDS (real_target) * sizeof (struct field);
1482 TYPE_LENGTH (target) = TYPE_LENGTH (real_target);
1483 TYPE_NFIELDS (target) = TYPE_NFIELDS (real_target);
1484 TYPE_FIELDS (target) = (struct field *) TYPE_ALLOC (target, field_size);
1486 memcpy (TYPE_FIELDS (target), TYPE_FIELDS (real_target), field_size);
1488 if (TYPE_NAME (real_target))
1490 if (TYPE_NAME (target))
1491 free (TYPE_NAME (target));
1492 TYPE_NAME (target) = concat (TYPE_NAME (real_target), NULL);
1496 /* Patch up all appropriate typedef symbols in the opaque_type_chains
1497 so that they can be used to print out opaque data structures properly. */
1500 patch_opaque_types (s)
1503 register struct block *b;
1505 register struct symbol *real_sym;
1507 /* Go through the per-file symbols only */
1508 b = BLOCKVECTOR_BLOCK (BLOCKVECTOR (s), STATIC_BLOCK);
1509 for (i = BLOCK_NSYMS (b) - 1; i >= 0; i--)
1511 /* Find completed typedefs to use to fix opaque ones.
1512 Remove syms from the chain when their types are stored,
1513 but search the whole chain, as there may be several syms
1514 from different files with the same name. */
1515 real_sym = BLOCK_SYM (b, i);
1516 if (SYMBOL_CLASS (real_sym) == LOC_TYPEDEF &&
1517 SYMBOL_NAMESPACE (real_sym) == VAR_NAMESPACE &&
1518 TYPE_CODE (SYMBOL_TYPE (real_sym)) == TYPE_CODE_PTR &&
1519 TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (real_sym))) != 0)
1521 register char *name = SYMBOL_NAME (real_sym);
1522 register int hash = hashname (name);
1523 register struct symbol *sym, *prev;
1526 for (sym = opaque_type_chain[hash]; sym;)
1528 if (name[0] == SYMBOL_NAME (sym)[0] &&
1529 !strcmp (name + 1, SYMBOL_NAME (sym) + 1))
1533 SYMBOL_VALUE_CHAIN (prev) = SYMBOL_VALUE_CHAIN (sym);
1537 opaque_type_chain[hash] = SYMBOL_VALUE_CHAIN (sym);
1540 patch_type (SYMBOL_TYPE (sym), SYMBOL_TYPE (real_sym));
1544 sym = SYMBOL_VALUE_CHAIN (prev);
1548 sym = opaque_type_chain[hash];
1554 sym = SYMBOL_VALUE_CHAIN (sym);
1561 static struct symbol *
1562 process_coff_symbol (cs, aux, objfile)
1563 register struct coff_symbol *cs;
1564 register union internal_auxent *aux;
1565 struct objfile *objfile;
1567 register struct symbol *sym
1568 = (struct symbol *) obstack_alloc (&objfile->symbol_obstack, sizeof (struct symbol));
1570 #ifdef NAMES_HAVE_UNDERSCORE
1575 struct type *temptype;
1577 memset (sym, 0, sizeof (struct symbol));
1579 name = (name[0] == '_' ? name + offset : name);
1580 SYMBOL_NAME (sym) = obstack_copy0 (&objfile->symbol_obstack, name, strlen (name));
1582 /* default assumptions */
1583 SYMBOL_VALUE (sym) = cs->c_value;
1584 SYMBOL_NAMESPACE (sym) = VAR_NAMESPACE;
1586 if (ISFCN (cs->c_type))
1589 /* FIXME: This has NOT been tested. The DBX version has.. */
1590 /* Generate a template for the type of this function. The
1591 types of the arguments will be added as we read the symbol
1593 struct type *new = (struct type *)
1594 obstack_alloc (&objfile->symbol_obstack, sizeof (struct type));
1596 memcpy (new, lookup_function_type (decode_function_type (cs, cs->c_type, aux)),
1597 sizeof(struct type));
1598 SYMBOL_TYPE (sym) = new;
1599 in_function_type = SYMBOL_TYPE(sym);
1602 lookup_function_type (decode_function_type (cs, cs->c_type, aux));
1605 SYMBOL_CLASS (sym) = LOC_BLOCK;
1606 if (cs->c_sclass == C_STAT)
1607 coff_add_symbol_to_list (sym, &coff_file_symbols);
1608 else if (cs->c_sclass == C_EXT)
1609 coff_add_symbol_to_list (sym, &coff_global_symbols);
1613 SYMBOL_TYPE (sym) = decode_type (cs, cs->c_type, aux);
1614 switch (cs->c_sclass)
1620 SYMBOL_CLASS (sym) = LOC_LOCAL;
1621 coff_add_symbol_to_list (sym, &coff_local_symbols);
1625 SYMBOL_CLASS (sym) = LOC_STATIC;
1626 SYMBOL_VALUE_ADDRESS (sym) = (CORE_ADDR) cs->c_value;
1627 coff_add_symbol_to_list (sym, &coff_global_symbols);
1631 SYMBOL_CLASS (sym) = LOC_STATIC;
1632 SYMBOL_VALUE_ADDRESS (sym) = (CORE_ADDR) cs->c_value;
1633 if (within_function) {
1634 /* Static symbol of local scope */
1635 coff_add_symbol_to_list (sym, &coff_local_symbols);
1638 /* Static symbol at top level of file */
1639 coff_add_symbol_to_list (sym, &coff_file_symbols);
1643 #ifdef C_GLBLREG /* AMD coff */
1647 SYMBOL_CLASS (sym) = LOC_REGISTER;
1648 SYMBOL_VALUE (sym) = SDB_REG_TO_REGNUM(cs->c_value);
1649 coff_add_symbol_to_list (sym, &coff_local_symbols);
1656 SYMBOL_CLASS (sym) = LOC_ARG;
1658 /* FIXME: This has not been tested. */
1659 /* Add parameter to function. */
1660 add_param_to_type(&in_function_type,sym);
1662 coff_add_symbol_to_list (sym, &coff_local_symbols);
1663 #if !defined (BELIEVE_PCC_PROMOTION)
1664 /* If PCC says a parameter is a short or a char,
1665 it is really an int. */
1666 temptype = lookup_fundamental_type (current_objfile, FT_INTEGER);
1667 if (TYPE_LENGTH (SYMBOL_TYPE (sym)) < TYPE_LENGTH (temptype)
1668 && TYPE_CODE (SYMBOL_TYPE (sym)) == TYPE_CODE_INT)
1670 SYMBOL_TYPE (sym) = TYPE_UNSIGNED (SYMBOL_TYPE (sym))
1671 ? lookup_fundamental_type (current_objfile,
1672 FT_UNSIGNED_INTEGER)
1679 SYMBOL_CLASS (sym) = LOC_REGPARM;
1680 SYMBOL_VALUE (sym) = SDB_REG_TO_REGNUM(cs->c_value);
1681 coff_add_symbol_to_list (sym, &coff_local_symbols);
1682 #if !defined (BELIEVE_PCC_PROMOTION)
1683 /* If PCC says a parameter is a short or a char,
1684 it is really an int. */
1685 temptype = lookup_fundamental_type (current_objfile, FT_INTEGER);
1686 if (TYPE_LENGTH (SYMBOL_TYPE (sym)) < TYPE_LENGTH (temptype)
1687 && TYPE_CODE (SYMBOL_TYPE (sym)) == TYPE_CODE_INT)
1689 SYMBOL_TYPE (sym) = TYPE_UNSIGNED (SYMBOL_TYPE (sym))
1690 ? lookup_fundamental_type (current_objfile,
1691 FT_UNSIGNED_INTEGER)
1698 SYMBOL_CLASS (sym) = LOC_TYPEDEF;
1699 SYMBOL_NAMESPACE (sym) = VAR_NAMESPACE;
1701 /* If type has no name, give it one */
1702 if (TYPE_NAME (SYMBOL_TYPE (sym)) == 0)
1703 TYPE_NAME (SYMBOL_TYPE (sym)) = concat (SYMBOL_NAME (sym), NULL);
1705 /* Keep track of any type which points to empty structured type,
1706 so it can be filled from a definition from another file. A
1707 simple forward reference (TYPE_CODE_UNDEF) is not an
1708 empty structured type, though; the forward references
1709 work themselves out via the magic of coff_lookup_type. */
1710 if (TYPE_CODE (SYMBOL_TYPE (sym)) == TYPE_CODE_PTR &&
1711 TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym))) == 0 &&
1712 TYPE_CODE (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym))) !=
1715 register int i = hashname (SYMBOL_NAME (sym));
1717 SYMBOL_VALUE_CHAIN (sym) = opaque_type_chain[i];
1718 opaque_type_chain[i] = sym;
1720 coff_add_symbol_to_list (sym, &coff_file_symbols);
1726 SYMBOL_CLASS (sym) = LOC_TYPEDEF;
1727 SYMBOL_NAMESPACE (sym) = STRUCT_NAMESPACE;
1728 if (TYPE_NAME (SYMBOL_TYPE (sym)) == 0)
1729 TYPE_NAME (SYMBOL_TYPE (sym))
1731 (cs->c_sclass == C_ENTAG
1733 : (cs->c_sclass == C_STRTAG
1734 ? "struct " : "union ")),
1735 SYMBOL_NAME (sym), NULL);
1736 coff_add_symbol_to_list (sym, &coff_file_symbols);
1746 /* Decode a coff type specifier;
1747 return the type that is meant. */
1751 decode_type (cs, c_type, aux)
1752 register struct coff_symbol *cs;
1753 unsigned int c_type;
1754 register union internal_auxent *aux;
1756 register struct type *type = 0;
1757 unsigned int new_c_type;
1759 if (c_type & ~N_BTMASK)
1761 new_c_type = DECREF (c_type);
1764 type = decode_type (cs, new_c_type, aux);
1765 type = lookup_pointer_type (type);
1767 else if (ISFCN (c_type))
1769 type = decode_type (cs, new_c_type, aux);
1770 type = lookup_function_type (type);
1772 else if (ISARY (c_type))
1775 register unsigned short *dim;
1776 struct type *base_type, *index_type;
1778 /* Define an array type. */
1779 /* auxent refers to array, not base type */
1780 if (aux->x_sym.x_tagndx.l == 0)
1783 /* shift the indices down */
1784 dim = &aux->x_sym.x_fcnary.x_ary.x_dimen[0];
1787 for (i = 0; *dim && i < DIMNUM - 1; i++, dim++)
1791 base_type = decode_type (cs, new_c_type, aux);
1792 index_type = lookup_fundamental_type (current_objfile, FT_INTEGER);
1793 type = create_array_type ((struct type *) NULL, base_type,
1794 index_type, 0, n - 1);
1799 /* Reference to existing type. This only occurs with the
1800 struct, union, and enum types. EPI a29k coff
1801 fakes us out by producing aux entries with a nonzero
1802 x_tagndx for definitions of structs, unions, and enums, so we
1803 have to check the c_sclass field. SCO 3.2v4 cc gets confused
1804 with pointers to pointers to defined structs, and generates
1805 negative x_tagndx fields. */
1806 if (cs->c_naux > 0 && aux->x_sym.x_tagndx.l != 0)
1808 if (cs->c_sclass != C_STRTAG
1809 && cs->c_sclass != C_UNTAG
1810 && cs->c_sclass != C_ENTAG
1811 && aux->x_sym.x_tagndx.l >= 0)
1813 type = coff_alloc_type (aux->x_sym.x_tagndx.l);
1816 complain (&tagndx_bad_complaint, cs->c_name);
1817 /* And fall through to decode_base_type... */
1821 return decode_base_type (cs, BTYPE (c_type), aux);
1824 /* Decode a coff type specifier for function definition;
1825 return the type that the function returns. */
1829 decode_function_type (cs, c_type, aux)
1830 register struct coff_symbol *cs;
1831 unsigned int c_type;
1832 register union internal_auxent *aux;
1834 if (aux->x_sym.x_tagndx.l == 0)
1835 cs->c_naux = 0; /* auxent refers to function, not base type */
1837 return decode_type (cs, DECREF (c_type), aux);
1844 decode_base_type (cs, c_type, aux)
1845 register struct coff_symbol *cs;
1846 unsigned int c_type;
1847 register union internal_auxent *aux;
1854 /* shows up with "void (*foo)();" structure members */
1855 return lookup_fundamental_type (current_objfile, FT_VOID);
1858 /* DGUX actually defines both T_ARG and T_VOID to the same value. */
1861 /* Shows up in DGUX, I think. Not sure where. */
1862 return lookup_fundamental_type (current_objfile, FT_VOID); /* shouldn't show up here */
1868 /* Intel 960 COFF has this symbol and meaning. */
1869 return lookup_fundamental_type (current_objfile, FT_VOID);
1873 return lookup_fundamental_type (current_objfile, FT_CHAR);
1876 return lookup_fundamental_type (current_objfile, FT_SHORT);
1879 return lookup_fundamental_type (current_objfile, FT_INTEGER);
1882 return lookup_fundamental_type (current_objfile, FT_LONG);
1885 return lookup_fundamental_type (current_objfile, FT_FLOAT);
1888 return lookup_fundamental_type (current_objfile, FT_DBL_PREC_FLOAT);
1891 if (cs->c_naux != 1)
1893 /* anonymous structure type */
1894 type = coff_alloc_type (cs->c_symnum);
1895 TYPE_CODE (type) = TYPE_CODE_STRUCT;
1896 TYPE_NAME (type) = concat ("struct ", "<opaque>", NULL);
1897 INIT_CPLUS_SPECIFIC(type);
1898 TYPE_LENGTH (type) = 0;
1899 TYPE_FIELDS (type) = 0;
1900 TYPE_NFIELDS (type) = 0;
1904 type = coff_read_struct_type (cs->c_symnum,
1905 aux->x_sym.x_misc.x_lnsz.x_size,
1906 aux->x_sym.x_fcnary.x_fcn.x_endndx.l);
1911 if (cs->c_naux != 1)
1913 /* anonymous union type */
1914 type = coff_alloc_type (cs->c_symnum);
1915 TYPE_NAME (type) = concat ("union ", "<opaque>", NULL);
1916 INIT_CPLUS_SPECIFIC(type);
1917 TYPE_LENGTH (type) = 0;
1918 TYPE_LENGTH (type) = 0;
1919 TYPE_FIELDS (type) = 0;
1920 TYPE_NFIELDS (type) = 0;
1924 type = coff_read_struct_type (cs->c_symnum,
1925 aux->x_sym.x_misc.x_lnsz.x_size,
1926 aux->x_sym.x_fcnary.x_fcn.x_endndx.l);
1928 TYPE_CODE (type) = TYPE_CODE_UNION;
1932 return coff_read_enum_type (cs->c_symnum,
1933 aux->x_sym.x_misc.x_lnsz.x_size,
1934 aux->x_sym.x_fcnary.x_fcn.x_endndx.l);
1937 /* shouldn't show up here */
1941 return lookup_fundamental_type (current_objfile, FT_UNSIGNED_CHAR);
1944 return lookup_fundamental_type (current_objfile, FT_UNSIGNED_SHORT);
1947 return lookup_fundamental_type (current_objfile, FT_UNSIGNED_INTEGER);
1950 return lookup_fundamental_type (current_objfile, FT_UNSIGNED_LONG);
1952 complain (&unexpected_type_complaint, cs->c_name);
1953 return lookup_fundamental_type (current_objfile, FT_VOID);
1956 /* This page contains subroutines of read_type. */
1958 /* Read the description of a structure (or union type)
1959 and return an object describing the type. */
1961 static struct type *
1962 coff_read_struct_type (index, length, lastsym)
1969 struct nextfield *next;
1973 register struct type *type;
1974 register struct nextfield *list = 0;
1975 struct nextfield *new;
1979 #ifdef NAMES_HAVE_UNDERSCORE
1984 struct coff_symbol member_sym;
1985 register struct coff_symbol *ms = &member_sym;
1986 struct internal_syment sub_sym;
1987 union internal_auxent sub_aux;
1990 type = coff_alloc_type (index);
1991 TYPE_CODE (type) = TYPE_CODE_STRUCT;
1992 INIT_CPLUS_SPECIFIC(type);
1993 TYPE_LENGTH (type) = length;
1995 while (!done && symnum < lastsym && symnum < nlist_nsyms_global)
1997 read_one_sym (ms, &sub_sym, &sub_aux);
1999 name = (name[0] == '_' ? name + offset : name);
2001 switch (ms->c_sclass)
2006 /* Get space to record the next field's data. */
2007 new = (struct nextfield *) alloca (sizeof (struct nextfield));
2011 /* Save the data. */
2012 list->field.name = savestring (name, strlen (name));
2013 list->field.type = decode_type (ms, ms->c_type, &sub_aux);
2014 list->field.bitpos = 8 * ms->c_value;
2015 list->field.bitsize = 0;
2021 /* Get space to record the next field's data. */
2022 new = (struct nextfield *) alloca (sizeof (struct nextfield));
2026 /* Save the data. */
2027 list->field.name = savestring (name, strlen (name));
2028 list->field.type = decode_type (ms, ms->c_type, &sub_aux);
2029 list->field.bitpos = ms->c_value;
2030 list->field.bitsize = sub_aux.x_sym.x_misc.x_lnsz.x_size;
2039 /* Now create the vector of fields, and record how big it is. */
2041 TYPE_NFIELDS (type) = nfields;
2042 TYPE_FIELDS (type) = (struct field *)
2043 TYPE_ALLOC (type, sizeof (struct field) * nfields);
2045 /* Copy the saved-up fields into the field vector. */
2047 for (n = nfields; list; list = list->next)
2048 TYPE_FIELD (type, --n) = list->field;
2053 /* Read a definition of an enumeration type,
2054 and create and return a suitable type object.
2055 Also defines the symbols that represent the values of the type. */
2056 /* Currently assumes it's sizeof (int) and doesn't use length. */
2059 static struct type *
2060 coff_read_enum_type (index, length, lastsym)
2065 register struct symbol *sym;
2066 register struct type *type;
2069 struct coff_pending **symlist;
2070 struct coff_symbol member_sym;
2071 register struct coff_symbol *ms = &member_sym;
2072 struct internal_syment sub_sym;
2073 union internal_auxent sub_aux;
2074 struct coff_pending *osyms, *syms;
2077 #ifdef NAMES_HAVE_UNDERSCORE
2083 type = coff_alloc_type (index);
2084 if (within_function)
2085 symlist = &coff_local_symbols;
2087 symlist = &coff_file_symbols;
2090 while (!done && symnum < lastsym && symnum < nlist_nsyms_global)
2092 read_one_sym (ms, &sub_sym, &sub_aux);
2094 name = (name[0] == '_' ? name + offset : name);
2096 switch (ms->c_sclass)
2099 sym = (struct symbol *) xmalloc (sizeof (struct symbol));
2100 memset (sym, 0, sizeof (struct symbol));
2102 SYMBOL_NAME (sym) = savestring (name, strlen (name));
2103 SYMBOL_CLASS (sym) = LOC_CONST;
2104 SYMBOL_NAMESPACE (sym) = VAR_NAMESPACE;
2105 SYMBOL_VALUE (sym) = ms->c_value;
2106 coff_add_symbol_to_list (sym, symlist);
2111 /* Sometimes the linker (on 386/ix 2.0.2 at least) screws
2112 up the count of how many symbols to read. So stop
2119 /* Now fill in the fields of the type-structure. */
2121 TYPE_LENGTH (type) = TARGET_INT_BIT / TARGET_CHAR_BIT;
2122 TYPE_CODE (type) = TYPE_CODE_ENUM;
2123 TYPE_NFIELDS (type) = nsyms;
2124 TYPE_FIELDS (type) = (struct field *)
2125 TYPE_ALLOC (type, sizeof (struct field) * nsyms);
2127 /* Find the symbols for the values and put them into the type.
2128 The symbols can be found in the symlist that we put them on
2129 to cause them to be defined. osyms contains the old value
2130 of that symlist; everything up to there was defined by us. */
2132 for (syms = *symlist, n = nsyms; syms != osyms; syms = syms->next)
2134 SYMBOL_TYPE (syms->symbol) = type;
2135 TYPE_FIELD_NAME (type, --n) = SYMBOL_NAME (syms->symbol);
2136 TYPE_FIELD_VALUE (type, n) = 0;
2137 TYPE_FIELD_BITPOS (type, n) = SYMBOL_VALUE (syms->symbol);
2138 TYPE_FIELD_BITSIZE (type, n) = 0;
2140 /* Is this Modula-2's BOOLEAN type? Flag it as such if so. */
2141 if(TYPE_NFIELDS(type) == 2 &&
2142 ((!strcmp(TYPE_FIELD_NAME(type,0),"TRUE") &&
2143 !strcmp(TYPE_FIELD_NAME(type,1),"FALSE")) ||
2144 (!strcmp(TYPE_FIELD_NAME(type,1),"TRUE") &&
2145 !strcmp(TYPE_FIELD_NAME(type,0),"FALSE"))))
2146 TYPE_CODE(type) = TYPE_CODE_BOOL;
2150 /* Fake up support for relocating symbol addresses. FIXME. */
2152 struct section_offsets coff_symfile_faker = {0};
2154 struct section_offsets *
2155 coff_symfile_offsets (objfile, addr)
2156 struct objfile *objfile;
2159 return &coff_symfile_faker;
2162 /* Register our ability to parse symbols for coff BFD files */
2164 static struct sym_fns coff_sym_fns =
2166 "coff", /* sym_name: name or name prefix of BFD target type */
2167 4, /* sym_namelen: number of significant sym_name chars */
2168 coff_new_init, /* sym_new_init: init anything gbl to entire symtab */
2169 coff_symfile_init, /* sym_init: read initial info, setup for sym_read() */
2170 coff_symfile_read, /* sym_read: read a symbol file into symtab */
2171 coff_symfile_finish, /* sym_finish: finished with file, cleanup */
2172 coff_symfile_offsets, /* sym_offsets: xlate external to internal form */
2173 NULL /* next: pointer to next struct sym_fns */
2177 _initialize_coffread ()
2179 add_symtab_fns(&coff_sym_fns);