gdb/mipsread.c

   1 /* Read a symbol table in MIPS' format (Third-Eye).
   2
   3    Copyright (C) 1986, 1987, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996,
   4    1998, 1999, 2000, 2001, 2003, 2004, 2007 Free Software Foundation, Inc.
   5
   6    Contributed by Alessandro Forin (af@cs.cmu.edu) at CMU.  Major work
   7    by Per Bothner, John Gilmore and Ian Lance Taylor at Cygnus Support.
   8
   9    This file is part of GDB.
  10
  11    This program is free software; you can redistribute it and/or modify
  12    it under the terms of the GNU General Public License as published by
  13    the Free Software Foundation; either version 2 of the License, or
  14    (at your option) any later version.
  15
  16    This program is distributed in the hope that it will be useful,
  17    but WITHOUT ANY WARRANTY; without even the implied warranty of
  18    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19    GNU General Public License for more details.
  20
  21    You should have received a copy of the GNU General Public License
  22    along with this program; if not, write to the Free Software
  23    Foundation, Inc., 51 Franklin Street, Fifth Floor,
  24    Boston, MA 02110-1301, USA.  */
  25
  26 /* Read symbols from an ECOFF file.  Most of the work is done in
  27    mdebugread.c.  */
  28
  29 #include "defs.h"
  30 #include "gdb_string.h"
  31 #include "bfd.h"
  32 #include "symtab.h"
  33 #include "objfiles.h"
  34 #include "buildsym.h"
  35 #include "stabsread.h"
  36
  37 #include "coff/sym.h"
  38 #include "coff/internal.h"
  39 #include "coff/ecoff.h"
  40 #include "libcoff.h"            /* Private BFD COFF information.  */
  41 #include "libecoff.h"           /* Private BFD ECOFF information.  */
  42 #include "elf/common.h"
  43 #include "elf/mips.h"
  44
  45 static void
  46 read_alphacoff_dynamic_symtab (struct section_offsets *,
  47                                struct objfile *objfile);
  48
  49 /* Initialize anything that needs initializing when a completely new
  50    symbol file is specified (not just adding some symbols from another
  51    file, e.g. a shared library).  */
  52
  53 static void
  54 mipscoff_new_init (struct objfile *ignore)
  55 {
  56   stabsread_new_init ();
  57   buildsym_new_init ();
  58 }
  59
  60 /* Initialize to read a symbol file (nothing to do).  */
  61
  62 static void
  63 mipscoff_symfile_init (struct objfile *objfile)
  64 {
  65 }
  66
  67 /* Read a symbol file from a file.  */
  68
  69 static void
  70 mipscoff_symfile_read (struct objfile *objfile, int mainline)
  71 {
  72   bfd *abfd = objfile->obfd;
  73   struct cleanup *back_to;
  74
  75   init_minimal_symbol_collection ();
  76   back_to = make_cleanup_discard_minimal_symbols ();
  77
  78   /* Now that the executable file is positioned at symbol table,
  79      process it and define symbols accordingly.  */
  80
  81   if (!((*ecoff_backend (abfd)->debug_swap.read_debug_info)
  82         (abfd, (asection *) NULL, &ecoff_data (abfd)->debug_info)))
  83     error (_("Error reading symbol table: %s"), bfd_errmsg (bfd_get_error ()));
  84
  85   mdebug_build_psymtabs (objfile, &ecoff_backend (abfd)->debug_swap,
  86                          &ecoff_data (abfd)->debug_info);
  87
  88   /* Add alpha coff dynamic symbols.  */
  89
  90   read_alphacoff_dynamic_symtab (objfile->section_offsets, objfile);
  91
  92   /* Install any minimal symbols that have been collected as the current
  93      minimal symbols for this objfile. */
  94
  95   install_minimal_symbols (objfile);
  96   do_cleanups (back_to);
  97 }
  98
  99 /* Perform any local cleanups required when we are done with a
 100    particular objfile.  */
 101
 102 static void
 103 mipscoff_symfile_finish (struct objfile *objfile)
 104 {
 105 }
 106
 107 /* Alpha OSF/1 encapsulates the dynamic symbols in ELF format in a
 108    standard COFF section.  The ELF format for the symbols differs from
 109    the format defined in elf/external.h.  It seems that a normal ELF
 110    32-bit format is used, and the representation only changes because
 111    longs are 64-bit on the alpha. In addition, the handling of
 112    text/data section indices for symbols is different from the ELF
 113    ABI.  As the BFD linker currently does not support dynamic linking
 114    on the alpha, there seems to be no reason to pollute BFD with
 115    another mixture of object file formats for now.  */
 116
 117 /* Format of an alpha external ELF symbol.  */
 118
 119 typedef struct
 120 {
 121   unsigned char st_name[4];     /* Symbol name, index in string table.  */
 122   unsigned char st_pad[4];      /* Pad to long word boundary.  */
 123   unsigned char st_value[8];    /* Value of the symbol.  */
 124   unsigned char st_size[4];     /* Associated symbol size.  */
 125   unsigned char st_info[1];     /* Type and binding attributes.  */
 126   unsigned char st_other[1];    /* No defined meaning, 0.  */
 127   unsigned char st_shndx[2];    /* Associated section index.  */
 128 } Elfalpha_External_Sym;
 129
 130 /* Format of an alpha external ELF dynamic info structure.  */
 131
 132 typedef struct
 133 {
 134   unsigned char d_tag[4];       /* Tag.  */
 135   unsigned char d_pad[4];       /* Pad to long word boundary.  */
 136   union
 137   {
 138     unsigned char d_ptr[8];     /* Pointer value.  */
 139     unsigned char d_val[4];     /* Integer value.  */
 140   }
 141   d_un;
 142 } Elfalpha_External_Dyn;
 143
 144 /* Struct to obtain the section pointers for alpha dynamic symbol info.  */
 145
 146 struct alphacoff_dynsecinfo
 147 {
 148   asection *sym_sect;           /* Section pointer for .dynsym section.  */
 149   asection *str_sect;           /* Section pointer for .dynstr section.  */
 150   asection *dyninfo_sect;       /* Section pointer for .dynamic section.  */
 151   asection *got_sect;           /* Section pointer for .got section.  */
 152 };
 153
 154 /* We are called once per section from read_alphacoff_dynamic_symtab.
 155    We need to examine each section we are passed, check to see if it
 156    is something we are interested in processing, and if so, stash away
 157    some access information for the section.  */
 158
 159 static void
 160 alphacoff_locate_sections (bfd *ignore_abfd, asection *sectp, void *sip)
 161 {
 162   struct alphacoff_dynsecinfo *si;
 163
 164   si = (struct alphacoff_dynsecinfo *) sip;
 165
 166   if (strcmp (sectp->name, ".dynsym") == 0)
 167     si->sym_sect = sectp;
 168   else if (strcmp (sectp->name, ".dynstr") == 0)
 169     si->str_sect = sectp;
 170   else if (strcmp (sectp->name, ".dynamic") == 0)
 171     si->dyninfo_sect = sectp;
 172   else if (strcmp (sectp->name, ".got") == 0)
 173       si->got_sect = sectp;
 174 }
 175
 176 /* Scan an alpha dynamic symbol table for symbols of interest and add
 177    them to the minimal symbol table.  */
 178
 179 static void
 180 read_alphacoff_dynamic_symtab (struct section_offsets *section_offsets,
 181                                struct objfile *objfile)
 182 {
 183   bfd *abfd = objfile->obfd;
 184   struct alphacoff_dynsecinfo si;
 185   char *sym_secptr;
 186   char *str_secptr;
 187   char *dyninfo_secptr;
 188   char *got_secptr;
 189   bfd_size_type sym_secsize;
 190   bfd_size_type str_secsize;
 191   bfd_size_type dyninfo_secsize;
 192   bfd_size_type got_secsize;
 193   int sym_count;
 194   int i;
 195   int stripped;
 196   Elfalpha_External_Sym *x_symp;
 197   char *dyninfo_p;
 198   char *dyninfo_end;
 199   int got_entry_size = 8;
 200   int dt_mips_local_gotno = -1;
 201   int dt_mips_gotsym = -1;
 202   struct cleanup *cleanups;
 203
 204   /* We currently only know how to handle alpha dynamic symbols.  */
 205   if (bfd_get_arch (abfd) != bfd_arch_alpha)
 206     return;
 207
 208   /* Locate the dynamic symbols sections and read them in.  */
 209   memset ((char *) &si, 0, sizeof (si));
 210   bfd_map_over_sections (abfd, alphacoff_locate_sections, (void *) & si);
 211   if (si.sym_sect == NULL || si.str_sect == NULL
 212       || si.dyninfo_sect == NULL || si.got_sect == NULL)
 213     return;
 214
 215   sym_secsize = bfd_get_section_size (si.sym_sect);
 216   str_secsize = bfd_get_section_size (si.str_sect);
 217   dyninfo_secsize = bfd_get_section_size (si.dyninfo_sect);
 218   got_secsize = bfd_get_section_size (si.got_sect);
 219   sym_secptr = xmalloc (sym_secsize);
 220   cleanups = make_cleanup (free, sym_secptr);
 221   str_secptr = xmalloc (str_secsize);
 222   make_cleanup (free, str_secptr);
 223   dyninfo_secptr = xmalloc (dyninfo_secsize);
 224   make_cleanup (free, dyninfo_secptr);
 225   got_secptr = xmalloc (got_secsize);
 226   make_cleanup (free, got_secptr);
 227
 228   if (!bfd_get_section_contents (abfd, si.sym_sect, sym_secptr,
 229                                  (file_ptr) 0, sym_secsize))
 230     return;
 231   if (!bfd_get_section_contents (abfd, si.str_sect, str_secptr,
 232                                  (file_ptr) 0, str_secsize))
 233     return;
 234   if (!bfd_get_section_contents (abfd, si.dyninfo_sect, dyninfo_secptr,
 235                                  (file_ptr) 0, dyninfo_secsize))
 236     return;
 237   if (!bfd_get_section_contents (abfd, si.got_sect, got_secptr,
 238                                  (file_ptr) 0, got_secsize))
 239     return;
 240
 241   /* Find the number of local GOT entries and the index for the the
 242      first dynamic symbol in the GOT.  */
 243   for (dyninfo_p = dyninfo_secptr, dyninfo_end = dyninfo_p + dyninfo_secsize;
 244        dyninfo_p < dyninfo_end;
 245        dyninfo_p += sizeof (Elfalpha_External_Dyn))
 246     {
 247       Elfalpha_External_Dyn *x_dynp = (Elfalpha_External_Dyn *) dyninfo_p;
 248       long dyn_tag;
 249
 250       dyn_tag = bfd_h_get_32 (abfd, (bfd_byte *) x_dynp->d_tag);
 251       if (dyn_tag == DT_NULL)
 252         break;
 253       else if (dyn_tag == DT_MIPS_LOCAL_GOTNO)
 254         {
 255           if (dt_mips_local_gotno < 0)
 256             dt_mips_local_gotno
 257               = bfd_h_get_32 (abfd, (bfd_byte *) x_dynp->d_un.d_val);
 258         }
 259       else if (dyn_tag == DT_MIPS_GOTSYM)
 260         {
 261           if (dt_mips_gotsym < 0)
 262             dt_mips_gotsym
 263               = bfd_h_get_32 (abfd, (bfd_byte *) x_dynp->d_un.d_val);
 264         }
 265     }
 266   if (dt_mips_local_gotno < 0 || dt_mips_gotsym < 0)
 267     return;
 268
 269   /* Scan all dynamic symbols and enter them into the minimal symbol
 270      table if appropriate.  */
 271   sym_count = sym_secsize / sizeof (Elfalpha_External_Sym);
 272   stripped = (bfd_get_symcount (abfd) == 0);
 273
 274   /* Skip first symbol, which is a null dummy.  */
 275   for (i = 1, x_symp = (Elfalpha_External_Sym *) sym_secptr + 1;
 276        i < sym_count;
 277        i++, x_symp++)
 278     {
 279       unsigned long strx;
 280       char *name;
 281       bfd_vma sym_value;
 282       unsigned char sym_info;
 283       unsigned int sym_shndx;
 284       int isglobal;
 285       enum minimal_symbol_type ms_type;
 286
 287       strx = bfd_h_get_32 (abfd, (bfd_byte *) x_symp->st_name);
 288       if (strx >= str_secsize)
 289         continue;
 290       name = str_secptr + strx;
 291       if (*name == '\0' || *name == '.')
 292         continue;
 293
 294       sym_value = bfd_h_get_64 (abfd, (bfd_byte *) x_symp->st_value);
 295       sym_info = bfd_h_get_8 (abfd, (bfd_byte *) x_symp->st_info);
 296       sym_shndx = bfd_h_get_16 (abfd, (bfd_byte *) x_symp->st_shndx);
 297       isglobal = (ELF_ST_BIND (sym_info) == STB_GLOBAL);
 298
 299       if (sym_shndx == SHN_UNDEF)
 300         {
 301           /* Handle undefined functions which are defined in a shared
 302              library.  */
 303           if (ELF_ST_TYPE (sym_info) != STT_FUNC
 304               || ELF_ST_BIND (sym_info) != STB_GLOBAL)
 305             continue;
 306
 307           ms_type = mst_solib_trampoline;
 308
 309           /* If sym_value is nonzero, it points to the shared library
 310              trampoline entry, which is what we are looking for.
 311
 312              If sym_value is zero, then we have to get the GOT entry
 313              for the symbol.
 314
 315              If the GOT entry is nonzero, it represents the quickstart
 316              address of the function and we use that as the symbol
 317              value.
 318
 319              If the GOT entry is zero, the function address has to be
 320              resolved by the runtime loader before the executable is
 321              started.  We are unable to find any meaningful address
 322              for these functions in the executable file, so we skip
 323              them.  */
 324           if (sym_value == 0)
 325             {
 326               int got_entry_offset =
 327                 (i - dt_mips_gotsym + dt_mips_local_gotno) * got_entry_size;
 328
 329               if (got_entry_offset < 0 || got_entry_offset >= got_secsize)
 330                 continue;
 331               sym_value =
 332                 bfd_h_get_64 (abfd,
 333                               (bfd_byte *) (got_secptr + got_entry_offset));
 334               if (sym_value == 0)
 335                 continue;
 336             }
 337         }
 338       else
 339         {
 340           /* Symbols defined in the executable itself. We only care
 341              about them if this is a stripped executable, otherwise
 342              they have been retrieved from the normal symbol table
 343              already.  */
 344           if (!stripped)
 345             continue;
 346
 347           if (sym_shndx == SHN_MIPS_TEXT)
 348             {
 349               if (isglobal)
 350                 ms_type = mst_text;
 351               else
 352                 ms_type = mst_file_text;
 353               sym_value += ANOFFSET (section_offsets, SECT_OFF_TEXT (objfile));
 354             }
 355           else if (sym_shndx == SHN_MIPS_DATA)
 356             {
 357               if (isglobal)
 358                 ms_type = mst_data;
 359               else
 360                 ms_type = mst_file_data;
 361               sym_value += ANOFFSET (section_offsets, SECT_OFF_DATA (objfile));
 362             }
 363           else if (sym_shndx == SHN_MIPS_ACOMMON)
 364             {
 365               if (isglobal)
 366                 ms_type = mst_bss;
 367               else
 368                 ms_type = mst_file_bss;
 369               sym_value += ANOFFSET (section_offsets, SECT_OFF_BSS (objfile));
 370             }
 371           else if (sym_shndx == SHN_ABS)
 372             {
 373               ms_type = mst_abs;
 374             }
 375           else
 376             {
 377               continue;
 378             }
 379         }
 380
 381       prim_record_minimal_symbol (name, sym_value, ms_type, objfile);
 382     }
 383
 384   do_cleanups (cleanups);
 385 }
 386
 387 /* Initialization.  */
 388
 389 static struct sym_fns ecoff_sym_fns =
 390 {
 391   bfd_target_ecoff_flavour,
 392   mipscoff_new_init,            /* sym_new_init: init anything gbl to entire symtab */
 393   mipscoff_symfile_init,        /* sym_init: read initial info, setup for sym_read() */
 394   mipscoff_symfile_read,        /* sym_read: read a symbol file into symtab */
 395   mipscoff_symfile_finish,      /* sym_finish: finished with file, cleanup */
 396   default_symfile_offsets,      /* sym_offsets: dummy FIXME til implem sym reloc */
 397   NULL                          /* next: pointer to next struct sym_fns */
 398 };
 399
 400 /* Provide a prototype to silence -Wmissing-prototypes.  */
 401 void _initialize_mipsread (void);
 402
 403 void
 404 _initialize_mipsread (void)
 405 {
 406   add_symtab_fns (&ecoff_sym_fns);
 407 }