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 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 "libbfd.h" /* FIXME secret internal data from BFD */
35 #include "coff/internal.h" /* Internal format of COFF symbols in BFD */
36 #include "libcoff.h" /* FIXME secret internal data from BFD */
38 /* Translate an external name string into a user-visible name. */
39 #define EXTERNAL_NAME(string, abfd) \
40 (string[0] == bfd_get_symbol_leading_char(abfd)? string+1: string)
42 /* To be an sdb debug type, type must have at least a basic or primary
43 derived type. Using this rather than checking against T_NULL is
44 said to prevent core dumps if we try to operate on Michael Bloom
47 #define SDB_TYPE(type) (BTYPE(type) | (type & N_TMASK))
50 * Convert from an sdb register number to an internal gdb register number.
51 * This should be defined in tm.h, if REGISTER_NAMES is not set up
52 * to map one to one onto the sdb register numbers.
54 #ifndef SDB_REG_TO_REGNUM
55 # define SDB_REG_TO_REGNUM(value) (value)
58 /* Core address of start and end of text of current source file.
59 This comes from a ".text" symbol where x_nlinno > 0. */
61 static CORE_ADDR cur_src_start_addr
;
62 static CORE_ADDR cur_src_end_addr
;
64 /* Core address of the end of the first object file. */
65 static CORE_ADDR first_object_file_end
;
67 /* The addresses of the symbol table stream and number of symbols
68 of the object file we are reading (as copied into core). */
70 static FILE *nlist_stream_global
;
71 static int nlist_nsyms_global
;
73 /* Vector of line number information. */
75 static struct linetable
*line_vector
;
77 /* Index of next entry to go in line_vector_index. */
79 static int line_vector_index
;
81 /* Last line number recorded in the line vector. */
83 static int prev_line_number
;
85 /* Number of elements allocated for line_vector currently. */
87 static int line_vector_length
;
89 /* Pointers to scratch storage, used for reading raw symbols and auxents. */
91 static char *temp_sym
;
92 static char *temp_aux
;
94 /* Local variables that hold the shift and mask values for the
95 COFF file that we are currently reading. These come back to us
96 from BFD, and are referenced by their macro names, as well as
97 internally to the BTYPE, ISPTR, ISFCN, ISARY, ISTAG, and DECREF
98 macros from ../internalcoff.h . */
100 static unsigned local_n_btmask
;
101 static unsigned local_n_btshft
;
102 static unsigned local_n_tmask
;
103 static unsigned local_n_tshift
;
105 #define N_BTMASK local_n_btmask
106 #define N_BTSHFT local_n_btshft
107 #define N_TMASK local_n_tmask
108 #define N_TSHIFT local_n_tshift
110 /* Local variables that hold the sizes in the file of various COFF structures.
111 (We only need to know this to read them from the file -- BFD will then
112 translate the data in them, into `internal_xxx' structs in the right
113 byte order, alignment, etc.) */
115 static unsigned local_linesz
;
116 static unsigned local_symesz
;
117 static unsigned local_auxesz
;
120 /* Chain of typedefs of pointers to empty struct/union types.
121 They are chained thru the SYMBOL_VALUE_CHAIN. */
123 static struct symbol
*opaque_type_chain
[HASHSIZE
];
125 /* Record the symbols defined for each context in a list.
126 We don't create a struct block for the context until we
127 know how long to make it. */
131 struct coff_pending
*next
;
132 struct symbol
*symbol
;
135 /* Here are the three lists that symbols are put on. */
137 struct coff_pending
*coff_file_symbols
; /* static at top level, and types */
139 struct coff_pending
*coff_global_symbols
; /* global functions and variables */
141 struct coff_pending
*coff_local_symbols
; /* everything local to lexical context */
143 /* List of unclosed lexical contexts
144 (that will become blocks, eventually). */
146 struct coff_context_stack
148 struct coff_context_stack
*next
;
149 struct coff_pending
*locals
;
150 struct pending_block
*old_blocks
;
152 CORE_ADDR start_addr
;
156 struct coff_context_stack
*coff_context_stack
;
158 /* Nonzero if within a function (so symbols should be local,
159 if nothing says specifically). */
164 /* The type of the function we are currently reading in. This is
165 used by define_symbol to record the type of arguments to a function. */
167 struct type
*in_function_type
;
170 struct pending_block
*pending_blocks
;
172 /* Complaints about various problems in the file being read */
174 struct complaint ef_complaint
=
175 {"Unmatched .ef symbol(s) ignored starting at symnum %d", 0, 0};
177 struct complaint bf_no_aux_complaint
=
178 {"`.bf' symbol %d has no aux entry", 0, 0};
180 struct complaint ef_no_aux_complaint
=
181 {"`.ef' symbol %d has no aux entry", 0, 0};
183 struct complaint lineno_complaint
=
184 {"Line number pointer %d lower than start of line numbers", 0, 0};
186 struct complaint unexpected_type_complaint
=
187 {"Unexpected type for symbol %s", 0, 0};
189 struct complaint bad_sclass_complaint
=
190 {"Bad n_sclass for symbol %s", 0, 0};
192 struct complaint misordered_blocks_complaint
=
193 {"Blocks out of order at address %x", 0, 0};
195 struct complaint tagndx_bad_complaint
=
196 {"Symbol table entry for %s has bad tagndx value", 0, 0};
198 struct complaint eb_complaint
=
199 {"Mismatched .eb symbol ignored starting at symnum %d", 0, 0};
201 /* Simplified internal version of coff symbol table information */
205 int c_symnum
; /* symbol number of this entry */
206 int c_naux
; /* 0 if syment only, 1 if syment + auxent, etc */
214 coff_read_struct_type
PARAMS ((int, int, int));
217 decode_base_type
PARAMS ((struct coff_symbol
*, unsigned int,
218 union internal_auxent
*));
221 decode_type
PARAMS ((struct coff_symbol
*, unsigned int,
222 union internal_auxent
*));
225 decode_function_type
PARAMS ((struct coff_symbol
*, unsigned int,
226 union internal_auxent
*));
229 coff_read_enum_type
PARAMS ((int, int, int));
231 static struct blockvector
*
232 make_blockvector
PARAMS ((struct objfile
*));
234 static struct symbol
*
235 process_coff_symbol
PARAMS ((struct coff_symbol
*, union internal_auxent
*,
239 patch_opaque_types
PARAMS ((struct symtab
*));
242 patch_type
PARAMS ((struct type
*, struct type
*));
245 enter_linenos
PARAMS ((long, int, int));
248 init_lineno
PARAMS ((int, long, int));
251 getfilename
PARAMS ((union internal_auxent
*));
254 getsymname
PARAMS ((struct internal_syment
*));
257 free_stringtab
PARAMS ((void));
260 init_stringtab
PARAMS ((int, long));
263 read_one_sym
PARAMS ((struct coff_symbol
*, struct internal_syment
*,
264 union internal_auxent
*));
267 read_coff_symtab
PARAMS ((long, int, struct objfile
*));
270 find_linenos
PARAMS ((bfd
*, sec_ptr
, PTR
));
273 coff_symfile_init
PARAMS ((struct objfile
*));
276 coff_new_init
PARAMS ((struct objfile
*));
279 coff_symfile_read
PARAMS ((struct objfile
*, struct section_offsets
*, int));
282 coff_symfile_finish
PARAMS ((struct objfile
*));
285 record_minimal_symbol
PARAMS ((char *, CORE_ADDR
, enum minimal_symbol_type
));
288 coff_end_symtab
PARAMS ((struct objfile
*));
291 complete_symtab
PARAMS ((char *, CORE_ADDR
, unsigned int));
294 coff_start_symtab
PARAMS ((void));
297 coff_record_line
PARAMS ((int, CORE_ADDR
));
300 coff_finish_block
PARAMS ((struct symbol
*, struct coff_pending
**,
301 struct pending_block
*, CORE_ADDR
, CORE_ADDR
,
305 coff_add_symbol_to_list
PARAMS ((struct symbol
*, struct coff_pending
**));
308 coff_alloc_type
PARAMS ((int));
310 static struct type
**
311 coff_lookup_type
PARAMS ((int));
314 /* Look up a coff type-number index. Return the address of the slot
315 where the type for that index is stored.
316 The type-number is in INDEX.
318 This can be used for finding the type associated with that index
319 or for associating a new type with the index. */
321 static struct type
**
322 coff_lookup_type (index
)
325 if (index
>= type_vector_length
)
327 int old_vector_length
= type_vector_length
;
329 type_vector_length
*= 2;
330 if (type_vector_length
< index
) {
331 type_vector_length
= index
* 2;
333 type_vector
= (struct type
**)
334 xrealloc ((char *) type_vector
,
335 type_vector_length
* sizeof (struct type
*));
336 memset (&type_vector
[old_vector_length
], 0,
337 (type_vector_length
- old_vector_length
) * sizeof(struct type
*));
339 return &type_vector
[index
];
342 /* Make sure there is a type allocated for type number index
343 and return the type object.
344 This can create an empty (zeroed) type object. */
347 coff_alloc_type (index
)
350 register struct type
**type_addr
= coff_lookup_type (index
);
351 register struct type
*type
= *type_addr
;
353 /* If we are referring to a type not known at all yet,
354 allocate an empty type for it.
355 We will fill it in later if we find out how. */
358 type
= alloc_type (current_objfile
);
364 /* maintain the lists of symbols and blocks */
366 /* Add a symbol to one of the lists of symbols. */
368 coff_add_symbol_to_list (symbol
, listhead
)
369 struct symbol
*symbol
;
370 struct coff_pending
**listhead
;
372 register struct coff_pending
*link
373 = (struct coff_pending
*) xmalloc (sizeof (struct coff_pending
));
375 link
->next
= *listhead
;
376 link
->symbol
= symbol
;
380 /* Take one of the lists of symbols and make a block from it.
381 Put the block on the list of pending blocks. */
384 coff_finish_block (symbol
, listhead
, old_blocks
, start
, end
, objfile
)
385 struct symbol
*symbol
;
386 struct coff_pending
**listhead
;
387 struct pending_block
*old_blocks
;
388 CORE_ADDR start
, end
;
389 struct objfile
*objfile
;
391 register struct coff_pending
*next
, *next1
;
392 register struct block
*block
;
393 register struct pending_block
*pblock
;
394 struct pending_block
*opblock
;
397 /* Count the length of the list of symbols. */
399 for (next
= *listhead
, i
= 0; next
; next
= next
->next
, i
++);
401 block
= (struct block
*)
402 obstack_alloc (&objfile
->symbol_obstack
, sizeof (struct block
) + (i
- 1) * sizeof (struct symbol
*));
404 /* Copy the symbols into the block. */
406 BLOCK_NSYMS (block
) = i
;
407 for (next
= *listhead
; next
; next
= next
->next
)
408 BLOCK_SYM (block
, --i
) = next
->symbol
;
410 BLOCK_START (block
) = start
;
411 BLOCK_END (block
) = end
;
412 BLOCK_SUPERBLOCK (block
) = 0; /* Filled in when containing block is made */
414 /* Put the block in as the value of the symbol that names it. */
418 SYMBOL_BLOCK_VALUE (symbol
) = block
;
419 BLOCK_FUNCTION (block
) = symbol
;
422 BLOCK_FUNCTION (block
) = 0;
424 /* Now free the links of the list, and empty the list. */
426 for (next
= *listhead
; next
; next
= next1
)
433 /* Install this block as the superblock
434 of all blocks made since the start of this scope
435 that don't have superblocks yet. */
438 for (pblock
= pending_blocks
; pblock
!= old_blocks
; pblock
= pblock
->next
)
440 if (BLOCK_SUPERBLOCK (pblock
->block
) == 0)
441 BLOCK_SUPERBLOCK (pblock
->block
) = block
;
445 /* Record this block on the list of all blocks in the file.
446 Put it after opblock, or at the beginning if opblock is 0.
447 This puts the block in the list after all its subblocks. */
449 pblock
= (struct pending_block
*) xmalloc (sizeof (struct pending_block
));
450 pblock
->block
= block
;
453 pblock
->next
= opblock
->next
;
454 opblock
->next
= pblock
;
458 pblock
->next
= pending_blocks
;
459 pending_blocks
= pblock
;
463 static struct blockvector
*
464 make_blockvector (objfile
)
465 struct objfile
*objfile
;
467 register struct pending_block
*next
, *next1
;
468 register struct blockvector
*blockvector
;
471 /* Count the length of the list of blocks. */
473 for (next
= pending_blocks
, i
= 0; next
; next
= next
->next
, i
++);
475 blockvector
= (struct blockvector
*)
476 obstack_alloc (&objfile
->symbol_obstack
, sizeof (struct blockvector
) + (i
- 1) * sizeof (struct block
*));
478 /* Copy the blocks into the blockvector.
479 This is done in reverse order, which happens to put
480 the blocks into the proper order (ascending starting address).
481 coff_finish_block has hair to insert each block into the list
482 after its subblocks in order to make sure this is true. */
484 BLOCKVECTOR_NBLOCKS (blockvector
) = i
;
485 for (next
= pending_blocks
; next
; next
= next
->next
)
486 BLOCKVECTOR_BLOCK (blockvector
, --i
) = next
->block
;
488 /* Now free the links of the list, and empty the list. */
490 for (next
= pending_blocks
; next
; next
= next1
)
500 /* Manage the vector of line numbers. */
503 coff_record_line (line
, pc
)
507 struct linetable_entry
*e
;
508 /* Make sure line vector is big enough. */
510 if (line_vector_index
+ 2 >= line_vector_length
)
512 line_vector_length
*= 2;
513 line_vector
= (struct linetable
*)
514 xrealloc ((char *) line_vector
, sizeof (struct linetable
)
515 + (line_vector_length
516 * sizeof (struct linetable_entry
)));
519 e
= line_vector
->item
+ line_vector_index
++;
520 e
->line
= line
; e
->pc
= pc
;
523 /* Start a new symtab for a new source file.
524 This is called when a COFF ".file" symbol is seen;
525 it indicates the start of data for one original source file. */
530 coff_file_symbols
= 0;
531 coff_global_symbols
= 0;
532 coff_context_stack
= 0;
534 last_source_file
= NULL
;
536 /* Initialize the source file line number information for this file. */
538 if (line_vector
) /* Unlikely, but maybe possible? */
539 free ((PTR
)line_vector
);
540 line_vector_index
= 0;
541 line_vector_length
= 1000;
542 prev_line_number
= -2; /* Force first line number to be explicit */
543 line_vector
= (struct linetable
*)
544 xmalloc (sizeof (struct linetable
)
545 + line_vector_length
* sizeof (struct linetable_entry
));
548 /* Save the vital information from when starting to read a file,
549 for use when closing off the current file.
550 NAME is the file name the symbols came from, START_ADDR is the first
551 text address for the file, and SIZE is the number of bytes of text. */
554 complete_symtab (name
, start_addr
, size
)
556 CORE_ADDR start_addr
;
559 last_source_file
= savestring (name
, strlen (name
));
560 cur_src_start_addr
= start_addr
;
561 cur_src_end_addr
= start_addr
+ size
;
563 if (current_objfile
-> ei
.entry_point
>= cur_src_start_addr
&&
564 current_objfile
-> ei
.entry_point
< cur_src_end_addr
)
566 current_objfile
-> ei
.entry_file_lowpc
= cur_src_start_addr
;
567 current_objfile
-> ei
.entry_file_highpc
= cur_src_end_addr
;
571 /* Finish the symbol definitions for one main source file,
572 close off all the lexical contexts for that file
573 (creating struct block's for them), then make the
574 struct symtab for that file and put it in the list of all such. */
577 coff_end_symtab (objfile
)
578 struct objfile
*objfile
;
580 register struct symtab
*symtab
;
581 register struct coff_context_stack
*cstk
;
582 register struct blockvector
*blockvector
;
583 register struct linetable
*lv
;
585 /* Finish the lexical context of the last function in the file. */
587 if (coff_context_stack
)
589 cstk
= coff_context_stack
;
590 coff_context_stack
= 0;
591 /* Make a block for the local symbols within. */
592 coff_finish_block (cstk
->name
, &coff_local_symbols
, cstk
->old_blocks
,
593 cstk
->start_addr
, cur_src_end_addr
, objfile
);
597 /* Ignore a file that has no functions with real debugging info. */
598 if (pending_blocks
== 0 && coff_file_symbols
== 0 && coff_global_symbols
== 0)
600 free ((PTR
)line_vector
);
602 line_vector_length
= -1;
603 last_source_file
= NULL
;
607 /* It is unfortunate that in amdcoff, pending blocks might not be ordered
608 in this stage. Especially, blocks for static functions will show up at
609 the end. We need to sort them, so tools like `find_pc_function' and
610 `find_pc_block' can work reliably. */
611 if (pending_blocks
) {
612 /* FIXME! Remove this horrid bubble sort and use qsort!!! */
615 struct pending_block
*pb
, *pbnext
;
617 pb
= pending_blocks
, pbnext
= pb
->next
;
622 /* swap blocks if unordered! */
624 if (BLOCK_START(pb
->block
) < BLOCK_START(pbnext
->block
)) {
625 struct block
*tmp
= pb
->block
;
626 complain (&misordered_blocks_complaint
, BLOCK_START (pb
->block
));
627 pb
->block
= pbnext
->block
;
632 pbnext
= pbnext
->next
;
637 /* Create the two top-level blocks for this file (STATIC_BLOCK and
639 coff_finish_block (0, &coff_file_symbols
, 0, cur_src_start_addr
, cur_src_end_addr
, objfile
);
640 coff_finish_block (0, &coff_global_symbols
, 0, cur_src_start_addr
, cur_src_end_addr
, objfile
);
642 /* Create the blockvector that points to all the file's blocks. */
643 blockvector
= make_blockvector (objfile
);
645 /* Now create the symtab object for this source file. */
646 symtab
= allocate_symtab (last_source_file
, objfile
);
648 /* Fill in its components. */
649 symtab
->blockvector
= blockvector
;
650 symtab
->free_code
= free_linetable
;
651 symtab
->free_ptr
= 0;
652 symtab
->filename
= last_source_file
;
653 symtab
->dirname
= NULL
;
655 lv
->nitems
= line_vector_index
;
656 symtab
->linetable
= (struct linetable
*)
657 xrealloc ((char *) lv
, (sizeof (struct linetable
)
658 + lv
->nitems
* sizeof (struct linetable_entry
)));
660 free_named_symtabs (symtab
->filename
);
662 /* Reinitialize for beginning of new file. */
664 line_vector_length
= -1;
665 last_source_file
= NULL
;
669 record_minimal_symbol (name
, address
, type
)
672 enum minimal_symbol_type type
;
674 /* We don't want TDESC entry points in the minimal symbol table */
675 if (name
[0] == '@') return;
677 /* mst_text isn't true, but apparently COFF doesn't tell us what it really
678 is, so this guess is more useful than mst_unknown. */
679 prim_record_minimal_symbol (savestring (name
, strlen (name
)),
684 /* coff_symfile_init ()
685 is the coff-specific initialization routine for reading symbols.
686 It is passed a struct objfile which contains, among other things,
687 the BFD for the file whose symbols are being read, and a slot for
688 a pointer to "private data" which we fill with cookies and other
689 treats for coff_symfile_read ().
691 We will only be called if this is a COFF or COFF-like file.
692 BFD handles figuring out the format of the file, and code in symtab.c
693 uses BFD's determination to vector to us.
695 The ultimate result is a new symtab (or, FIXME, eventually a psymtab). */
697 struct coff_symfile_info
{
698 file_ptr min_lineno_offset
; /* Where in file lowest line#s are */
699 file_ptr max_lineno_offset
; /* 1+last byte of line#s in file */
702 static int text_bfd_scnum
;
705 coff_symfile_init (objfile
)
706 struct objfile
*objfile
;
709 bfd
*abfd
= objfile
->obfd
;
711 /* Allocate struct to keep track of the symfile */
712 objfile
-> sym_private
= xmmalloc (objfile
-> md
,
713 sizeof (struct coff_symfile_info
));
715 init_entry_point_info (objfile
);
717 /* Save the section number for the text section */
718 section
= bfd_get_section_by_name(abfd
,".text");
720 text_bfd_scnum
= section
->index
;
725 /* This function is called for every section; it finds the outer limits
726 of the line table (minimum and maximum file offset) so that the
727 mainline code can read the whole thing for efficiency. */
731 find_linenos (abfd
, asect
, vpinfo
)
736 struct coff_symfile_info
*info
;
738 file_ptr offset
, maxoff
;
740 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
741 count
= asect
->lineno_count
;
746 size
= count
* local_linesz
;
748 info
= (struct coff_symfile_info
*)vpinfo
;
749 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
750 offset
= asect
->line_filepos
;
753 if (offset
< info
->min_lineno_offset
|| info
->min_lineno_offset
== 0)
754 info
->min_lineno_offset
= offset
;
756 maxoff
= offset
+ size
;
757 if (maxoff
> info
->max_lineno_offset
)
758 info
->max_lineno_offset
= maxoff
;
762 /* The BFD for this file -- only good while we're actively reading
763 symbols into a psymtab or a symtab. */
765 static bfd
*symfile_bfd
;
767 /* Read a symbol file, after initialization by coff_symfile_init. */
768 /* FIXME! Addr and Mainline are not used yet -- this will not work for
769 shared libraries or add_file! */
773 coff_symfile_read (objfile
, section_offsets
, mainline
)
774 struct objfile
*objfile
;
775 struct section_offsets
*section_offsets
;
778 struct coff_symfile_info
*info
;
779 bfd
*abfd
= objfile
->obfd
;
780 coff_data_type
*cdata
= coff_data (abfd
);
781 char *name
= bfd_get_filename (abfd
);
786 int stringtab_offset
;
788 info
= (struct coff_symfile_info
*) objfile
-> sym_private
;
789 symfile_bfd
= abfd
; /* Kludge for swap routines */
791 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
792 desc
= fileno ((FILE *)(abfd
->iostream
)); /* File descriptor */
793 num_symbols
= bfd_get_symcount (abfd
); /* How many syms */
794 symtab_offset
= cdata
->sym_filepos
; /* Symbol table file offset */
795 stringtab_offset
= symtab_offset
+ /* String table file offset */
796 num_symbols
* cdata
->local_symesz
;
798 /* Set a few file-statics that give us specific information about
799 the particular COFF file format we're reading. */
800 local_linesz
= cdata
->local_linesz
;
801 local_n_btmask
= cdata
->local_n_btmask
;
802 local_n_btshft
= cdata
->local_n_btshft
;
803 local_n_tmask
= cdata
->local_n_tmask
;
804 local_n_tshift
= cdata
->local_n_tshift
;
805 local_linesz
= cdata
->local_linesz
;
806 local_symesz
= cdata
->local_symesz
;
807 local_auxesz
= cdata
->local_auxesz
;
809 /* Allocate space for raw symbol and aux entries, based on their
810 space requirements as reported by BFD. */
811 temp_sym
= (char *) xmalloc
812 (cdata
->local_symesz
+ cdata
->local_auxesz
);
813 temp_aux
= temp_sym
+ cdata
->local_symesz
;
814 make_cleanup (free_current_contents
, &temp_sym
);
817 /* Read the line number table, all at once. */
818 info
->min_lineno_offset
= 0;
819 info
->max_lineno_offset
= 0;
820 bfd_map_over_sections (abfd
, find_linenos
, (PTR
)info
);
822 val
= init_lineno (desc
, info
->min_lineno_offset
,
823 info
->max_lineno_offset
- info
->min_lineno_offset
);
825 error ("\"%s\": error reading line numbers\n", name
);
827 /* Now read the string table, all at once. */
829 val
= init_stringtab (desc
, stringtab_offset
);
831 error ("\"%s\": can't get string table", name
);
832 make_cleanup (free_stringtab
, 0);
834 init_minimal_symbol_collection ();
835 make_cleanup (discard_minimal_symbols
, 0);
837 /* Now that the executable file is positioned at symbol table,
838 process it and define symbols accordingly. */
840 read_coff_symtab ((long)symtab_offset
, num_symbols
, objfile
);
842 /* Sort symbols alphabetically within each block. */
844 sort_all_symtab_syms ();
846 /* Install any minimal symbols that have been collected as the current
847 minimal symbols for this objfile. */
849 install_minimal_symbols (objfile
);
853 coff_new_init (ignore
)
854 struct objfile
*ignore
;
859 /* Perform any local cleanups required when we are done with a particular
860 objfile. I.E, we are in the process of discarding all symbol information
861 for an objfile, freeing up all memory held for it, and unlinking the
862 objfile struct from the global list of known objfiles. */
865 coff_symfile_finish (objfile
)
866 struct objfile
*objfile
;
868 if (objfile
-> sym_private
!= NULL
)
870 mfree (objfile
-> md
, objfile
-> sym_private
);
875 /* Given pointers to a symbol table in coff style exec file,
876 analyze them and create struct symtab's describing the symbols.
877 NSYMS is the number of symbols in the symbol table.
878 We read them one at a time using read_one_sym (). */
881 read_coff_symtab (symtab_offset
, nsyms
, objfile
)
884 struct objfile
*objfile
;
887 register struct coff_context_stack
*new;
888 struct coff_symbol coff_symbol
;
889 register struct coff_symbol
*cs
= &coff_symbol
;
890 static struct internal_syment main_sym
;
891 static union internal_auxent main_aux
;
892 struct coff_symbol fcn_cs_saved
;
893 static struct internal_syment fcn_sym_saved
;
894 static union internal_auxent fcn_aux_saved
;
897 /* A .file is open. */
898 int in_source_file
= 0;
899 int num_object_files
= 0;
900 int next_file_symnum
= -1;
902 /* Name of the current file. */
903 char *filestring
= "";
905 int fcn_first_line
= 0;
906 int fcn_last_line
= 0;
907 int fcn_start_addr
= 0;
908 long fcn_line_ptr
= 0;
909 struct cleanup
*old_chain
;
912 stream
= bfd_cache_lookup(objfile
->obfd
);
914 perror_with_name(objfile
->name
);
916 /* Position to read the symbol table. */
917 val
= fseek (stream
, (long)symtab_offset
, 0);
919 perror_with_name (objfile
->name
);
921 /* This cleanup will be discarded below if we succeed. */
922 old_chain
= make_cleanup (free_objfile
, objfile
);
924 current_objfile
= objfile
;
925 nlist_stream_global
= stream
;
926 nlist_nsyms_global
= nsyms
;
927 last_source_file
= NULL
;
928 memset (opaque_type_chain
, 0, sizeof opaque_type_chain
);
930 if (type_vector
) /* Get rid of previous one */
931 free ((PTR
)type_vector
);
932 type_vector_length
= 160;
933 type_vector
= (struct type
**)
934 xmalloc (type_vector_length
* sizeof (struct type
*));
935 memset (type_vector
, 0, type_vector_length
* sizeof (struct type
*));
937 coff_start_symtab ();
940 while (symnum
< nsyms
)
942 QUIT
; /* Make this command interruptable. */
943 read_one_sym (cs
, &main_sym
, &main_aux
);
946 temp_sem_val
= cs
->c_name
[0] << 24 | cs
->c_name
[1] << 16 |
947 cs
->c_name
[2] << 8 | cs
->c_name
[3];
948 if (int_sem_val
== temp_sem_val
)
949 last_coffsem
= (int) strtol (cs
->c_name
+4, (char **) NULL
, 10);
952 if (cs
->c_symnum
== next_file_symnum
&& cs
->c_sclass
!= C_FILE
)
954 if (last_source_file
)
955 coff_end_symtab (objfile
);
957 coff_start_symtab ();
958 complete_symtab ("_globals_", 0, first_object_file_end
);
959 /* done with all files, everything from here on out is globals */
962 /* Special case for file with type declarations only, no text. */
963 if (!last_source_file
&& SDB_TYPE (cs
->c_type
)
964 && cs
->c_secnum
== N_DEBUG
)
965 complete_symtab (filestring
, 0, 0);
967 /* Typedefs should not be treated as symbol definitions. */
968 if (ISFCN (cs
->c_type
) && cs
->c_sclass
!= C_TPDEF
)
970 /* record as a minimal symbol. if we get '.bf' next,
971 * then we undo this step
973 record_minimal_symbol (cs
->c_name
, cs
->c_value
, mst_text
);
975 fcn_line_ptr
= main_aux
.x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
;
976 fcn_start_addr
= cs
->c_value
;
978 fcn_sym_saved
= main_sym
;
979 fcn_aux_saved
= main_aux
;
983 switch (cs
->c_sclass
)
992 complain (&bad_sclass_complaint
, cs
->c_name
);
997 * c_value field contains symnum of next .file entry in table
998 * or symnum of first global after last .file.
1000 next_file_symnum
= cs
->c_value
;
1001 filestring
= getfilename (&main_aux
);
1003 * Complete symbol table for last object file
1004 * containing debugging information.
1006 if (last_source_file
)
1008 coff_end_symtab (objfile
);
1009 coff_start_symtab ();
1015 if (cs
->c_name
[0] == '.') {
1016 if (strcmp (cs
->c_name
, ".text") == 0) {
1017 /* FIXME: don't wire in ".text" as section name
1019 if (++num_object_files
== 1) {
1020 /* last address of startup file */
1021 first_object_file_end
= cs
->c_value
+
1022 main_aux
.x_scn
.x_scnlen
;
1024 /* Check for in_source_file deals with case of
1025 a file with debugging symbols
1026 followed by a later file with no symbols. */
1028 complete_symtab (filestring
, cs
->c_value
,
1029 main_aux
.x_scn
.x_scnlen
);
1032 /* flush rest of '.' symbols */
1035 else if (!SDB_TYPE (cs
->c_type
)
1036 && cs
->c_name
[0] == 'L'
1037 && (strncmp (cs
->c_name
, "LI%", 3) == 0
1038 || strncmp (cs
->c_name
, "LF%", 3) == 0
1039 || strncmp (cs
->c_name
,"LC%",3) == 0
1040 || strncmp (cs
->c_name
,"LP%",3) == 0
1041 || strncmp (cs
->c_name
,"LPB%",4) == 0
1042 || strncmp (cs
->c_name
,"LBB%",4) == 0
1043 || strncmp (cs
->c_name
,"LBE%",4) == 0
1044 || strncmp (cs
->c_name
,"LPBX%",5) == 0))
1045 /* At least on a 3b1, gcc generates swbeg and string labels
1046 that look like this. Ignore them. */
1048 /* fall in for static symbols that don't start with '.' */
1050 if (!SDB_TYPE (cs
->c_type
)) {
1051 /* FIXME: This is BOGUS Will Robinson!
1052 Coff should provide the SEC_CODE flag for executable sections,
1053 then if we could look up sections by section number we
1054 could see if the flags indicate SEC_CODE. If so, then
1055 record this symbol as a function in the minimal symbol table.
1056 But why are absolute syms recorded as functions, anyway? */
1057 if (cs
->c_secnum
<= text_bfd_scnum
+1) {/* text or abs */
1058 record_minimal_symbol (cs
->c_name
, cs
->c_value
,
1062 record_minimal_symbol (cs
->c_name
, cs
->c_value
,
1067 process_coff_symbol (cs
, &main_aux
, objfile
);
1071 if (strcmp (cs
->c_name
, ".bf") == 0)
1073 within_function
= 1;
1075 /* value contains address of first non-init type code */
1076 /* main_aux.x_sym.x_misc.x_lnsz.x_lnno
1077 contains line number of '{' } */
1078 if (cs
->c_naux
!= 1)
1079 complain (&bf_no_aux_complaint
, cs
->c_symnum
);
1080 fcn_first_line
= main_aux
.x_sym
.x_misc
.x_lnsz
.x_lnno
;
1082 new = (struct coff_context_stack
*)
1083 xmalloc (sizeof (struct coff_context_stack
));
1084 new->depth
= depth
= 0;
1086 coff_context_stack
= new;
1088 new->old_blocks
= pending_blocks
;
1089 new->start_addr
= fcn_start_addr
;
1090 fcn_cs_saved
.c_name
= getsymname (&fcn_sym_saved
);
1091 new->name
= process_coff_symbol (&fcn_cs_saved
,
1092 &fcn_aux_saved
, objfile
);
1094 else if (strcmp (cs
->c_name
, ".ef") == 0)
1096 /* the value of .ef is the address of epilogue code;
1097 * not useful for gdb
1099 /* { main_aux.x_sym.x_misc.x_lnsz.x_lnno
1100 contains number of lines to '}' */
1101 new = coff_context_stack
;
1104 complain (&ef_complaint
, cs
->c_symnum
);
1105 within_function
= 0;
1108 if (cs
->c_naux
!= 1) {
1109 complain (&ef_no_aux_complaint
, cs
->c_symnum
);
1110 fcn_last_line
= 0x7FFFFFFF;
1112 fcn_last_line
= main_aux
.x_sym
.x_misc
.x_lnsz
.x_lnno
;
1114 enter_linenos (fcn_line_ptr
, fcn_first_line
, fcn_last_line
);
1116 coff_finish_block (new->name
, &coff_local_symbols
, new->old_blocks
,
1118 #if defined (FUNCTION_EPILOGUE_SIZE)
1119 /* This macro should be defined only on
1121 fcn_aux_saved.x_sym.x_misc.x_fsize
1122 field is always zero.
1123 So use the .bf record information that
1124 points to the epilogue and add the size
1126 cs
->c_value
+ FUNCTION_EPILOGUE_SIZE
,
1128 fcn_cs_saved
.c_value
+
1129 fcn_aux_saved
.x_sym
.x_misc
.x_fsize
,
1133 coff_context_stack
= 0;
1134 within_function
= 0;
1140 if (strcmp (cs
->c_name
, ".bb") == 0)
1142 new = (struct coff_context_stack
*)
1143 xmalloc (sizeof (struct coff_context_stack
));
1146 new->next
= coff_context_stack
;
1147 coff_context_stack
= new;
1148 new->locals
= coff_local_symbols
;
1149 new->old_blocks
= pending_blocks
;
1150 new->start_addr
= cs
->c_value
;
1152 coff_local_symbols
= 0;
1154 else if (strcmp (cs
->c_name
, ".eb") == 0)
1156 new = coff_context_stack
;
1157 if (new == 0 || depth
!= new->depth
)
1159 complain (&eb_complaint
, (char *)symnum
);
1162 if (coff_local_symbols
&& coff_context_stack
->next
)
1164 /* Make a block for the local symbols within. */
1165 coff_finish_block (0, &coff_local_symbols
, new->old_blocks
,
1166 new->start_addr
, cs
->c_value
, objfile
);
1169 coff_local_symbols
= new->locals
;
1170 coff_context_stack
= new->next
;
1176 process_coff_symbol (cs
, &main_aux
, objfile
);
1181 if (last_source_file
)
1182 coff_end_symtab (objfile
);
1185 /* Patch up any opaque types (references to types that are not defined
1186 in the file where they are referenced, e.g. "struct foo *bar"). */
1187 ALL_OBJFILE_SYMTABS (objfile
, s
)
1188 patch_opaque_types (s
);
1190 discard_cleanups (old_chain
);
1191 current_objfile
= NULL
;
1194 /* Routines for reading headers and symbols from executable. */
1197 /* Move these XXXMAGIC symbol defns into BFD! */
1199 /* Read COFF file header, check magic number,
1200 and return number of symbols. */
1201 read_file_hdr (chan
, file_hdr
)
1205 lseek (chan
, 0L, 0);
1206 if (myread (chan
, (char *)file_hdr
, FILHSZ
) < 0)
1209 switch (file_hdr
->f_magic
)
1224 #if defined (MC68KWRMAGIC) \
1225 && (!defined (MC68MAGIC) || MC68KWRMAGIC != MC68MAGIC)
1239 case I960ROMAGIC
: /* Intel 960 */
1242 case I960RWMAGIC
: /* Intel 960 */
1244 return file_hdr
->f_nsyms
;
1248 if (BADMAG(file_hdr
))
1251 return file_hdr
->f_nsyms
;
1259 /* Read the next symbol, swap it, and return it in both internal_syment
1260 form, and coff_symbol form. Also return its first auxent, if any,
1261 in internal_auxent form, and skip any other auxents. */
1264 read_one_sym (cs
, sym
, aux
)
1265 register struct coff_symbol
*cs
;
1266 register struct internal_syment
*sym
;
1267 register union internal_auxent
*aux
;
1271 cs
->c_symnum
= symnum
;
1272 fread (temp_sym
, local_symesz
, 1, nlist_stream_global
);
1273 bfd_coff_swap_sym_in (symfile_bfd
, temp_sym
, (char *)sym
);
1274 cs
->c_naux
= sym
->n_numaux
& 0xff;
1275 if (cs
->c_naux
>= 1)
1277 fread (temp_aux
, local_auxesz
, 1, nlist_stream_global
);
1278 bfd_coff_swap_aux_in (symfile_bfd
, temp_aux
, sym
->n_type
, sym
->n_sclass
,
1280 /* If more than one aux entry, read past it (only the first aux
1282 for (i
= 1; i
< cs
->c_naux
; i
++)
1283 fread (temp_aux
, local_auxesz
, 1, nlist_stream_global
);
1285 cs
->c_name
= getsymname (sym
);
1286 cs
->c_value
= sym
->n_value
;
1287 cs
->c_sclass
= (sym
->n_sclass
& 0xff);
1288 cs
->c_secnum
= sym
->n_scnum
;
1289 cs
->c_type
= (unsigned) sym
->n_type
;
1290 if (!SDB_TYPE (cs
->c_type
))
1293 symnum
+= 1 + cs
->c_naux
;
1296 /* Support for string table handling */
1298 static char *stringtab
= NULL
;
1301 init_stringtab (chan
, offset
)
1307 unsigned char lengthbuf
[4];
1315 if (lseek (chan
, offset
, 0) < 0)
1318 val
= myread (chan
, (char *)lengthbuf
, sizeof lengthbuf
);
1319 length
= bfd_h_get_32 (symfile_bfd
, lengthbuf
);
1321 /* If no string table is needed, then the file may end immediately
1322 after the symbols. Just return with `stringtab' set to null. */
1323 if (val
!= sizeof length
|| length
< sizeof length
)
1326 stringtab
= (char *) xmalloc (length
);
1327 if (stringtab
== NULL
)
1330 memcpy (stringtab
, &length
, sizeof length
);
1331 if (length
== sizeof length
) /* Empty table -- just the count */
1334 val
= myread (chan
, stringtab
+ sizeof length
, length
- sizeof length
);
1335 if (val
!= length
- sizeof length
|| stringtab
[length
- 1] != '\0')
1350 getsymname (symbol_entry
)
1351 struct internal_syment
*symbol_entry
;
1353 static char buffer
[SYMNMLEN
+1];
1356 if (symbol_entry
->_n
._n_n
._n_zeroes
== 0)
1358 result
= stringtab
+ symbol_entry
->_n
._n_n
._n_offset
;
1362 strncpy (buffer
, symbol_entry
->_n
._n_name
, SYMNMLEN
);
1363 buffer
[SYMNMLEN
] = '\0';
1370 getfilename (aux_entry
)
1371 union internal_auxent
*aux_entry
;
1373 static char buffer
[BUFSIZ
];
1374 register char *temp
;
1377 #ifndef COFF_NO_LONG_FILE_NAMES
1378 #if defined (x_zeroes)
1380 if (aux_entry
->x_zeroes
== 0)
1381 strcpy (buffer
, stringtab
+ aux_entry
->x_offset
);
1382 #else /* no x_zeroes */
1383 if (aux_entry
->x_file
.x_n
.x_zeroes
== 0)
1384 strcpy (buffer
, stringtab
+ aux_entry
->x_file
.x_n
.x_offset
);
1385 #endif /* no x_zeroes */
1387 #endif /* COFF_NO_LONG_FILE_NAMES */
1389 #if defined (x_name)
1391 strncpy (buffer
, aux_entry
->x_name
, FILNMLEN
);
1393 strncpy (buffer
, aux_entry
->x_file
.x_fname
, FILNMLEN
);
1395 buffer
[FILNMLEN
] = '\0';
1398 if ((temp
= strrchr (result
, '/')) != NULL
)
1403 /* Support for line number handling */
1404 static char *linetab
= NULL
;
1405 static long linetab_offset
;
1406 static unsigned long linetab_size
;
1408 /* Read in all the line numbers for fast lookups later. Leave them in
1409 external (unswapped) format in memory; we'll swap them as we enter
1410 them into GDB's data structures. */
1413 init_lineno (chan
, offset
, size
)
1420 linetab_offset
= offset
;
1421 linetab_size
= size
;
1426 if (lseek (chan
, offset
, 0) < 0)
1429 /* Allocate the desired table, plus a sentinel */
1430 linetab
= (char *) xmalloc (size
+ local_linesz
);
1432 val
= myread (chan
, linetab
, size
);
1436 /* Terminate it with an all-zero sentinel record */
1437 memset (linetab
+ size
, 0, local_linesz
);
1439 make_cleanup (free
, linetab
); /* Be sure it gets de-allocated. */
1443 #if !defined (L_LNNO32)
1444 #define L_LNNO32(lp) ((lp)->l_lnno)
1448 enter_linenos (file_offset
, first_line
, last_line
)
1450 register int first_line
;
1451 register int last_line
;
1453 register char *rawptr
;
1454 struct internal_lineno lptr
;
1456 if (file_offset
< linetab_offset
)
1458 complain (&lineno_complaint
, file_offset
);
1459 if (file_offset
> linetab_size
) /* Too big to be an offset? */
1461 file_offset
+= linetab_offset
; /* Try reading at that linetab offset */
1464 rawptr
= &linetab
[file_offset
- linetab_offset
];
1466 /* skip first line entry for each function */
1467 rawptr
+= local_linesz
;
1468 /* line numbers start at one for the first line of the function */
1472 bfd_coff_swap_lineno_in (symfile_bfd
, rawptr
, &lptr
);
1473 rawptr
+= local_linesz
;
1474 /* The next function, or the sentinel, will have L_LNNO32 zero; we exit. */
1475 if (L_LNNO32 (&lptr
) && L_LNNO32 (&lptr
) <= last_line
)
1476 coff_record_line (first_line
+ L_LNNO32 (&lptr
), lptr
.l_addr
.l_paddr
);
1483 patch_type (type
, real_type
)
1485 struct type
*real_type
;
1487 register struct type
*target
= TYPE_TARGET_TYPE (type
);
1488 register struct type
*real_target
= TYPE_TARGET_TYPE (real_type
);
1489 int field_size
= TYPE_NFIELDS (real_target
) * sizeof (struct field
);
1491 TYPE_LENGTH (target
) = TYPE_LENGTH (real_target
);
1492 TYPE_NFIELDS (target
) = TYPE_NFIELDS (real_target
);
1493 TYPE_FIELDS (target
) = (struct field
*) TYPE_ALLOC (target
, field_size
);
1495 memcpy (TYPE_FIELDS (target
), TYPE_FIELDS (real_target
), field_size
);
1497 if (TYPE_NAME (real_target
))
1499 if (TYPE_NAME (target
))
1500 free (TYPE_NAME (target
));
1501 TYPE_NAME (target
) = concat (TYPE_NAME (real_target
), NULL
);
1505 /* Patch up all appropriate typedef symbols in the opaque_type_chains
1506 so that they can be used to print out opaque data structures properly. */
1509 patch_opaque_types (s
)
1512 register struct block
*b
;
1514 register struct symbol
*real_sym
;
1516 /* Go through the per-file symbols only */
1517 b
= BLOCKVECTOR_BLOCK (BLOCKVECTOR (s
), STATIC_BLOCK
);
1518 for (i
= BLOCK_NSYMS (b
) - 1; i
>= 0; i
--)
1520 /* Find completed typedefs to use to fix opaque ones.
1521 Remove syms from the chain when their types are stored,
1522 but search the whole chain, as there may be several syms
1523 from different files with the same name. */
1524 real_sym
= BLOCK_SYM (b
, i
);
1525 if (SYMBOL_CLASS (real_sym
) == LOC_TYPEDEF
&&
1526 SYMBOL_NAMESPACE (real_sym
) == VAR_NAMESPACE
&&
1527 TYPE_CODE (SYMBOL_TYPE (real_sym
)) == TYPE_CODE_PTR
&&
1528 TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (real_sym
))) != 0)
1530 register char *name
= SYMBOL_NAME (real_sym
);
1531 register int hash
= hashname (name
);
1532 register struct symbol
*sym
, *prev
;
1535 for (sym
= opaque_type_chain
[hash
]; sym
;)
1537 if (name
[0] == SYMBOL_NAME (sym
)[0] &&
1538 !strcmp (name
+ 1, SYMBOL_NAME (sym
) + 1))
1542 SYMBOL_VALUE_CHAIN (prev
) = SYMBOL_VALUE_CHAIN (sym
);
1546 opaque_type_chain
[hash
] = SYMBOL_VALUE_CHAIN (sym
);
1549 patch_type (SYMBOL_TYPE (sym
), SYMBOL_TYPE (real_sym
));
1553 sym
= SYMBOL_VALUE_CHAIN (prev
);
1557 sym
= opaque_type_chain
[hash
];
1563 sym
= SYMBOL_VALUE_CHAIN (sym
);
1570 static struct symbol
*
1571 process_coff_symbol (cs
, aux
, objfile
)
1572 register struct coff_symbol
*cs
;
1573 register union internal_auxent
*aux
;
1574 struct objfile
*objfile
;
1576 register struct symbol
*sym
1577 = (struct symbol
*) obstack_alloc (&objfile
->symbol_obstack
, sizeof (struct symbol
));
1579 struct type
*temptype
;
1581 memset (sym
, 0, sizeof (struct symbol
));
1583 name
= EXTERNAL_NAME (name
, objfile
->obfd
);
1584 SYMBOL_NAME (sym
) = obstack_copy0 (&objfile
->symbol_obstack
, name
, strlen (name
));
1586 /* default assumptions */
1587 SYMBOL_VALUE (sym
) = cs
->c_value
;
1588 SYMBOL_NAMESPACE (sym
) = VAR_NAMESPACE
;
1590 if (ISFCN (cs
->c_type
))
1593 /* FIXME: This has NOT been tested. The DBX version has.. */
1594 /* Generate a template for the type of this function. The
1595 types of the arguments will be added as we read the symbol
1597 struct type
*new = (struct type
*)
1598 obstack_alloc (&objfile
->symbol_obstack
, sizeof (struct type
));
1600 memcpy (new, lookup_function_type (decode_function_type (cs
, cs
->c_type
, aux
)),
1601 sizeof(struct type
));
1602 SYMBOL_TYPE (sym
) = new;
1603 in_function_type
= SYMBOL_TYPE(sym
);
1606 lookup_function_type (decode_function_type (cs
, cs
->c_type
, aux
));
1609 SYMBOL_CLASS (sym
) = LOC_BLOCK
;
1610 if (cs
->c_sclass
== C_STAT
)
1611 coff_add_symbol_to_list (sym
, &coff_file_symbols
);
1612 else if (cs
->c_sclass
== C_EXT
)
1613 coff_add_symbol_to_list (sym
, &coff_global_symbols
);
1617 SYMBOL_TYPE (sym
) = decode_type (cs
, cs
->c_type
, aux
);
1618 switch (cs
->c_sclass
)
1624 SYMBOL_CLASS (sym
) = LOC_LOCAL
;
1625 coff_add_symbol_to_list (sym
, &coff_local_symbols
);
1629 SYMBOL_CLASS (sym
) = LOC_STATIC
;
1630 SYMBOL_VALUE_ADDRESS (sym
) = (CORE_ADDR
) cs
->c_value
;
1631 coff_add_symbol_to_list (sym
, &coff_global_symbols
);
1635 SYMBOL_CLASS (sym
) = LOC_STATIC
;
1636 SYMBOL_VALUE_ADDRESS (sym
) = (CORE_ADDR
) cs
->c_value
;
1637 if (within_function
) {
1638 /* Static symbol of local scope */
1639 coff_add_symbol_to_list (sym
, &coff_local_symbols
);
1642 /* Static symbol at top level of file */
1643 coff_add_symbol_to_list (sym
, &coff_file_symbols
);
1647 #ifdef C_GLBLREG /* AMD coff */
1651 SYMBOL_CLASS (sym
) = LOC_REGISTER
;
1652 SYMBOL_VALUE (sym
) = SDB_REG_TO_REGNUM(cs
->c_value
);
1653 coff_add_symbol_to_list (sym
, &coff_local_symbols
);
1660 SYMBOL_CLASS (sym
) = LOC_ARG
;
1662 /* FIXME: This has not been tested. */
1663 /* Add parameter to function. */
1664 add_param_to_type(&in_function_type
,sym
);
1666 coff_add_symbol_to_list (sym
, &coff_local_symbols
);
1667 #if !defined (BELIEVE_PCC_PROMOTION)
1668 /* If PCC says a parameter is a short or a char,
1669 it is really an int. */
1670 temptype
= lookup_fundamental_type (current_objfile
, FT_INTEGER
);
1671 if (TYPE_LENGTH (SYMBOL_TYPE (sym
)) < TYPE_LENGTH (temptype
)
1672 && TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_INT
)
1674 SYMBOL_TYPE (sym
) = TYPE_UNSIGNED (SYMBOL_TYPE (sym
))
1675 ? lookup_fundamental_type (current_objfile
,
1676 FT_UNSIGNED_INTEGER
)
1683 SYMBOL_CLASS (sym
) = LOC_REGPARM
;
1684 SYMBOL_VALUE (sym
) = SDB_REG_TO_REGNUM(cs
->c_value
);
1685 coff_add_symbol_to_list (sym
, &coff_local_symbols
);
1686 #if !defined (BELIEVE_PCC_PROMOTION)
1687 /* If PCC says a parameter is a short or a char,
1688 it is really an int. */
1689 temptype
= lookup_fundamental_type (current_objfile
, FT_INTEGER
);
1690 if (TYPE_LENGTH (SYMBOL_TYPE (sym
)) < TYPE_LENGTH (temptype
)
1691 && TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_INT
)
1693 SYMBOL_TYPE (sym
) = TYPE_UNSIGNED (SYMBOL_TYPE (sym
))
1694 ? lookup_fundamental_type (current_objfile
,
1695 FT_UNSIGNED_INTEGER
)
1702 SYMBOL_CLASS (sym
) = LOC_TYPEDEF
;
1703 SYMBOL_NAMESPACE (sym
) = VAR_NAMESPACE
;
1705 /* If type has no name, give it one */
1706 if (TYPE_NAME (SYMBOL_TYPE (sym
)) == 0)
1707 TYPE_NAME (SYMBOL_TYPE (sym
)) = concat (SYMBOL_NAME (sym
), NULL
);
1709 /* Keep track of any type which points to empty structured type,
1710 so it can be filled from a definition from another file. A
1711 simple forward reference (TYPE_CODE_UNDEF) is not an
1712 empty structured type, though; the forward references
1713 work themselves out via the magic of coff_lookup_type. */
1714 if (TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_PTR
&&
1715 TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym
))) == 0 &&
1716 TYPE_CODE (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym
))) !=
1719 register int i
= hashname (SYMBOL_NAME (sym
));
1721 SYMBOL_VALUE_CHAIN (sym
) = opaque_type_chain
[i
];
1722 opaque_type_chain
[i
] = sym
;
1724 coff_add_symbol_to_list (sym
, &coff_file_symbols
);
1730 SYMBOL_CLASS (sym
) = LOC_TYPEDEF
;
1731 SYMBOL_NAMESPACE (sym
) = STRUCT_NAMESPACE
;
1732 if (TYPE_NAME (SYMBOL_TYPE (sym
)) == 0)
1733 TYPE_NAME (SYMBOL_TYPE (sym
))
1735 (cs
->c_sclass
== C_ENTAG
1737 : (cs
->c_sclass
== C_STRTAG
1738 ? "struct " : "union ")),
1739 SYMBOL_NAME (sym
), NULL
);
1740 coff_add_symbol_to_list (sym
, &coff_file_symbols
);
1750 /* Decode a coff type specifier;
1751 return the type that is meant. */
1755 decode_type (cs
, c_type
, aux
)
1756 register struct coff_symbol
*cs
;
1757 unsigned int c_type
;
1758 register union internal_auxent
*aux
;
1760 register struct type
*type
= 0;
1761 unsigned int new_c_type
;
1763 if (c_type
& ~N_BTMASK
)
1765 new_c_type
= DECREF (c_type
);
1768 type
= decode_type (cs
, new_c_type
, aux
);
1769 type
= lookup_pointer_type (type
);
1771 else if (ISFCN (c_type
))
1773 type
= decode_type (cs
, new_c_type
, aux
);
1774 type
= lookup_function_type (type
);
1776 else if (ISARY (c_type
))
1779 register unsigned short *dim
;
1780 struct type
*base_type
, *index_type
, *range_type
;
1782 /* Define an array type. */
1783 /* auxent refers to array, not base type */
1784 if (aux
->x_sym
.x_tagndx
.l
== 0)
1787 /* shift the indices down */
1788 dim
= &aux
->x_sym
.x_fcnary
.x_ary
.x_dimen
[0];
1791 for (i
= 0; *dim
&& i
< DIMNUM
- 1; i
++, dim
++)
1795 base_type
= decode_type (cs
, new_c_type
, aux
);
1796 index_type
= lookup_fundamental_type (current_objfile
, FT_INTEGER
);
1798 create_range_type ((struct type
*) NULL
, index_type
, 0, n
- 1);
1800 create_array_type ((struct type
*) NULL
, base_type
, range_type
);
1805 /* Reference to existing type. This only occurs with the
1806 struct, union, and enum types. EPI a29k coff
1807 fakes us out by producing aux entries with a nonzero
1808 x_tagndx for definitions of structs, unions, and enums, so we
1809 have to check the c_sclass field. SCO 3.2v4 cc gets confused
1810 with pointers to pointers to defined structs, and generates
1811 negative x_tagndx fields. */
1812 if (cs
->c_naux
> 0 && aux
->x_sym
.x_tagndx
.l
!= 0)
1814 if (cs
->c_sclass
!= C_STRTAG
1815 && cs
->c_sclass
!= C_UNTAG
1816 && cs
->c_sclass
!= C_ENTAG
1817 && aux
->x_sym
.x_tagndx
.l
>= 0)
1819 type
= coff_alloc_type (aux
->x_sym
.x_tagndx
.l
);
1822 complain (&tagndx_bad_complaint
, cs
->c_name
);
1823 /* And fall through to decode_base_type... */
1827 return decode_base_type (cs
, BTYPE (c_type
), aux
);
1830 /* Decode a coff type specifier for function definition;
1831 return the type that the function returns. */
1835 decode_function_type (cs
, c_type
, aux
)
1836 register struct coff_symbol
*cs
;
1837 unsigned int c_type
;
1838 register union internal_auxent
*aux
;
1840 if (aux
->x_sym
.x_tagndx
.l
== 0)
1841 cs
->c_naux
= 0; /* auxent refers to function, not base type */
1843 return decode_type (cs
, DECREF (c_type
), aux
);
1850 decode_base_type (cs
, c_type
, aux
)
1851 register struct coff_symbol
*cs
;
1852 unsigned int c_type
;
1853 register union internal_auxent
*aux
;
1860 /* shows up with "void (*foo)();" structure members */
1861 return lookup_fundamental_type (current_objfile
, FT_VOID
);
1864 /* DGUX actually defines both T_ARG and T_VOID to the same value. */
1867 /* Shows up in DGUX, I think. Not sure where. */
1868 return lookup_fundamental_type (current_objfile
, FT_VOID
); /* shouldn't show up here */
1874 /* Intel 960 COFF has this symbol and meaning. */
1875 return lookup_fundamental_type (current_objfile
, FT_VOID
);
1879 return lookup_fundamental_type (current_objfile
, FT_CHAR
);
1882 return lookup_fundamental_type (current_objfile
, FT_SHORT
);
1885 return lookup_fundamental_type (current_objfile
, FT_INTEGER
);
1888 return lookup_fundamental_type (current_objfile
, FT_LONG
);
1891 return lookup_fundamental_type (current_objfile
, FT_FLOAT
);
1894 return lookup_fundamental_type (current_objfile
, FT_DBL_PREC_FLOAT
);
1897 if (cs
->c_naux
!= 1)
1899 /* anonymous structure type */
1900 type
= coff_alloc_type (cs
->c_symnum
);
1901 TYPE_CODE (type
) = TYPE_CODE_STRUCT
;
1902 TYPE_NAME (type
) = concat ("struct ", "<opaque>", NULL
);
1903 INIT_CPLUS_SPECIFIC(type
);
1904 TYPE_LENGTH (type
) = 0;
1905 TYPE_FIELDS (type
) = 0;
1906 TYPE_NFIELDS (type
) = 0;
1910 type
= coff_read_struct_type (cs
->c_symnum
,
1911 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1912 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
);
1917 if (cs
->c_naux
!= 1)
1919 /* anonymous union type */
1920 type
= coff_alloc_type (cs
->c_symnum
);
1921 TYPE_NAME (type
) = concat ("union ", "<opaque>", NULL
);
1922 INIT_CPLUS_SPECIFIC(type
);
1923 TYPE_LENGTH (type
) = 0;
1924 TYPE_LENGTH (type
) = 0;
1925 TYPE_FIELDS (type
) = 0;
1926 TYPE_NFIELDS (type
) = 0;
1930 type
= coff_read_struct_type (cs
->c_symnum
,
1931 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1932 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
);
1934 TYPE_CODE (type
) = TYPE_CODE_UNION
;
1938 return coff_read_enum_type (cs
->c_symnum
,
1939 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1940 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
);
1943 /* shouldn't show up here */
1947 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_CHAR
);
1950 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_SHORT
);
1953 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_INTEGER
);
1956 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_LONG
);
1958 complain (&unexpected_type_complaint
, cs
->c_name
);
1959 return lookup_fundamental_type (current_objfile
, FT_VOID
);
1962 /* This page contains subroutines of read_type. */
1964 /* Read the description of a structure (or union type)
1965 and return an object describing the type. */
1967 static struct type
*
1968 coff_read_struct_type (index
, length
, lastsym
)
1975 struct nextfield
*next
;
1979 register struct type
*type
;
1980 register struct nextfield
*list
= 0;
1981 struct nextfield
*new;
1985 struct coff_symbol member_sym
;
1986 register struct coff_symbol
*ms
= &member_sym
;
1987 struct internal_syment sub_sym
;
1988 union internal_auxent sub_aux
;
1991 type
= coff_alloc_type (index
);
1992 TYPE_CODE (type
) = TYPE_CODE_STRUCT
;
1993 INIT_CPLUS_SPECIFIC(type
);
1994 TYPE_LENGTH (type
) = length
;
1996 while (!done
&& symnum
< lastsym
&& symnum
< nlist_nsyms_global
)
1998 read_one_sym (ms
, &sub_sym
, &sub_aux
);
2000 name
= EXTERNAL_NAME (name
, current_objfile
->obfd
);
2002 switch (ms
->c_sclass
)
2007 /* Get space to record the next field's data. */
2008 new = (struct nextfield
*) alloca (sizeof (struct nextfield
));
2012 /* Save the data. */
2013 list
->field
.name
= savestring (name
, strlen (name
));
2014 list
->field
.type
= decode_type (ms
, ms
->c_type
, &sub_aux
);
2015 list
->field
.bitpos
= 8 * ms
->c_value
;
2016 list
->field
.bitsize
= 0;
2022 /* Get space to record the next field's data. */
2023 new = (struct nextfield
*) alloca (sizeof (struct nextfield
));
2027 /* Save the data. */
2028 list
->field
.name
= savestring (name
, strlen (name
));
2029 list
->field
.type
= decode_type (ms
, ms
->c_type
, &sub_aux
);
2030 list
->field
.bitpos
= ms
->c_value
;
2031 list
->field
.bitsize
= sub_aux
.x_sym
.x_misc
.x_lnsz
.x_size
;
2040 /* Now create the vector of fields, and record how big it is. */
2042 TYPE_NFIELDS (type
) = nfields
;
2043 TYPE_FIELDS (type
) = (struct field
*)
2044 TYPE_ALLOC (type
, sizeof (struct field
) * nfields
);
2046 /* Copy the saved-up fields into the field vector. */
2048 for (n
= nfields
; list
; list
= list
->next
)
2049 TYPE_FIELD (type
, --n
) = list
->field
;
2054 /* Read a definition of an enumeration type,
2055 and create and return a suitable type object.
2056 Also defines the symbols that represent the values of the type. */
2057 /* Currently assumes it's sizeof (int) and doesn't use length. */
2060 static struct type
*
2061 coff_read_enum_type (index
, length
, lastsym
)
2066 register struct symbol
*sym
;
2067 register struct type
*type
;
2070 struct coff_pending
**symlist
;
2071 struct coff_symbol member_sym
;
2072 register struct coff_symbol
*ms
= &member_sym
;
2073 struct internal_syment sub_sym
;
2074 union internal_auxent sub_aux
;
2075 struct coff_pending
*osyms
, *syms
;
2079 type
= coff_alloc_type (index
);
2080 if (within_function
)
2081 symlist
= &coff_local_symbols
;
2083 symlist
= &coff_file_symbols
;
2086 while (!done
&& symnum
< lastsym
&& symnum
< nlist_nsyms_global
)
2088 read_one_sym (ms
, &sub_sym
, &sub_aux
);
2090 name
= EXTERNAL_NAME (name
, current_objfile
->obfd
);
2092 switch (ms
->c_sclass
)
2095 sym
= (struct symbol
*) xmalloc (sizeof (struct symbol
));
2096 memset (sym
, 0, sizeof (struct symbol
));
2098 SYMBOL_NAME (sym
) = savestring (name
, strlen (name
));
2099 SYMBOL_CLASS (sym
) = LOC_CONST
;
2100 SYMBOL_NAMESPACE (sym
) = VAR_NAMESPACE
;
2101 SYMBOL_VALUE (sym
) = ms
->c_value
;
2102 coff_add_symbol_to_list (sym
, symlist
);
2107 /* Sometimes the linker (on 386/ix 2.0.2 at least) screws
2108 up the count of how many symbols to read. So stop
2115 /* Now fill in the fields of the type-structure. */
2117 TYPE_LENGTH (type
) = TARGET_INT_BIT
/ TARGET_CHAR_BIT
;
2118 TYPE_CODE (type
) = TYPE_CODE_ENUM
;
2119 TYPE_NFIELDS (type
) = nsyms
;
2120 TYPE_FIELDS (type
) = (struct field
*)
2121 TYPE_ALLOC (type
, sizeof (struct field
) * nsyms
);
2123 /* Find the symbols for the values and put them into the type.
2124 The symbols can be found in the symlist that we put them on
2125 to cause them to be defined. osyms contains the old value
2126 of that symlist; everything up to there was defined by us. */
2128 for (syms
= *symlist
, n
= nsyms
; syms
!= osyms
; syms
= syms
->next
)
2130 SYMBOL_TYPE (syms
->symbol
) = type
;
2131 TYPE_FIELD_NAME (type
, --n
) = SYMBOL_NAME (syms
->symbol
);
2132 TYPE_FIELD_VALUE (type
, n
) = 0;
2133 TYPE_FIELD_BITPOS (type
, n
) = SYMBOL_VALUE (syms
->symbol
);
2134 TYPE_FIELD_BITSIZE (type
, n
) = 0;
2136 /* Is this Modula-2's BOOLEAN type? Flag it as such if so. */
2137 if(TYPE_NFIELDS(type
) == 2 &&
2138 ((!strcmp(TYPE_FIELD_NAME(type
,0),"TRUE") &&
2139 !strcmp(TYPE_FIELD_NAME(type
,1),"FALSE")) ||
2140 (!strcmp(TYPE_FIELD_NAME(type
,1),"TRUE") &&
2141 !strcmp(TYPE_FIELD_NAME(type
,0),"FALSE"))))
2142 TYPE_CODE(type
) = TYPE_CODE_BOOL
;
2146 /* Fake up support for relocating symbol addresses. FIXME. */
2148 struct section_offsets coff_symfile_faker
= {0};
2150 struct section_offsets
*
2151 coff_symfile_offsets (objfile
, addr
)
2152 struct objfile
*objfile
;
2155 return &coff_symfile_faker
;
2158 /* Register our ability to parse symbols for coff BFD files */
2160 static struct sym_fns coff_sym_fns
=
2162 "coff", /* sym_name: name or name prefix of BFD target type */
2163 4, /* sym_namelen: number of significant sym_name chars */
2164 coff_new_init
, /* sym_new_init: init anything gbl to entire symtab */
2165 coff_symfile_init
, /* sym_init: read initial info, setup for sym_read() */
2166 coff_symfile_read
, /* sym_read: read a symbol file into symtab */
2167 coff_symfile_finish
, /* sym_finish: finished with file, cleanup */
2168 coff_symfile_offsets
, /* sym_offsets: xlate external to internal form */
2169 NULL
/* next: pointer to next struct sym_fns */
2173 _initialize_coffread ()
2175 add_symtab_fns(&coff_sym_fns
);