gdb/m68kbsd-nat.c

   1 /* Native-dependent code for Motorola 68000 BSD's.
   2
   3    Copyright 2004 Free Software Foundation, 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 "defs.h"
  23 #include "gdbcore.h"
  24 #include "inferior.h"
  25 #include "regcache.h"
  26
  27 #include "gdb_assert.h"
  28 #include <sys/types.h>
  29 #include <sys/ptrace.h>
  30 #include <machine/reg.h>
  31
  32 #include "m68k-tdep.h"
  33 #include "inf-ptrace.h"
  34
  35 static int
  36 m68kbsd_gregset_supplies_p (int regnum)
  37 {
  38   return (regnum >= M68K_D0_REGNUM && regnum <= M68K_PC_REGNUM);
  39 }
  40
  41 static int
  42 m68kbsd_fpregset_supplies_p (int regnum)
  43 {
  44   return (regnum >= M68K_FP0_REGNUM && regnum <= M68K_FPI_REGNUM);
  45 }
  46
  47 /* Supply the general-purpose registers stored in GREGS to REGCACHE.  */
  48
  49 static void
  50 m68kbsd_supply_gregset (struct regcache *regcache, const void *gregs)
  51 {
  52   const char *regs = gregs;
  53   int regnum;
  54
  55   for (regnum = M68K_D0_REGNUM; regnum <= M68K_PC_REGNUM; regnum++)
  56     regcache_raw_supply (regcache, regnum, regs + regnum * 4);
  57 }
  58
  59 /* Supply the floating-point registers stored in FPREGS to REGCACHE.  */
  60
  61 static void
  62 m68kbsd_supply_fpregset (struct regcache *regcache, const void *fpregs)
  63 {
  64   const char *regs = fpregs;
  65   int regnum;
  66
  67   for (regnum = M68K_FP0_REGNUM; regnum <= M68K_FPI_REGNUM; regnum++)
  68     regcache_raw_supply (regcache, regnum,
  69                          regs + m68kbsd_fpreg_offset (regnum));
  70 }
  71
  72 /* Collect the general-purpose registers from REGCACHE and store them
  73    in GREGS.  */
  74
  75 static void
  76 m68kbsd_collect_gregset (const struct regcache *regcache,
  77                          void *gregs, int regnum)
  78 {
  79   char *regs = gregs;
  80   int i;
  81
  82   for (i = M68K_D0_REGNUM; i <= M68K_PC_REGNUM; i++)
  83     {
  84       if (regnum == -1 || regnum == i)
  85         regcache_raw_collect (regcache, i, regs + i * 4);
  86     }
  87 }
  88
  89 /* Collect the floating-point registers from REGCACHE and store them
  90    in FPREGS.  */
  91
  92 static void
  93 m68kbsd_collect_fpregset (struct regcache *regcache,
  94                           void *fpregs, int regnum)
  95 {
  96   char *regs = fpregs;
  97   int i;
  98
  99   for (i = M68K_FP0_REGNUM; i <= M68K_FPI_REGNUM; i++)
 100     {
 101       if (regnum == -1 || regnum == i)
 102         regcache_raw_collect (regcache, i, regs + m68kbsd_fpreg_offset (i));
 103     }
 104 }
 105 \f
 106
 107 /* Fetch register REGNUM from the inferior.  If REGNUM is -1, do this
 108    for all registers (including the floating-point registers).  */
 109
 110 static void
 111 m68kbsd_fetch_inferior_registers (int regnum)
 112 {
 113   if (regnum == -1 || m68kbsd_gregset_supplies_p (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       m68kbsd_supply_gregset (current_regcache, &regs);
 122     }
 123
 124   if (regnum == -1 || m68kbsd_fpregset_supplies_p (regnum))
 125     {
 126       struct fpreg fpregs;
 127
 128       if (ptrace (PT_GETFPREGS, PIDGET (inferior_ptid),
 129                   (PTRACE_TYPE_ARG3) &fpregs, 0) == -1)
 130         perror_with_name (_("Couldn't get floating point status"));
 131
 132       m68kbsd_supply_fpregset (current_regcache, &fpregs);
 133     }
 134 }
 135
 136 /* Store register REGNUM back into the inferior.  If REGNUM is -1, do
 137    this for all registers (including the floating-point registers).  */
 138
 139 static void
 140 m68kbsd_store_inferior_registers (int regnum)
 141 {
 142   if (regnum == -1 || m68kbsd_gregset_supplies_p (regnum))
 143     {
 144       struct reg regs;
 145
 146       if (ptrace (PT_GETREGS, PIDGET (inferior_ptid),
 147                   (PTRACE_TYPE_ARG3) &regs, 0) == -1)
 148         perror_with_name (_("Couldn't get registers"));
 149
 150       m68kbsd_collect_gregset (current_regcache, &regs, regnum);
 151
 152       if (ptrace (PT_SETREGS, PIDGET (inferior_ptid),
 153                   (PTRACE_TYPE_ARG3) &regs, 0) == -1)
 154         perror_with_name (_("Couldn't write registers"));
 155     }
 156
 157   if (regnum == -1 || m68kbsd_fpregset_supplies_p (regnum))
 158     {
 159       struct fpreg fpregs;
 160
 161       if (ptrace (PT_GETFPREGS, PIDGET (inferior_ptid),
 162                   (PTRACE_TYPE_ARG3) &fpregs, 0) == -1)
 163         perror_with_name (_("Couldn't get floating point status"));
 164
 165       m68kbsd_collect_fpregset (current_regcache, &fpregs, regnum);
 166
 167       if (ptrace (PT_SETFPREGS, PIDGET (inferior_ptid),
 168                   (PTRACE_TYPE_ARG3) &fpregs, 0) == -1)
 169         perror_with_name (_("Couldn't write floating point status"));
 170     }
 171 }
 172 \f
 173
 174 /* Support for debugging kernel virtual memory images.  */
 175
 176 #include <sys/types.h>
 177 #include <machine/pcb.h>
 178
 179 #include "bsd-kvm.h"
 180
 181 /* OpenBSD doesn't have these.  */
 182 #ifndef PCB_REGS_FP
 183 #define PCB_REGS_FP 10
 184 #endif
 185 #ifndef PCB_REGS_SP
 186 #define PCB_REGS_SP 11
 187 #endif
 188
 189 static int
 190 m68kbsd_supply_pcb (struct regcache *regcache, struct pcb *pcb)
 191 {
 192   int regnum, tmp;
 193   int i = 0;
 194
 195   /* The following is true for NetBSD 1.6.2:
 196
 197      The pcb contains %d2...%d7, %a2...%a7 and %ps.  This accounts for
 198      all callee-saved registers.  From this information we reconstruct
 199      the register state as it would look when we just returned from
 200      cpu_switch().  */
 201
 202   /* The stack pointer shouldn't be zero.  */
 203   if (pcb->pcb_regs[PCB_REGS_SP] == 0)
 204     return 0;
 205
 206   for (regnum = M68K_D2_REGNUM; regnum <= M68K_D7_REGNUM; regnum++)
 207     regcache_raw_supply (regcache, regnum, &pcb->pcb_regs[i++]);
 208   for (regnum = M68K_A2_REGNUM; regnum <= M68K_SP_REGNUM; regnum++)
 209     regcache_raw_supply (regcache, regnum, &pcb->pcb_regs[i++]);
 210
 211   tmp = pcb->pcb_ps & 0xffff;
 212   regcache_raw_supply (regcache, M68K_PS_REGNUM, &tmp);
 213
 214   read_memory (pcb->pcb_regs[PCB_REGS_FP] + 4, (char *) &tmp, sizeof tmp);
 215   regcache_raw_supply (regcache, M68K_PC_REGNUM, &tmp);
 216
 217   return 1;
 218 }
 219 \f
 220
 221 /* Provide a prototype to silence -Wmissing-prototypes.  */
 222 void _initialize_m68kbsd_nat (void);
 223
 224 void
 225 _initialize_m68kbsd_nat (void)
 226 {
 227   struct target_ops *t;
 228
 229   t = inf_ptrace_target ();
 230   t->to_fetch_registers = m68kbsd_fetch_inferior_registers;
 231   t->to_store_registers = m68kbsd_store_inferior_registers;
 232   add_target (t);
 233
 234   /* Support debugging kernel virtual memory images.  */
 235   bsd_kvm_add_target (m68kbsd_supply_pcb);
 236 }