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 >= 0 && regno <= 31)
  40           || regno == tdep->ppc_lr_regnum
  41           || regno == tdep->ppc_cr_regnum
  42           || regno == tdep->ppc_xer_regnum
  43           || regno == tdep->ppc_ctr_regnum
  44           || regno == PC_REGNUM);
  45 }
  46
  47 /* Like above, but for PT_GETFPREGS.  */
  48 static int
  49 getfpregs_supplies (int regno)
  50 {
  51   struct gdbarch_tdep *tdep = gdbarch_tdep (current_gdbarch);
  52
  53   /* FIXME: jimb/2004-05-05: Some PPC variants don't have
  54      floating-point registers.  For such variants,
  55      tdep->ppc_fp0_regnum and tdep->ppc_fpscr_regnum will be -1.  I
  56      don't think NetBSD runs on any of those chips, but we can at
  57      least make sure that if someone tries it, they'll get a proper
  58      notification.  */
  59   gdb_assert (ppc_floating_point_unit_p (current_gdbarch));
  60
  61   return ((regno >= tdep->ppc_fp0_regnum
  62            && regno < tdep->ppc_fp0_regnum + ppc_num_fprs)
  63           || regno == tdep->ppc_fpscr_regnum);
  64 }
  65
  66 void
  67 fetch_inferior_registers (int regno)
  68 {
  69   if (regno == -1 || getregs_supplies (regno))
  70     {
  71       struct reg regs;
  72
  73       if (ptrace (PT_GETREGS, PIDGET (inferior_ptid),
  74                   (PTRACE_ARG3_TYPE) &regs, 0) == -1)
  75         perror_with_name ("Couldn't get registers");
  76
  77       ppcnbsd_supply_reg ((char *) &regs, regno);
  78       if (regno != -1)
  79         return;
  80     }
  81
  82   if (regno == -1 || getfpregs_supplies (regno))
  83     {
  84       struct fpreg fpregs;
  85
  86       if (ptrace (PT_GETFPREGS, PIDGET (inferior_ptid),
  87                   (PTRACE_ARG3_TYPE) &fpregs, 0) == -1)
  88         perror_with_name ("Couldn't get FP registers");
  89
  90       ppcnbsd_supply_fpreg ((char *) &fpregs, regno);
  91       if (regno != -1)
  92         return;
  93     }
  94 }
  95
  96 void
  97 store_inferior_registers (int regno)
  98 {
  99   if (regno == -1 || getregs_supplies (regno))
 100     {
 101       struct reg regs;
 102
 103       if (ptrace (PT_GETREGS, PIDGET (inferior_ptid),
 104                   (PTRACE_ARG3_TYPE) &regs, 0) == -1)
 105         perror_with_name ("Couldn't get registers");
 106
 107       ppcnbsd_fill_reg ((char *) &regs, regno);
 108
 109       if (ptrace (PT_SETREGS, PIDGET (inferior_ptid),
 110                   (PTRACE_ARG3_TYPE) &regs, 0) == -1)
 111         perror_with_name ("Couldn't write registers");
 112
 113       if (regno != -1)
 114         return;
 115     }
 116
 117   if (regno == -1 || getfpregs_supplies (regno))
 118     {
 119       struct fpreg fpregs;
 120
 121       if (ptrace (PT_GETFPREGS, PIDGET (inferior_ptid),
 122                   (PTRACE_ARG3_TYPE) &fpregs, 0) == -1)
 123         perror_with_name ("Couldn't get FP registers");
 124
 125       ppcnbsd_fill_fpreg ((char *) &fpregs, regno);
 126
 127       if (ptrace (PT_SETFPREGS, PIDGET (inferior_ptid),
 128                   (PTRACE_ARG3_TYPE) &fpregs, 0) == -1)
 129         perror_with_name ("Couldn't set FP registers");
 130     }
 131 }