/* Native-dependent code for PowerPC's running NetBSD, for GDB.
- Copyright 1988, 1989, 1991, 1992, 1994, 1996, 2000, 2001
- Free Software Foundation, Inc.
+ Copyright 2002, 2004 Free Software Foundation, Inc.
+ Contributed by Wasabi Systems, Inc.
This file is part of GDB.
#include <sys/ptrace.h>
#include <machine/reg.h>
#include <machine/frame.h>
+#include <machine/pcb.h>
#include "defs.h"
#include "inferior.h"
+#include "gdb_assert.h"
#include "gdbcore.h"
-#include "ppc-tdep.h"
#include "regcache.h"
+#include "bsd-kvm.h"
-#define RF(dst, src) \
- memcpy(®isters[REGISTER_BYTE(dst)], &src, sizeof(src))
-
-#define RS(src, dst) \
- memcpy(&dst, ®isters[REGISTER_BYTE(src)], sizeof(dst))
+#include "ppc-tdep.h"
+#include "ppcnbsd-tdep.h"
-void
-fetch_inferior_registers (int regno)
-{
- struct reg inferior_registers;
-#ifdef PT_GETFPREGS
- struct fpreg inferior_fp_registers;
-#endif
- int i;
+#include "inf-ptrace.h"
- ptrace (PT_GETREGS, PIDGET (inferior_ptid),
- (PTRACE_ARG3_TYPE) & inferior_registers, 0);
- for (i = 0; i < 32; i++)
- RF (i, inferior_registers.fixreg[i]);
- RF (gdbarch_tdep (current_gdbarch)->ppc_lr_regnum, inferior_registers.lr);
- RF (gdbarch_tdep (current_gdbarch)->ppc_cr_regnum, inferior_registers.cr);
- RF (gdbarch_tdep (current_gdbarch)->ppc_xer_regnum, inferior_registers.xer);
- RF (gdbarch_tdep (current_gdbarch)->ppc_ctr_regnum, inferior_registers.ctr);
- RF (PC_REGNUM, inferior_registers.pc);
-
-#ifdef PT_GETFPREGS
- ptrace (PT_GETFPREGS, PIDGET (inferior_ptid),
- (PTRACE_ARG3_TYPE) &inferior_fp_registers, 0);
- for (i = 0; i < 32; i++)
- RF (FP0_REGNUM + i, inferior_fp_registers.fpreg[i]);
-#endif
-
- registers_fetched ();
+/* Returns true if PT_GETREGS fetches this register. */
+static int
+getregs_supplies (int regno)
+{
+ struct gdbarch_tdep *tdep = gdbarch_tdep (current_gdbarch);
+
+ return ((regno >= tdep->ppc_gp0_regnum
+ && regno < tdep->ppc_gp0_regnum + ppc_num_gprs)
+ || regno == tdep->ppc_lr_regnum
+ || regno == tdep->ppc_cr_regnum
+ || regno == tdep->ppc_xer_regnum
+ || regno == tdep->ppc_ctr_regnum
+ || regno == PC_REGNUM);
}
-void
-store_inferior_registers (int regno)
+/* Like above, but for PT_GETFPREGS. */
+static int
+getfpregs_supplies (int regno)
{
- struct reg inferior_registers;
-#ifdef PT_SETFPREGS
- struct fpreg inferior_fp_registers;
-#endif
- int i;
+ struct gdbarch_tdep *tdep = gdbarch_tdep (current_gdbarch);
+
+ /* FIXME: jimb/2004-05-05: Some PPC variants don't have floating
+ point registers. Traditionally, GDB's register set has still
+ listed the floating point registers for such machines, so this
+ code is harmless. However, the new E500 port actually omits the
+ floating point registers entirely from the register set --- they
+ don't even have register numbers assigned to them.
+
+ It's not clear to me how best to update this code, so this assert
+ will alert the first person to encounter the NetBSD/E500
+ combination to the problem. */
+ gdb_assert (ppc_floating_point_unit_p (current_gdbarch));
+
+ return ((regno >= tdep->ppc_fp0_regnum
+ && regno < tdep->ppc_fp0_regnum + ppc_num_fprs)
+ || regno == tdep->ppc_fpscr_regnum);
+}
- for (i = 0; i < 32; i++)
- RS (i, inferior_registers.fixreg[i]);
- RS (gdbarch_tdep (current_gdbarch)->ppc_lr_regnum, inferior_registers.lr);
- RS (gdbarch_tdep (current_gdbarch)->ppc_cr_regnum, inferior_registers.cr);
- RS (gdbarch_tdep (current_gdbarch)->ppc_xer_regnum, inferior_registers.xer);
- RS (gdbarch_tdep (current_gdbarch)->ppc_ctr_regnum, inferior_registers.ctr);
- RS (PC_REGNUM, inferior_registers.pc);
-
- ptrace (PT_SETREGS, PIDGET (inferior_ptid),
- (PTRACE_ARG3_TYPE) & inferior_registers, 0);
-
-#ifdef PT_SETFPREGS
- for (i = 0; i < 32; i++)
- RS (FP0_REGNUM + i, inferior_fp_registers.fpreg[i]);
- ptrace (PT_SETFPREGS, PIDGET (inferior_ptid),
- (PTRACE_ARG3_TYPE) & inferior_fp_registers, 0);
-#endif
+static void
+ppcnbsd_fetch_inferior_registers (int regno)
+{
+ if (regno == -1 || getregs_supplies (regno))
+ {
+ struct reg regs;
+
+ if (ptrace (PT_GETREGS, PIDGET (inferior_ptid),
+ (PTRACE_TYPE_ARG3) ®s, 0) == -1)
+ perror_with_name (_("Couldn't get registers"));
+
+ ppcnbsd_supply_reg ((char *) ®s, regno);
+ if (regno != -1)
+ return;
+ }
+
+ if (regno == -1 || getfpregs_supplies (regno))
+ {
+ struct fpreg fpregs;
+
+ if (ptrace (PT_GETFPREGS, PIDGET (inferior_ptid),
+ (PTRACE_TYPE_ARG3) &fpregs, 0) == -1)
+ perror_with_name (_("Couldn't get FP registers"));
+
+ ppcnbsd_supply_fpreg ((char *) &fpregs, regno);
+ if (regno != -1)
+ return;
+ }
}
-struct md_core
+static void
+ppcnbsd_store_inferior_registers (int regno)
{
- struct reg intreg;
-#ifdef PT_GETFPREGS
- struct fpreg freg;
-#endif
-};
+ if (regno == -1 || getregs_supplies (regno))
+ {
+ struct reg regs;
+
+ if (ptrace (PT_GETREGS, PIDGET (inferior_ptid),
+ (PTRACE_TYPE_ARG3) ®s, 0) == -1)
+ perror_with_name (_("Couldn't get registers"));
+
+ ppcnbsd_fill_reg ((char *) ®s, regno);
+
+ if (ptrace (PT_SETREGS, PIDGET (inferior_ptid),
+ (PTRACE_TYPE_ARG3) ®s, 0) == -1)
+ perror_with_name (_("Couldn't write registers"));
+
+ if (regno != -1)
+ return;
+ }
+
+ if (regno == -1 || getfpregs_supplies (regno))
+ {
+ struct fpreg fpregs;
+
+ if (ptrace (PT_GETFPREGS, PIDGET (inferior_ptid),
+ (PTRACE_TYPE_ARG3) &fpregs, 0) == -1)
+ perror_with_name (_("Couldn't get FP registers"));
+
+ ppcnbsd_fill_fpreg ((char *) &fpregs, regno);
+
+ if (ptrace (PT_SETFPREGS, PIDGET (inferior_ptid),
+ (PTRACE_TYPE_ARG3) &fpregs, 0) == -1)
+ perror_with_name (_("Couldn't set FP registers"));
+ }
+}
-void
-fetch_core_registers (char *core_reg_sect, unsigned core_reg_size, int which,
- CORE_ADDR ignore)
+static int
+ppcnbsd_supply_pcb (struct regcache *regcache, struct pcb *pcb)
{
- struct md_core *core_reg = (struct md_core *) core_reg_sect;
+ struct switchframe sf;
+ struct callframe cf;
+ struct gdbarch_tdep *tdep = gdbarch_tdep (current_gdbarch);
int i;
- /* Integer registers */
- for (i = 0; i < 32; i++)
- RF (i, core_reg->intreg.fixreg[i]);
- RF (gdbarch_tdep (current_gdbarch)->ppc_lr_regnum, core_reg->intreg.lr);
- RF (gdbarch_tdep (current_gdbarch)->ppc_cr_regnum, core_reg->intreg.cr);
- RF (gdbarch_tdep (current_gdbarch)->ppc_xer_regnum, core_reg->intreg.xer);
- RF (gdbarch_tdep (current_gdbarch)->ppc_ctr_regnum, core_reg->intreg.ctr);
- RF (PC_REGNUM, core_reg->intreg.pc);
-
-#ifdef PT_FPGETREGS
- /* Floating point registers */
- for (i = 0; i < 32; i++)
- RF (FP0_REGNUM + i, core_reg->freg.fpreg[i]);
-#endif
-
- registers_fetched ();
-}
+ /* The stack pointer shouldn't be zero. */
+ if (pcb->pcb_sp == 0)
+ return 0;
-/* Register that we are able to handle ppcnbsd core file formats.
- FIXME: is this really bfd_target_unknown_flavour? */
+ read_memory (pcb->pcb_sp, (char *) &sf, sizeof sf);
+ regcache_raw_supply (regcache, tdep->ppc_cr_regnum, &sf.cr);
+ regcache_raw_supply (regcache, tdep->ppc_gp0_regnum + 2, &sf.fixreg2);
+ for (i = 0 ; i < 19 ; i++)
+ regcache_raw_supply (regcache, tdep->ppc_gp0_regnum + 13 + i,
+ &sf.fixreg[i]);
-static struct core_fns ppcnbsd_core_fns =
-{
- bfd_target_unknown_flavour, /* core_flavour */
- default_check_format, /* check_format */
- default_core_sniffer, /* core_sniffer */
- fetch_core_registers, /* core_read_registers */
- NULL /* next */
-};
+ read_memory(sf.sp, (char *)&cf, sizeof(cf));
+ regcache_raw_supply (regcache, tdep->ppc_gp0_regnum + 30, &cf.r30);
+ regcache_raw_supply (regcache, tdep->ppc_gp0_regnum + 31, &cf.r31);
+ regcache_raw_supply (regcache, tdep->ppc_gp0_regnum + 1, &cf.sp);
+
+ read_memory(cf.sp, (char *)&cf, sizeof(cf));
+ regcache_raw_supply (regcache, tdep->ppc_lr_regnum, &cf.lr);
+ regcache_raw_supply (regcache, PC_REGNUM, &cf.lr);
+
+ return 1;
+}
+
+/* Provide a prototype to silence -Wmissing-prototypes. */
+void _initialize_ppcnbsd_nat (void);
void
_initialize_ppcnbsd_nat (void)
{
- add_core_fns (&ppcnbsd_core_fns);
+ struct target_ops *t;
+ /* Support debugging kernel virtual memory images. */
+ bsd_kvm_add_target (ppcnbsd_supply_pcb);
+ /* Add in local overrides. */
+ t = inf_ptrace_target ();
+ t->to_fetch_registers = ppcnbsd_fetch_inferior_registers;
+ t->to_store_registers = ppcnbsd_store_inferior_registers;
+ add_target (t);
}