contrib/gdb-7/bfd/elfcore.h

   1 /* ELF core file support for BFD.
   2    Copyright (C) 1995-2015 Free Software Foundation, Inc.
   3
   4    This file is part of BFD, the Binary File Descriptor library.
   5
   6    This program is free software; you can redistribute it and/or modify
   7    it under the terms of the GNU General Public License as published by
   8    the Free Software Foundation; either version 3 of the License, or
   9    (at your option) any later version.
  10
  11    This program is distributed in the hope that it will be useful,
  12    but WITHOUT ANY WARRANTY; without even the implied warranty of
  13    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14    GNU General Public License for more details.
  15
  16    You should have received a copy of the GNU General Public License
  17    along with this program; if not, write to the Free Software
  18    Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
  19    MA 02110-1301, USA.  */
  20
  21 char*
  22 elf_core_file_failing_command (bfd *abfd)
  23 {
  24   return elf_tdata (abfd)->core->command;
  25 }
  26
  27 int
  28 elf_core_file_failing_signal (bfd *abfd)
  29 {
  30   return elf_tdata (abfd)->core->signal;
  31 }
  32
  33 int
  34 elf_core_file_pid (bfd *abfd)
  35 {
  36   return elf_tdata (abfd)->core->pid;
  37 }
  38
  39 bfd_boolean
  40 elf_core_file_matches_executable_p (bfd *core_bfd, bfd *exec_bfd)
  41 {
  42   char* corename;
  43
  44   /* xvecs must match if both are ELF files for the same target.  */
  45
  46   if (core_bfd->xvec != exec_bfd->xvec)
  47     {
  48       bfd_set_error (bfd_error_system_call);
  49       return FALSE;
  50     }
  51
  52   /* See if the name in the corefile matches the executable name.  */
  53   corename = elf_tdata (core_bfd)->core->program;
  54   if (corename != NULL)
  55     {
  56       const char* execname = strrchr (exec_bfd->filename, '/');
  57
  58       execname = execname ? execname + 1 : exec_bfd->filename;
  59
  60       if (strcmp (execname, corename) != 0)
  61         return FALSE;
  62     }
  63
  64   return TRUE;
  65 }
  66
  67 /*  Core files are simply standard ELF formatted files that partition
  68     the file using the execution view of the file (program header table)
  69     rather than the linking view.  In fact, there is no section header
  70     table in a core file.
  71
  72     The process status information (including the contents of the general
  73     register set) and the floating point register set are stored in a
  74     segment of type PT_NOTE.  We handcraft a couple of extra bfd sections
  75     that allow standard bfd access to the general registers (.reg) and the
  76     floating point registers (.reg2).  */
  77
  78 const bfd_target *
  79 elf_core_file_p (bfd *abfd)
  80 {
  81   Elf_External_Ehdr x_ehdr;     /* Elf file header, external form.  */
  82   Elf_Internal_Ehdr *i_ehdrp;   /* Elf file header, internal form.  */
  83   Elf_Internal_Phdr *i_phdrp;   /* Elf program header, internal form.  */
  84   unsigned int phindex;
  85   const struct elf_backend_data *ebd;
  86   bfd_size_type amt;
  87
  88   /* Read in the ELF header in external format.  */
  89   if (bfd_bread (&x_ehdr, sizeof (x_ehdr), abfd) != sizeof (x_ehdr))
  90     {
  91       if (bfd_get_error () != bfd_error_system_call)
  92         goto wrong;
  93       else
  94         goto fail;
  95     }
  96
  97   /* Check the magic number.  */
  98   if (! elf_file_p (&x_ehdr))
  99     goto wrong;
 100
 101   /* FIXME: Check EI_VERSION here !  */
 102
 103   /* Check the address size ("class").  */
 104   if (x_ehdr.e_ident[EI_CLASS] != ELFCLASS)
 105     goto wrong;
 106
 107   /* Check the byteorder.  */
 108   switch (x_ehdr.e_ident[EI_DATA])
 109     {
 110     case ELFDATA2MSB:           /* Big-endian.  */
 111       if (! bfd_big_endian (abfd))
 112         goto wrong;
 113       break;
 114     case ELFDATA2LSB:           /* Little-endian.  */
 115       if (! bfd_little_endian (abfd))
 116         goto wrong;
 117       break;
 118     default:
 119       goto wrong;
 120     }
 121
 122   /* Give abfd an elf_obj_tdata.  */
 123   if (! (*abfd->xvec->_bfd_set_format[bfd_core]) (abfd))
 124     goto fail;
 125
 126   /* Swap in the rest of the header, now that we have the byte order.  */
 127   i_ehdrp = elf_elfheader (abfd);
 128   elf_swap_ehdr_in (abfd, &x_ehdr, i_ehdrp);
 129
 130 #if DEBUG & 1
 131   elf_debug_file (i_ehdrp);
 132 #endif
 133
 134   ebd = get_elf_backend_data (abfd);
 135
 136   /* Check that the ELF e_machine field matches what this particular
 137      BFD format expects.  */
 138
 139   if (ebd->elf_machine_code != i_ehdrp->e_machine
 140       && (ebd->elf_machine_alt1 == 0
 141           || i_ehdrp->e_machine != ebd->elf_machine_alt1)
 142       && (ebd->elf_machine_alt2 == 0
 143           || i_ehdrp->e_machine != ebd->elf_machine_alt2))
 144     {
 145       const bfd_target * const *target_ptr;
 146
 147       if (ebd->elf_machine_code != EM_NONE)
 148         goto wrong;
 149
 150       /* This is the generic ELF target.  Let it match any ELF target
 151          for which we do not have a specific backend.  */
 152
 153       for (target_ptr = bfd_target_vector; *target_ptr != NULL; target_ptr++)
 154         {
 155           const struct elf_backend_data *back;
 156
 157           if ((*target_ptr)->flavour != bfd_target_elf_flavour)
 158             continue;
 159           back = xvec_get_elf_backend_data (*target_ptr);
 160           if (back->s->arch_size != ARCH_SIZE)
 161             continue;
 162           if (back->elf_machine_code == i_ehdrp->e_machine
 163               || (back->elf_machine_alt1 != 0
 164                   && i_ehdrp->e_machine == back->elf_machine_alt1)
 165               || (back->elf_machine_alt2 != 0
 166                   && i_ehdrp->e_machine == back->elf_machine_alt2))
 167             {
 168               /* target_ptr is an ELF backend which matches this
 169                  object file, so reject the generic ELF target.  */
 170               goto wrong;
 171             }
 172         }
 173     }
 174
 175   /* If there is no program header, or the type is not a core file, then
 176      we are hosed.  */
 177   if (i_ehdrp->e_phoff == 0 || i_ehdrp->e_type != ET_CORE)
 178     goto wrong;
 179
 180   /* Does BFD's idea of the phdr size match the size
 181      recorded in the file? */
 182   if (i_ehdrp->e_phentsize != sizeof (Elf_External_Phdr))
 183     goto wrong;
 184
 185   /* If the program header count is PN_XNUM(0xffff), the actual
 186      count is in the first section header.  */
 187   if (i_ehdrp->e_shoff != 0 && i_ehdrp->e_phnum == PN_XNUM)
 188     {
 189       Elf_External_Shdr x_shdr;
 190       Elf_Internal_Shdr i_shdr;
 191       bfd_signed_vma where = i_ehdrp->e_shoff;
 192
 193       if (where != (file_ptr) where)
 194         goto wrong;
 195
 196       /* Seek to the section header table in the file.  */
 197       if (bfd_seek (abfd, (file_ptr) where, SEEK_SET) != 0)
 198         goto fail;
 199
 200       /* Read the first section header at index 0, and convert to internal
 201          form.  */
 202       if (bfd_bread (&x_shdr, sizeof (x_shdr), abfd) != sizeof (x_shdr))
 203         goto fail;
 204       elf_swap_shdr_in (abfd, &x_shdr, &i_shdr);
 205
 206       if (i_shdr.sh_info != 0)
 207         {
 208           i_ehdrp->e_phnum = i_shdr.sh_info;
 209           if (i_ehdrp->e_phnum != i_shdr.sh_info)
 210             goto wrong;
 211         }
 212     }
 213
 214   /* Sanity check that we can read all of the program headers.
 215      It ought to be good enough to just read the last one.  */
 216   if (i_ehdrp->e_phnum > 1)
 217     {
 218       Elf_External_Phdr x_phdr;
 219       Elf_Internal_Phdr i_phdr;
 220       bfd_signed_vma where;
 221
 222       /* Check that we don't have a totally silly number of
 223          program headers.  */
 224       if (i_ehdrp->e_phnum > (unsigned int) -1 / sizeof (x_phdr)
 225           || i_ehdrp->e_phnum > (unsigned int) -1 / sizeof (i_phdr))
 226         goto wrong;
 227
 228       where = i_ehdrp->e_phoff + (i_ehdrp->e_phnum - 1) * sizeof (x_phdr);
 229       if (where != (file_ptr) where)
 230         goto wrong;
 231       if ((bfd_size_type) where <= i_ehdrp->e_phoff)
 232         goto wrong;
 233
 234       if (bfd_seek (abfd, (file_ptr) where, SEEK_SET) != 0)
 235         goto fail;
 236       if (bfd_bread (&x_phdr, sizeof (x_phdr), abfd) != sizeof (x_phdr))
 237         goto fail;
 238     }
 239
 240   /* Move to the start of the program headers.  */
 241   if (bfd_seek (abfd, (file_ptr) i_ehdrp->e_phoff, SEEK_SET) != 0)
 242     goto wrong;
 243
 244   /* Allocate space for the program headers.  */
 245   amt = sizeof (*i_phdrp) * i_ehdrp->e_phnum;
 246   i_phdrp = (Elf_Internal_Phdr *) bfd_alloc (abfd, amt);
 247   if (!i_phdrp)
 248     goto fail;
 249
 250   elf_tdata (abfd)->phdr = i_phdrp;
 251
 252   /* Read and convert to internal form.  */
 253   for (phindex = 0; phindex < i_ehdrp->e_phnum; ++phindex)
 254     {
 255       Elf_External_Phdr x_phdr;
 256
 257       if (bfd_bread (&x_phdr, sizeof (x_phdr), abfd) != sizeof (x_phdr))
 258         goto fail;
 259
 260       elf_swap_phdr_in (abfd, &x_phdr, i_phdrp + phindex);
 261     }
 262
 263   /* Set the machine architecture.  Do this before processing the
 264      program headers since we need to know the architecture type
 265      when processing the notes of some systems' core files.  */
 266   if (! bfd_default_set_arch_mach (abfd, ebd->arch, 0)
 267       /* It's OK if this fails for the generic target.  */
 268       && ebd->elf_machine_code != EM_NONE)
 269     goto fail;
 270
 271   /* Let the backend double check the format and override global
 272      information.  We do this before processing the program headers
 273      to allow the correct machine (as opposed to just the default
 274      machine) to be set, making it possible for grok_prstatus and
 275      grok_psinfo to rely on the mach setting.  */
 276   if (ebd->elf_backend_object_p != NULL
 277       && ! ebd->elf_backend_object_p (abfd))
 278     goto wrong;
 279
 280   /* Process each program header.  */
 281   for (phindex = 0; phindex < i_ehdrp->e_phnum; ++phindex)
 282     if (! bfd_section_from_phdr (abfd, i_phdrp + phindex, (int) phindex))
 283       goto fail;
 284
 285   /* Check for core truncation.  */
 286   {
 287     bfd_size_type high = 0;
 288     struct stat statbuf;
 289     for (phindex = 0; phindex < i_ehdrp->e_phnum; ++phindex)
 290       {
 291         Elf_Internal_Phdr *p = i_phdrp + phindex;
 292         if (p->p_filesz)
 293           {
 294             bfd_size_type current = p->p_offset + p->p_filesz;
 295             if (high < current)
 296               high = current;
 297           }
 298       }
 299     if (bfd_stat (abfd, &statbuf) == 0)
 300       {
 301         if ((bfd_size_type) statbuf.st_size < high)
 302           {
 303             (*_bfd_error_handler)
 304               (_("Warning: %B is truncated: expected core file "
 305                  "size >= %lu, found: %lu."),
 306                abfd, (unsigned long) high, (unsigned long) statbuf.st_size);
 307           }
 308       }
 309   }
 310
 311   /* Save the entry point from the ELF header.  */
 312   bfd_get_start_address (abfd) = i_ehdrp->e_entry;
 313   return abfd->xvec;
 314
 315 wrong:
 316   bfd_set_error (bfd_error_wrong_format);
 317 fail:
 318   return NULL;
 319 }