bfd/hppabsd-core.c

   1 /* BFD back-end for HPPA BSD core files.
   2    Copyright 1993, 1994, 1995, 1998, 1999, 2001, 2002, 2003, 2004, 2005,
   3    2006, 2007, 2012 Free Software Foundation, Inc.
   4
   5    This file is part of BFD, the Binary File Descriptor library.
   6
   7    This program is free software; you can redistribute it and/or modify
   8    it under the terms of the GNU General Public License as published by
   9    the Free Software Foundation; either version 3 of the License, or
  10    (at your option) any later version.
  11
  12    This program is distributed in the hope that it will be useful,
  13    but WITHOUT ANY WARRANTY; without even the implied warranty of
  14    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15    GNU General Public License for more details.
  16
  17    You should have received a copy of the GNU General Public License
  18    along with this program; if not, write to the Free Software
  19    Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
  20    MA 02110-1301, USA.
  21
  22    Written by the Center for Software Science at the University of Utah
  23    and by Cygnus Support.
  24
  25    The core file structure for the Utah 4.3BSD and OSF1 ports on the
  26    PA is a mix between traditional cores and hpux cores -- just
  27    different enough that supporting this format would tend to add
  28    gross hacks to trad-core.c or hpux-core.c.  So instead we keep any
  29    gross hacks isolated to this file.  */
  30
  31 /* This file can only be compiled on systems which use HPPA-BSD style
  32    core files.
  33
  34    I would not expect this to be of use to any other host/target, but
  35    you never know.  */
  36
  37 #include "sysdep.h"
  38 #include "bfd.h"
  39 #include "libbfd.h"
  40
  41 #if defined (HOST_HPPABSD)
  42
  43 #include "machine/vmparam.h"
  44
  45 #include <sys/param.h>
  46 #include <sys/dir.h>
  47 #include <signal.h>
  48 #include <machine/reg.h>
  49 #include <sys/user.h>           /* After a.out.h  */
  50 #include <sys/file.h>
  51
  52 #define hppabsd_core_core_file_matches_executable_p generic_core_file_matches_executable_p
  53 #define hppabsd_core_core_file_pid _bfd_nocore_core_file_pid
  54
  55 /* These are stored in the bfd's tdata.  */
  56
  57 struct hppabsd_core_struct
  58 {
  59   int sig;
  60   char cmd[MAXCOMLEN + 1];
  61   asection *data_section;
  62   asection *stack_section;
  63   asection *reg_section;
  64 };
  65
  66 #define core_hdr(bfd) ((bfd)->tdata.hppabsd_core_data)
  67 #define core_signal(bfd)   (core_hdr(bfd)->sig)
  68 #define core_command(bfd)  (core_hdr(bfd)->cmd)
  69 #define core_datasec(bfd)  (core_hdr(bfd)->data_section)
  70 #define core_stacksec(bfd) (core_hdr(bfd)->stack_section)
  71 #define core_regsec(bfd)   (core_hdr(bfd)->reg_section)
  72
  73 static asection *
  74 make_bfd_asection (bfd *abfd,
  75                    const char *name,
  76                    flagword flags,
  77                    bfd_size_type size,
  78                    file_ptr offset,
  79                    unsigned int alignment_power)
  80 {
  81   asection *asect;
  82
  83   asect = bfd_make_section_with_flags (abfd, name, flags);
  84   if (!asect)
  85     return NULL;
  86
  87   asect->size = size;
  88   asect->filepos = offset;
  89   asect->alignment_power = alignment_power;
  90
  91   return asect;
  92 }
  93
  94 static const bfd_target *
  95 hppabsd_core_core_file_p (bfd *abfd)
  96 {
  97   int val;
  98   struct user u;
  99   struct hppabsd_core_struct *coredata;
 100   int clicksz;
 101
 102   /* Try to read in the u-area.  We will need information from this
 103      to know how to grok the rest of the core structures.  */
 104   val = bfd_bread ((void *) &u, (bfd_size_type) sizeof u, abfd);
 105   if (val != sizeof u)
 106     {
 107       if (bfd_get_error () != bfd_error_system_call)
 108         bfd_set_error (bfd_error_wrong_format);
 109       return NULL;
 110     }
 111
 112   /* Get the page size out of the u structure.  This will be different
 113      for PA 1.0 machines and PA 1.1 machines.   Yuk!  */
 114   clicksz = u.u_pcb.pcb_pgsz;
 115
 116   /* clicksz must be a power of two >= 2k.  */
 117   if (clicksz < 0x800
 118       || clicksz != (clicksz & -clicksz))
 119     {
 120       bfd_set_error (bfd_error_wrong_format);
 121       return NULL;
 122     }
 123
 124   /* Sanity checks.  Make sure the size of the core file matches the
 125      the size computed from information within the core itself.  */
 126   {
 127     struct stat statbuf;
 128
 129     if (bfd_stat (abfd, &statbuf) < 0)
 130       return NULL;
 131
 132     if (NBPG * (UPAGES + u.u_dsize + u.u_ssize) > statbuf.st_size)
 133       {
 134         bfd_set_error (bfd_error_file_truncated);
 135         return NULL;
 136       }
 137     if (clicksz * (UPAGES + u.u_dsize + u.u_ssize) < statbuf.st_size)
 138       {
 139         /* The file is too big.  Maybe it's not a core file
 140            or we otherwise have bad values for u_dsize and u_ssize).  */
 141         bfd_set_error (bfd_error_wrong_format);
 142         return NULL;
 143       }
 144   }
 145
 146   /* OK, we believe you.  You're a core file (sure, sure).  */
 147
 148   coredata = (struct hppabsd_core_struct *)
 149     bfd_zalloc (abfd, (bfd_size_type) sizeof (struct hppabsd_core_struct));
 150   if (!coredata)
 151     return NULL;
 152
 153   /* Make the core data and available via the tdata part of the BFD.  */
 154   abfd->tdata.hppabsd_core_data = coredata;
 155
 156   /* Create the sections.  */
 157   core_stacksec (abfd) = make_bfd_asection (abfd, ".stack",
 158                                            SEC_ALLOC + SEC_HAS_CONTENTS,
 159                                            clicksz * u.u_ssize,
 160                                            NBPG * (USIZE + KSTAKSIZE)
 161                                              + clicksz * u.u_dsize, 2);
 162   if (core_stacksec (abfd) == NULL)
 163     goto fail;
 164   core_stacksec (abfd)->vma = USRSTACK;
 165
 166   core_datasec (abfd) = make_bfd_asection (abfd, ".data",
 167                                           SEC_ALLOC + SEC_LOAD
 168                                             + SEC_HAS_CONTENTS,
 169                                           clicksz * u.u_dsize,
 170                                           NBPG * (USIZE + KSTAKSIZE), 2);
 171   if (core_datasec (abfd) == NULL)
 172     goto fail;
 173   core_datasec (abfd)->vma = UDATASEG;
 174
 175   core_regsec (abfd) = make_bfd_asection (abfd, ".reg",
 176                                          SEC_HAS_CONTENTS,
 177                                          KSTAKSIZE * NBPG,
 178                                          NBPG * USIZE, 2);
 179   if (core_regsec (abfd) == NULL)
 180     goto fail;
 181   core_regsec (abfd)->vma = 0;
 182
 183   strncpy (core_command (abfd), u.u_comm, MAXCOMLEN + 1);
 184   core_signal (abfd) = u.u_code;
 185   return abfd->xvec;
 186
 187  fail:
 188   bfd_release (abfd, abfd->tdata.any);
 189   abfd->tdata.any = NULL;
 190   bfd_section_list_clear (abfd);
 191   return NULL;
 192 }
 193
 194 static char *
 195 hppabsd_core_core_file_failing_command (bfd *abfd)
 196 {
 197   return core_command (abfd);
 198 }
 199
 200 static int
 201 hppabsd_core_core_file_failing_signal (bfd *abfd)
 202 {
 203   return core_signal (abfd);
 204 }
 205 \f
 206 /* If somebody calls any byte-swapping routines, shoot them.  */
 207 static void
 208 swap_abort (void)
 209 {
 210   /* This way doesn't require any declaration for ANSI to fuck up.  */
 211   abort ();
 212 }
 213
 214 #define NO_GET ((bfd_vma (*) (const void *)) swap_abort)
 215 #define NO_PUT ((void (*) (bfd_vma, void *)) swap_abort)
 216 #define NO_GETS ((bfd_signed_vma (*) (const void *)) swap_abort)
 217 #define NO_GET64 ((bfd_uint64_t (*) (const void *)) swap_abort)
 218 #define NO_PUT64 ((void (*) (bfd_uint64_t, void *)) swap_abort)
 219 #define NO_GETS64 ((bfd_int64_t (*) (const void *)) swap_abort)
 220
 221 const bfd_target hppabsd_core_vec =
 222   {
 223     "hppabsd-core",
 224     bfd_target_unknown_flavour,
 225     BFD_ENDIAN_BIG,             /* target byte order */
 226     BFD_ENDIAN_BIG,             /* target headers byte order */
 227     (HAS_RELOC | EXEC_P |       /* object flags */
 228      HAS_LINENO | HAS_DEBUG |
 229      HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED),
 230     (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */
 231     0,                                                     /* symbol prefix */
 232     ' ',                                                   /* ar_pad_char */
 233     16,                                                    /* ar_max_namelen */
 234     NO_GET64, NO_GETS64, NO_PUT64,      /* 64 bit data */
 235     NO_GET, NO_GETS, NO_PUT,            /* 32 bit data */
 236     NO_GET, NO_GETS, NO_PUT,            /* 16 bit data */
 237     NO_GET64, NO_GETS64, NO_PUT64,      /* 64 bit hdrs */
 238     NO_GET, NO_GETS, NO_PUT,            /* 32 bit hdrs */
 239     NO_GET, NO_GETS, NO_PUT,            /* 16 bit hdrs */
 240
 241     {                           /* bfd_check_format */
 242       _bfd_dummy_target,                /* unknown format */
 243       _bfd_dummy_target,                /* object file */
 244       _bfd_dummy_target,                /* archive */
 245       hppabsd_core_core_file_p          /* a core file */
 246     },
 247     {                           /* bfd_set_format */
 248       bfd_false, bfd_false,
 249       bfd_false, bfd_false
 250     },
 251     {                           /* bfd_write_contents */
 252       bfd_false, bfd_false,
 253       bfd_false, bfd_false
 254     },
 255
 256     BFD_JUMP_TABLE_GENERIC (_bfd_generic),
 257     BFD_JUMP_TABLE_COPY (_bfd_generic),
 258     BFD_JUMP_TABLE_CORE (hppabsd_core),
 259     BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive),
 260     BFD_JUMP_TABLE_SYMBOLS (_bfd_nosymbols),
 261     BFD_JUMP_TABLE_RELOCS (_bfd_norelocs),
 262     BFD_JUMP_TABLE_WRITE (_bfd_generic),
 263     BFD_JUMP_TABLE_LINK (_bfd_nolink),
 264     BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
 265
 266     NULL,
 267
 268     NULL                        /* backend_data */
 269   };
 270 #endif