1 /* Read coff symbol tables and convert to internal format, for GDB.
2 Contributed by David D. Johnson, Brown University (ddj@cs.brown.edu).
3 Copyright 1987, 1988, 1989, 1990, 1991, 1992, 1993
4 Free Software Foundation, Inc.
6 This file is part of GDB.
8 This program is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 2 of the License, or
11 (at your option) any later version.
13 This program is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with this program; if not, write to the Free Software
20 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
25 #include "breakpoint.h"
30 #include "complaints.h"
35 #include <time.h> /* For time_t in libbfd.h. */
36 #include <sys/types.h> /* For time_t, if not in time.h. */
37 #include "libbfd.h" /* FIXME secret internal data from BFD */
38 #include "coff/internal.h" /* Internal format of COFF symbols in BFD */
39 #include "libcoff.h" /* FIXME secret internal data from BFD */
41 /* Translate an external name string into a user-visible name. */
42 #define EXTERNAL_NAME(string, abfd) \
43 (string[0] == bfd_get_symbol_leading_char(abfd)? string+1: string)
45 /* To be an sdb debug type, type must have at least a basic or primary
46 derived type. Using this rather than checking against T_NULL is
47 said to prevent core dumps if we try to operate on Michael Bloom
50 #define SDB_TYPE(type) (BTYPE(type) | (type & N_TMASK))
53 * Convert from an sdb register number to an internal gdb register number.
54 * This should be defined in tm.h, if REGISTER_NAMES is not set up
55 * to map one to one onto the sdb register numbers.
57 #ifndef SDB_REG_TO_REGNUM
58 # define SDB_REG_TO_REGNUM(value) (value)
61 /* Core address of start and end of text of current source file.
62 This comes from a ".text" symbol where x_nlinno > 0. */
64 static CORE_ADDR cur_src_start_addr
;
65 static CORE_ADDR cur_src_end_addr
;
67 /* Core address of the end of the first object file. */
68 static CORE_ADDR first_object_file_end
;
70 /* The addresses of the symbol table stream and number of symbols
71 of the object file we are reading (as copied into core). */
73 static FILE *nlist_stream_global
;
74 static int nlist_nsyms_global
;
76 /* Vector of line number information. */
78 static struct linetable
*line_vector
;
80 /* Index of next entry to go in line_vector_index. */
82 static int line_vector_index
;
84 /* Last line number recorded in the line vector. */
86 static int prev_line_number
;
88 /* Number of elements allocated for line_vector currently. */
90 static int line_vector_length
;
92 /* Pointers to scratch storage, used for reading raw symbols and auxents. */
94 static char *temp_sym
;
95 static char *temp_aux
;
97 /* Local variables that hold the shift and mask values for the
98 COFF file that we are currently reading. These come back to us
99 from BFD, and are referenced by their macro names, as well as
100 internally to the BTYPE, ISPTR, ISFCN, ISARY, ISTAG, and DECREF
101 macros from ../internalcoff.h . */
103 static unsigned local_n_btmask
;
104 static unsigned local_n_btshft
;
105 static unsigned local_n_tmask
;
106 static unsigned local_n_tshift
;
108 #define N_BTMASK local_n_btmask
109 #define N_BTSHFT local_n_btshft
110 #define N_TMASK local_n_tmask
111 #define N_TSHIFT local_n_tshift
113 /* Local variables that hold the sizes in the file of various COFF structures.
114 (We only need to know this to read them from the file -- BFD will then
115 translate the data in them, into `internal_xxx' structs in the right
116 byte order, alignment, etc.) */
118 static unsigned local_linesz
;
119 static unsigned local_symesz
;
120 static unsigned local_auxesz
;
123 /* Chain of typedefs of pointers to empty struct/union types.
124 They are chained thru the SYMBOL_VALUE_CHAIN. */
126 static struct symbol
*opaque_type_chain
[HASHSIZE
];
129 /* The type of the function we are currently reading in. This is
130 used by define_symbol to record the type of arguments to a function. */
132 struct type
*in_function_type
;
135 struct pending_block
*pending_blocks
;
137 /* Complaints about various problems in the file being read */
139 struct complaint ef_complaint
=
140 {"Unmatched .ef symbol(s) ignored starting at symnum %d", 0, 0};
142 struct complaint bf_no_aux_complaint
=
143 {"`.bf' symbol %d has no aux entry", 0, 0};
145 struct complaint ef_no_aux_complaint
=
146 {"`.ef' symbol %d has no aux entry", 0, 0};
148 struct complaint lineno_complaint
=
149 {"Line number pointer %d lower than start of line numbers", 0, 0};
151 struct complaint unexpected_type_complaint
=
152 {"Unexpected type for symbol %s", 0, 0};
154 struct complaint bad_sclass_complaint
=
155 {"Bad n_sclass for symbol %s", 0, 0};
157 struct complaint misordered_blocks_complaint
=
158 {"Blocks out of order at address %x", 0, 0};
160 struct complaint tagndx_bad_complaint
=
161 {"Symbol table entry for %s has bad tagndx value", 0, 0};
163 struct complaint eb_complaint
=
164 {"Mismatched .eb symbol ignored starting at symnum %d", 0, 0};
166 /* Simplified internal version of coff symbol table information */
170 int c_symnum
; /* symbol number of this entry */
171 int c_naux
; /* 0 if syment only, 1 if syment + auxent, etc */
179 coff_read_struct_type
PARAMS ((int, int, int));
182 decode_base_type
PARAMS ((struct coff_symbol
*, unsigned int,
183 union internal_auxent
*));
186 decode_type
PARAMS ((struct coff_symbol
*, unsigned int,
187 union internal_auxent
*));
190 decode_function_type
PARAMS ((struct coff_symbol
*, unsigned int,
191 union internal_auxent
*));
194 coff_read_enum_type
PARAMS ((int, int, int));
196 static struct symbol
*
197 process_coff_symbol
PARAMS ((struct coff_symbol
*, union internal_auxent
*,
201 patch_opaque_types
PARAMS ((struct symtab
*));
204 patch_type
PARAMS ((struct type
*, struct type
*));
207 enter_linenos
PARAMS ((long, int, int));
210 free_linetab
PARAMS ((void));
213 init_lineno
PARAMS ((int, long, int));
216 getfilename
PARAMS ((union internal_auxent
*));
219 getsymname
PARAMS ((struct internal_syment
*));
222 free_stringtab
PARAMS ((void));
225 init_stringtab
PARAMS ((int, long));
228 read_one_sym
PARAMS ((struct coff_symbol
*, struct internal_syment
*,
229 union internal_auxent
*));
232 read_coff_symtab
PARAMS ((long, int, struct objfile
*));
235 find_linenos
PARAMS ((bfd
*, sec_ptr
, PTR
));
238 coff_symfile_init
PARAMS ((struct objfile
*));
241 coff_new_init
PARAMS ((struct objfile
*));
244 coff_symfile_read
PARAMS ((struct objfile
*, struct section_offsets
*, int));
247 coff_symfile_finish
PARAMS ((struct objfile
*));
250 record_minimal_symbol
PARAMS ((char *, CORE_ADDR
, enum minimal_symbol_type
));
253 coff_end_symtab
PARAMS ((struct objfile
*));
256 complete_symtab
PARAMS ((char *, CORE_ADDR
, unsigned int));
259 coff_start_symtab
PARAMS ((void));
262 coff_record_line
PARAMS ((int, CORE_ADDR
));
265 coff_alloc_type
PARAMS ((int));
267 static struct type
**
268 coff_lookup_type
PARAMS ((int));
271 /* Look up a coff type-number index. Return the address of the slot
272 where the type for that index is stored.
273 The type-number is in INDEX.
275 This can be used for finding the type associated with that index
276 or for associating a new type with the index. */
278 static struct type
**
279 coff_lookup_type (index
)
282 if (index
>= type_vector_length
)
284 int old_vector_length
= type_vector_length
;
286 type_vector_length
*= 2;
287 if (index
/* is still */ >= type_vector_length
) {
288 type_vector_length
= index
* 2;
290 type_vector
= (struct type
**)
291 xrealloc ((char *) type_vector
,
292 type_vector_length
* sizeof (struct type
*));
293 memset (&type_vector
[old_vector_length
], 0,
294 (type_vector_length
- old_vector_length
) * sizeof(struct type
*));
296 return &type_vector
[index
];
299 /* Make sure there is a type allocated for type number index
300 and return the type object.
301 This can create an empty (zeroed) type object. */
304 coff_alloc_type (index
)
307 register struct type
**type_addr
= coff_lookup_type (index
);
308 register struct type
*type
= *type_addr
;
310 /* If we are referring to a type not known at all yet,
311 allocate an empty type for it.
312 We will fill it in later if we find out how. */
315 type
= alloc_type (current_objfile
);
321 /* Manage the vector of line numbers. FIXME: Use record_line instead. */
324 coff_record_line (line
, pc
)
328 struct linetable_entry
*e
;
329 /* Make sure line vector is big enough. */
331 if (line_vector_index
+ 2 >= line_vector_length
)
333 line_vector_length
*= 2;
334 line_vector
= (struct linetable
*)
335 xrealloc ((char *) line_vector
, sizeof (struct linetable
)
336 + (line_vector_length
337 * sizeof (struct linetable_entry
)));
340 e
= line_vector
->item
+ line_vector_index
++;
341 e
->line
= line
; e
->pc
= pc
;
344 /* Start a new symtab for a new source file.
345 This is called when a COFF ".file" symbol is seen;
346 it indicates the start of data for one original source file. */
352 /* We fill in the filename later. start_symtab
353 puts this pointer into last_source file and in
354 coff_end_symtab we assume we can free() it.
355 FIXME: leaks memory. */
357 /* We never know the directory name for COFF. */
359 /* The start address is irrelevant, since we set
360 last_source_start_addr in coff_end_symtab. */
363 /* Initialize the source file line number information for this file. */
365 if (line_vector
) /* Unlikely, but maybe possible? */
366 free ((PTR
)line_vector
);
367 line_vector_index
= 0;
368 line_vector_length
= 1000;
369 prev_line_number
= -2; /* Force first line number to be explicit */
370 line_vector
= (struct linetable
*)
371 xmalloc (sizeof (struct linetable
)
372 + line_vector_length
* sizeof (struct linetable_entry
));
375 /* Save the vital information from when starting to read a file,
376 for use when closing off the current file.
377 NAME is the file name the symbols came from, START_ADDR is the first
378 text address for the file, and SIZE is the number of bytes of text. */
381 complete_symtab (name
, start_addr
, size
)
383 CORE_ADDR start_addr
;
386 last_source_file
= savestring (name
, strlen (name
));
387 cur_src_start_addr
= start_addr
;
388 cur_src_end_addr
= start_addr
+ size
;
390 if (current_objfile
-> ei
.entry_point
>= cur_src_start_addr
&&
391 current_objfile
-> ei
.entry_point
< cur_src_end_addr
)
393 current_objfile
-> ei
.entry_file_lowpc
= cur_src_start_addr
;
394 current_objfile
-> ei
.entry_file_highpc
= cur_src_end_addr
;
398 /* Finish the symbol definitions for one main source file,
399 close off all the lexical contexts for that file
400 (creating struct block's for them), then make the
401 struct symtab for that file and put it in the list of all such. */
404 coff_end_symtab (objfile
)
405 struct objfile
*objfile
;
407 struct symtab
*symtab
;
409 last_source_start_addr
= cur_src_start_addr
;
411 /* For no good reason, this file stores the number of entries in a
412 separate variable instead of in line_vector->nitems. Fix it. */
414 line_vector
->nitems
= line_vector_index
;
416 /* For COFF, we only have one subfile, so we can just look at
417 subfiles and not worry about there being other elements in the
418 chain. We fill in various fields now because we didn't know them
419 before (or because doing it now is simply an artifact of how this
420 file used to be written). */
421 subfiles
->line_vector
= line_vector
;
422 subfiles
->name
= last_source_file
;
424 /* sort_pending is needed for amdcoff, at least.
425 sort_linevec is needed for the SCO compiler. */
426 symtab
= end_symtab (cur_src_end_addr
, 1, 1, objfile
, 0);
429 free_named_symtabs (symtab
->filename
);
431 /* Reinitialize for beginning of new file. */
433 line_vector_length
= -1;
434 last_source_file
= NULL
;
438 record_minimal_symbol (name
, address
, type
)
441 enum minimal_symbol_type type
;
443 /* We don't want TDESC entry points in the minimal symbol table */
444 if (name
[0] == '@') return;
446 prim_record_minimal_symbol (savestring (name
, strlen (name
)), address
, type
);
449 /* coff_symfile_init ()
450 is the coff-specific initialization routine for reading symbols.
451 It is passed a struct objfile which contains, among other things,
452 the BFD for the file whose symbols are being read, and a slot for
453 a pointer to "private data" which we fill with cookies and other
454 treats for coff_symfile_read ().
456 We will only be called if this is a COFF or COFF-like file.
457 BFD handles figuring out the format of the file, and code in symtab.c
458 uses BFD's determination to vector to us.
460 The ultimate result is a new symtab (or, FIXME, eventually a psymtab). */
462 struct coff_symfile_info
{
463 file_ptr min_lineno_offset
; /* Where in file lowest line#s are */
464 file_ptr max_lineno_offset
; /* 1+last byte of line#s in file */
467 static int text_bfd_scnum
;
470 coff_symfile_init (objfile
)
471 struct objfile
*objfile
;
474 bfd
*abfd
= objfile
->obfd
;
476 /* Allocate struct to keep track of the symfile */
477 objfile
-> sym_private
= xmmalloc (objfile
-> md
,
478 sizeof (struct coff_symfile_info
));
480 init_entry_point_info (objfile
);
482 /* Save the section number for the text section */
483 section
= bfd_get_section_by_name(abfd
,".text");
485 text_bfd_scnum
= section
->index
;
490 /* This function is called for every section; it finds the outer limits
491 of the line table (minimum and maximum file offset) so that the
492 mainline code can read the whole thing for efficiency. */
496 find_linenos (abfd
, asect
, vpinfo
)
501 struct coff_symfile_info
*info
;
503 file_ptr offset
, maxoff
;
505 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
506 count
= asect
->lineno_count
;
511 size
= count
* local_linesz
;
513 info
= (struct coff_symfile_info
*)vpinfo
;
514 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
515 offset
= asect
->line_filepos
;
518 if (offset
< info
->min_lineno_offset
|| info
->min_lineno_offset
== 0)
519 info
->min_lineno_offset
= offset
;
521 maxoff
= offset
+ size
;
522 if (maxoff
> info
->max_lineno_offset
)
523 info
->max_lineno_offset
= maxoff
;
527 /* The BFD for this file -- only good while we're actively reading
528 symbols into a psymtab or a symtab. */
530 static bfd
*symfile_bfd
;
532 /* Read a symbol file, after initialization by coff_symfile_init. */
533 /* FIXME! Addr and Mainline are not used yet -- this will not work for
534 shared libraries or add_file! */
538 coff_symfile_read (objfile
, section_offsets
, mainline
)
539 struct objfile
*objfile
;
540 struct section_offsets
*section_offsets
;
543 struct coff_symfile_info
*info
;
544 bfd
*abfd
= objfile
->obfd
;
545 coff_data_type
*cdata
= coff_data (abfd
);
546 char *name
= bfd_get_filename (abfd
);
551 int stringtab_offset
;
552 struct cleanup
*back_to
;
554 info
= (struct coff_symfile_info
*) objfile
-> sym_private
;
555 symfile_bfd
= abfd
; /* Kludge for swap routines */
557 /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */
558 desc
= fileno ((FILE *)(abfd
->iostream
)); /* File descriptor */
559 num_symbols
= bfd_get_symcount (abfd
); /* How many syms */
560 symtab_offset
= cdata
->sym_filepos
; /* Symbol table file offset */
561 stringtab_offset
= symtab_offset
+ /* String table file offset */
562 num_symbols
* cdata
->local_symesz
;
564 /* Set a few file-statics that give us specific information about
565 the particular COFF file format we're reading. */
566 local_linesz
= cdata
->local_linesz
;
567 local_n_btmask
= cdata
->local_n_btmask
;
568 local_n_btshft
= cdata
->local_n_btshft
;
569 local_n_tmask
= cdata
->local_n_tmask
;
570 local_n_tshift
= cdata
->local_n_tshift
;
571 local_linesz
= cdata
->local_linesz
;
572 local_symesz
= cdata
->local_symesz
;
573 local_auxesz
= cdata
->local_auxesz
;
575 /* Allocate space for raw symbol and aux entries, based on their
576 space requirements as reported by BFD. */
577 temp_sym
= (char *) xmalloc
578 (cdata
->local_symesz
+ cdata
->local_auxesz
);
579 temp_aux
= temp_sym
+ cdata
->local_symesz
;
580 back_to
= make_cleanup (free_current_contents
, &temp_sym
);
583 /* Read the line number table, all at once. */
584 info
->min_lineno_offset
= 0;
585 info
->max_lineno_offset
= 0;
586 bfd_map_over_sections (abfd
, find_linenos
, (PTR
)info
);
588 make_cleanup (free_linetab
, 0);
589 val
= init_lineno (desc
, info
->min_lineno_offset
,
590 info
->max_lineno_offset
- info
->min_lineno_offset
);
592 error ("\"%s\": error reading line numbers\n", name
);
594 /* Now read the string table, all at once. */
596 make_cleanup (free_stringtab
, 0);
597 val
= init_stringtab (desc
, stringtab_offset
);
599 error ("\"%s\": can't get string table", name
);
601 init_minimal_symbol_collection ();
602 make_cleanup (discard_minimal_symbols
, 0);
604 /* Now that the executable file is positioned at symbol table,
605 process it and define symbols accordingly. */
607 read_coff_symtab ((long)symtab_offset
, num_symbols
, objfile
);
609 /* Sort symbols alphabetically within each block. */
611 sort_all_symtab_syms ();
613 /* Install any minimal symbols that have been collected as the current
614 minimal symbols for this objfile. */
616 install_minimal_symbols (objfile
);
618 do_cleanups (back_to
);
622 coff_new_init (ignore
)
623 struct objfile
*ignore
;
628 /* Perform any local cleanups required when we are done with a particular
629 objfile. I.E, we are in the process of discarding all symbol information
630 for an objfile, freeing up all memory held for it, and unlinking the
631 objfile struct from the global list of known objfiles. */
634 coff_symfile_finish (objfile
)
635 struct objfile
*objfile
;
637 if (objfile
-> sym_private
!= NULL
)
639 mfree (objfile
-> md
, objfile
-> sym_private
);
644 /* Given pointers to a symbol table in coff style exec file,
645 analyze them and create struct symtab's describing the symbols.
646 NSYMS is the number of symbols in the symbol table.
647 We read them one at a time using read_one_sym (). */
650 read_coff_symtab (symtab_offset
, nsyms
, objfile
)
653 struct objfile
*objfile
;
656 register struct context_stack
*new;
657 struct coff_symbol coff_symbol
;
658 register struct coff_symbol
*cs
= &coff_symbol
;
659 static struct internal_syment main_sym
;
660 static union internal_auxent main_aux
;
661 struct coff_symbol fcn_cs_saved
;
662 static struct internal_syment fcn_sym_saved
;
663 static union internal_auxent fcn_aux_saved
;
666 /* A .file is open. */
667 int in_source_file
= 0;
668 int num_object_files
= 0;
669 int next_file_symnum
= -1;
671 /* Name of the current file. */
672 char *filestring
= "";
674 int fcn_first_line
= 0;
675 int fcn_last_line
= 0;
676 int fcn_start_addr
= 0;
677 long fcn_line_ptr
= 0;
680 stream
= bfd_cache_lookup(objfile
->obfd
);
682 perror_with_name(objfile
->name
);
684 /* Work around a stdio bug in SunOS4.1.1 (this makes me nervous....
685 it's hard to know I've really worked around it. The fix should be
686 harmless, anyway). The symptom of the bug is that the first
687 fread (in read_one_sym), will (in my example) actually get data
688 from file offset 268, when the fseek was to 264 (and ftell shows
689 264). This causes all hell to break loose. I was unable to
690 reproduce this on a short test program which operated on the same
691 file, performing (I think) the same sequence of operations.
693 It stopped happening when I put in this rewind().
695 FIXME: Find out if this has been reported to Sun, whether it has
696 been fixed in a later release, etc. */
700 /* Position to read the symbol table. */
701 val
= fseek (stream
, (long)symtab_offset
, 0);
703 perror_with_name (objfile
->name
);
705 current_objfile
= objfile
;
706 nlist_stream_global
= stream
;
707 nlist_nsyms_global
= nsyms
;
708 last_source_file
= NULL
;
709 memset (opaque_type_chain
, 0, sizeof opaque_type_chain
);
711 if (type_vector
) /* Get rid of previous one */
712 free ((PTR
)type_vector
);
713 type_vector_length
= 160;
714 type_vector
= (struct type
**)
715 xmalloc (type_vector_length
* sizeof (struct type
*));
716 memset (type_vector
, 0, type_vector_length
* sizeof (struct type
*));
718 coff_start_symtab ();
721 while (symnum
< nsyms
)
723 QUIT
; /* Make this command interruptable. */
724 read_one_sym (cs
, &main_sym
, &main_aux
);
727 temp_sem_val
= cs
->c_name
[0] << 24 | cs
->c_name
[1] << 16 |
728 cs
->c_name
[2] << 8 | cs
->c_name
[3];
729 if (int_sem_val
== temp_sem_val
)
730 last_coffsem
= (int) strtol (cs
->c_name
+4, (char **) NULL
, 10);
733 if (cs
->c_symnum
== next_file_symnum
&& cs
->c_sclass
!= C_FILE
)
735 if (last_source_file
)
736 coff_end_symtab (objfile
);
738 coff_start_symtab ();
739 complete_symtab ("_globals_", 0, first_object_file_end
);
740 /* done with all files, everything from here on out is globals */
743 /* Special case for file with type declarations only, no text. */
744 if (!last_source_file
&& SDB_TYPE (cs
->c_type
)
745 && cs
->c_secnum
== N_DEBUG
)
746 complete_symtab (filestring
, 0, 0);
748 /* Typedefs should not be treated as symbol definitions. */
749 if (ISFCN (cs
->c_type
) && cs
->c_sclass
!= C_TPDEF
)
751 /* Record all functions -- external and static -- in minsyms. */
752 record_minimal_symbol (cs
->c_name
, cs
->c_value
, mst_text
);
754 fcn_line_ptr
= main_aux
.x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
;
755 fcn_start_addr
= cs
->c_value
;
757 fcn_sym_saved
= main_sym
;
758 fcn_aux_saved
= main_aux
;
762 switch (cs
->c_sclass
)
771 complain (&bad_sclass_complaint
, cs
->c_name
);
776 * c_value field contains symnum of next .file entry in table
777 * or symnum of first global after last .file.
779 next_file_symnum
= cs
->c_value
;
781 filestring
= getfilename (&main_aux
);
786 * Complete symbol table for last object file
787 * containing debugging information.
789 if (last_source_file
)
791 coff_end_symtab (objfile
);
792 coff_start_symtab ();
798 if (cs
->c_name
[0] == '.') {
799 if (STREQ (cs
->c_name
, ".text")) {
800 /* FIXME: don't wire in ".text" as section name
802 if (++num_object_files
== 1) {
803 /* last address of startup file */
804 first_object_file_end
= cs
->c_value
+
805 main_aux
.x_scn
.x_scnlen
;
807 /* Check for in_source_file deals with case of
808 a file with debugging symbols
809 followed by a later file with no symbols. */
811 complete_symtab (filestring
, cs
->c_value
,
812 main_aux
.x_scn
.x_scnlen
);
815 /* flush rest of '.' symbols */
818 else if (!SDB_TYPE (cs
->c_type
)
819 && cs
->c_name
[0] == 'L'
820 && (strncmp (cs
->c_name
, "LI%", 3) == 0
821 || strncmp (cs
->c_name
, "LF%", 3) == 0
822 || strncmp (cs
->c_name
,"LC%",3) == 0
823 || strncmp (cs
->c_name
,"LP%",3) == 0
824 || strncmp (cs
->c_name
,"LPB%",4) == 0
825 || strncmp (cs
->c_name
,"LBB%",4) == 0
826 || strncmp (cs
->c_name
,"LBE%",4) == 0
827 || strncmp (cs
->c_name
,"LPBX%",5) == 0))
828 /* At least on a 3b1, gcc generates swbeg and string labels
829 that look like this. Ignore them. */
831 /* fall in for static symbols that don't start with '.' */
833 /* Record external symbols in minsyms if we don't have debug
834 info for them. FIXME, this is probably the wrong thing
835 to do. Why don't we record them even if we do have
836 debug symbol info? What really belongs in the minsyms
838 if (!SDB_TYPE (cs
->c_type
)) {
839 /* FIXME: This is BOGUS Will Robinson!
840 Coff should provide the SEC_CODE flag for executable sections,
841 then if we could look up sections by section number we
842 could see if the flags indicate SEC_CODE. If so, then
843 record this symbol as a function in the minimal symbol table.
844 But why are absolute syms recorded as functions, anyway? */
845 if (cs
->c_secnum
<= text_bfd_scnum
+1) {/* text or abs */
846 record_minimal_symbol (cs
->c_name
, cs
->c_value
,
850 record_minimal_symbol (cs
->c_name
, cs
->c_value
,
855 process_coff_symbol (cs
, &main_aux
, objfile
);
859 if (STREQ (cs
->c_name
, ".bf"))
863 /* value contains address of first non-init type code */
864 /* main_aux.x_sym.x_misc.x_lnsz.x_lnno
865 contains line number of '{' } */
867 complain (&bf_no_aux_complaint
, cs
->c_symnum
);
868 fcn_first_line
= main_aux
.x_sym
.x_misc
.x_lnsz
.x_lnno
;
870 /* Might want to check that locals are 0 and
871 context_stack_depth is zero, and complain if not. */
874 new = push_context (depth
, fcn_start_addr
);
875 fcn_cs_saved
.c_name
= getsymname (&fcn_sym_saved
);
876 new->name
= process_coff_symbol (&fcn_cs_saved
,
877 &fcn_aux_saved
, objfile
);
879 else if (STREQ (cs
->c_name
, ".ef"))
881 /* the value of .ef is the address of epilogue code;
882 not useful for gdb. */
883 /* { main_aux.x_sym.x_misc.x_lnsz.x_lnno
884 contains number of lines to '}' */
885 new = pop_context ();
886 /* Stack must be empty now. */
887 if (context_stack_depth
> 0 || new == NULL
)
889 complain (&ef_complaint
, cs
->c_symnum
);
895 complain (&ef_no_aux_complaint
, cs
->c_symnum
);
896 fcn_last_line
= 0x7FFFFFFF;
900 fcn_last_line
= main_aux
.x_sym
.x_misc
.x_lnsz
.x_lnno
;
902 enter_linenos (fcn_line_ptr
, fcn_first_line
, fcn_last_line
);
904 finish_block (new->name
, &local_symbols
, new->old_blocks
,
906 #if defined (FUNCTION_EPILOGUE_SIZE)
907 /* This macro should be defined only on
909 fcn_aux_saved.x_sym.x_misc.x_fsize
910 field is always zero.
911 So use the .bf record information that
912 points to the epilogue and add the size
914 cs
->c_value
+ FUNCTION_EPILOGUE_SIZE
,
916 fcn_cs_saved
.c_value
+
917 fcn_aux_saved
.x_sym
.x_misc
.x_fsize
,
926 if (STREQ (cs
->c_name
, ".bb"))
928 push_context (++depth
, cs
->c_value
);
930 else if (STREQ (cs
->c_name
, ".eb"))
932 new = pop_context ();
933 if (depth
-- != new->depth
)
935 complain (&eb_complaint
, (char *)symnum
);
938 if (local_symbols
&& context_stack_depth
> 0)
940 /* Make a block for the local symbols within. */
941 finish_block (0, &local_symbols
, new->old_blocks
,
942 new->start_addr
, cs
->c_value
, objfile
);
944 /* Now pop locals of block just finished. */
945 local_symbols
= new->locals
;
950 process_coff_symbol (cs
, &main_aux
, objfile
);
955 if (last_source_file
)
956 coff_end_symtab (objfile
);
958 /* Patch up any opaque types (references to types that are not defined
959 in the file where they are referenced, e.g. "struct foo *bar"). */
960 ALL_OBJFILE_SYMTABS (objfile
, s
)
961 patch_opaque_types (s
);
963 current_objfile
= NULL
;
966 /* Routines for reading headers and symbols from executable. */
969 /* Move these XXXMAGIC symbol defns into BFD! */
971 /* Read COFF file header, check magic number,
972 and return number of symbols. */
973 read_file_hdr (chan
, file_hdr
)
978 if (myread (chan
, (char *)file_hdr
, FILHSZ
) < 0)
981 switch (file_hdr
->f_magic
)
996 #if defined (MC68KWRMAGIC) \
997 && (!defined (MC68MAGIC) || MC68KWRMAGIC != MC68MAGIC)
1011 case I960ROMAGIC
: /* Intel 960 */
1014 case I960RWMAGIC
: /* Intel 960 */
1016 return file_hdr
->f_nsyms
;
1020 if (BADMAG(file_hdr
))
1023 return file_hdr
->f_nsyms
;
1031 /* Read the next symbol, swap it, and return it in both internal_syment
1032 form, and coff_symbol form. Also return its first auxent, if any,
1033 in internal_auxent form, and skip any other auxents. */
1036 read_one_sym (cs
, sym
, aux
)
1037 register struct coff_symbol
*cs
;
1038 register struct internal_syment
*sym
;
1039 register union internal_auxent
*aux
;
1043 cs
->c_symnum
= symnum
;
1044 fread (temp_sym
, local_symesz
, 1, nlist_stream_global
);
1045 bfd_coff_swap_sym_in (symfile_bfd
, temp_sym
, (char *)sym
);
1046 cs
->c_naux
= sym
->n_numaux
& 0xff;
1047 if (cs
->c_naux
>= 1)
1049 fread (temp_aux
, local_auxesz
, 1, nlist_stream_global
);
1050 bfd_coff_swap_aux_in (symfile_bfd
, temp_aux
, sym
->n_type
, sym
->n_sclass
,
1052 /* If more than one aux entry, read past it (only the first aux
1054 for (i
= 1; i
< cs
->c_naux
; i
++)
1055 fread (temp_aux
, local_auxesz
, 1, nlist_stream_global
);
1057 cs
->c_name
= getsymname (sym
);
1058 cs
->c_value
= sym
->n_value
;
1059 cs
->c_sclass
= (sym
->n_sclass
& 0xff);
1060 cs
->c_secnum
= sym
->n_scnum
;
1061 cs
->c_type
= (unsigned) sym
->n_type
;
1062 if (!SDB_TYPE (cs
->c_type
))
1065 symnum
+= 1 + cs
->c_naux
;
1068 /* Support for string table handling */
1070 static char *stringtab
= NULL
;
1073 init_stringtab (chan
, offset
)
1079 unsigned char lengthbuf
[4];
1083 if (lseek (chan
, offset
, 0) < 0)
1086 val
= myread (chan
, (char *)lengthbuf
, sizeof lengthbuf
);
1087 length
= bfd_h_get_32 (symfile_bfd
, lengthbuf
);
1089 /* If no string table is needed, then the file may end immediately
1090 after the symbols. Just return with `stringtab' set to null. */
1091 if (val
!= sizeof lengthbuf
|| length
< sizeof lengthbuf
)
1094 stringtab
= (char *) xmalloc (length
);
1095 memcpy (stringtab
, &length
, sizeof length
);
1096 if (length
== sizeof length
) /* Empty table -- just the count */
1099 val
= myread (chan
, stringtab
+ sizeof lengthbuf
, length
- sizeof lengthbuf
);
1100 if (val
!= length
- sizeof lengthbuf
|| stringtab
[length
- 1] != '\0')
1115 getsymname (symbol_entry
)
1116 struct internal_syment
*symbol_entry
;
1118 static char buffer
[SYMNMLEN
+1];
1121 if (symbol_entry
->_n
._n_n
._n_zeroes
== 0)
1123 result
= stringtab
+ symbol_entry
->_n
._n_n
._n_offset
;
1127 strncpy (buffer
, symbol_entry
->_n
._n_name
, SYMNMLEN
);
1128 buffer
[SYMNMLEN
] = '\0';
1134 /* Extract the file name from the aux entry of a C_FILE symbol. Return
1135 only the last component of the name. Result is in static storage and
1136 is only good for temporary use. */
1139 getfilename (aux_entry
)
1140 union internal_auxent
*aux_entry
;
1142 static char buffer
[BUFSIZ
];
1143 register char *temp
;
1146 if (aux_entry
->x_file
.x_n
.x_zeroes
== 0)
1147 strcpy (buffer
, stringtab
+ aux_entry
->x_file
.x_n
.x_offset
);
1150 strncpy (buffer
, aux_entry
->x_file
.x_fname
, FILNMLEN
);
1151 buffer
[FILNMLEN
] = '\0';
1154 if ((temp
= strrchr (result
, '/')) != NULL
)
1159 /* Support for line number handling */
1160 static char *linetab
= NULL
;
1161 static long linetab_offset
;
1162 static unsigned long linetab_size
;
1164 /* Read in all the line numbers for fast lookups later. Leave them in
1165 external (unswapped) format in memory; we'll swap them as we enter
1166 them into GDB's data structures. */
1169 init_lineno (chan
, offset
, size
)
1176 linetab_offset
= offset
;
1177 linetab_size
= size
;
1184 if (lseek (chan
, offset
, 0) < 0)
1187 /* Allocate the desired table, plus a sentinel */
1188 linetab
= (char *) xmalloc (size
+ local_linesz
);
1190 val
= myread (chan
, linetab
, size
);
1194 /* Terminate it with an all-zero sentinel record */
1195 memset (linetab
+ size
, 0, local_linesz
);
1208 #if !defined (L_LNNO32)
1209 #define L_LNNO32(lp) ((lp)->l_lnno)
1213 enter_linenos (file_offset
, first_line
, last_line
)
1215 register int first_line
;
1216 register int last_line
;
1218 register char *rawptr
;
1219 struct internal_lineno lptr
;
1221 if (file_offset
< linetab_offset
)
1223 complain (&lineno_complaint
, file_offset
);
1224 if (file_offset
> linetab_size
) /* Too big to be an offset? */
1226 file_offset
+= linetab_offset
; /* Try reading at that linetab offset */
1229 rawptr
= &linetab
[file_offset
- linetab_offset
];
1231 /* skip first line entry for each function */
1232 rawptr
+= local_linesz
;
1233 /* line numbers start at one for the first line of the function */
1237 bfd_coff_swap_lineno_in (symfile_bfd
, rawptr
, &lptr
);
1238 rawptr
+= local_linesz
;
1239 /* The next function, or the sentinel, will have L_LNNO32 zero; we exit. */
1240 if (L_LNNO32 (&lptr
) && L_LNNO32 (&lptr
) <= last_line
)
1241 coff_record_line (first_line
+ L_LNNO32 (&lptr
), lptr
.l_addr
.l_paddr
);
1248 patch_type (type
, real_type
)
1250 struct type
*real_type
;
1252 register struct type
*target
= TYPE_TARGET_TYPE (type
);
1253 register struct type
*real_target
= TYPE_TARGET_TYPE (real_type
);
1254 int field_size
= TYPE_NFIELDS (real_target
) * sizeof (struct field
);
1256 TYPE_LENGTH (target
) = TYPE_LENGTH (real_target
);
1257 TYPE_NFIELDS (target
) = TYPE_NFIELDS (real_target
);
1258 TYPE_FIELDS (target
) = (struct field
*) TYPE_ALLOC (target
, field_size
);
1260 memcpy (TYPE_FIELDS (target
), TYPE_FIELDS (real_target
), field_size
);
1262 if (TYPE_NAME (real_target
))
1264 if (TYPE_NAME (target
))
1265 free (TYPE_NAME (target
));
1266 TYPE_NAME (target
) = concat (TYPE_NAME (real_target
), NULL
);
1270 /* Patch up all appropriate typedef symbols in the opaque_type_chains
1271 so that they can be used to print out opaque data structures properly. */
1274 patch_opaque_types (s
)
1277 register struct block
*b
;
1279 register struct symbol
*real_sym
;
1281 /* Go through the per-file symbols only */
1282 b
= BLOCKVECTOR_BLOCK (BLOCKVECTOR (s
), STATIC_BLOCK
);
1283 for (i
= BLOCK_NSYMS (b
) - 1; i
>= 0; i
--)
1285 /* Find completed typedefs to use to fix opaque ones.
1286 Remove syms from the chain when their types are stored,
1287 but search the whole chain, as there may be several syms
1288 from different files with the same name. */
1289 real_sym
= BLOCK_SYM (b
, i
);
1290 if (SYMBOL_CLASS (real_sym
) == LOC_TYPEDEF
&&
1291 SYMBOL_NAMESPACE (real_sym
) == VAR_NAMESPACE
&&
1292 TYPE_CODE (SYMBOL_TYPE (real_sym
)) == TYPE_CODE_PTR
&&
1293 TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (real_sym
))) != 0)
1295 register char *name
= SYMBOL_NAME (real_sym
);
1296 register int hash
= hashname (name
);
1297 register struct symbol
*sym
, *prev
;
1300 for (sym
= opaque_type_chain
[hash
]; sym
;)
1302 if (name
[0] == SYMBOL_NAME (sym
)[0] &&
1303 STREQ (name
+ 1, SYMBOL_NAME (sym
) + 1))
1307 SYMBOL_VALUE_CHAIN (prev
) = SYMBOL_VALUE_CHAIN (sym
);
1311 opaque_type_chain
[hash
] = SYMBOL_VALUE_CHAIN (sym
);
1314 patch_type (SYMBOL_TYPE (sym
), SYMBOL_TYPE (real_sym
));
1318 sym
= SYMBOL_VALUE_CHAIN (prev
);
1322 sym
= opaque_type_chain
[hash
];
1328 sym
= SYMBOL_VALUE_CHAIN (sym
);
1335 static struct symbol
*
1336 process_coff_symbol (cs
, aux
, objfile
)
1337 register struct coff_symbol
*cs
;
1338 register union internal_auxent
*aux
;
1339 struct objfile
*objfile
;
1341 register struct symbol
*sym
1342 = (struct symbol
*) obstack_alloc (&objfile
->symbol_obstack
,
1343 sizeof (struct symbol
));
1345 struct type
*temptype
;
1347 memset (sym
, 0, sizeof (struct symbol
));
1349 name
= EXTERNAL_NAME (name
, objfile
->obfd
);
1350 SYMBOL_NAME (sym
) = obstack_copy0 (&objfile
->symbol_obstack
, name
,
1353 /* default assumptions */
1354 SYMBOL_VALUE (sym
) = cs
->c_value
;
1355 SYMBOL_NAMESPACE (sym
) = VAR_NAMESPACE
;
1357 if (ISFCN (cs
->c_type
))
1360 /* FIXME: This has NOT been tested. The DBX version has.. */
1361 /* Generate a template for the type of this function. The
1362 types of the arguments will be added as we read the symbol
1364 struct type
*new = (struct type
*)
1365 obstack_alloc (&objfile
->symbol_obstack
, sizeof (struct type
));
1367 memcpy (new, lookup_function_type (decode_function_type (cs
, cs
->c_type
, aux
)),
1368 sizeof(struct type
));
1369 SYMBOL_TYPE (sym
) = new;
1370 in_function_type
= SYMBOL_TYPE(sym
);
1373 lookup_function_type (decode_function_type (cs
, cs
->c_type
, aux
));
1376 SYMBOL_CLASS (sym
) = LOC_BLOCK
;
1377 if (cs
->c_sclass
== C_STAT
)
1378 add_symbol_to_list (sym
, &file_symbols
);
1379 else if (cs
->c_sclass
== C_EXT
)
1380 add_symbol_to_list (sym
, &global_symbols
);
1384 SYMBOL_TYPE (sym
) = decode_type (cs
, cs
->c_type
, aux
);
1385 switch (cs
->c_sclass
)
1391 SYMBOL_CLASS (sym
) = LOC_LOCAL
;
1392 add_symbol_to_list (sym
, &local_symbols
);
1396 SYMBOL_CLASS (sym
) = LOC_STATIC
;
1397 SYMBOL_VALUE_ADDRESS (sym
) = (CORE_ADDR
) cs
->c_value
;
1398 add_symbol_to_list (sym
, &global_symbols
);
1402 SYMBOL_CLASS (sym
) = LOC_STATIC
;
1403 SYMBOL_VALUE_ADDRESS (sym
) = (CORE_ADDR
) cs
->c_value
;
1404 if (within_function
) {
1405 /* Static symbol of local scope */
1406 add_symbol_to_list (sym
, &local_symbols
);
1409 /* Static symbol at top level of file */
1410 add_symbol_to_list (sym
, &file_symbols
);
1414 #ifdef C_GLBLREG /* AMD coff */
1418 SYMBOL_CLASS (sym
) = LOC_REGISTER
;
1419 SYMBOL_VALUE (sym
) = SDB_REG_TO_REGNUM(cs
->c_value
);
1420 add_symbol_to_list (sym
, &local_symbols
);
1427 SYMBOL_CLASS (sym
) = LOC_ARG
;
1429 /* FIXME: This has not been tested. */
1430 /* Add parameter to function. */
1431 add_param_to_type(&in_function_type
,sym
);
1433 add_symbol_to_list (sym
, &local_symbols
);
1434 #if !defined (BELIEVE_PCC_PROMOTION) && (TARGET_BYTE_ORDER == BIG_ENDIAN)
1435 /* If PCC says a parameter is a short or a char,
1436 aligned on an int boundary, realign it to the "little end"
1438 temptype
= lookup_fundamental_type (current_objfile
, FT_INTEGER
);
1439 if (TYPE_LENGTH (SYMBOL_TYPE (sym
)) < TYPE_LENGTH (temptype
)
1440 && TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_INT
1441 && 0 == SYMBOL_VALUE (sym
) % TYPE_LENGTH (temptype
))
1443 SYMBOL_VALUE (sym
) += TYPE_LENGTH (temptype
)
1444 - TYPE_LENGTH (SYMBOL_TYPE (sym
));
1450 SYMBOL_CLASS (sym
) = LOC_REGPARM
;
1451 SYMBOL_VALUE (sym
) = SDB_REG_TO_REGNUM(cs
->c_value
);
1452 add_symbol_to_list (sym
, &local_symbols
);
1453 #if !defined (BELIEVE_PCC_PROMOTION)
1454 /* FIXME: This should retain the current type, since it's just
1455 a register value. gnu@adobe, 26Feb93 */
1456 /* If PCC says a parameter is a short or a char,
1457 it is really an int. */
1458 temptype
= lookup_fundamental_type (current_objfile
, FT_INTEGER
);
1459 if (TYPE_LENGTH (SYMBOL_TYPE (sym
)) < TYPE_LENGTH (temptype
)
1460 && TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_INT
)
1462 SYMBOL_TYPE (sym
) = TYPE_UNSIGNED (SYMBOL_TYPE (sym
))
1463 ? lookup_fundamental_type (current_objfile
,
1464 FT_UNSIGNED_INTEGER
)
1471 SYMBOL_CLASS (sym
) = LOC_TYPEDEF
;
1472 SYMBOL_NAMESPACE (sym
) = VAR_NAMESPACE
;
1474 /* If type has no name, give it one */
1475 if (TYPE_NAME (SYMBOL_TYPE (sym
)) == 0)
1476 TYPE_NAME (SYMBOL_TYPE (sym
)) = concat (SYMBOL_NAME (sym
), NULL
);
1478 /* Keep track of any type which points to empty structured type,
1479 so it can be filled from a definition from another file. A
1480 simple forward reference (TYPE_CODE_UNDEF) is not an
1481 empty structured type, though; the forward references
1482 work themselves out via the magic of coff_lookup_type. */
1483 if (TYPE_CODE (SYMBOL_TYPE (sym
)) == TYPE_CODE_PTR
&&
1484 TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym
))) == 0 &&
1485 TYPE_CODE (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym
))) !=
1488 register int i
= hashname (SYMBOL_NAME (sym
));
1490 SYMBOL_VALUE_CHAIN (sym
) = opaque_type_chain
[i
];
1491 opaque_type_chain
[i
] = sym
;
1493 add_symbol_to_list (sym
, &file_symbols
);
1499 SYMBOL_CLASS (sym
) = LOC_TYPEDEF
;
1500 SYMBOL_NAMESPACE (sym
) = STRUCT_NAMESPACE
;
1502 /* Some compilers try to be helpful by inventing "fake"
1503 names for anonymous enums, structures, and unions, like
1504 "~0fake" or ".0fake". Thanks, but no thanks... */
1505 if (TYPE_TAG_NAME (SYMBOL_TYPE (sym
)) == 0)
1506 if (SYMBOL_NAME(sym
) != NULL
1507 && *SYMBOL_NAME(sym
) != '~'
1508 && *SYMBOL_NAME(sym
) != '.')
1509 TYPE_TAG_NAME (SYMBOL_TYPE (sym
)) =
1510 concat (SYMBOL_NAME (sym
), NULL
);
1512 add_symbol_to_list (sym
, &file_symbols
);
1522 /* Decode a coff type specifier;
1523 return the type that is meant. */
1527 decode_type (cs
, c_type
, aux
)
1528 register struct coff_symbol
*cs
;
1529 unsigned int c_type
;
1530 register union internal_auxent
*aux
;
1532 register struct type
*type
= 0;
1533 unsigned int new_c_type
;
1535 if (c_type
& ~N_BTMASK
)
1537 new_c_type
= DECREF (c_type
);
1540 type
= decode_type (cs
, new_c_type
, aux
);
1541 type
= lookup_pointer_type (type
);
1543 else if (ISFCN (c_type
))
1545 type
= decode_type (cs
, new_c_type
, aux
);
1546 type
= lookup_function_type (type
);
1548 else if (ISARY (c_type
))
1551 register unsigned short *dim
;
1552 struct type
*base_type
, *index_type
, *range_type
;
1554 /* Define an array type. */
1555 /* auxent refers to array, not base type */
1556 if (aux
->x_sym
.x_tagndx
.l
== 0)
1559 /* shift the indices down */
1560 dim
= &aux
->x_sym
.x_fcnary
.x_ary
.x_dimen
[0];
1563 for (i
= 0; *dim
&& i
< DIMNUM
- 1; i
++, dim
++)
1567 base_type
= decode_type (cs
, new_c_type
, aux
);
1568 index_type
= lookup_fundamental_type (current_objfile
, FT_INTEGER
);
1570 create_range_type ((struct type
*) NULL
, index_type
, 0, n
- 1);
1572 create_array_type ((struct type
*) NULL
, base_type
, range_type
);
1577 /* Reference to existing type. This only occurs with the
1578 struct, union, and enum types. EPI a29k coff
1579 fakes us out by producing aux entries with a nonzero
1580 x_tagndx for definitions of structs, unions, and enums, so we
1581 have to check the c_sclass field. SCO 3.2v4 cc gets confused
1582 with pointers to pointers to defined structs, and generates
1583 negative x_tagndx fields. */
1584 if (cs
->c_naux
> 0 && aux
->x_sym
.x_tagndx
.l
!= 0)
1586 if (cs
->c_sclass
!= C_STRTAG
1587 && cs
->c_sclass
!= C_UNTAG
1588 && cs
->c_sclass
!= C_ENTAG
1589 && aux
->x_sym
.x_tagndx
.l
>= 0)
1591 type
= coff_alloc_type (aux
->x_sym
.x_tagndx
.l
);
1594 complain (&tagndx_bad_complaint
, cs
->c_name
);
1595 /* And fall through to decode_base_type... */
1599 return decode_base_type (cs
, BTYPE (c_type
), aux
);
1602 /* Decode a coff type specifier for function definition;
1603 return the type that the function returns. */
1607 decode_function_type (cs
, c_type
, aux
)
1608 register struct coff_symbol
*cs
;
1609 unsigned int c_type
;
1610 register union internal_auxent
*aux
;
1612 if (aux
->x_sym
.x_tagndx
.l
== 0)
1613 cs
->c_naux
= 0; /* auxent refers to function, not base type */
1615 return decode_type (cs
, DECREF (c_type
), aux
);
1622 decode_base_type (cs
, c_type
, aux
)
1623 register struct coff_symbol
*cs
;
1624 unsigned int c_type
;
1625 register union internal_auxent
*aux
;
1632 /* shows up with "void (*foo)();" structure members */
1633 return lookup_fundamental_type (current_objfile
, FT_VOID
);
1636 /* DGUX actually defines both T_ARG and T_VOID to the same value. */
1639 /* Shows up in DGUX, I think. Not sure where. */
1640 return lookup_fundamental_type (current_objfile
, FT_VOID
); /* shouldn't show up here */
1646 /* Intel 960 COFF has this symbol and meaning. */
1647 return lookup_fundamental_type (current_objfile
, FT_VOID
);
1651 return lookup_fundamental_type (current_objfile
, FT_CHAR
);
1654 return lookup_fundamental_type (current_objfile
, FT_SHORT
);
1657 return lookup_fundamental_type (current_objfile
, FT_INTEGER
);
1660 return lookup_fundamental_type (current_objfile
, FT_LONG
);
1663 return lookup_fundamental_type (current_objfile
, FT_FLOAT
);
1666 return lookup_fundamental_type (current_objfile
, FT_DBL_PREC_FLOAT
);
1669 if (cs
->c_naux
!= 1)
1671 /* anonymous structure type */
1672 type
= coff_alloc_type (cs
->c_symnum
);
1673 TYPE_CODE (type
) = TYPE_CODE_STRUCT
;
1674 TYPE_NAME (type
) = NULL
;
1675 /* This used to set the tag to "<opaque>". But I think setting it
1676 to NULL is right, and the printing code can print it as
1678 TYPE_TAG_NAME (type
) = NULL
;
1679 INIT_CPLUS_SPECIFIC(type
);
1680 TYPE_LENGTH (type
) = 0;
1681 TYPE_FIELDS (type
) = 0;
1682 TYPE_NFIELDS (type
) = 0;
1686 type
= coff_read_struct_type (cs
->c_symnum
,
1687 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1688 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
);
1693 if (cs
->c_naux
!= 1)
1695 /* anonymous union type */
1696 type
= coff_alloc_type (cs
->c_symnum
);
1697 TYPE_NAME (type
) = NULL
;
1698 /* This used to set the tag to "<opaque>". But I think setting it
1699 to NULL is right, and the printing code can print it as
1701 TYPE_TAG_NAME (type
) = NULL
;
1702 INIT_CPLUS_SPECIFIC(type
);
1703 TYPE_LENGTH (type
) = 0;
1704 TYPE_FIELDS (type
) = 0;
1705 TYPE_NFIELDS (type
) = 0;
1709 type
= coff_read_struct_type (cs
->c_symnum
,
1710 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1711 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
);
1713 TYPE_CODE (type
) = TYPE_CODE_UNION
;
1717 if (cs
->c_naux
!= 1)
1719 /* anonymous enum type */
1720 type
= coff_alloc_type (cs
->c_symnum
);
1721 TYPE_CODE (type
) = TYPE_CODE_ENUM
;
1722 TYPE_NAME (type
) = NULL
;
1723 /* This used to set the tag to "<opaque>". But I think setting it
1724 to NULL is right, and the printing code can print it as
1726 TYPE_TAG_NAME (type
) = NULL
;
1727 TYPE_LENGTH (type
) = 0;
1728 TYPE_FIELDS (type
) = 0;
1729 TYPE_NFIELDS(type
) = 0;
1733 type
= coff_read_enum_type (cs
->c_symnum
,
1734 aux
->x_sym
.x_misc
.x_lnsz
.x_size
,
1735 aux
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
);
1740 /* shouldn't show up here */
1744 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_CHAR
);
1747 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_SHORT
);
1750 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_INTEGER
);
1753 return lookup_fundamental_type (current_objfile
, FT_UNSIGNED_LONG
);
1755 complain (&unexpected_type_complaint
, cs
->c_name
);
1756 return lookup_fundamental_type (current_objfile
, FT_VOID
);
1759 /* This page contains subroutines of read_type. */
1761 /* Read the description of a structure (or union type)
1762 and return an object describing the type. */
1764 static struct type
*
1765 coff_read_struct_type (index
, length
, lastsym
)
1772 struct nextfield
*next
;
1776 register struct type
*type
;
1777 register struct nextfield
*list
= 0;
1778 struct nextfield
*new;
1782 struct coff_symbol member_sym
;
1783 register struct coff_symbol
*ms
= &member_sym
;
1784 struct internal_syment sub_sym
;
1785 union internal_auxent sub_aux
;
1788 type
= coff_alloc_type (index
);
1789 TYPE_CODE (type
) = TYPE_CODE_STRUCT
;
1790 INIT_CPLUS_SPECIFIC(type
);
1791 TYPE_LENGTH (type
) = length
;
1793 while (!done
&& symnum
< lastsym
&& symnum
< nlist_nsyms_global
)
1795 read_one_sym (ms
, &sub_sym
, &sub_aux
);
1797 name
= EXTERNAL_NAME (name
, current_objfile
->obfd
);
1799 switch (ms
->c_sclass
)
1804 /* Get space to record the next field's data. */
1805 new = (struct nextfield
*) alloca (sizeof (struct nextfield
));
1809 /* Save the data. */
1810 list
->field
.name
= savestring (name
, strlen (name
));
1811 list
->field
.type
= decode_type (ms
, ms
->c_type
, &sub_aux
);
1812 list
->field
.bitpos
= 8 * ms
->c_value
;
1813 list
->field
.bitsize
= 0;
1819 /* Get space to record the next field's data. */
1820 new = (struct nextfield
*) alloca (sizeof (struct nextfield
));
1824 /* Save the data. */
1825 list
->field
.name
= savestring (name
, strlen (name
));
1826 list
->field
.type
= decode_type (ms
, ms
->c_type
, &sub_aux
);
1827 list
->field
.bitpos
= ms
->c_value
;
1828 list
->field
.bitsize
= sub_aux
.x_sym
.x_misc
.x_lnsz
.x_size
;
1837 /* Now create the vector of fields, and record how big it is. */
1839 TYPE_NFIELDS (type
) = nfields
;
1840 TYPE_FIELDS (type
) = (struct field
*)
1841 TYPE_ALLOC (type
, sizeof (struct field
) * nfields
);
1843 /* Copy the saved-up fields into the field vector. */
1845 for (n
= nfields
; list
; list
= list
->next
)
1846 TYPE_FIELD (type
, --n
) = list
->field
;
1851 /* Read a definition of an enumeration type,
1852 and create and return a suitable type object.
1853 Also defines the symbols that represent the values of the type. */
1856 static struct type
*
1857 coff_read_enum_type (index
, length
, lastsym
)
1862 register struct symbol
*sym
;
1863 register struct type
*type
;
1866 struct pending
**symlist
;
1867 struct coff_symbol member_sym
;
1868 register struct coff_symbol
*ms
= &member_sym
;
1869 struct internal_syment sub_sym
;
1870 union internal_auxent sub_aux
;
1871 struct pending
*osyms
, *syms
;
1876 type
= coff_alloc_type (index
);
1877 if (within_function
)
1878 symlist
= &local_symbols
;
1880 symlist
= &file_symbols
;
1882 o_nsyms
= osyms
? osyms
->nsyms
: 0;
1884 while (!done
&& symnum
< lastsym
&& symnum
< nlist_nsyms_global
)
1886 read_one_sym (ms
, &sub_sym
, &sub_aux
);
1888 name
= EXTERNAL_NAME (name
, current_objfile
->obfd
);
1890 switch (ms
->c_sclass
)
1893 sym
= (struct symbol
*) xmalloc (sizeof (struct symbol
));
1894 memset (sym
, 0, sizeof (struct symbol
));
1896 SYMBOL_NAME (sym
) = savestring (name
, strlen (name
));
1897 SYMBOL_CLASS (sym
) = LOC_CONST
;
1898 SYMBOL_NAMESPACE (sym
) = VAR_NAMESPACE
;
1899 SYMBOL_VALUE (sym
) = ms
->c_value
;
1900 add_symbol_to_list (sym
, symlist
);
1905 /* Sometimes the linker (on 386/ix 2.0.2 at least) screws
1906 up the count of how many symbols to read. So stop
1913 /* Now fill in the fields of the type-structure. */
1916 TYPE_LENGTH (type
) = length
;
1918 TYPE_LENGTH (type
) = TARGET_INT_BIT
/ TARGET_CHAR_BIT
; /* Assume ints */
1919 TYPE_CODE (type
) = TYPE_CODE_ENUM
;
1920 TYPE_NFIELDS (type
) = nsyms
;
1921 TYPE_FIELDS (type
) = (struct field
*)
1922 TYPE_ALLOC (type
, sizeof (struct field
) * nsyms
);
1924 /* Find the symbols for the values and put them into the type.
1925 The symbols can be found in the symlist that we put them on
1926 to cause them to be defined. osyms contains the old value
1927 of that symlist; everything up to there was defined by us. */
1928 /* Note that we preserve the order of the enum constants, so
1929 that in something like "enum {FOO, LAST_THING=FOO}" we print
1930 FOO, not LAST_THING. */
1932 for (syms
= *symlist
, n
= 0; syms
; syms
= syms
->next
)
1937 for (; j
< syms
->nsyms
; j
++,n
++)
1939 struct symbol
*xsym
= syms
->symbol
[j
];
1940 SYMBOL_TYPE (xsym
) = type
;
1941 TYPE_FIELD_NAME (type
, n
) = SYMBOL_NAME (xsym
);
1942 TYPE_FIELD_VALUE (type
, n
) = 0;
1943 TYPE_FIELD_BITPOS (type
, n
) = SYMBOL_VALUE (xsym
);
1944 TYPE_FIELD_BITSIZE (type
, n
) = 0;
1951 /* This screws up perfectly good C programs with enums. FIXME. */
1952 /* Is this Modula-2's BOOLEAN type? Flag it as such if so. */
1953 if(TYPE_NFIELDS(type
) == 2 &&
1954 ((STREQ(TYPE_FIELD_NAME(type
,0),"TRUE") &&
1955 STREQ(TYPE_FIELD_NAME(type
,1),"FALSE")) ||
1956 (STREQ(TYPE_FIELD_NAME(type
,1),"TRUE") &&
1957 STREQ(TYPE_FIELD_NAME(type
,0),"FALSE"))))
1958 TYPE_CODE(type
) = TYPE_CODE_BOOL
;
1963 /* Fake up support for relocating symbol addresses. FIXME. */
1965 struct section_offsets coff_symfile_faker
= {{0}};
1967 struct section_offsets
*
1968 coff_symfile_offsets (objfile
, addr
)
1969 struct objfile
*objfile
;
1972 return &coff_symfile_faker
;
1975 /* Register our ability to parse symbols for coff BFD files */
1977 static struct sym_fns coff_sym_fns
=
1979 "coff", /* sym_name: name or name prefix of BFD target type */
1980 4, /* sym_namelen: number of significant sym_name chars */
1981 coff_new_init
, /* sym_new_init: init anything gbl to entire symtab */
1982 coff_symfile_init
, /* sym_init: read initial info, setup for sym_read() */
1983 coff_symfile_read
, /* sym_read: read a symbol file into symtab */
1984 coff_symfile_finish
, /* sym_finish: finished with file, cleanup */
1985 coff_symfile_offsets
, /* sym_offsets: xlate external to internal form */
1986 NULL
/* next: pointer to next struct sym_fns */
1990 _initialize_coffread ()
1992 add_symtab_fns(&coff_sym_fns
);