gdb/ppcnbsd-nat.c

   1 /* Native-dependent code for NetBSD/powerpc.
   2
   3    Copyright (C) 2002, 2004, 2005, 2006, 2007 Free Software Foundation, Inc.
   4
   5    Contributed by Wasabi Systems, Inc.
   6
   7    This file is part of GDB.
   8
   9    This program is free software; you can redistribute it and/or modify
  10    it under the terms of the GNU General Public License as published by
  11    the Free Software Foundation; either version 2 of the License, or
  12    (at your option) any later version.
  13
  14    This program is distributed in the hope that it will be useful,
  15    but WITHOUT ANY WARRANTY; without even the implied warranty of
  16    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17    GNU General Public License for more details.
  18
  19    You should have received a copy of the GNU General Public License
  20    along with this program; if not, write to the Free Software
  21    Foundation, Inc., 51 Franklin Street, Fifth Floor,
  22    Boston, MA 02110-1301, USA.  */
  23
  24 #include <sys/types.h>
  25 #include <sys/ptrace.h>
  26 #include <machine/reg.h>
  27 #include <machine/frame.h>
  28 #include <machine/pcb.h>
  29
  30 #include "defs.h"
  31 #include "gdbcore.h"
  32 #include "inferior.h"
  33 #include "regcache.h"
  34
  35 #include "gdb_assert.h"
  36
  37 #include "ppc-tdep.h"
  38 #include "ppcnbsd-tdep.h"
  39 #include "bsd-kvm.h"
  40 #include "inf-ptrace.h"
  41
  42 /* Returns true if PT_GETREGS fetches this register.  */
  43
  44 static int
  45 getregs_supplies (int regnum)
  46 {
  47   struct gdbarch_tdep *tdep = gdbarch_tdep (current_gdbarch);
  48
  49   return ((regnum >= tdep->ppc_gp0_regnum
  50            && regnum < tdep->ppc_gp0_regnum + ppc_num_gprs)
  51           || regnum == tdep->ppc_lr_regnum
  52           || regnum == tdep->ppc_cr_regnum
  53           || regnum == tdep->ppc_xer_regnum
  54           || regnum == tdep->ppc_ctr_regnum
  55           || regnum == PC_REGNUM);
  56 }
  57
  58 /* Like above, but for PT_GETFPREGS.  */
  59
  60 static int
  61 getfpregs_supplies (int regnum)
  62 {
  63   struct gdbarch_tdep *tdep = gdbarch_tdep (current_gdbarch);
  64
  65   /* FIXME: jimb/2004-05-05: Some PPC variants don't have floating
  66      point registers.  Traditionally, GDB's register set has still
  67      listed the floating point registers for such machines, so this
  68      code is harmless.  However, the new E500 port actually omits the
  69      floating point registers entirely from the register set --- they
  70      don't even have register numbers assigned to them.
  71
  72      It's not clear to me how best to update this code, so this assert
  73      will alert the first person to encounter the NetBSD/E500
  74      combination to the problem.  */
  75   gdb_assert (ppc_floating_point_unit_p (current_gdbarch));
  76
  77   return ((regnum >= tdep->ppc_fp0_regnum
  78            && regnum < tdep->ppc_fp0_regnum + ppc_num_fprs)
  79           || regnum == tdep->ppc_fpscr_regnum);
  80 }
  81
  82 static void
  83 ppcnbsd_fetch_inferior_registers (int regnum)
  84 {
  85   if (regnum == -1 || getregs_supplies (regnum))
  86     {
  87       struct reg regs;
  88
  89       if (ptrace (PT_GETREGS, PIDGET (inferior_ptid),
  90                   (PTRACE_TYPE_ARG3) &regs, 0) == -1)
  91         perror_with_name (_("Couldn't get registers"));
  92
  93       ppc_supply_gregset (&ppcnbsd_gregset, current_regcache,
  94                           regnum, &regs, sizeof regs);
  95     }
  96
  97   if (regnum == -1 || getfpregs_supplies (regnum))
  98     {
  99       struct fpreg fpregs;
 100
 101       if (ptrace (PT_GETFPREGS, PIDGET (inferior_ptid),
 102                   (PTRACE_TYPE_ARG3) &fpregs, 0) == -1)
 103         perror_with_name (_("Couldn't get FP registers"));
 104
 105       ppc_supply_fpregset (&ppcnbsd_fpregset, current_regcache,
 106                            regnum, &fpregs, sizeof fpregs);
 107     }
 108 }
 109
 110 static void
 111 ppcnbsd_store_inferior_registers (int regnum)
 112 {
 113   if (regnum == -1 || getregs_supplies (regnum))
 114     {
 115       struct reg regs;
 116
 117       if (ptrace (PT_GETREGS, PIDGET (inferior_ptid),
 118                   (PTRACE_TYPE_ARG3) &regs, 0) == -1)
 119         perror_with_name (_("Couldn't get registers"));
 120
 121       ppc_collect_gregset (&ppcnbsd_gregset, current_regcache,
 122                            regnum, &regs, sizeof regs);
 123
 124       if (ptrace (PT_SETREGS, PIDGET (inferior_ptid),
 125                   (PTRACE_TYPE_ARG3) &regs, 0) == -1)
 126         perror_with_name (_("Couldn't write registers"));
 127     }
 128
 129   if (regnum == -1 || getfpregs_supplies (regnum))
 130     {
 131       struct fpreg fpregs;
 132
 133       if (ptrace (PT_GETFPREGS, PIDGET (inferior_ptid),
 134                   (PTRACE_TYPE_ARG3) &fpregs, 0) == -1)
 135         perror_with_name (_("Couldn't get FP registers"));
 136
 137       ppc_collect_fpregset (&ppcnbsd_fpregset, current_regcache,
 138                             regnum, &fpregs, sizeof fpregs);
 139
 140       if (ptrace (PT_SETFPREGS, PIDGET (inferior_ptid),
 141                   (PTRACE_TYPE_ARG3) &fpregs, 0) == -1)
 142         perror_with_name (_("Couldn't set FP registers"));
 143     }
 144 }
 145
 146 static int
 147 ppcnbsd_supply_pcb (struct regcache *regcache, struct pcb *pcb)
 148 {
 149   struct switchframe sf;
 150   struct callframe cf;
 151   struct gdbarch_tdep *tdep = gdbarch_tdep (current_gdbarch);
 152   int i;
 153
 154   /* The stack pointer shouldn't be zero.  */
 155   if (pcb->pcb_sp == 0)
 156     return 0;
 157
 158   read_memory (pcb->pcb_sp, (gdb_byte *)&sf, sizeof sf);
 159   regcache_raw_supply (regcache, tdep->ppc_cr_regnum, &sf.cr);
 160   regcache_raw_supply (regcache, tdep->ppc_gp0_regnum + 2, &sf.fixreg2);
 161   for (i = 0 ; i < 19 ; i++)
 162     regcache_raw_supply (regcache, tdep->ppc_gp0_regnum + 13 + i,
 163                          &sf.fixreg[i]);
 164
 165   read_memory(sf.sp, (gdb_byte *)&cf, sizeof(cf));
 166   regcache_raw_supply (regcache, tdep->ppc_gp0_regnum + 30, &cf.r30);
 167   regcache_raw_supply (regcache, tdep->ppc_gp0_regnum + 31, &cf.r31);
 168   regcache_raw_supply (regcache, tdep->ppc_gp0_regnum + 1, &cf.sp);
 169
 170   read_memory(cf.sp, (gdb_byte *)&cf, sizeof(cf));
 171   regcache_raw_supply (regcache, tdep->ppc_lr_regnum, &cf.lr);
 172   regcache_raw_supply (regcache, PC_REGNUM, &cf.lr);
 173
 174   return 1;
 175 }
 176
 177 /* Provide a prototype to silence -Wmissing-prototypes.  */
 178 void _initialize_ppcnbsd_nat (void);
 179
 180 void
 181 _initialize_ppcnbsd_nat (void)
 182 {
 183   struct target_ops *t;
 184
 185   /* Support debugging kernel virtual memory images.  */
 186   bsd_kvm_add_target (ppcnbsd_supply_pcb);
 187
 188   /* Add in local overrides.  */
 189   t = inf_ptrace_target ();
 190   t->to_fetch_registers = ppcnbsd_fetch_inferior_registers;
 191   t->to_store_registers = ppcnbsd_store_inferior_registers;
 192   add_target (t);
 193 }