gdb/ppcnbsd-nat.c

   1 /* Native-dependent code for PowerPC's running NetBSD, for GDB.
   2    Copyright 2002 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
  26 #include "defs.h"
  27 #include "inferior.h"
  28 #include "gdb_assert.h"
  29
  30 #include "ppc-tdep.h"
  31 #include "ppcnbsd-tdep.h"
  32
  33 /* Returns true if PT_GETREGS fetches this register.  */
  34 static int
  35 getregs_supplies (int regno)
  36 {
  37   struct gdbarch_tdep *tdep = gdbarch_tdep (current_gdbarch);
  38
  39   return ((regno >= tdep->ppc_gp0_regnum
  40            && regno < tdep->ppc_gp0_regnum + ppc_num_gprs)
  41           || regno == tdep->ppc_lr_regnum
  42           || regno == tdep->ppc_cr_regnum
  43           || regno == tdep->ppc_xer_regnum
  44           || regno == tdep->ppc_ctr_regnum
  45           || regno == PC_REGNUM);
  46 }
  47
  48 /* Like above, but for PT_GETFPREGS.  */
  49 static int
  50 getfpregs_supplies (int regno)
  51 {
  52   struct gdbarch_tdep *tdep = gdbarch_tdep (current_gdbarch);
  53
  54   /* FIXME: jimb/2004-05-05: Some PPC variants don't have floating
  55      point registers.  Traditionally, GDB's register set has still
  56      listed the floating point registers for such machines, so this
  57      code is harmless.  However, the new E500 port actually omits the
  58      floating point registers entirely from the register set --- they
  59      don't even have register numbers assigned to them.
  60
  61      It's not clear to me how best to update this code, so this assert
  62      will alert the first person to encounter the NetBSD/E500
  63      combination to the problem.  */
  64   gdb_assert (ppc_floating_point_unit_p (current_gdbarch));
  65
  66   return ((regno >= tdep->ppc_fp0_regnum
  67            && regno < tdep->ppc_fp0_regnum + ppc_num_fprs)
  68           || regno == tdep->ppc_fpscr_regnum);
  69 }
  70
  71 void
  72 fetch_inferior_registers (int regno)
  73 {
  74   if (regno == -1 || getregs_supplies (regno))
  75     {
  76       struct reg regs;
  77
  78       if (ptrace (PT_GETREGS, PIDGET (inferior_ptid),
  79                   (PTRACE_ARG3_TYPE) &regs, 0) == -1)
  80         perror_with_name ("Couldn't get registers");
  81
  82       ppcnbsd_supply_reg ((char *) &regs, regno);
  83       if (regno != -1)
  84         return;
  85     }
  86
  87   if (regno == -1 || getfpregs_supplies (regno))
  88     {
  89       struct fpreg fpregs;
  90
  91       if (ptrace (PT_GETFPREGS, PIDGET (inferior_ptid),
  92                   (PTRACE_ARG3_TYPE) &fpregs, 0) == -1)
  93         perror_with_name ("Couldn't get FP registers");
  94
  95       ppcnbsd_supply_fpreg ((char *) &fpregs, regno);
  96       if (regno != -1)
  97         return;
  98     }
  99 }
 100
 101 void
 102 store_inferior_registers (int regno)
 103 {
 104   if (regno == -1 || getregs_supplies (regno))
 105     {
 106       struct reg regs;
 107
 108       if (ptrace (PT_GETREGS, PIDGET (inferior_ptid),
 109                   (PTRACE_ARG3_TYPE) &regs, 0) == -1)
 110         perror_with_name ("Couldn't get registers");
 111
 112       ppcnbsd_fill_reg ((char *) &regs, regno);
 113
 114       if (ptrace (PT_SETREGS, PIDGET (inferior_ptid),
 115                   (PTRACE_ARG3_TYPE) &regs, 0) == -1)
 116         perror_with_name ("Couldn't write registers");
 117
 118       if (regno != -1)
 119         return;
 120     }
 121
 122   if (regno == -1 || getfpregs_supplies (regno))
 123     {
 124       struct fpreg fpregs;
 125
 126       if (ptrace (PT_GETFPREGS, PIDGET (inferior_ptid),
 127                   (PTRACE_ARG3_TYPE) &fpregs, 0) == -1)
 128         perror_with_name ("Couldn't get FP registers");
 129
 130       ppcnbsd_fill_fpreg ((char *) &fpregs, regno);
 131
 132       if (ptrace (PT_SETFPREGS, PIDGET (inferior_ptid),
 133                   (PTRACE_ARG3_TYPE) &fpregs, 0) == -1)
 134         perror_with_name ("Couldn't set FP registers");
 135     }
 136 }