contrib/gdb/gdb/ppcfbsd-nat.c

   1 /* Native-dependent code for PowerPC's running FreeBSD, for GDB.
   2    Copyright 2002, 2004 Free Software Foundation, Inc.
   3    Contributed by Wasabi Systems, Inc.
   4
   5    This file is part of GDB.
   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,
  20    Boston, MA 02111-1307, USA.  */
  21
  22 #include <sys/types.h>
  23 #include <sys/ptrace.h>
  24 #include <machine/reg.h>
  25 #include <machine/frame.h>
  26
  27 #include "defs.h"
  28 #include "inferior.h"
  29 #include "gdb_assert.h"
  30 #include "gdbcore.h"
  31 #include "regcache.h"
  32
  33 #include "ppc-tdep.h"
  34 #include "ppcfbsd-tdep.h"
  35
  36 /* Returns true if PT_GETREGS fetches this register.  */
  37 static int
  38 getregs_supplies (int regno)
  39 {
  40   struct gdbarch_tdep *tdep = gdbarch_tdep (current_gdbarch);
  41
  42   return ((regno >= tdep->ppc_gp0_regnum && regno <= tdep->ppc_gplast_regnum)
  43           || regno == tdep->ppc_lr_regnum
  44           || regno == tdep->ppc_cr_regnum
  45           || regno == tdep->ppc_xer_regnum
  46           || regno == tdep->ppc_ctr_regnum
  47           || regno == PC_REGNUM);
  48 }
  49
  50 /* Like above, but for PT_GETFPREGS.  */
  51 static int
  52 getfpregs_supplies (int regno)
  53 {
  54   struct gdbarch_tdep *tdep = gdbarch_tdep (current_gdbarch);
  55
  56   /* FIXME: jimb/2004-05-05: Some PPC variants don't have floating
  57      point registers.  Traditionally, GDB's register set has still
  58      listed the floating point registers for such machines, so this
  59      code is harmless.  However, the new E500 port actually omits the
  60      floating point registers entirely from the register set --- they
  61      don't even have register numbers assigned to them.
  62
  63      It's not clear to me how best to update this code, so this assert
  64      will alert the first person to encounter the NetBSD/E500
  65      combination to the problem.  */
  66   gdb_assert (ppc_floating_point_unit_p (current_gdbarch));
  67
  68   return ((regno >= FP0_REGNUM && regno <= FPLAST_REGNUM)
  69           || regno == tdep->ppc_fpscr_regnum);
  70 }
  71
  72 void
  73 fetch_inferior_registers (int regno)
  74 {
  75   if (regno == -1 || getregs_supplies (regno))
  76     {
  77       struct reg regs;
  78
  79       if (ptrace (PT_GETREGS, PIDGET (inferior_ptid),
  80                   (PTRACE_ARG3_TYPE) &regs, 0) == -1)
  81         perror_with_name (_("Couldn't get registers"));
  82
  83       ppcfbsd_supply_reg ((char *) &regs, regno);
  84       if (regno != -1)
  85         return;
  86     }
  87
  88   if (regno == -1 || getfpregs_supplies (regno))
  89     {
  90       struct fpreg fpregs;
  91
  92       if (ptrace (PT_GETFPREGS, PIDGET (inferior_ptid),
  93                   (PTRACE_ARG3_TYPE) &fpregs, 0) == -1)
  94         perror_with_name (_("Couldn't get FP registers"));
  95
  96       ppcfbsd_supply_fpreg ((char *) &fpregs, regno);
  97       if (regno != -1)
  98         return;
  99     }
 100 }
 101
 102 void
 103 store_inferior_registers (int regno)
 104 {
 105   if (regno == -1 || getregs_supplies (regno))
 106     {
 107       struct reg regs;
 108
 109       if (ptrace (PT_GETREGS, PIDGET (inferior_ptid),
 110                   (PTRACE_ARG3_TYPE) &regs, 0) == -1)
 111         perror_with_name (_("Couldn't get registers"));
 112
 113       ppcfbsd_fill_reg ((char *) &regs, regno);
 114
 115       if (ptrace (PT_SETREGS, PIDGET (inferior_ptid),
 116                   (PTRACE_ARG3_TYPE) &regs, 0) == -1)
 117         perror_with_name (_("Couldn't write registers"));
 118
 119       if (regno != -1)
 120         return;
 121     }
 122
 123   if (regno == -1 || getfpregs_supplies (regno))
 124     {
 125       struct fpreg fpregs;
 126
 127       if (ptrace (PT_GETFPREGS, PIDGET (inferior_ptid),
 128                   (PTRACE_ARG3_TYPE) &fpregs, 0) == -1)
 129         perror_with_name (_("Couldn't get FP registers"));
 130
 131       ppcfbsd_fill_fpreg ((char *) &fpregs, regno);
 132
 133       if (ptrace (PT_SETFPREGS, PIDGET (inferior_ptid),
 134                   (PTRACE_ARG3_TYPE) &fpregs, 0) == -1)
 135         perror_with_name (_("Couldn't set FP registers"));
 136     }
 137 }
 138
 139 void
 140 fill_gregset (char *regs, int regnum)
 141 {
 142   ppcfbsd_fill_reg (regs, regnum);
 143 }
 144
 145 void
 146 supply_gregset (char *regs)
 147 {
 148   ppcfbsd_supply_reg (regs, -1);
 149 }
 150
 151 void
 152 fill_fpregset (char *fpregs, int regnum)
 153 {
 154   ppcfbsd_fill_fpreg (fpregs, regnum);
 155 }
 156
 157 void
 158 supply_fpregset (char *fpregs)
 159 {
 160   ppcfbsd_supply_fpreg (fpregs, -1);
 161 }
 162
 163 /* Provide a prototype to silence -Wmissing-prototypes.  */
 164 void _initialize_ppcfbsd_nat (void);
 165
 166 void
 167 _initialize_ppcfbsd_nat (void)
 168 {
 169 }