gdb/core-sol2.c

   1 /* Machine independent support for Solaris 2 core files for GDB.
   2    Copyright 1994, 2000, 2001 Free Software Foundation, Inc.
   3
   4    This file is part of GDB.
   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 2 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., 59 Temple Place - Suite 330,
  19    Boston, MA 02111-1307, USA.  */
  20
  21
  22 /* Solaris comes with two flavours of core files, cores generated by
  23    an ELF executable and cores generated by programs that were
  24    run under BCP (the part of Solaris which allows it to run SunOS4
  25    a.out files).
  26    This file combines the core register fetching from core-regset.c
  27    and sparc-nat.c to be able to read both flavours.  */
  28
  29 /* for Sparc64 cross Sparc32 */
  30 #define _SYSCALL32
  31 #include "defs.h"
  32
  33 #if defined (__sparcv9)
  34 /* Fails to get included by the Solaris system header files.  */
  35 # include <v9/sys/privregs.h>
  36 #endif
  37
  38 #include <time.h>
  39 #include <sys/types.h>
  40 #include <sys/regset.h>
  41 #include <sys/procfs.h>
  42 #include <fcntl.h>
  43 #include <errno.h>
  44 #include "gdb_string.h"
  45 #include "regcache.h"
  46
  47 #include "inferior.h"
  48 #include "target.h"
  49 #include "command.h"
  50 #include "gdbcore.h"
  51
  52 /* Prototypes for supply_gregset etc. */
  53 #include "gregset.h"
  54
  55 static void fetch_core_registers (char *, unsigned, int, CORE_ADDR);
  56
  57 /* Fetch registers from core file data pointed to by CORE_REG_SECT.  When
  58    WHICH is 0, the the general register set is fetched; when WHICH is
  59    2, the floating point registers are fetched.  CORE_REG_SIZE is used
  60    to validate the size of the data pointed to by CORE_REG_SECT.  REG_ADDR
  61    is unused. */
  62
  63 static void
  64 fetch_core_registers (char *core_reg_sect, unsigned core_reg_size, int which,
  65                       CORE_ADDR reg_addr)
  66 {
  67   int i;
  68
  69   if (which == 0)
  70     {
  71       prgregset_t prgregset;
  72
  73       if (core_reg_size == sizeof (prgregset_t))
  74         {
  75           memcpy ((char *) &prgregset, core_reg_sect, sizeof (prgregset));
  76           supply_gregset (&prgregset);
  77         }
  78 #if defined (HAVE_PRGREGSET32_T)
  79       /* 32-bit corefile, 64-bit debugger.  */
  80       else if (core_reg_size == sizeof (prgregset32_t))
  81         {
  82           prgreg32_t *core_gregs;
  83
  84           /* Can't use memcpy here, because the core file contains
  85              32-bit regs; supply_register expects 64-bit regs.  */
  86           core_gregs = (prgreg32_t *) core_reg_sect;
  87           for (i = 0; i < NPRGREG; i++)
  88             prgregset[i] = core_gregs[i];
  89
  90           supply_gregset (&prgregset);
  91         }
  92 #endif /* HAVE_PRGREGSET32_T */
  93       else if (core_reg_size == sizeof (struct regs))
  94         {
  95           struct regs *gregs = (struct regs *) core_reg_sect;
  96
  97           /* G0 *always* holds 0.  */
  98           *(int *) &registers[REGISTER_BYTE (0)] = 0;
  99
 100           /* The globals and output registers.  */
 101           memcpy (&registers[REGISTER_BYTE (G1_REGNUM)], &gregs->r_g1,
 102                   15 * REGISTER_RAW_SIZE (G1_REGNUM));
 103           *(int *) &registers[REGISTER_BYTE (PS_REGNUM)] = gregs->r_ps;
 104           *(int *) &registers[REGISTER_BYTE (PC_REGNUM)] = gregs->r_pc;
 105           *(int *) &registers[REGISTER_BYTE (NPC_REGNUM)] = gregs->r_npc;
 106           *(int *) &registers[REGISTER_BYTE (Y_REGNUM)] = gregs->r_y;
 107
 108           /* My best guess at where to get the locals and input
 109              registers is exactly where they usually are, right above
 110              the stack pointer.  If the core dump was caused by a bus error
 111              from blowing away the stack pointer (as is possible) then this
 112              won't work, but it's worth the try. */
 113           {
 114             int sp;
 115
 116             sp = *(int *) &registers[REGISTER_BYTE (SP_REGNUM)];
 117             if (0 != target_read_memory (sp,
 118                                       &registers[REGISTER_BYTE (L0_REGNUM)],
 119                                          16 * REGISTER_RAW_SIZE (L0_REGNUM)))
 120               {
 121                 warning ("couldn't read input and local registers from core file\n");
 122               }
 123           }
 124         }
 125       else
 126         {
 127           warning ("wrong size gregset struct in core file");
 128         }
 129     }
 130   else if (which == 2)
 131     {
 132       prfpregset_t prfpregset;
 133
 134       if (core_reg_size == sizeof (prfpregset_t))
 135         {
 136           memcpy ((char *) &prfpregset, core_reg_sect, sizeof (prfpregset));
 137           supply_fpregset (&prfpregset);
 138         }
 139 #if defined (HAVE_PRFPREGSET32_T)
 140       /* 32-bit corefile, 64-bit debugger.  */
 141       else if (core_reg_size == sizeof (prfpregset32_t))
 142         {
 143           prfpregset32_t *core_fpregset;
 144
 145           /* Can't use memcpy here, because the core file contains
 146              32-bit regs; supply_fpregset expects 64-bit regs.  */
 147
 148           core_fpregset = (prfpregset32_t *) core_reg_sect;
 149           for (i = 0; i < 16; i++)
 150             prfpregset.pr_fr.pr_dregs[i] = core_fpregset->pr_fr.pr_dregs[i];
 151           while (i < 32)
 152             prfpregset.pr_fr.pr_dregs[i++] = 0;
 153
 154           prfpregset.pr_fsr         = core_fpregset->pr_fsr;
 155           prfpregset.pr_qcnt        = core_fpregset->pr_qcnt;
 156           prfpregset.pr_q_entrysize = core_fpregset->pr_q_entrysize;
 157           prfpregset.pr_en          = core_fpregset->pr_en;
 158           /* We will not use the pr_q array.  */
 159
 160           supply_fpregset (&prfpregset);
 161         }
 162 #endif /* HAVE_PRFPREGSET32_T */
 163       else if (core_reg_size >= sizeof (struct fpu))
 164         {
 165           struct fpu *fpuregs = (struct fpu *) core_reg_sect;
 166
 167           memcpy (&registers[REGISTER_BYTE (FP0_REGNUM)], &fpuregs->fpu_fr,
 168                   sizeof (fpuregs->fpu_fr));
 169           memcpy (&registers[REGISTER_BYTE (FPS_REGNUM)], &fpuregs->fpu_fsr,
 170                   sizeof (FPU_FSR_TYPE));
 171         }
 172       else
 173         {
 174           warning ("wrong size fpregset struct in core file");
 175         }
 176     }
 177 }
 178 \f
 179
 180 /* Register that we are able to handle solaris core file formats. */
 181
 182 static struct core_fns solaris_core_fns =
 183 {
 184   bfd_target_elf_flavour,               /* core_flavour */
 185   default_check_format,                 /* check_format */
 186   default_core_sniffer,                 /* core_sniffer */
 187   fetch_core_registers,                 /* core_read_registers */
 188   NULL                                  /* next */
 189 };
 190
 191 void
 192 _initialize_core_solaris (void)
 193 {
 194   add_core_fns (&solaris_core_fns);
 195 }