bfd/hppabsd-core.c

   1 /* BFD back-end for HPPA BSD core files.
   2    Copyright 1993, 1994, 1995, 1998, 1999, 2001
   3    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 2 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  20
  21    Written by the Center for Software Science at the University of Utah
  22    and by Cygnus Support.
  23
  24    The core file structure for the Utah 4.3BSD and OSF1 ports on the
  25    PA is a mix between traditional cores and hpux cores -- just
  26    different enough that supporting this format would tend to add
  27    gross hacks to trad-core.c or hpux-core.c.  So instead we keep any
  28    gross hacks isolated to this file.  */
  29
  30 /* This file can only be compiled on systems which use HPPA-BSD style
  31    core files.
  32
  33    I would not expect this to be of use to any other host/target, but
  34    you never know.  */
  35
  36 #include "bfd.h"
  37 #include "sysdep.h"
  38 #include "libbfd.h"
  39
  40 #if defined (HOST_HPPABSD)
  41
  42 #include "machine/vmparam.h"
  43
  44 #include <sys/param.h>
  45 #include <sys/dir.h>
  46 #include <signal.h>
  47 #include <machine/reg.h>
  48 #include <sys/user.h>           /* After a.out.h  */
  49 #include <sys/file.h>
  50
  51 static asection *make_bfd_asection PARAMS ((bfd *, CONST char *,
  52                                             flagword, bfd_size_type,
  53                                             file_ptr, unsigned int));
  54 static asymbol *hppabsd_core_make_empty_symbol PARAMS ((bfd *));
  55 static const bfd_target *hppabsd_core_core_file_p PARAMS ((bfd *));
  56 static char *hppabsd_core_core_file_failing_command PARAMS ((bfd *));
  57 static int hppabsd_core_core_file_failing_signal PARAMS ((bfd *));
  58 static boolean hppabsd_core_core_file_matches_executable_p
  59   PARAMS ((bfd *, bfd *));
  60 static void swap_abort PARAMS ((void));
  61
  62 /* These are stored in the bfd's tdata.  */
  63
  64 struct hppabsd_core_struct
  65   {
  66     int sig;
  67     char cmd[MAXCOMLEN + 1];
  68     asection *data_section;
  69     asection *stack_section;
  70     asection *reg_section;
  71   };
  72
  73 #define core_hdr(bfd) ((bfd)->tdata.hppabsd_core_data)
  74 #define core_signal(bfd) (core_hdr(bfd)->sig)
  75 #define core_command(bfd) (core_hdr(bfd)->cmd)
  76 #define core_datasec(bfd) (core_hdr(bfd)->data_section)
  77 #define core_stacksec(bfd) (core_hdr(bfd)->stack_section)
  78 #define core_regsec(bfd) (core_hdr(bfd)->reg_section)
  79
  80 static asection *
  81 make_bfd_asection (abfd, name, flags, _raw_size, offset, alignment_power)
  82      bfd *abfd;
  83      CONST char *name;
  84      flagword flags;
  85      bfd_size_type _raw_size;
  86      file_ptr offset;
  87      unsigned int alignment_power;
  88 {
  89   asection *asect;
  90
  91   asect = bfd_make_section (abfd, name);
  92   if (!asect)
  93     return NULL;
  94
  95   asect->flags = flags;
  96   asect->_raw_size = _raw_size;
  97   asect->filepos = offset;
  98   asect->alignment_power = alignment_power;
  99
 100   return asect;
 101 }
 102
 103 static asymbol *
 104 hppabsd_core_make_empty_symbol (abfd)
 105      bfd *abfd;
 106 {
 107   asymbol *new = (asymbol *) bfd_zalloc (abfd, sizeof (asymbol));
 108   if (new)
 109     new->the_bfd = abfd;
 110   return new;
 111 }
 112
 113 static const bfd_target *
 114 hppabsd_core_core_file_p (abfd)
 115      bfd *abfd;
 116 {
 117   int val;
 118   struct user u;
 119   struct hppabsd_core_struct *coredata;
 120   int clicksz;
 121
 122   /* Try to read in the u-area.  We will need information from this
 123      to know how to grok the rest of the core structures.  */
 124   val = bfd_read ((void *) &u, 1, sizeof u, abfd);
 125   if (val != sizeof u)
 126     {
 127       if (bfd_get_error () != bfd_error_system_call)
 128         bfd_set_error (bfd_error_wrong_format);
 129       return NULL;
 130     }
 131
 132   /* Get the page size out of the u structure.  This will be different
 133      for PA 1.0 machines and PA 1.1 machines.   Yuk!  */
 134   clicksz = u.u_pcb.pcb_pgsz;
 135
 136   /* clicksz must be a power of two >= 2k.  */
 137   if (clicksz < 0x800
 138       || clicksz != (clicksz & -clicksz))
 139     {
 140       bfd_set_error (bfd_error_wrong_format);
 141       return NULL;
 142     }
 143
 144   /* Sanity checks.  Make sure the size of the core file matches the
 145      the size computed from information within the core itself.  */
 146   {
 147     FILE *stream = bfd_cache_lookup (abfd);
 148     struct stat statbuf;
 149     if (stream == NULL || fstat (fileno (stream), &statbuf) < 0)
 150       {
 151         bfd_set_error (bfd_error_system_call);
 152         return NULL;
 153       }
 154     if (NBPG * (UPAGES + u.u_dsize + u.u_ssize) > statbuf.st_size)
 155       {
 156         bfd_set_error (bfd_error_file_truncated);
 157         return NULL;
 158       }
 159     if (clicksz * (UPAGES + u.u_dsize + u.u_ssize) < statbuf.st_size)
 160       {
 161         /* The file is too big.  Maybe it's not a core file
 162            or we otherwise have bad values for u_dsize and u_ssize).  */
 163         bfd_set_error (bfd_error_wrong_format);
 164         return NULL;
 165       }
 166   }
 167
 168   /* OK, we believe you.  You're a core file (sure, sure).  */
 169
 170   coredata = (struct hppabsd_core_struct *)
 171     bfd_zalloc (abfd, sizeof (struct hppabsd_core_struct));
 172   if (!coredata)
 173     return NULL;
 174
 175   /* Make the core data and available via the tdata part of the BFD.  */
 176   abfd->tdata.hppabsd_core_data = coredata;
 177
 178   /* Create the sections.  */
 179   core_stacksec (abfd) = make_bfd_asection (abfd, ".stack",
 180                                            SEC_ALLOC + SEC_HAS_CONTENTS,
 181                                            clicksz * u.u_ssize,
 182                                            NBPG * (USIZE + KSTAKSIZE)
 183                                              + clicksz * u.u_dsize, 2);
 184   core_stacksec (abfd)->vma = USRSTACK;
 185
 186   core_datasec (abfd) = make_bfd_asection (abfd, ".data",
 187                                           SEC_ALLOC + SEC_LOAD
 188                                             + SEC_HAS_CONTENTS,
 189                                           clicksz * u.u_dsize,
 190                                           NBPG * (USIZE + KSTAKSIZE), 2);
 191   core_datasec (abfd)->vma = UDATASEG;
 192
 193   core_regsec (abfd) = make_bfd_asection (abfd, ".reg",
 194                                          SEC_HAS_CONTENTS,
 195                                          KSTAKSIZE * NBPG,
 196                                          NBPG * USIZE, 2);
 197   core_regsec (abfd)->vma = 0;
 198
 199   strncpy (core_command (abfd), u.u_comm, MAXCOMLEN + 1);
 200   core_signal (abfd) = u.u_code;
 201   return abfd->xvec;
 202 }
 203
 204 static char *
 205 hppabsd_core_core_file_failing_command (abfd)
 206      bfd *abfd;
 207 {
 208   return core_command (abfd);
 209 }
 210
 211 /* ARGSUSED */
 212 static int
 213 hppabsd_core_core_file_failing_signal (abfd)
 214      bfd *abfd;
 215 {
 216   return core_signal (abfd);
 217 }
 218
 219 /* ARGSUSED */
 220 static boolean
 221 hppabsd_core_core_file_matches_executable_p (core_bfd, exec_bfd)
 222      bfd *core_bfd, *exec_bfd;
 223 {
 224   /* There's no way to know this...  */
 225   return true;
 226 }
 227 \f
 228 #define hppabsd_core_get_symtab_upper_bound \
 229   _bfd_nosymbols_get_symtab_upper_bound
 230 #define hppabsd_core_get_symtab _bfd_nosymbols_get_symtab
 231 #define hppabsd_core_print_symbol _bfd_nosymbols_print_symbol
 232 #define hppabsd_core_get_symbol_info _bfd_nosymbols_get_symbol_info
 233 #define hppabsd_core_bfd_is_local_label_name \
 234   _bfd_nosymbols_bfd_is_local_label_name
 235 #define hppabsd_core_get_lineno _bfd_nosymbols_get_lineno
 236 #define hppabsd_core_find_nearest_line _bfd_nosymbols_find_nearest_line
 237 #define hppabsd_core_bfd_make_debug_symbol _bfd_nosymbols_bfd_make_debug_symbol
 238 #define hppabsd_core_read_minisymbols _bfd_nosymbols_read_minisymbols
 239 #define hppabsd_core_minisymbol_to_symbol _bfd_nosymbols_minisymbol_to_symbol
 240
 241 /* If somebody calls any byte-swapping routines, shoot them.  */
 242 static void
 243 swap_abort ()
 244 {
 245   /* This way doesn't require any declaration for ANSI to fuck up.  */
 246   abort ();
 247 }
 248
 249 #define NO_GET  ((bfd_vma (*) PARAMS ((   const bfd_byte *))) swap_abort )
 250 #define NO_PUT  ((void    (*) PARAMS ((bfd_vma, bfd_byte *))) swap_abort )
 251 #define NO_SIGNED_GET \
 252   ((bfd_signed_vma (*) PARAMS ((const bfd_byte *))) swap_abort )
 253
 254 const bfd_target hppabsd_core_vec =
 255   {
 256     "hppabsd-core",
 257     bfd_target_unknown_flavour,
 258     BFD_ENDIAN_BIG,             /* target byte order */
 259     BFD_ENDIAN_BIG,             /* target headers byte order */
 260     (HAS_RELOC | EXEC_P |       /* object flags */
 261      HAS_LINENO | HAS_DEBUG |
 262      HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED),
 263     (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */
 264     0,                                                     /* symbol prefix */
 265     ' ',                                                   /* ar_pad_char */
 266     16,                                                    /* ar_max_namelen */
 267     NO_GET, NO_SIGNED_GET, NO_PUT,      /* 64 bit data */
 268     NO_GET, NO_SIGNED_GET, NO_PUT,      /* 32 bit data */
 269     NO_GET, NO_SIGNED_GET, NO_PUT,      /* 16 bit data */
 270     NO_GET, NO_SIGNED_GET, NO_PUT,      /* 64 bit hdrs */
 271     NO_GET, NO_SIGNED_GET, NO_PUT,      /* 32 bit hdrs */
 272     NO_GET, NO_SIGNED_GET, NO_PUT,      /* 16 bit hdrs */
 273
 274     {                           /* bfd_check_format */
 275      _bfd_dummy_target,         /* unknown format */
 276      _bfd_dummy_target,         /* object file */
 277      _bfd_dummy_target,         /* archive */
 278      hppabsd_core_core_file_p   /* a core file */
 279     },
 280     {                           /* bfd_set_format */
 281      bfd_false, bfd_false,
 282      bfd_false, bfd_false
 283     },
 284     {                           /* bfd_write_contents */
 285      bfd_false, bfd_false,
 286      bfd_false, bfd_false
 287     },
 288
 289        BFD_JUMP_TABLE_GENERIC (_bfd_generic),
 290        BFD_JUMP_TABLE_COPY (_bfd_generic),
 291        BFD_JUMP_TABLE_CORE (hppabsd_core),
 292        BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive),
 293        BFD_JUMP_TABLE_SYMBOLS (hppabsd_core),
 294        BFD_JUMP_TABLE_RELOCS (_bfd_norelocs),
 295        BFD_JUMP_TABLE_WRITE (_bfd_generic),
 296        BFD_JUMP_TABLE_LINK (_bfd_nolink),
 297        BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
 298
 299     NULL,
 300
 301     (PTR) 0                     /* backend_data */
 302 };
 303 #endif