2003-11-07 Andrew Cagney <cagney@redhat.com>
[external/binutils.git] / gdb / coffread.c
1 /* Read coff symbol tables and convert to internal format, for GDB.
2    Copyright 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996,
3    1997, 1998, 1999, 2000, 2001, 2002, 2003
4    Free Software Foundation, Inc.
5    Contributed by David D. Johnson, Brown University (ddj@cs.brown.edu).
6
7    This file is part of GDB.
8
9    This program is free software; you can redistribute it and/or modify
10    it under the terms of the GNU General Public License as published by
11    the Free Software Foundation; either version 2 of the License, or
12    (at your option) any later version.
13
14    This program is distributed in the hope that it will be useful,
15    but WITHOUT ANY WARRANTY; without even the implied warranty of
16    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
17    GNU General Public License for more details.
18
19    You should have received a copy of the GNU General Public License
20    along with this program; if not, write to the Free Software
21    Foundation, Inc., 59 Temple Place - Suite 330,
22    Boston, MA 02111-1307, USA.  */
23
24 #include "defs.h"
25 #include "symtab.h"
26 #include "gdbtypes.h"
27 #include "demangle.h"
28 #include "breakpoint.h"
29
30 #include "bfd.h"
31 #include "gdb_obstack.h"
32
33 #include "gdb_string.h"
34 #include <ctype.h>
35
36 #include "coff/internal.h"      /* Internal format of COFF symbols in BFD */
37 #include "libcoff.h"            /* FIXME secret internal data from BFD */
38
39 #include "symfile.h"
40 #include "objfiles.h"
41 #include "buildsym.h"
42 #include "gdb-stabs.h"
43 #include "stabsread.h"
44 #include "complaints.h"
45 #include "target.h"
46 #include "gdb_assert.h"
47 #include "block.h"
48 #include "dictionary.h"
49
50 #include "coff-pe-read.h"
51
52 extern void _initialize_coffread (void);
53
54 struct coff_symfile_info
55   {
56     file_ptr min_lineno_offset; /* Where in file lowest line#s are */
57     file_ptr max_lineno_offset; /* 1+last byte of line#s in file */
58
59     CORE_ADDR textaddr;         /* Addr of .text section. */
60     unsigned int textsize;      /* Size of .text section. */
61     struct stab_section_list *stabsects;        /* .stab sections.  */
62     asection *stabstrsect;      /* Section pointer for .stab section */
63     char *stabstrdata;
64   };
65
66 /* Translate an external name string into a user-visible name.  */
67 #define EXTERNAL_NAME(string, abfd) \
68         (string[0] == bfd_get_symbol_leading_char(abfd)? string+1: string)
69
70 /* To be an sdb debug type, type must have at least a basic or primary
71    derived type.  Using this rather than checking against T_NULL is
72    said to prevent core dumps if we try to operate on Michael Bloom
73    dbx-in-coff file.  */
74
75 #define SDB_TYPE(type) (BTYPE(type) | (type & N_TMASK))
76
77 /* Core address of start and end of text of current source file.
78    This comes from a ".text" symbol where x_nlinno > 0.  */
79
80 static CORE_ADDR current_source_start_addr;
81 static CORE_ADDR current_source_end_addr;
82
83 /* The addresses of the symbol table stream and number of symbols
84    of the object file we are reading (as copied into core).  */
85
86 static bfd *nlist_bfd_global;
87 static int nlist_nsyms_global;
88
89
90 /* Pointers to scratch storage, used for reading raw symbols and auxents.  */
91
92 static char *temp_sym;
93 static char *temp_aux;
94
95 /* Local variables that hold the shift and mask values for the
96    COFF file that we are currently reading.  These come back to us
97    from BFD, and are referenced by their macro names, as well as
98    internally to the BTYPE, ISPTR, ISFCN, ISARY, ISTAG, and DECREF
99    macros from include/coff/internal.h .  */
100
101 static unsigned local_n_btmask;
102 static unsigned local_n_btshft;
103 static unsigned local_n_tmask;
104 static unsigned local_n_tshift;
105
106 #define N_BTMASK        local_n_btmask
107 #define N_BTSHFT        local_n_btshft
108 #define N_TMASK         local_n_tmask
109 #define N_TSHIFT        local_n_tshift
110
111 /* Local variables that hold the sizes in the file of various COFF structures.
112    (We only need to know this to read them from the file -- BFD will then
113    translate the data in them, into `internal_xxx' structs in the right
114    byte order, alignment, etc.)  */
115
116 static unsigned local_linesz;
117 static unsigned local_symesz;
118 static unsigned local_auxesz;
119
120 /* This is set if this is a PE format file.  */
121
122 static int pe_file;
123
124 /* Chain of typedefs of pointers to empty struct/union types.
125    They are chained thru the SYMBOL_VALUE_CHAIN.  */
126
127 static struct symbol *opaque_type_chain[HASHSIZE];
128
129 /* Simplified internal version of coff symbol table information */
130
131 struct coff_symbol
132   {
133     char *c_name;
134     int c_symnum;               /* symbol number of this entry */
135     int c_naux;                 /* 0 if syment only, 1 if syment + auxent, etc */
136     long c_value;
137     int c_sclass;
138     int c_secnum;
139     unsigned int c_type;
140   };
141
142 extern void stabsread_clear_cache (void);
143
144 static struct type *coff_read_struct_type (int, int, int);
145
146 static struct type *decode_base_type (struct coff_symbol *,
147                                       unsigned int, union internal_auxent *);
148
149 static struct type *decode_type (struct coff_symbol *, unsigned int,
150                                  union internal_auxent *);
151
152 static struct type *decode_function_type (struct coff_symbol *,
153                                           unsigned int,
154                                           union internal_auxent *);
155
156 static struct type *coff_read_enum_type (int, int, int);
157
158 static struct symbol *process_coff_symbol (struct coff_symbol *,
159                                            union internal_auxent *,
160                                            struct objfile *);
161
162 static void patch_opaque_types (struct symtab *);
163
164 static void enter_linenos (long, int, int, struct objfile *);
165
166 static void free_linetab (void);
167
168 static void free_linetab_cleanup (void *ignore);
169
170 static int init_lineno (bfd *, long, int);
171
172 static char *getsymname (struct internal_syment *);
173
174 static char *coff_getfilename (union internal_auxent *);
175
176 static void free_stringtab (void);
177
178 static void free_stringtab_cleanup (void *ignore);
179
180 static int init_stringtab (bfd *, long);
181
182 static void read_one_sym (struct coff_symbol *,
183                           struct internal_syment *, union internal_auxent *);
184
185 static void coff_symtab_read (long, unsigned int, struct objfile *);
186 \f
187 /* We are called once per section from coff_symfile_read.  We
188    need to examine each section we are passed, check to see
189    if it is something we are interested in processing, and
190    if so, stash away some access information for the section.
191
192    FIXME: The section names should not be hardwired strings (what
193    should they be?  I don't think most object file formats have enough
194    section flags to specify what kind of debug section it is
195    -kingdon).  */
196
197 static void
198 coff_locate_sections (bfd *abfd, asection *sectp, void *csip)
199 {
200   struct coff_symfile_info *csi;
201   const char *name;
202
203   csi = (struct coff_symfile_info *) csip;
204   name = bfd_get_section_name (abfd, sectp);
205   if (STREQ (name, ".text"))
206     {
207       csi->textaddr = bfd_section_vma (abfd, sectp);
208       csi->textsize += bfd_section_size (abfd, sectp);
209     }
210   else if (strncmp (name, ".text", sizeof ".text" - 1) == 0)
211     {
212       csi->textsize += bfd_section_size (abfd, sectp);
213     }
214   else if (STREQ (name, ".stabstr"))
215     {
216       csi->stabstrsect = sectp;
217     }
218   else if (strncmp (name, ".stab", sizeof ".stab" - 1) == 0)
219     {
220       const char *s;
221
222       /* We can have multiple .stab sections if linked with
223          --split-by-reloc.  */
224       for (s = name + sizeof ".stab" - 1; *s != '\0'; s++)
225         if (!isdigit (*s))
226           break;
227       if (*s == '\0')
228         {
229           struct stab_section_list *n, **pn;
230
231           n = ((struct stab_section_list *)
232                xmalloc (sizeof (struct stab_section_list)));
233           n->section = sectp;
234           n->next = NULL;
235           for (pn = &csi->stabsects; *pn != NULL; pn = &(*pn)->next)
236             ;
237           *pn = n;
238
239           /* This will be run after coffstab_build_psymtabs is called
240              in coff_symfile_read, at which point we no longer need
241              the information.  */
242           make_cleanup (xfree, n);
243         }
244     }
245 }
246
247 /* Return the section_offsets* that CS points to.  */
248 static int cs_to_section (struct coff_symbol *, struct objfile *);
249
250 struct find_targ_sec_arg
251   {
252     int targ_index;
253     asection **resultp;
254   };
255
256 static void
257 find_targ_sec (bfd *abfd, asection *sect, void *obj)
258 {
259   struct find_targ_sec_arg *args = (struct find_targ_sec_arg *) obj;
260   if (sect->target_index == args->targ_index)
261     *args->resultp = sect;
262 }
263
264 /* Return the section number (SECT_OFF_*) that CS points to.  */
265 static int
266 cs_to_section (struct coff_symbol *cs, struct objfile *objfile)
267 {
268   asection *sect = NULL;
269   struct find_targ_sec_arg args;
270   int off = SECT_OFF_TEXT (objfile);
271
272   args.targ_index = cs->c_secnum;
273   args.resultp = &sect;
274   bfd_map_over_sections (objfile->obfd, find_targ_sec, &args);
275   if (sect != NULL)
276     {
277       /* This is the section.  Figure out what SECT_OFF_* code it is.  */
278       if (bfd_get_section_flags (abfd, sect) & SEC_CODE)
279         off = SECT_OFF_TEXT (objfile);
280       else if (bfd_get_section_flags (abfd, sect) & SEC_LOAD)
281         off = SECT_OFF_DATA (objfile);
282       else
283         /* Just return the bfd section index. */
284         off = sect->index;
285     }
286   return off;
287 }
288
289 /* Return the address of the section of a COFF symbol.  */
290
291 static CORE_ADDR cs_section_address (struct coff_symbol *, bfd *);
292
293 static CORE_ADDR
294 cs_section_address (struct coff_symbol *cs, bfd *abfd)
295 {
296   asection *sect = NULL;
297   struct find_targ_sec_arg args;
298   CORE_ADDR addr = 0;
299
300   args.targ_index = cs->c_secnum;
301   args.resultp = &sect;
302   bfd_map_over_sections (abfd, find_targ_sec, &args);
303   if (sect != NULL)
304     addr = bfd_get_section_vma (objfile->obfd, sect);
305   return addr;
306 }
307
308 /* Look up a coff type-number index.  Return the address of the slot
309    where the type for that index is stored.
310    The type-number is in INDEX. 
311
312    This can be used for finding the type associated with that index
313    or for associating a new type with the index.  */
314
315 static struct type **
316 coff_lookup_type (int index)
317 {
318   if (index >= type_vector_length)
319     {
320       int old_vector_length = type_vector_length;
321
322       type_vector_length *= 2;
323       if (index /* is still */  >= type_vector_length)
324         type_vector_length = index * 2;
325
326       type_vector = (struct type **)
327         xrealloc ((char *) type_vector,
328                   type_vector_length * sizeof (struct type *));
329       memset (&type_vector[old_vector_length], 0,
330          (type_vector_length - old_vector_length) * sizeof (struct type *));
331     }
332   return &type_vector[index];
333 }
334
335 /* Make sure there is a type allocated for type number index
336    and return the type object.
337    This can create an empty (zeroed) type object.  */
338
339 static struct type *
340 coff_alloc_type (int index)
341 {
342   struct type **type_addr = coff_lookup_type (index);
343   struct type *type = *type_addr;
344
345   /* If we are referring to a type not known at all yet,
346      allocate an empty type for it.
347      We will fill it in later if we find out how.  */
348   if (type == NULL)
349     {
350       type = alloc_type (current_objfile);
351       *type_addr = type;
352     }
353   return type;
354 }
355 \f
356 /* Start a new symtab for a new source file.
357    This is called when a COFF ".file" symbol is seen;
358    it indicates the start of data for one original source file.  */
359
360 static void
361 coff_start_symtab (char *name)
362 {
363   start_symtab (
364   /* We fill in the filename later.  start_symtab puts
365      this pointer into last_source_file and we put it in
366      subfiles->name, which end_symtab frees; that's why
367      it must be malloc'd.  */
368                  savestring (name, strlen (name)),
369   /* We never know the directory name for COFF.  */
370                  NULL,
371   /* The start address is irrelevant, since we set
372      last_source_start_addr in coff_end_symtab.  */
373                  0);
374   record_debugformat ("COFF");
375 }
376
377 /* Save the vital information from when starting to read a file,
378    for use when closing off the current file.
379    NAME is the file name the symbols came from, START_ADDR is the first
380    text address for the file, and SIZE is the number of bytes of text.  */
381
382 static void
383 complete_symtab (char *name, CORE_ADDR start_addr, unsigned int size)
384 {
385   if (last_source_file != NULL)
386     xfree (last_source_file);
387   last_source_file = savestring (name, strlen (name));
388   current_source_start_addr = start_addr;
389   current_source_end_addr = start_addr + size;
390
391   if (current_objfile->ei.entry_point >= current_source_start_addr &&
392       current_objfile->ei.entry_point < current_source_end_addr)
393     {
394       current_objfile->ei.deprecated_entry_file_lowpc = current_source_start_addr;
395       current_objfile->ei.deprecated_entry_file_highpc = current_source_end_addr;
396     }
397 }
398
399 /* Finish the symbol definitions for one main source file,
400    close off all the lexical contexts for that file
401    (creating struct block's for them), then make the
402    struct symtab for that file and put it in the list of all such. */
403
404 static void
405 coff_end_symtab (struct objfile *objfile)
406 {
407   struct symtab *symtab;
408
409   last_source_start_addr = current_source_start_addr;
410
411   symtab = end_symtab (current_source_end_addr, objfile, SECT_OFF_TEXT (objfile));
412
413   if (symtab != NULL)
414     free_named_symtabs (symtab->filename);
415
416   /* Reinitialize for beginning of new file. */
417   last_source_file = NULL;
418 }
419 \f
420 static void
421 record_minimal_symbol (char *name, CORE_ADDR address,
422                        enum minimal_symbol_type type, struct objfile *objfile)
423 {
424   /* We don't want TDESC entry points in the minimal symbol table */
425   if (name[0] == '@')
426     return;
427
428   prim_record_minimal_symbol (name, address, type, objfile);
429 }
430 \f
431 /* coff_symfile_init ()
432    is the coff-specific initialization routine for reading symbols.
433    It is passed a struct objfile which contains, among other things,
434    the BFD for the file whose symbols are being read, and a slot for
435    a pointer to "private data" which we fill with cookies and other
436    treats for coff_symfile_read ().
437
438    We will only be called if this is a COFF or COFF-like file.
439    BFD handles figuring out the format of the file, and code in symtab.c
440    uses BFD's determination to vector to us.
441
442    The ultimate result is a new symtab (or, FIXME, eventually a psymtab).  */
443
444 static void
445 coff_symfile_init (struct objfile *objfile)
446 {
447   /* Allocate struct to keep track of stab reading. */
448   objfile->sym_stab_info = (struct dbx_symfile_info *)
449     xmmalloc (objfile->md, sizeof (struct dbx_symfile_info));
450
451   memset (objfile->sym_stab_info, 0,
452           sizeof (struct dbx_symfile_info));
453
454   /* Allocate struct to keep track of the symfile */
455   objfile->sym_private = xmmalloc (objfile->md,
456                                    sizeof (struct coff_symfile_info));
457
458   memset (objfile->sym_private, 0, sizeof (struct coff_symfile_info));
459
460   /* COFF objects may be reordered, so set OBJF_REORDERED.  If we
461      find this causes a significant slowdown in gdb then we could
462      set it in the debug symbol readers only when necessary.  */
463   objfile->flags |= OBJF_REORDERED;
464
465   init_entry_point_info (objfile);
466 }
467
468 /* This function is called for every section; it finds the outer limits
469    of the line table (minimum and maximum file offset) so that the
470    mainline code can read the whole thing for efficiency.  */
471
472 static void
473 find_linenos (bfd *abfd, struct bfd_section *asect, void *vpinfo)
474 {
475   struct coff_symfile_info *info;
476   int size, count;
477   file_ptr offset, maxoff;
478
479 /* WARNING WILL ROBINSON!  ACCESSING BFD-PRIVATE DATA HERE!  FIXME!  */
480   count = asect->lineno_count;
481 /* End of warning */
482
483   if (count == 0)
484     return;
485   size = count * local_linesz;
486
487   info = (struct coff_symfile_info *) vpinfo;
488 /* WARNING WILL ROBINSON!  ACCESSING BFD-PRIVATE DATA HERE!  FIXME!  */
489   offset = asect->line_filepos;
490 /* End of warning */
491
492   if (offset < info->min_lineno_offset || info->min_lineno_offset == 0)
493     info->min_lineno_offset = offset;
494
495   maxoff = offset + size;
496   if (maxoff > info->max_lineno_offset)
497     info->max_lineno_offset = maxoff;
498 }
499
500
501 /* The BFD for this file -- only good while we're actively reading
502    symbols into a psymtab or a symtab.  */
503
504 static bfd *symfile_bfd;
505
506 /* Read a symbol file, after initialization by coff_symfile_init.  */
507
508 static void
509 coff_symfile_read (struct objfile *objfile, int mainline)
510 {
511   struct coff_symfile_info *info;
512   struct dbx_symfile_info *dbxinfo;
513   bfd *abfd = objfile->obfd;
514   coff_data_type *cdata = coff_data (abfd);
515   char *name = bfd_get_filename (abfd);
516   int val;
517   unsigned int num_symbols;
518   int symtab_offset;
519   int stringtab_offset;
520   struct cleanup *back_to, *cleanup_minimal_symbols;
521   int stabstrsize;
522   int len;
523   char * target;
524   
525   info = (struct coff_symfile_info *) objfile->sym_private;
526   dbxinfo = objfile->sym_stab_info;
527   symfile_bfd = abfd;           /* Kludge for swap routines */
528
529 /* WARNING WILL ROBINSON!  ACCESSING BFD-PRIVATE DATA HERE!  FIXME!  */
530   num_symbols = bfd_get_symcount (abfd);        /* How many syms */
531   symtab_offset = cdata->sym_filepos;   /* Symbol table file offset */
532   stringtab_offset = symtab_offset +    /* String table file offset */
533     num_symbols * cdata->local_symesz;
534
535   /* Set a few file-statics that give us specific information about
536      the particular COFF file format we're reading.  */
537   local_n_btmask = cdata->local_n_btmask;
538   local_n_btshft = cdata->local_n_btshft;
539   local_n_tmask = cdata->local_n_tmask;
540   local_n_tshift = cdata->local_n_tshift;
541   local_linesz = cdata->local_linesz;
542   local_symesz = cdata->local_symesz;
543   local_auxesz = cdata->local_auxesz;
544
545   /* Allocate space for raw symbol and aux entries, based on their
546      space requirements as reported by BFD.  */
547   temp_sym = (char *) xmalloc
548     (cdata->local_symesz + cdata->local_auxesz);
549   temp_aux = temp_sym + cdata->local_symesz;
550   back_to = make_cleanup (free_current_contents, &temp_sym);
551
552   /* We need to know whether this is a PE file, because in PE files,
553      unlike standard COFF files, symbol values are stored as offsets
554      from the section address, rather than as absolute addresses.
555      FIXME: We should use BFD to read the symbol table, and thus avoid
556      this problem.  */
557   pe_file =
558     strncmp (bfd_get_target (objfile->obfd), "pe", 2) == 0
559     || strncmp (bfd_get_target (objfile->obfd), "epoc-pe", 7) == 0;
560
561 /* End of warning */
562
563   info->min_lineno_offset = 0;
564   info->max_lineno_offset = 0;
565
566   /* Only read line number information if we have symbols.
567
568      On Windows NT, some of the system's DLL's have sections with
569      PointerToLinenumbers fields that are non-zero, but point at
570      random places within the image file.  (In the case I found,
571      KERNEL32.DLL's .text section has a line number info pointer that
572      points into the middle of the string `lib\\i386\kernel32.dll'.)
573
574      However, these DLL's also have no symbols.  The line number
575      tables are meaningless without symbols.  And in fact, GDB never
576      uses the line number information unless there are symbols.  So we
577      can avoid spurious error messages (and maybe run a little
578      faster!) by not even reading the line number table unless we have
579      symbols.  */
580   if (num_symbols > 0)
581     {
582       /* Read the line number table, all at once.  */
583       bfd_map_over_sections (abfd, find_linenos, (void *) info);
584
585       make_cleanup (free_linetab_cleanup, 0 /*ignore*/);
586       val = init_lineno (abfd, info->min_lineno_offset,
587                          info->max_lineno_offset - info->min_lineno_offset);
588       if (val < 0)
589         error ("\"%s\": error reading line numbers\n", name);
590     }
591
592   /* Now read the string table, all at once.  */
593
594   make_cleanup (free_stringtab_cleanup, 0 /*ignore*/);
595   val = init_stringtab (abfd, stringtab_offset);
596   if (val < 0)
597     error ("\"%s\": can't get string table", name);
598
599   init_minimal_symbol_collection ();
600   cleanup_minimal_symbols = make_cleanup_discard_minimal_symbols ();
601
602   /* Now that the executable file is positioned at symbol table,
603      process it and define symbols accordingly.  */
604
605   coff_symtab_read ((long) symtab_offset, num_symbols, objfile);
606
607   /* Install any minimal symbols that have been collected as the current
608      minimal symbols for this objfile.  */
609
610   install_minimal_symbols (objfile);
611
612   /* Free the installed minimal symbol data.  */
613   do_cleanups (cleanup_minimal_symbols);
614
615   bfd_map_over_sections (abfd, coff_locate_sections, (void *) info);
616
617   if (info->stabsects)
618     {
619       if (!info->stabstrsect)
620         {
621           error (("The debugging information in `%s' is corrupted.\n"
622                   "The file has a `.stabs' section, but no `.stabstr' "
623                   "section."),
624                  name);
625         }
626
627       /* FIXME: dubious.  Why can't we use something normal like
628          bfd_get_section_contents?  */
629       bfd_seek (abfd, abfd->where, 0);
630
631       stabstrsize = bfd_section_size (abfd, info->stabstrsect);
632
633       coffstab_build_psymtabs (objfile,
634                                mainline,
635                                info->textaddr, info->textsize,
636                                info->stabsects,
637                                info->stabstrsect->filepos, stabstrsize);
638     }
639   if (dwarf2_has_info (abfd))
640     {
641       /* DWARF2 sections.  */
642       dwarf2_build_psymtabs (objfile, mainline);
643     }
644
645   do_cleanups (back_to);
646 }
647
648 static void
649 coff_new_init (struct objfile *ignore)
650 {
651 }
652
653 /* Perform any local cleanups required when we are done with a particular
654    objfile.  I.E, we are in the process of discarding all symbol information
655    for an objfile, freeing up all memory held for it, and unlinking the
656    objfile struct from the global list of known objfiles. */
657
658 static void
659 coff_symfile_finish (struct objfile *objfile)
660 {
661   if (objfile->sym_private != NULL)
662     {
663       xmfree (objfile->md, objfile->sym_private);
664     }
665
666   /* Let stabs reader clean up */
667   stabsread_clear_cache ();
668 }
669 \f
670
671 /* Given pointers to a symbol table in coff style exec file,
672    analyze them and create struct symtab's describing the symbols.
673    NSYMS is the number of symbols in the symbol table.
674    We read them one at a time using read_one_sym ().  */
675
676 static void
677 coff_symtab_read (long symtab_offset, unsigned int nsyms,
678                   struct objfile *objfile)
679 {
680   struct context_stack *new;
681   struct coff_symbol coff_symbol;
682   struct coff_symbol *cs = &coff_symbol;
683   static struct internal_syment main_sym;
684   static union internal_auxent main_aux;
685   struct coff_symbol fcn_cs_saved;
686   static struct internal_syment fcn_sym_saved;
687   static union internal_auxent fcn_aux_saved;
688   struct symtab *s;
689   /* A .file is open.  */
690   int in_source_file = 0;
691   int next_file_symnum = -1;
692   /* Name of the current file.  */
693   char *filestring = "";
694   int depth = 0;
695   int fcn_first_line = 0;
696   CORE_ADDR fcn_first_line_addr = 0;
697   int fcn_last_line = 0;
698   int fcn_start_addr = 0;
699   long fcn_line_ptr = 0;
700   int val;
701   CORE_ADDR tmpaddr;
702
703   /* Work around a stdio bug in SunOS4.1.1 (this makes me nervous....
704      it's hard to know I've really worked around it.  The fix should be
705      harmless, anyway).  The symptom of the bug is that the first
706      fread (in read_one_sym), will (in my example) actually get data
707      from file offset 268, when the fseek was to 264 (and ftell shows
708      264).  This causes all hell to break loose.  I was unable to
709      reproduce this on a short test program which operated on the same
710      file, performing (I think) the same sequence of operations.
711
712      It stopped happening when I put in this (former) rewind().
713
714      FIXME: Find out if this has been reported to Sun, whether it has
715      been fixed in a later release, etc.  */
716
717   bfd_seek (objfile->obfd, 0, 0);
718
719   /* Position to read the symbol table. */
720   val = bfd_seek (objfile->obfd, (long) symtab_offset, 0);
721   if (val < 0)
722     perror_with_name (objfile->name);
723
724   current_objfile = objfile;
725   nlist_bfd_global = objfile->obfd;
726   nlist_nsyms_global = nsyms;
727   last_source_file = NULL;
728   memset (opaque_type_chain, 0, sizeof opaque_type_chain);
729
730   if (type_vector)              /* Get rid of previous one */
731     xfree (type_vector);
732   type_vector_length = 160;
733   type_vector = (struct type **)
734     xmalloc (type_vector_length * sizeof (struct type *));
735   memset (type_vector, 0, type_vector_length * sizeof (struct type *));
736
737   coff_start_symtab ("");
738
739   symnum = 0;
740   while (symnum < nsyms)
741     {
742       QUIT;                     /* Make this command interruptable.  */
743
744       read_one_sym (cs, &main_sym, &main_aux);
745
746       if (cs->c_symnum == next_file_symnum && cs->c_sclass != C_FILE)
747         {
748           if (last_source_file)
749             coff_end_symtab (objfile);
750
751           coff_start_symtab ("_globals_");
752           complete_symtab ("_globals_", 0, 0);
753           /* done with all files, everything from here on out is globals */
754         }
755
756       /* Special case for file with type declarations only, no text.  */
757       if (!last_source_file && SDB_TYPE (cs->c_type)
758           && cs->c_secnum == N_DEBUG)
759         complete_symtab (filestring, 0, 0);
760
761       /* Typedefs should not be treated as symbol definitions.  */
762       if (ISFCN (cs->c_type) && cs->c_sclass != C_TPDEF)
763         {
764           /* Record all functions -- external and static -- in minsyms. */
765           tmpaddr = cs->c_value + ANOFFSET (objfile->section_offsets, SECT_OFF_TEXT (objfile));
766           record_minimal_symbol (cs->c_name, tmpaddr, mst_text, objfile);
767
768           fcn_line_ptr = main_aux.x_sym.x_fcnary.x_fcn.x_lnnoptr;
769           fcn_start_addr = tmpaddr;
770           fcn_cs_saved = *cs;
771           fcn_sym_saved = main_sym;
772           fcn_aux_saved = main_aux;
773           continue;
774         }
775
776       switch (cs->c_sclass)
777         {
778         case C_EFCN:
779         case C_EXTDEF:
780         case C_ULABEL:
781         case C_USTATIC:
782         case C_LINE:
783         case C_ALIAS:
784         case C_HIDDEN:
785           complaint (&symfile_complaints, "Bad n_sclass for symbol %s",
786                      cs->c_name);
787           break;
788
789         case C_FILE:
790           /* c_value field contains symnum of next .file entry in table
791              or symnum of first global after last .file.  */
792           next_file_symnum = cs->c_value;
793           if (cs->c_naux > 0)
794             filestring = coff_getfilename (&main_aux);
795           else
796             filestring = "";
797
798           /* Complete symbol table for last object file
799              containing debugging information.  */
800           if (last_source_file)
801             {
802               coff_end_symtab (objfile);
803               coff_start_symtab (filestring);
804             }
805           in_source_file = 1;
806           break;
807
808           /* C_LABEL is used for labels and static functions.  Including
809              it here allows gdb to see static functions when no debug
810              info is available.  */
811         case C_LABEL:
812           /* However, labels within a function can make weird backtraces,
813              so filter them out (from phdm@macqel.be). */
814           if (within_function)
815             break;
816         case C_STAT:
817         case C_THUMBLABEL:
818         case C_THUMBSTAT:
819         case C_THUMBSTATFUNC:
820           if (cs->c_name[0] == '.')
821             {
822               if (STREQ (cs->c_name, ".text"))
823                 {
824                   /* FIXME:  don't wire in ".text" as section name
825                      or symbol name! */
826                   /* Check for in_source_file deals with case of
827                      a file with debugging symbols
828                      followed by a later file with no symbols.  */
829                   if (in_source_file)
830                     complete_symtab (filestring,
831                     cs->c_value + ANOFFSET (objfile->section_offsets, SECT_OFF_TEXT (objfile)),
832                                      main_aux.x_scn.x_scnlen);
833                   in_source_file = 0;
834                 }
835               /* flush rest of '.' symbols */
836               break;
837             }
838           else if (!SDB_TYPE (cs->c_type)
839                    && cs->c_name[0] == 'L'
840                    && (strncmp (cs->c_name, "LI%", 3) == 0
841                        || strncmp (cs->c_name, "LF%", 3) == 0
842                        || strncmp (cs->c_name, "LC%", 3) == 0
843                        || strncmp (cs->c_name, "LP%", 3) == 0
844                        || strncmp (cs->c_name, "LPB%", 4) == 0
845                        || strncmp (cs->c_name, "LBB%", 4) == 0
846                        || strncmp (cs->c_name, "LBE%", 4) == 0
847                        || strncmp (cs->c_name, "LPBX%", 5) == 0))
848             /* At least on a 3b1, gcc generates swbeg and string labels
849                that look like this.  Ignore them.  */
850             break;
851           /* fall in for static symbols that don't start with '.' */
852         case C_THUMBEXT:
853         case C_THUMBEXTFUNC:
854         case C_EXT:
855           {
856             /* Record it in the minimal symbols regardless of
857                SDB_TYPE.  This parallels what we do for other debug
858                formats, and probably is needed to make
859                print_address_symbolic work right without the (now
860                gone) "set fast-symbolic-addr off" kludge.  */
861
862             enum minimal_symbol_type ms_type;
863             int sec;
864
865             if (cs->c_secnum == N_UNDEF)
866               {
867                 /* This is a common symbol.  See if the target
868                    environment knows where it has been relocated to.  */
869                 CORE_ADDR reladdr;
870                 if (target_lookup_symbol (cs->c_name, &reladdr))
871                   {
872                     /* Error in lookup; ignore symbol.  */
873                     break;
874                   }
875                 tmpaddr = reladdr;
876                 /* The address has already been relocated; make sure that
877                    objfile_relocate doesn't relocate it again.  */
878                 sec = -2;
879                 ms_type = cs->c_sclass == C_EXT
880                   || cs->c_sclass == C_THUMBEXT ?
881                   mst_bss : mst_file_bss;
882               }
883             else if (cs->c_secnum == N_ABS)
884               {
885                 /* Use the correct minimal symbol type (and don't
886                    relocate) for absolute values. */
887                 ms_type = mst_abs;
888                 sec = cs_to_section (cs, objfile);
889                 tmpaddr = cs->c_value;
890               }
891             else
892               {
893                 sec = cs_to_section (cs, objfile);
894                 tmpaddr = cs->c_value;
895                 /* Statics in a PE file also get relocated */
896                 if (cs->c_sclass == C_EXT
897                     || cs->c_sclass == C_THUMBEXTFUNC
898                     || cs->c_sclass == C_THUMBEXT
899                     || (pe_file && (cs->c_sclass == C_STAT)))
900                   tmpaddr += ANOFFSET (objfile->section_offsets, sec);
901
902                 if (sec == SECT_OFF_TEXT (objfile))
903                   {
904                     ms_type =
905                       cs->c_sclass == C_EXT || cs->c_sclass == C_THUMBEXTFUNC
906                       || cs->c_sclass == C_THUMBEXT ?
907                       mst_text : mst_file_text;
908                     tmpaddr = SMASH_TEXT_ADDRESS (tmpaddr);
909                   }
910                 else if (sec == SECT_OFF_DATA (objfile))
911                   {
912                     ms_type =
913                       cs->c_sclass == C_EXT || cs->c_sclass == C_THUMBEXT ?
914                       mst_data : mst_file_data;
915                   }
916                 else if (sec == SECT_OFF_BSS (objfile))
917                   {
918                     ms_type =
919                       cs->c_sclass == C_EXT || cs->c_sclass == C_THUMBEXT ?
920                       mst_data : mst_file_data;
921                   }
922                 else
923                   ms_type = mst_unknown;
924               }
925
926             if (cs->c_name[0] != '@' /* Skip tdesc symbols */ )
927               {
928                 struct minimal_symbol *msym;
929                 msym = prim_record_minimal_symbol_and_info
930                   (cs->c_name, tmpaddr, ms_type, NULL,
931                    sec, NULL, objfile);
932                 if (msym)
933                   COFF_MAKE_MSYMBOL_SPECIAL (cs->c_sclass, msym);
934               }
935             if (SDB_TYPE (cs->c_type))
936               {
937                 struct symbol *sym;
938                 sym = process_coff_symbol
939                   (cs, &main_aux, objfile);
940                 SYMBOL_VALUE (sym) = tmpaddr;
941                 SYMBOL_SECTION (sym) = sec;
942               }
943           }
944           break;
945
946         case C_FCN:
947           if (STREQ (cs->c_name, ".bf"))
948             {
949               within_function = 1;
950
951               /* value contains address of first non-init type code */
952               /* main_aux.x_sym.x_misc.x_lnsz.x_lnno
953                  contains line number of '{' } */
954               if (cs->c_naux != 1)
955                 complaint (&symfile_complaints,
956                            "`.bf' symbol %d has no aux entry", cs->c_symnum);
957               fcn_first_line = main_aux.x_sym.x_misc.x_lnsz.x_lnno;
958               fcn_first_line_addr = cs->c_value;
959
960               /* Might want to check that locals are 0 and
961                  context_stack_depth is zero, and complain if not.  */
962
963               depth = 0;
964               new = push_context (depth, fcn_start_addr);
965               fcn_cs_saved.c_name = getsymname (&fcn_sym_saved);
966               new->name =
967                 process_coff_symbol (&fcn_cs_saved, &fcn_aux_saved, objfile);
968             }
969           else if (STREQ (cs->c_name, ".ef"))
970             {
971               if (!within_function)
972                 error ("Bad coff function information\n");
973               /* the value of .ef is the address of epilogue code;
974                  not useful for gdb.  */
975               /* { main_aux.x_sym.x_misc.x_lnsz.x_lnno
976                  contains number of lines to '}' */
977
978               if (context_stack_depth <= 0)
979                 {               /* We attempted to pop an empty context stack */
980                   complaint (&symfile_complaints,
981                              "`.ef' symbol without matching `.bf' symbol ignored starting at symnum %d",
982                              cs->c_symnum);
983                   within_function = 0;
984                   break;
985                 }
986
987               new = pop_context ();
988               /* Stack must be empty now.  */
989               if (context_stack_depth > 0 || new == NULL)
990                 {
991                   complaint (&symfile_complaints,
992                              "Unmatched .ef symbol(s) ignored starting at symnum %d",
993                              cs->c_symnum);
994                   within_function = 0;
995                   break;
996                 }
997               if (cs->c_naux != 1)
998                 {
999                   complaint (&symfile_complaints,
1000                              "`.ef' symbol %d has no aux entry", cs->c_symnum);
1001                   fcn_last_line = 0x7FFFFFFF;
1002                 }
1003               else
1004                 {
1005                   fcn_last_line = main_aux.x_sym.x_misc.x_lnsz.x_lnno;
1006                 }
1007               /* fcn_first_line is the line number of the opening '{'.
1008                  Do not record it - because it would affect gdb's idea
1009                  of the line number of the first statement of the function -
1010                  except for one-line functions, for which it is also the line
1011                  number of all the statements and of the closing '}', and
1012                  for which we do not have any other statement-line-number. */
1013               if (fcn_last_line == 1)
1014                 record_line (current_subfile, fcn_first_line,
1015                              fcn_first_line_addr);
1016               else
1017                 enter_linenos (fcn_line_ptr, fcn_first_line, fcn_last_line,
1018                                objfile);
1019
1020               finish_block (new->name, &local_symbols, new->old_blocks,
1021                             new->start_addr,
1022 #if defined (FUNCTION_EPILOGUE_SIZE)
1023               /* This macro should be defined only on
1024                  machines where the
1025                  fcn_aux_saved.x_sym.x_misc.x_fsize
1026                  field is always zero.
1027                  So use the .bf record information that
1028                  points to the epilogue and add the size
1029                  of the epilogue.  */
1030                             cs->c_value
1031                             + FUNCTION_EPILOGUE_SIZE
1032                             + ANOFFSET (objfile->section_offsets, SECT_OFF_TEXT (objfile)),
1033 #else
1034                             fcn_cs_saved.c_value
1035                             + fcn_aux_saved.x_sym.x_misc.x_fsize
1036                             + ANOFFSET (objfile->section_offsets, SECT_OFF_TEXT (objfile)),
1037 #endif
1038                             objfile
1039                 );
1040               within_function = 0;
1041             }
1042           break;
1043
1044         case C_BLOCK:
1045           if (STREQ (cs->c_name, ".bb"))
1046             {
1047               tmpaddr = cs->c_value;
1048               tmpaddr += ANOFFSET (objfile->section_offsets, SECT_OFF_TEXT (objfile));
1049               push_context (++depth, tmpaddr);
1050             }
1051           else if (STREQ (cs->c_name, ".eb"))
1052             {
1053               if (context_stack_depth <= 0)
1054                 {               /* We attempted to pop an empty context stack */
1055                   complaint (&symfile_complaints,
1056                              "`.eb' symbol without matching `.bb' symbol ignored starting at symnum %d",
1057                              cs->c_symnum);
1058                   break;
1059                 }
1060
1061               new = pop_context ();
1062               if (depth-- != new->depth)
1063                 {
1064                   complaint (&symfile_complaints,
1065                              "Mismatched .eb symbol ignored starting at symnum %d",
1066                              symnum);
1067                   break;
1068                 }
1069               if (local_symbols && context_stack_depth > 0)
1070                 {
1071                   tmpaddr =
1072                     cs->c_value + ANOFFSET (objfile->section_offsets, SECT_OFF_TEXT (objfile));
1073                   /* Make a block for the local symbols within.  */
1074                   finish_block (0, &local_symbols, new->old_blocks,
1075                                 new->start_addr, tmpaddr, objfile);
1076                 }
1077               /* Now pop locals of block just finished.  */
1078               local_symbols = new->locals;
1079             }
1080           break;
1081
1082         default:
1083           process_coff_symbol (cs, &main_aux, objfile);
1084           break;
1085         }
1086     }
1087
1088   if ((nsyms == 0) && (pe_file))
1089     {
1090       /* We've got no debugging symbols, but it's is a portable
1091          executable, so try to read the export table */
1092       read_pe_exported_syms (objfile);
1093     }
1094
1095   if (last_source_file)
1096     coff_end_symtab (objfile);
1097
1098   /* Patch up any opaque types (references to types that are not defined
1099      in the file where they are referenced, e.g. "struct foo *bar").  */
1100   ALL_OBJFILE_SYMTABS (objfile, s)
1101     patch_opaque_types (s);
1102
1103   current_objfile = NULL;
1104 }
1105 \f
1106 /* Routines for reading headers and symbols from executable.  */
1107
1108 /* Read the next symbol, swap it, and return it in both internal_syment
1109    form, and coff_symbol form.  Also return its first auxent, if any,
1110    in internal_auxent form, and skip any other auxents.  */
1111
1112 static void
1113 read_one_sym (struct coff_symbol *cs,
1114               struct internal_syment *sym,
1115               union internal_auxent *aux)
1116 {
1117   int i;
1118
1119   cs->c_symnum = symnum;
1120   bfd_bread (temp_sym, local_symesz, nlist_bfd_global);
1121   bfd_coff_swap_sym_in (symfile_bfd, temp_sym, (char *) sym);
1122   cs->c_naux = sym->n_numaux & 0xff;
1123   if (cs->c_naux >= 1)
1124     {
1125       bfd_bread (temp_aux, local_auxesz, nlist_bfd_global);
1126       bfd_coff_swap_aux_in (symfile_bfd, temp_aux, sym->n_type, sym->n_sclass,
1127                             0, cs->c_naux, (char *) aux);
1128       /* If more than one aux entry, read past it (only the first aux
1129          is important). */
1130       for (i = 1; i < cs->c_naux; i++)
1131         bfd_bread (temp_aux, local_auxesz, nlist_bfd_global);
1132     }
1133   cs->c_name = getsymname (sym);
1134   cs->c_value = sym->n_value;
1135   cs->c_sclass = (sym->n_sclass & 0xff);
1136   cs->c_secnum = sym->n_scnum;
1137   cs->c_type = (unsigned) sym->n_type;
1138   if (!SDB_TYPE (cs->c_type))
1139     cs->c_type = 0;
1140
1141 #if 0
1142   if (cs->c_sclass & 128)
1143     printf ("thumb symbol %s, class 0x%x\n", cs->c_name, cs->c_sclass);
1144 #endif
1145
1146   symnum += 1 + cs->c_naux;
1147
1148   /* The PE file format stores symbol values as offsets within the
1149      section, rather than as absolute addresses.  We correct that
1150      here, if the symbol has an appropriate storage class.  FIXME: We
1151      should use BFD to read the symbols, rather than duplicating the
1152      work here.  */
1153   if (pe_file)
1154     {
1155       switch (cs->c_sclass)
1156         {
1157         case C_EXT:
1158         case C_THUMBEXT:
1159         case C_THUMBEXTFUNC:
1160         case C_SECTION:
1161         case C_NT_WEAK:
1162         case C_STAT:
1163         case C_THUMBSTAT:
1164         case C_THUMBSTATFUNC:
1165         case C_LABEL:
1166         case C_THUMBLABEL:
1167         case C_BLOCK:
1168         case C_FCN:
1169         case C_EFCN:
1170           if (cs->c_secnum != 0)
1171             cs->c_value += cs_section_address (cs, symfile_bfd);
1172           break;
1173         }
1174     }
1175 }
1176 \f
1177 /* Support for string table handling */
1178
1179 static char *stringtab = NULL;
1180
1181 static int
1182 init_stringtab (bfd *abfd, long offset)
1183 {
1184   long length;
1185   int val;
1186   unsigned char lengthbuf[4];
1187
1188   free_stringtab ();
1189
1190   /* If the file is stripped, the offset might be zero, indicating no
1191      string table.  Just return with `stringtab' set to null. */
1192   if (offset == 0)
1193     return 0;
1194
1195   if (bfd_seek (abfd, offset, 0) < 0)
1196     return -1;
1197
1198   val = bfd_bread ((char *) lengthbuf, sizeof lengthbuf, abfd);
1199   length = bfd_h_get_32 (symfile_bfd, lengthbuf);
1200
1201   /* If no string table is needed, then the file may end immediately
1202      after the symbols.  Just return with `stringtab' set to null. */
1203   if (val != sizeof lengthbuf || length < sizeof lengthbuf)
1204     return 0;
1205
1206   stringtab = (char *) xmalloc (length);
1207   /* This is in target format (probably not very useful, and not currently
1208      used), not host format.  */
1209   memcpy (stringtab, lengthbuf, sizeof lengthbuf);
1210   if (length == sizeof length)  /* Empty table -- just the count */
1211     return 0;
1212
1213   val = bfd_bread (stringtab + sizeof lengthbuf, length - sizeof lengthbuf,
1214                    abfd);
1215   if (val != length - sizeof lengthbuf || stringtab[length - 1] != '\0')
1216     return -1;
1217
1218   return 0;
1219 }
1220
1221 static void
1222 free_stringtab (void)
1223 {
1224   if (stringtab)
1225     xfree (stringtab);
1226   stringtab = NULL;
1227 }
1228
1229 static void
1230 free_stringtab_cleanup (void *ignore)
1231 {
1232   free_stringtab ();
1233 }
1234
1235 static char *
1236 getsymname (struct internal_syment *symbol_entry)
1237 {
1238   static char buffer[SYMNMLEN + 1];
1239   char *result;
1240
1241   if (symbol_entry->_n._n_n._n_zeroes == 0)
1242     {
1243       /* FIXME: Probably should be detecting corrupt symbol files by
1244          seeing whether offset points to within the stringtab.  */
1245       result = stringtab + symbol_entry->_n._n_n._n_offset;
1246     }
1247   else
1248     {
1249       strncpy (buffer, symbol_entry->_n._n_name, SYMNMLEN);
1250       buffer[SYMNMLEN] = '\0';
1251       result = buffer;
1252     }
1253   return result;
1254 }
1255
1256 /* Extract the file name from the aux entry of a C_FILE symbol.  Return
1257    only the last component of the name.  Result is in static storage and
1258    is only good for temporary use.  */
1259
1260 static char *
1261 coff_getfilename (union internal_auxent *aux_entry)
1262 {
1263   static char buffer[BUFSIZ];
1264   char *temp;
1265   char *result;
1266
1267   if (aux_entry->x_file.x_n.x_zeroes == 0)
1268     strcpy (buffer, stringtab + aux_entry->x_file.x_n.x_offset);
1269   else
1270     {
1271       strncpy (buffer, aux_entry->x_file.x_fname, FILNMLEN);
1272       buffer[FILNMLEN] = '\0';
1273     }
1274   result = buffer;
1275
1276   /* FIXME: We should not be throwing away the information about what
1277      directory.  It should go into dirname of the symtab, or some such
1278      place.  */
1279   if ((temp = strrchr (result, '/')) != NULL)
1280     result = temp + 1;
1281   return (result);
1282 }
1283 \f
1284 /* Support for line number handling.  */
1285
1286 static char *linetab = NULL;
1287 static long linetab_offset;
1288 static unsigned long linetab_size;
1289
1290 /* Read in all the line numbers for fast lookups later.  Leave them in
1291    external (unswapped) format in memory; we'll swap them as we enter
1292    them into GDB's data structures.  */
1293
1294 static int
1295 init_lineno (bfd *abfd, long offset, int size)
1296 {
1297   int val;
1298
1299   linetab_offset = offset;
1300   linetab_size = size;
1301
1302   free_linetab ();
1303
1304   if (size == 0)
1305     return 0;
1306
1307   if (bfd_seek (abfd, offset, 0) < 0)
1308     return -1;
1309
1310   /* Allocate the desired table, plus a sentinel */
1311   linetab = (char *) xmalloc (size + local_linesz);
1312
1313   val = bfd_bread (linetab, size, abfd);
1314   if (val != size)
1315     return -1;
1316
1317   /* Terminate it with an all-zero sentinel record */
1318   memset (linetab + size, 0, local_linesz);
1319
1320   return 0;
1321 }
1322
1323 static void
1324 free_linetab (void)
1325 {
1326   if (linetab)
1327     xfree (linetab);
1328   linetab = NULL;
1329 }
1330
1331 static void
1332 free_linetab_cleanup (void *ignore)
1333 {
1334   free_linetab ();
1335 }
1336
1337 #if !defined (L_LNNO32)
1338 #define L_LNNO32(lp) ((lp)->l_lnno)
1339 #endif
1340
1341 static void
1342 enter_linenos (long file_offset, int first_line,
1343                int last_line, struct objfile *objfile)
1344 {
1345   char *rawptr;
1346   struct internal_lineno lptr;
1347
1348   if (!linetab)
1349     return;
1350   if (file_offset < linetab_offset)
1351     {
1352       complaint (&symfile_complaints,
1353                  "Line number pointer %ld lower than start of line numbers",
1354                  file_offset);
1355       if (file_offset > linetab_size)   /* Too big to be an offset? */
1356         return;
1357       file_offset += linetab_offset;    /* Try reading at that linetab offset */
1358     }
1359
1360   rawptr = &linetab[file_offset - linetab_offset];
1361
1362   /* skip first line entry for each function */
1363   rawptr += local_linesz;
1364   /* line numbers start at one for the first line of the function */
1365   first_line--;
1366
1367   for (;;)
1368     {
1369       bfd_coff_swap_lineno_in (symfile_bfd, rawptr, &lptr);
1370       rawptr += local_linesz;
1371       /* The next function, or the sentinel, will have L_LNNO32 zero; we exit. */
1372       if (L_LNNO32 (&lptr) && L_LNNO32 (&lptr) <= last_line)
1373         record_line (current_subfile, first_line + L_LNNO32 (&lptr),
1374                      lptr.l_addr.l_paddr
1375                      + ANOFFSET (objfile->section_offsets, SECT_OFF_TEXT (objfile)));
1376       else
1377         break;
1378     }
1379 }
1380 \f
1381 static void
1382 patch_type (struct type *type, struct type *real_type)
1383 {
1384   struct type *target = TYPE_TARGET_TYPE (type);
1385   struct type *real_target = TYPE_TARGET_TYPE (real_type);
1386   int field_size = TYPE_NFIELDS (real_target) * sizeof (struct field);
1387
1388   TYPE_LENGTH (target) = TYPE_LENGTH (real_target);
1389   TYPE_NFIELDS (target) = TYPE_NFIELDS (real_target);
1390   TYPE_FIELDS (target) = (struct field *) TYPE_ALLOC (target, field_size);
1391
1392   memcpy (TYPE_FIELDS (target), TYPE_FIELDS (real_target), field_size);
1393
1394   if (TYPE_NAME (real_target))
1395     {
1396       if (TYPE_NAME (target))
1397         xfree (TYPE_NAME (target));
1398       TYPE_NAME (target) = concat (TYPE_NAME (real_target), NULL);
1399     }
1400 }
1401
1402 /* Patch up all appropriate typedef symbols in the opaque_type_chains
1403    so that they can be used to print out opaque data structures properly.  */
1404
1405 static void
1406 patch_opaque_types (struct symtab *s)
1407 {
1408   struct block *b;
1409   struct dict_iterator iter;
1410   struct symbol *real_sym;
1411
1412   /* Go through the per-file symbols only */
1413   b = BLOCKVECTOR_BLOCK (BLOCKVECTOR (s), STATIC_BLOCK);
1414   ALL_BLOCK_SYMBOLS (b, iter, real_sym)
1415     {
1416       /* Find completed typedefs to use to fix opaque ones.
1417          Remove syms from the chain when their types are stored,
1418          but search the whole chain, as there may be several syms
1419          from different files with the same name.  */
1420       if (SYMBOL_CLASS (real_sym) == LOC_TYPEDEF &&
1421           SYMBOL_DOMAIN (real_sym) == VAR_DOMAIN &&
1422           TYPE_CODE (SYMBOL_TYPE (real_sym)) == TYPE_CODE_PTR &&
1423           TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (real_sym))) != 0)
1424         {
1425           char *name = DEPRECATED_SYMBOL_NAME (real_sym);
1426           int hash = hashname (name);
1427           struct symbol *sym, *prev;
1428
1429           prev = 0;
1430           for (sym = opaque_type_chain[hash]; sym;)
1431             {
1432               if (name[0] == DEPRECATED_SYMBOL_NAME (sym)[0] &&
1433                   strcmp (name + 1, DEPRECATED_SYMBOL_NAME (sym) + 1) == 0)
1434                 {
1435                   if (prev)
1436                     {
1437                       SYMBOL_VALUE_CHAIN (prev) = SYMBOL_VALUE_CHAIN (sym);
1438                     }
1439                   else
1440                     {
1441                       opaque_type_chain[hash] = SYMBOL_VALUE_CHAIN (sym);
1442                     }
1443
1444                   patch_type (SYMBOL_TYPE (sym), SYMBOL_TYPE (real_sym));
1445
1446                   if (prev)
1447                     {
1448                       sym = SYMBOL_VALUE_CHAIN (prev);
1449                     }
1450                   else
1451                     {
1452                       sym = opaque_type_chain[hash];
1453                     }
1454                 }
1455               else
1456                 {
1457                   prev = sym;
1458                   sym = SYMBOL_VALUE_CHAIN (sym);
1459                 }
1460             }
1461         }
1462     }
1463 }
1464 \f
1465 static struct symbol *
1466 process_coff_symbol (struct coff_symbol *cs,
1467                      union internal_auxent *aux,
1468                      struct objfile *objfile)
1469 {
1470   struct symbol *sym
1471   = (struct symbol *) obstack_alloc (&objfile->symbol_obstack,
1472                                      sizeof (struct symbol));
1473   char *name;
1474
1475   memset (sym, 0, sizeof (struct symbol));
1476   name = cs->c_name;
1477   name = EXTERNAL_NAME (name, objfile->obfd);
1478   SYMBOL_LANGUAGE (sym) = language_auto;
1479   SYMBOL_SET_NAMES (sym, name, strlen (name), objfile);
1480
1481   /* default assumptions */
1482   SYMBOL_VALUE (sym) = cs->c_value;
1483   SYMBOL_DOMAIN (sym) = VAR_DOMAIN;
1484   SYMBOL_SECTION (sym) = cs_to_section (cs, objfile);
1485
1486   if (ISFCN (cs->c_type))
1487     {
1488       SYMBOL_VALUE (sym) += ANOFFSET (objfile->section_offsets, SECT_OFF_TEXT (objfile));
1489       SYMBOL_TYPE (sym) =
1490         lookup_function_type (decode_function_type (cs, cs->c_type, aux));
1491
1492       SYMBOL_CLASS (sym) = LOC_BLOCK;
1493       if (cs->c_sclass == C_STAT || cs->c_sclass == C_THUMBSTAT
1494           || cs->c_sclass == C_THUMBSTATFUNC)
1495         add_symbol_to_list (sym, &file_symbols);
1496       else if (cs->c_sclass == C_EXT || cs->c_sclass == C_THUMBEXT
1497                || cs->c_sclass == C_THUMBEXTFUNC)
1498         add_symbol_to_list (sym, &global_symbols);
1499     }
1500   else
1501     {
1502       SYMBOL_TYPE (sym) = decode_type (cs, cs->c_type, aux);
1503       switch (cs->c_sclass)
1504         {
1505         case C_NULL:
1506           break;
1507
1508         case C_AUTO:
1509           SYMBOL_CLASS (sym) = LOC_LOCAL;
1510           add_symbol_to_list (sym, &local_symbols);
1511           break;
1512
1513         case C_THUMBEXT:
1514         case C_THUMBEXTFUNC:
1515         case C_EXT:
1516           SYMBOL_CLASS (sym) = LOC_STATIC;
1517           SYMBOL_VALUE_ADDRESS (sym) = (CORE_ADDR) cs->c_value;
1518           SYMBOL_VALUE_ADDRESS (sym) += ANOFFSET (objfile->section_offsets, SECT_OFF_TEXT (objfile));
1519           add_symbol_to_list (sym, &global_symbols);
1520           break;
1521
1522         case C_THUMBSTAT:
1523         case C_THUMBSTATFUNC:
1524         case C_STAT:
1525           SYMBOL_CLASS (sym) = LOC_STATIC;
1526           SYMBOL_VALUE_ADDRESS (sym) = (CORE_ADDR) cs->c_value;
1527           SYMBOL_VALUE_ADDRESS (sym) += ANOFFSET (objfile->section_offsets, SECT_OFF_TEXT (objfile));
1528           if (within_function)
1529             {
1530               /* Static symbol of local scope */
1531               add_symbol_to_list (sym, &local_symbols);
1532             }
1533           else
1534             {
1535               /* Static symbol at top level of file */
1536               add_symbol_to_list (sym, &file_symbols);
1537             }
1538           break;
1539
1540 #ifdef C_GLBLREG                /* AMD coff */
1541         case C_GLBLREG:
1542 #endif
1543         case C_REG:
1544           SYMBOL_CLASS (sym) = LOC_REGISTER;
1545           SYMBOL_VALUE (sym) = SDB_REG_TO_REGNUM (cs->c_value);
1546           add_symbol_to_list (sym, &local_symbols);
1547           break;
1548
1549         case C_THUMBLABEL:
1550         case C_LABEL:
1551           break;
1552
1553         case C_ARG:
1554           SYMBOL_CLASS (sym) = LOC_ARG;
1555           add_symbol_to_list (sym, &local_symbols);
1556 #if !defined (BELIEVE_PCC_PROMOTION)
1557           if (TARGET_BYTE_ORDER == BFD_ENDIAN_BIG)
1558             {
1559               /* If PCC says a parameter is a short or a char,
1560                  aligned on an int boundary, realign it to the
1561                  "little end" of the int.  */
1562               struct type *temptype;
1563               temptype = lookup_fundamental_type (current_objfile,
1564                                                   FT_INTEGER);
1565               if (TYPE_LENGTH (SYMBOL_TYPE (sym)) < TYPE_LENGTH (temptype)
1566                   && TYPE_CODE (SYMBOL_TYPE (sym)) == TYPE_CODE_INT
1567                   && 0 == SYMBOL_VALUE (sym) % TYPE_LENGTH (temptype))
1568                 {
1569                   SYMBOL_VALUE (sym) +=
1570                     TYPE_LENGTH (temptype)
1571                     - TYPE_LENGTH (SYMBOL_TYPE (sym));
1572                 }
1573             }
1574 #endif
1575           break;
1576
1577         case C_REGPARM:
1578           SYMBOL_CLASS (sym) = LOC_REGPARM;
1579           SYMBOL_VALUE (sym) = SDB_REG_TO_REGNUM (cs->c_value);
1580           add_symbol_to_list (sym, &local_symbols);
1581 #if !defined (BELIEVE_PCC_PROMOTION)
1582           /* FIXME:  This should retain the current type, since it's just
1583              a register value.  gnu@adobe, 26Feb93 */
1584           {
1585             /* If PCC says a parameter is a short or a char,
1586                it is really an int.  */
1587             struct type *temptype;
1588             temptype =
1589               lookup_fundamental_type (current_objfile, FT_INTEGER);
1590             if (TYPE_LENGTH (SYMBOL_TYPE (sym)) < TYPE_LENGTH (temptype)
1591                 && TYPE_CODE (SYMBOL_TYPE (sym)) == TYPE_CODE_INT)
1592               {
1593                 SYMBOL_TYPE (sym) =
1594                   (TYPE_UNSIGNED (SYMBOL_TYPE (sym))
1595                    ? lookup_fundamental_type (current_objfile,
1596                                               FT_UNSIGNED_INTEGER)
1597                    : temptype);
1598               }
1599           }
1600 #endif
1601           break;
1602
1603         case C_TPDEF:
1604           SYMBOL_CLASS (sym) = LOC_TYPEDEF;
1605           SYMBOL_DOMAIN (sym) = VAR_DOMAIN;
1606
1607           /* If type has no name, give it one */
1608           if (TYPE_NAME (SYMBOL_TYPE (sym)) == 0)
1609             {
1610               if (TYPE_CODE (SYMBOL_TYPE (sym)) == TYPE_CODE_PTR
1611                   || TYPE_CODE (SYMBOL_TYPE (sym)) == TYPE_CODE_FUNC)
1612                 {
1613                   /* If we are giving a name to a type such as "pointer to
1614                      foo" or "function returning foo", we better not set
1615                      the TYPE_NAME.  If the program contains "typedef char
1616                      *caddr_t;", we don't want all variables of type char
1617                      * to print as caddr_t.  This is not just a
1618                      consequence of GDB's type management; CC and GCC (at
1619                      least through version 2.4) both output variables of
1620                      either type char * or caddr_t with the type
1621                      refering to the C_TPDEF symbol for caddr_t.  If a future
1622                      compiler cleans this up it GDB is not ready for it
1623                      yet, but if it becomes ready we somehow need to
1624                      disable this check (without breaking the PCC/GCC2.4
1625                      case).
1626
1627                      Sigh.
1628
1629                      Fortunately, this check seems not to be necessary
1630                      for anything except pointers or functions.  */
1631                   ;
1632                 }
1633               else
1634                 TYPE_NAME (SYMBOL_TYPE (sym)) =
1635                   concat (DEPRECATED_SYMBOL_NAME (sym), NULL);
1636             }
1637
1638           /* Keep track of any type which points to empty structured type,
1639              so it can be filled from a definition from another file.  A
1640              simple forward reference (TYPE_CODE_UNDEF) is not an
1641              empty structured type, though; the forward references
1642              work themselves out via the magic of coff_lookup_type.  */
1643           if (TYPE_CODE (SYMBOL_TYPE (sym)) == TYPE_CODE_PTR &&
1644               TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym))) == 0 &&
1645               TYPE_CODE (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym))) !=
1646               TYPE_CODE_UNDEF)
1647             {
1648               int i = hashname (DEPRECATED_SYMBOL_NAME (sym));
1649
1650               SYMBOL_VALUE_CHAIN (sym) = opaque_type_chain[i];
1651               opaque_type_chain[i] = sym;
1652             }
1653           add_symbol_to_list (sym, &file_symbols);
1654           break;
1655
1656         case C_STRTAG:
1657         case C_UNTAG:
1658         case C_ENTAG:
1659           SYMBOL_CLASS (sym) = LOC_TYPEDEF;
1660           SYMBOL_DOMAIN (sym) = STRUCT_DOMAIN;
1661
1662           /* Some compilers try to be helpful by inventing "fake"
1663              names for anonymous enums, structures, and unions, like
1664              "~0fake" or ".0fake".  Thanks, but no thanks... */
1665           if (TYPE_TAG_NAME (SYMBOL_TYPE (sym)) == 0)
1666             if (DEPRECATED_SYMBOL_NAME (sym) != NULL
1667                 && *DEPRECATED_SYMBOL_NAME (sym) != '~'
1668                 && *DEPRECATED_SYMBOL_NAME (sym) != '.')
1669               TYPE_TAG_NAME (SYMBOL_TYPE (sym)) =
1670                 concat (DEPRECATED_SYMBOL_NAME (sym), NULL);
1671
1672           add_symbol_to_list (sym, &file_symbols);
1673           break;
1674
1675         default:
1676           break;
1677         }
1678     }
1679   return sym;
1680 }
1681 \f
1682 /* Decode a coff type specifier;  return the type that is meant.  */
1683
1684 static struct type *
1685 decode_type (struct coff_symbol *cs, unsigned int c_type,
1686              union internal_auxent *aux)
1687 {
1688   struct type *type = 0;
1689   unsigned int new_c_type;
1690
1691   if (c_type & ~N_BTMASK)
1692     {
1693       new_c_type = DECREF (c_type);
1694       if (ISPTR (c_type))
1695         {
1696           type = decode_type (cs, new_c_type, aux);
1697           type = lookup_pointer_type (type);
1698         }
1699       else if (ISFCN (c_type))
1700         {
1701           type = decode_type (cs, new_c_type, aux);
1702           type = lookup_function_type (type);
1703         }
1704       else if (ISARY (c_type))
1705         {
1706           int i, n;
1707           unsigned short *dim;
1708           struct type *base_type, *index_type, *range_type;
1709
1710           /* Define an array type.  */
1711           /* auxent refers to array, not base type */
1712           if (aux->x_sym.x_tagndx.l == 0)
1713             cs->c_naux = 0;
1714
1715           /* shift the indices down */
1716           dim = &aux->x_sym.x_fcnary.x_ary.x_dimen[0];
1717           i = 1;
1718           n = dim[0];
1719           for (i = 0; *dim && i < DIMNUM - 1; i++, dim++)
1720             *dim = *(dim + 1);
1721           *dim = 0;
1722
1723           base_type = decode_type (cs, new_c_type, aux);
1724           index_type = lookup_fundamental_type (current_objfile, FT_INTEGER);
1725           range_type =
1726             create_range_type ((struct type *) NULL, index_type, 0, n - 1);
1727           type =
1728             create_array_type ((struct type *) NULL, base_type, range_type);
1729         }
1730       return type;
1731     }
1732
1733   /* Reference to existing type.  This only occurs with the
1734      struct, union, and enum types.  EPI a29k coff
1735      fakes us out by producing aux entries with a nonzero
1736      x_tagndx for definitions of structs, unions, and enums, so we
1737      have to check the c_sclass field.  SCO 3.2v4 cc gets confused
1738      with pointers to pointers to defined structs, and generates
1739      negative x_tagndx fields.  */
1740   if (cs->c_naux > 0 && aux->x_sym.x_tagndx.l != 0)
1741     {
1742       if (cs->c_sclass != C_STRTAG
1743           && cs->c_sclass != C_UNTAG
1744           && cs->c_sclass != C_ENTAG
1745           && aux->x_sym.x_tagndx.l >= 0)
1746         {
1747           type = coff_alloc_type (aux->x_sym.x_tagndx.l);
1748           return type;
1749         }
1750       else
1751         {
1752           complaint (&symfile_complaints,
1753                      "Symbol table entry for %s has bad tagndx value",
1754                      cs->c_name);
1755           /* And fall through to decode_base_type... */
1756         }
1757     }
1758
1759   return decode_base_type (cs, BTYPE (c_type), aux);
1760 }
1761
1762 /* Decode a coff type specifier for function definition;
1763    return the type that the function returns.  */
1764
1765 static struct type *
1766 decode_function_type (struct coff_symbol *cs, unsigned int c_type,
1767                       union internal_auxent *aux)
1768 {
1769   if (aux->x_sym.x_tagndx.l == 0)
1770     cs->c_naux = 0;             /* auxent refers to function, not base type */
1771
1772   return decode_type (cs, DECREF (c_type), aux);
1773 }
1774 \f
1775 /* basic C types */
1776
1777 static struct type *
1778 decode_base_type (struct coff_symbol *cs, unsigned int c_type,
1779                   union internal_auxent *aux)
1780 {
1781   struct type *type;
1782
1783   switch (c_type)
1784     {
1785     case T_NULL:
1786       /* shows up with "void (*foo)();" structure members */
1787       return lookup_fundamental_type (current_objfile, FT_VOID);
1788
1789 #ifdef T_VOID
1790     case T_VOID:
1791       /* Intel 960 COFF has this symbol and meaning.  */
1792       return lookup_fundamental_type (current_objfile, FT_VOID);
1793 #endif
1794
1795     case T_CHAR:
1796       return lookup_fundamental_type (current_objfile, FT_CHAR);
1797
1798     case T_SHORT:
1799       return lookup_fundamental_type (current_objfile, FT_SHORT);
1800
1801     case T_INT:
1802       return lookup_fundamental_type (current_objfile, FT_INTEGER);
1803
1804     case T_LONG:
1805       if (cs->c_sclass == C_FIELD
1806           && aux->x_sym.x_misc.x_lnsz.x_size > TARGET_LONG_BIT)
1807         return lookup_fundamental_type (current_objfile, FT_LONG_LONG);
1808       else
1809         return lookup_fundamental_type (current_objfile, FT_LONG);
1810
1811     case T_FLOAT:
1812       return lookup_fundamental_type (current_objfile, FT_FLOAT);
1813
1814     case T_DOUBLE:
1815       return lookup_fundamental_type (current_objfile, FT_DBL_PREC_FLOAT);
1816
1817     case T_LNGDBL:
1818       return lookup_fundamental_type (current_objfile, FT_EXT_PREC_FLOAT);
1819
1820     case T_STRUCT:
1821       if (cs->c_naux != 1)
1822         {
1823           /* anonymous structure type */
1824           type = coff_alloc_type (cs->c_symnum);
1825           TYPE_CODE (type) = TYPE_CODE_STRUCT;
1826           TYPE_NAME (type) = NULL;
1827           /* This used to set the tag to "<opaque>".  But I think setting it
1828              to NULL is right, and the printing code can print it as
1829              "struct {...}".  */
1830           TYPE_TAG_NAME (type) = NULL;
1831           INIT_CPLUS_SPECIFIC (type);
1832           TYPE_LENGTH (type) = 0;
1833           TYPE_FIELDS (type) = 0;
1834           TYPE_NFIELDS (type) = 0;
1835         }
1836       else
1837         {
1838           type = coff_read_struct_type (cs->c_symnum,
1839                                         aux->x_sym.x_misc.x_lnsz.x_size,
1840                                       aux->x_sym.x_fcnary.x_fcn.x_endndx.l);
1841         }
1842       return type;
1843
1844     case T_UNION:
1845       if (cs->c_naux != 1)
1846         {
1847           /* anonymous union type */
1848           type = coff_alloc_type (cs->c_symnum);
1849           TYPE_NAME (type) = NULL;
1850           /* This used to set the tag to "<opaque>".  But I think setting it
1851              to NULL is right, and the printing code can print it as
1852              "union {...}".  */
1853           TYPE_TAG_NAME (type) = NULL;
1854           INIT_CPLUS_SPECIFIC (type);
1855           TYPE_LENGTH (type) = 0;
1856           TYPE_FIELDS (type) = 0;
1857           TYPE_NFIELDS (type) = 0;
1858         }
1859       else
1860         {
1861           type = coff_read_struct_type (cs->c_symnum,
1862                                         aux->x_sym.x_misc.x_lnsz.x_size,
1863                                       aux->x_sym.x_fcnary.x_fcn.x_endndx.l);
1864         }
1865       TYPE_CODE (type) = TYPE_CODE_UNION;
1866       return type;
1867
1868     case T_ENUM:
1869       if (cs->c_naux != 1)
1870         {
1871           /* anonymous enum type */
1872           type = coff_alloc_type (cs->c_symnum);
1873           TYPE_CODE (type) = TYPE_CODE_ENUM;
1874           TYPE_NAME (type) = NULL;
1875           /* This used to set the tag to "<opaque>".  But I think setting it
1876              to NULL is right, and the printing code can print it as
1877              "enum {...}".  */
1878           TYPE_TAG_NAME (type) = NULL;
1879           TYPE_LENGTH (type) = 0;
1880           TYPE_FIELDS (type) = 0;
1881           TYPE_NFIELDS (type) = 0;
1882         }
1883       else
1884         {
1885           type = coff_read_enum_type (cs->c_symnum,
1886                                       aux->x_sym.x_misc.x_lnsz.x_size,
1887                                       aux->x_sym.x_fcnary.x_fcn.x_endndx.l);
1888         }
1889       return type;
1890
1891     case T_MOE:
1892       /* shouldn't show up here */
1893       break;
1894
1895     case T_UCHAR:
1896       return lookup_fundamental_type (current_objfile, FT_UNSIGNED_CHAR);
1897
1898     case T_USHORT:
1899       return lookup_fundamental_type (current_objfile, FT_UNSIGNED_SHORT);
1900
1901     case T_UINT:
1902       return lookup_fundamental_type (current_objfile, FT_UNSIGNED_INTEGER);
1903
1904     case T_ULONG:
1905       if (cs->c_sclass == C_FIELD
1906           && aux->x_sym.x_misc.x_lnsz.x_size > TARGET_LONG_BIT)
1907         return lookup_fundamental_type (current_objfile, FT_UNSIGNED_LONG_LONG);
1908       else
1909         return lookup_fundamental_type (current_objfile, FT_UNSIGNED_LONG);
1910     }
1911   complaint (&symfile_complaints, "Unexpected type for symbol %s", cs->c_name);
1912   return lookup_fundamental_type (current_objfile, FT_VOID);
1913 }
1914 \f
1915 /* This page contains subroutines of read_type.  */
1916
1917 /* Read the description of a structure (or union type) and return an
1918    object describing the type.  */
1919
1920 static struct type *
1921 coff_read_struct_type (int index, int length, int lastsym)
1922 {
1923   struct nextfield
1924     {
1925       struct nextfield *next;
1926       struct field field;
1927     };
1928
1929   struct type *type;
1930   struct nextfield *list = 0;
1931   struct nextfield *new;
1932   int nfields = 0;
1933   int n;
1934   char *name;
1935   struct coff_symbol member_sym;
1936   struct coff_symbol *ms = &member_sym;
1937   struct internal_syment sub_sym;
1938   union internal_auxent sub_aux;
1939   int done = 0;
1940
1941   type = coff_alloc_type (index);
1942   TYPE_CODE (type) = TYPE_CODE_STRUCT;
1943   INIT_CPLUS_SPECIFIC (type);
1944   TYPE_LENGTH (type) = length;
1945
1946   while (!done && symnum < lastsym && symnum < nlist_nsyms_global)
1947     {
1948       read_one_sym (ms, &sub_sym, &sub_aux);
1949       name = ms->c_name;
1950       name = EXTERNAL_NAME (name, current_objfile->obfd);
1951
1952       switch (ms->c_sclass)
1953         {
1954         case C_MOS:
1955         case C_MOU:
1956
1957           /* Get space to record the next field's data.  */
1958           new = (struct nextfield *) alloca (sizeof (struct nextfield));
1959           new->next = list;
1960           list = new;
1961
1962           /* Save the data.  */
1963           list->field.name =
1964             obsavestring (name,
1965                           strlen (name),
1966                           &current_objfile->symbol_obstack);
1967           FIELD_TYPE (list->field) = decode_type (ms, ms->c_type, &sub_aux);
1968           FIELD_BITPOS (list->field) = 8 * ms->c_value;
1969           FIELD_BITSIZE (list->field) = 0;
1970           FIELD_STATIC_KIND (list->field) = 0;
1971           nfields++;
1972           break;
1973
1974         case C_FIELD:
1975
1976           /* Get space to record the next field's data.  */
1977           new = (struct nextfield *) alloca (sizeof (struct nextfield));
1978           new->next = list;
1979           list = new;
1980
1981           /* Save the data.  */
1982           list->field.name =
1983             obsavestring (name,
1984                           strlen (name),
1985                           &current_objfile->symbol_obstack);
1986           FIELD_TYPE (list->field) = decode_type (ms, ms->c_type, &sub_aux);
1987           FIELD_BITPOS (list->field) = ms->c_value;
1988           FIELD_BITSIZE (list->field) = sub_aux.x_sym.x_misc.x_lnsz.x_size;
1989           FIELD_STATIC_KIND (list->field) = 0;
1990           nfields++;
1991           break;
1992
1993         case C_EOS:
1994           done = 1;
1995           break;
1996         }
1997     }
1998   /* Now create the vector of fields, and record how big it is.  */
1999
2000   TYPE_NFIELDS (type) = nfields;
2001   TYPE_FIELDS (type) = (struct field *)
2002     TYPE_ALLOC (type, sizeof (struct field) * nfields);
2003
2004   /* Copy the saved-up fields into the field vector.  */
2005
2006   for (n = nfields; list; list = list->next)
2007     TYPE_FIELD (type, --n) = list->field;
2008
2009   return type;
2010 }
2011 \f
2012 /* Read a definition of an enumeration type,
2013    and create and return a suitable type object.
2014    Also defines the symbols that represent the values of the type.  */
2015
2016 static struct type *
2017 coff_read_enum_type (int index, int length, int lastsym)
2018 {
2019   struct symbol *sym;
2020   struct type *type;
2021   int nsyms = 0;
2022   int done = 0;
2023   struct pending **symlist;
2024   struct coff_symbol member_sym;
2025   struct coff_symbol *ms = &member_sym;
2026   struct internal_syment sub_sym;
2027   union internal_auxent sub_aux;
2028   struct pending *osyms, *syms;
2029   int o_nsyms;
2030   int n;
2031   char *name;
2032   int unsigned_enum = 1;
2033
2034   type = coff_alloc_type (index);
2035   if (within_function)
2036     symlist = &local_symbols;
2037   else
2038     symlist = &file_symbols;
2039   osyms = *symlist;
2040   o_nsyms = osyms ? osyms->nsyms : 0;
2041
2042   while (!done && symnum < lastsym && symnum < nlist_nsyms_global)
2043     {
2044       read_one_sym (ms, &sub_sym, &sub_aux);
2045       name = ms->c_name;
2046       name = EXTERNAL_NAME (name, current_objfile->obfd);
2047
2048       switch (ms->c_sclass)
2049         {
2050         case C_MOE:
2051           sym = (struct symbol *) obstack_alloc
2052             (&current_objfile->symbol_obstack,
2053              sizeof (struct symbol));
2054           memset (sym, 0, sizeof (struct symbol));
2055
2056           DEPRECATED_SYMBOL_NAME (sym) =
2057             obsavestring (name, strlen (name),
2058                           &current_objfile->symbol_obstack);
2059           SYMBOL_CLASS (sym) = LOC_CONST;
2060           SYMBOL_DOMAIN (sym) = VAR_DOMAIN;
2061           SYMBOL_VALUE (sym) = ms->c_value;
2062           add_symbol_to_list (sym, symlist);
2063           nsyms++;
2064           break;
2065
2066         case C_EOS:
2067           /* Sometimes the linker (on 386/ix 2.0.2 at least) screws
2068              up the count of how many symbols to read.  So stop
2069              on .eos.  */
2070           done = 1;
2071           break;
2072         }
2073     }
2074
2075   /* Now fill in the fields of the type-structure.  */
2076
2077   if (length > 0)
2078     TYPE_LENGTH (type) = length;
2079   else
2080     TYPE_LENGTH (type) = TARGET_INT_BIT / TARGET_CHAR_BIT;      /* Assume ints */
2081   TYPE_CODE (type) = TYPE_CODE_ENUM;
2082   TYPE_NFIELDS (type) = nsyms;
2083   TYPE_FIELDS (type) = (struct field *)
2084     TYPE_ALLOC (type, sizeof (struct field) * nsyms);
2085
2086   /* Find the symbols for the values and put them into the type.
2087      The symbols can be found in the symlist that we put them on
2088      to cause them to be defined.  osyms contains the old value
2089      of that symlist; everything up to there was defined by us.  */
2090   /* Note that we preserve the order of the enum constants, so
2091      that in something like "enum {FOO, LAST_THING=FOO}" we print
2092      FOO, not LAST_THING.  */
2093
2094   for (syms = *symlist, n = 0; syms; syms = syms->next)
2095     {
2096       int j = 0;
2097
2098       if (syms == osyms)
2099         j = o_nsyms;
2100       for (; j < syms->nsyms; j++, n++)
2101         {
2102           struct symbol *xsym = syms->symbol[j];
2103           SYMBOL_TYPE (xsym) = type;
2104           TYPE_FIELD_NAME (type, n) = DEPRECATED_SYMBOL_NAME (xsym);
2105           TYPE_FIELD_BITPOS (type, n) = SYMBOL_VALUE (xsym);
2106           if (SYMBOL_VALUE (xsym) < 0)
2107             unsigned_enum = 0;
2108           TYPE_FIELD_BITSIZE (type, n) = 0;
2109           TYPE_FIELD_STATIC_KIND (type, n) = 0;
2110         }
2111       if (syms == osyms)
2112         break;
2113     }
2114
2115   if (unsigned_enum)
2116     TYPE_FLAGS (type) |= TYPE_FLAG_UNSIGNED;
2117
2118   return type;
2119 }
2120
2121 /* Register our ability to parse symbols for coff BFD files. */
2122
2123 static struct sym_fns coff_sym_fns =
2124 {
2125   bfd_target_coff_flavour,
2126   coff_new_init,                /* sym_new_init: init anything gbl to entire symtab */
2127   coff_symfile_init,            /* sym_init: read initial info, setup for sym_read() */
2128   coff_symfile_read,            /* sym_read: read a symbol file into symtab */
2129   coff_symfile_finish,          /* sym_finish: finished with file, cleanup */
2130   default_symfile_offsets,      /* sym_offsets:  xlate external to internal form */
2131   NULL                          /* next: pointer to next struct sym_fns */
2132 };
2133
2134 void
2135 _initialize_coffread (void)
2136 {
2137   add_symtab_fns (&coff_sym_fns);
2138 }