* mn10300-linux-tdep.c: New file.

	* Makefile.in (mn10300-linux-tdep.o): New Makefile target.
	* config/mn10300/linux.mt (TDEPFILES): Add mn10300-linux-tdep.o and
	corelow.o.
	* mn10300-tdep.h (E_E8_REGNUM, E_E9_REGNUM, E_E10_REGNUM)
	(E_FPCR_REGNUM, E_FS0_REGNUM): New constants.

1 files changed, 486 insertions, 0 deletions

diff --git a/gdb/mn10300-linux-tdep.c b/gdb/mn10300-linux-tdep.c
new file mode 100644
index 0000000..e0f557c
--- /dev/null
+++ b/gdb/mn10300-linux-tdep.c
@@ -0,0 +1,486 @@
+/* Target-dependent code for the Matsushita MN10300 for GDB, the GNU debugger.
+   Copyright 2003, 2004, 2005
+   Free Software Foundation, Inc.
+
+   This file is part of GDB.
+
+   This program is free software; you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation; either version 2 of the License, or
+   (at your option) any later version.
+
+   This program is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with this program; if not, write to the Free Software
+   Foundation, Inc., 59 Temple Place - Suite 330,
+   Boston, MA 02111-1307, USA.  */
+
+#include "defs.h"
+#include "gdbcore.h"
+#include "gdb_string.h"
+#include "regcache.h"
+#include "mn10300-tdep.h"
+#include "gdb_assert.h"
+#include "bfd.h"
+#include "elf-bfd.h"
+#include "osabi.h"
+#include "regset.h"
+
+#include <stdlib.h>
+
+/* Transliterated from <asm-mn10300/elf.h>...  */
+#define MN10300_ELF_NGREG 28
+#define MN10300_ELF_NFPREG 32
+
+typedef gdb_byte   mn10300_elf_greg_t[4];
+typedef mn10300_elf_greg_t mn10300_elf_gregset_t[MN10300_ELF_NGREG];
+
+typedef gdb_byte   mn10300_elf_fpreg_t[4];
+typedef struct
+{
+  mn10300_elf_fpreg_t fpregs[MN10300_ELF_NFPREG];
+  gdb_byte    fpcr[4];
+} mn10300_elf_fpregset_t;
+
+/* elf_gregset_t register indices stolen from include/asm-mn10300/ptrace.h.  */
+#define MN10300_ELF_GREGSET_T_REG_INDEX_A3	0
+#define MN10300_ELF_GREGSET_T_REG_INDEX_A2	1
+#define MN10300_ELF_GREGSET_T_REG_INDEX_D3	2
+#define	MN10300_ELF_GREGSET_T_REG_INDEX_D2	3
+#define MN10300_ELF_GREGSET_T_REG_INDEX_MCVF	4
+#define	MN10300_ELF_GREGSET_T_REG_INDEX_MCRL	5
+#define MN10300_ELF_GREGSET_T_REG_INDEX_MCRH	6
+#define	MN10300_ELF_GREGSET_T_REG_INDEX_MDRQ	7
+#define	MN10300_ELF_GREGSET_T_REG_INDEX_E1	8
+#define	MN10300_ELF_GREGSET_T_REG_INDEX_E0	9
+#define	MN10300_ELF_GREGSET_T_REG_INDEX_E7	10
+#define	MN10300_ELF_GREGSET_T_REG_INDEX_E6	11
+#define	MN10300_ELF_GREGSET_T_REG_INDEX_E5	12
+#define	MN10300_ELF_GREGSET_T_REG_INDEX_E4	13
+#define	MN10300_ELF_GREGSET_T_REG_INDEX_E3	14
+#define	MN10300_ELF_GREGSET_T_REG_INDEX_E2	15
+#define	MN10300_ELF_GREGSET_T_REG_INDEX_SP	16
+#define	MN10300_ELF_GREGSET_T_REG_INDEX_LAR	17
+#define	MN10300_ELF_GREGSET_T_REG_INDEX_LIR	18
+#define	MN10300_ELF_GREGSET_T_REG_INDEX_MDR	19
+#define	MN10300_ELF_GREGSET_T_REG_INDEX_A1	20
+#define	MN10300_ELF_GREGSET_T_REG_INDEX_A0	21
+#define	MN10300_ELF_GREGSET_T_REG_INDEX_D1	22
+#define	MN10300_ELF_GREGSET_T_REG_INDEX_D0	23
+#define MN10300_ELF_GREGSET_T_REG_INDEX_ORIG_D0	24
+#define	MN10300_ELF_GREGSET_T_REG_INDEX_EPSW	25
+#define	MN10300_ELF_GREGSET_T_REG_INDEX_PC	26
+
+/* New gdbarch API for corefile registers.
+   Given a section name and size, create a struct reg object
+   with a supply_register and a collect_register method.  */
+
+/* Copy register value of REGNUM from regset to regcache.  
+   If REGNUM is -1, do this for all gp registers in regset.  */
+
+static void
+am33_supply_gregset_method (const struct regset *regset, 
+			    struct regcache *regcache, 
+			    int regnum, const void *gregs, size_t len)
+{
+  char zerobuf[MAX_REGISTER_SIZE];
+  const mn10300_elf_greg_t *regp = (const mn10300_elf_greg_t *) gregs;
+  int i;
+
+  gdb_assert (len == sizeof (mn10300_elf_gregset_t));
+
+  switch (regnum) {
+  case E_D0_REGNUM:
+    regcache_raw_supply (regcache, E_D0_REGNUM, 
+			 (regp + MN10300_ELF_GREGSET_T_REG_INDEX_D0));
+    break;
+  case E_D1_REGNUM:
+    regcache_raw_supply (regcache, E_D1_REGNUM, 
+			 (regp + MN10300_ELF_GREGSET_T_REG_INDEX_D1));
+    break;
+  case E_D2_REGNUM:
+    regcache_raw_supply (regcache, E_D2_REGNUM, 
+			 (regp + MN10300_ELF_GREGSET_T_REG_INDEX_D2));
+    break;
+  case E_D3_REGNUM:
+    regcache_raw_supply (regcache, E_D3_REGNUM, 
+			 (regp + MN10300_ELF_GREGSET_T_REG_INDEX_D3));
+    break;
+  case E_A0_REGNUM:
+    regcache_raw_supply (regcache, E_A0_REGNUM, 
+			 (regp + MN10300_ELF_GREGSET_T_REG_INDEX_A0));
+    break;
+  case E_A1_REGNUM:
+    regcache_raw_supply (regcache, E_A1_REGNUM, 
+			 (regp + MN10300_ELF_GREGSET_T_REG_INDEX_A1));
+    break;
+  case E_A2_REGNUM:
+    regcache_raw_supply (regcache, E_A2_REGNUM, 
+			 (regp + MN10300_ELF_GREGSET_T_REG_INDEX_A2));
+    break;
+  case E_A3_REGNUM:
+    regcache_raw_supply (regcache, E_A3_REGNUM, 
+			 (regp + MN10300_ELF_GREGSET_T_REG_INDEX_A3));
+    break;
+  case E_SP_REGNUM:
+    regcache_raw_supply (regcache, E_SP_REGNUM, 
+			 (regp + MN10300_ELF_GREGSET_T_REG_INDEX_SP));
+    break;
+  case E_PC_REGNUM:
+    regcache_raw_supply (regcache, E_PC_REGNUM, 
+			 (regp + MN10300_ELF_GREGSET_T_REG_INDEX_PC));
+    break;
+  case E_MDR_REGNUM:
+    regcache_raw_supply (regcache, E_MDR_REGNUM, 
+			 (regp + MN10300_ELF_GREGSET_T_REG_INDEX_MDR));
+    break;
+  case E_PSW_REGNUM:
+    regcache_raw_supply (regcache, E_PSW_REGNUM, 
+			 (regp + MN10300_ELF_GREGSET_T_REG_INDEX_EPSW));
+    break;
+  case E_LIR_REGNUM:
+    regcache_raw_supply (regcache, E_LIR_REGNUM, 
+			 (regp + MN10300_ELF_GREGSET_T_REG_INDEX_LIR));
+    break;
+  case E_LAR_REGNUM:
+    regcache_raw_supply (regcache, E_LAR_REGNUM, 
+			 (regp + MN10300_ELF_GREGSET_T_REG_INDEX_LAR));
+    break;
+  case E_MDRQ_REGNUM:
+    regcache_raw_supply (regcache, E_MDRQ_REGNUM, 
+			 (regp + MN10300_ELF_GREGSET_T_REG_INDEX_MDRQ));
+    break;
+  case E_E0_REGNUM:
+    regcache_raw_supply (regcache, E_E0_REGNUM,   
+			 (regp + MN10300_ELF_GREGSET_T_REG_INDEX_E0));
+    break;
+  case E_E1_REGNUM:
+    regcache_raw_supply (regcache, E_E1_REGNUM,
+			 (regp + MN10300_ELF_GREGSET_T_REG_INDEX_E1));
+    break;
+  case E_E2_REGNUM:
+    regcache_raw_supply (regcache, E_E2_REGNUM, 
+			 (regp + MN10300_ELF_GREGSET_T_REG_INDEX_E2));
+    break;
+  case E_E3_REGNUM:
+    regcache_raw_supply (regcache, E_E3_REGNUM, 
+			 (regp + MN10300_ELF_GREGSET_T_REG_INDEX_E3));
+    break;
+  case E_E4_REGNUM:
+    regcache_raw_supply (regcache, E_E4_REGNUM, 
+			 (regp + MN10300_ELF_GREGSET_T_REG_INDEX_E4));
+    break;
+  case E_E5_REGNUM:
+    regcache_raw_supply (regcache, E_E5_REGNUM, 
+			 (regp + MN10300_ELF_GREGSET_T_REG_INDEX_E5));
+    break;
+  case E_E6_REGNUM:
+    regcache_raw_supply (regcache, E_E6_REGNUM, 
+			 (regp + MN10300_ELF_GREGSET_T_REG_INDEX_E6));
+    break;
+  case E_E7_REGNUM:
+    regcache_raw_supply (regcache, E_E7_REGNUM, 
+			 (regp + MN10300_ELF_GREGSET_T_REG_INDEX_E7));
+    break;
+
+    /* ssp, msp, and usp are inaccessible.  */
+  case E_E8_REGNUM:
+    memset (zerobuf, 0, MAX_REGISTER_SIZE);
+    regcache_raw_supply (regcache, E_E8_REGNUM, zerobuf);
+    break;
+  case E_E9_REGNUM:
+    memset (zerobuf, 0, MAX_REGISTER_SIZE);
+    regcache_raw_supply (regcache, E_E9_REGNUM, zerobuf);
+    break;
+  case E_E10_REGNUM:
+    memset (zerobuf, 0, MAX_REGISTER_SIZE);
+    regcache_raw_supply (regcache, E_E10_REGNUM, zerobuf);
+
+    break;
+  case E_MCRH_REGNUM:
+    regcache_raw_supply (regcache, E_MCRH_REGNUM, 
+			 (regp + MN10300_ELF_GREGSET_T_REG_INDEX_MCRH));
+    break;
+  case E_MCRL_REGNUM:
+    regcache_raw_supply (regcache, E_MCRL_REGNUM, 
+			 (regp + MN10300_ELF_GREGSET_T_REG_INDEX_MCRL));
+    break;
+  case E_MCVF_REGNUM:
+    regcache_raw_supply (regcache, E_MCVF_REGNUM, 
+			 (regp + MN10300_ELF_GREGSET_T_REG_INDEX_MCVF));
+    break;
+  case E_FPCR_REGNUM:
+    /* FPCR is numbered among the GP regs, but handled as an FP reg.
+       Do nothing.  */
+    break;
+  case E_FPCR_REGNUM + 1:
+    /* The two unused registers beyond fpcr are inaccessible.  */
+    memset (zerobuf, 0, MAX_REGISTER_SIZE);
+    regcache_raw_supply (regcache, E_FPCR_REGNUM + 1, zerobuf);
+    break;
+  case E_FPCR_REGNUM + 2:
+    memset (zerobuf, 0, MAX_REGISTER_SIZE);
+    regcache_raw_supply (regcache, E_FPCR_REGNUM + 2, zerobuf);
+    break;
+  default:	/* An error, obviously, but should we error out?  */
+    break;
+  case -1:
+    for (i = 0; i < MN10300_ELF_NGREG; i++)
+      am33_supply_gregset_method (regset, regcache, i, gregs, len);
+    break;
+  }
+  return;
+}
+
+/* Copy fp register value of REGNUM from regset to regcache.  
+   If REGNUM is -1, do this for all fp registers in regset. */
+
+static void
+am33_supply_fpregset_method (const struct regset *regset, 
+			     struct regcache *regcache, 
+			     int regnum, const void *fpregs, size_t len)
+{
+  const mn10300_elf_fpregset_t *fpregset = fpregs;
+
+  gdb_assert (len == sizeof (mn10300_elf_fpregset_t));
+
+  if (regnum == -1)
+    {
+      int i;
+
+      for (i = 0; i < MN10300_ELF_NFPREG; i++)
+	am33_supply_fpregset_method (regset, regcache,
+	                             E_FS0_REGNUM + i, fpregs, len);
+      am33_supply_fpregset_method (regset, regcache, 
+				   E_FPCR_REGNUM, fpregs, len);
+    }
+  else if (regnum == E_FPCR_REGNUM)
+    regcache_raw_supply (current_regcache, E_FPCR_REGNUM, 
+			 &fpregset->fpcr);
+  else if (E_FS0_REGNUM <= regnum && regnum < E_FS0_REGNUM + MN10300_ELF_NFPREG)
+    regcache_raw_supply (current_regcache, regnum, 
+			 &fpregset->fpregs[regnum - E_FS0_REGNUM]);
+
+  return;
+}
+
+/* Copy register values from regcache to regset.  */
+
+static void
+am33_collect_gregset_method (const struct regset *regset, 
+			     const struct regcache *regcache, 
+			     int regnum, void *gregs, size_t len)
+{
+  mn10300_elf_gregset_t *regp = gregs;
+  int i;
+
+  gdb_assert (len == sizeof (mn10300_elf_gregset_t));
+
+  switch (regnum) {
+  case E_D0_REGNUM:
+    regcache_raw_collect (regcache, E_D0_REGNUM, 
+			 (regp + MN10300_ELF_GREGSET_T_REG_INDEX_D0));
+    break;
+  case E_D1_REGNUM:
+    regcache_raw_collect (regcache, E_D1_REGNUM, 
+			 (regp + MN10300_ELF_GREGSET_T_REG_INDEX_D1));
+    break;
+  case E_D2_REGNUM:
+    regcache_raw_collect (regcache, E_D2_REGNUM, 
+			 (regp + MN10300_ELF_GREGSET_T_REG_INDEX_D2));
+    break;
+  case E_D3_REGNUM:
+    regcache_raw_collect (regcache, E_D3_REGNUM, 
+			 (regp + MN10300_ELF_GREGSET_T_REG_INDEX_D3));
+    break;
+  case E_A0_REGNUM:
+    regcache_raw_collect (regcache, E_A0_REGNUM, 
+			 (regp + MN10300_ELF_GREGSET_T_REG_INDEX_A0));
+    break;
+  case E_A1_REGNUM:
+    regcache_raw_collect (regcache, E_A1_REGNUM, 
+			 (regp + MN10300_ELF_GREGSET_T_REG_INDEX_A1));
+    break;
+  case E_A2_REGNUM:
+    regcache_raw_collect (regcache, E_A2_REGNUM, 
+			 (regp + MN10300_ELF_GREGSET_T_REG_INDEX_A2));
+    break;
+  case E_A3_REGNUM:
+    regcache_raw_collect (regcache, E_A3_REGNUM, 
+			 (regp + MN10300_ELF_GREGSET_T_REG_INDEX_A3));
+    break;
+  case E_SP_REGNUM:
+    regcache_raw_collect (regcache, E_SP_REGNUM, 
+			 (regp + MN10300_ELF_GREGSET_T_REG_INDEX_SP));
+    break;
+  case E_PC_REGNUM:
+    regcache_raw_collect (regcache, E_PC_REGNUM, 
+			 (regp + MN10300_ELF_GREGSET_T_REG_INDEX_PC));
+    break;
+  case E_MDR_REGNUM:
+    regcache_raw_collect (regcache, E_MDR_REGNUM, 
+			 (regp + MN10300_ELF_GREGSET_T_REG_INDEX_MDR));
+    break;
+  case E_PSW_REGNUM:
+    regcache_raw_collect (regcache, E_PSW_REGNUM, 
+			 (regp + MN10300_ELF_GREGSET_T_REG_INDEX_EPSW));
+    break;
+  case E_LIR_REGNUM:
+    regcache_raw_collect (regcache, E_LIR_REGNUM, 
+			 (regp + MN10300_ELF_GREGSET_T_REG_INDEX_LIR));
+    break;
+  case E_LAR_REGNUM:
+    regcache_raw_collect (regcache, E_LAR_REGNUM, 
+			 (regp + MN10300_ELF_GREGSET_T_REG_INDEX_LAR));
+    break;
+  case E_MDRQ_REGNUM:
+    regcache_raw_collect (regcache, E_MDRQ_REGNUM, 
+			 (regp + MN10300_ELF_GREGSET_T_REG_INDEX_MDRQ));
+    break;
+  case E_E0_REGNUM:
+    regcache_raw_collect (regcache, E_E0_REGNUM,   
+			 (regp + MN10300_ELF_GREGSET_T_REG_INDEX_E0));
+    break;
+  case E_E1_REGNUM:
+    regcache_raw_collect (regcache, E_E1_REGNUM,
+			 (regp + MN10300_ELF_GREGSET_T_REG_INDEX_E1));
+    break;
+  case E_E2_REGNUM:
+    regcache_raw_collect (regcache, E_E2_REGNUM, 
+			 (regp + MN10300_ELF_GREGSET_T_REG_INDEX_E2));
+    break;
+  case E_E3_REGNUM:
+    regcache_raw_collect (regcache, E_E3_REGNUM, 
+			 (regp + MN10300_ELF_GREGSET_T_REG_INDEX_E3));
+    break;
+  case E_E4_REGNUM:
+    regcache_raw_collect (regcache, E_E4_REGNUM, 
+			 (regp + MN10300_ELF_GREGSET_T_REG_INDEX_E4));
+    break;
+  case E_E5_REGNUM:
+    regcache_raw_collect (regcache, E_E5_REGNUM, 
+			 (regp + MN10300_ELF_GREGSET_T_REG_INDEX_E5));
+    break;
+  case E_E6_REGNUM:
+    regcache_raw_collect (regcache, E_E6_REGNUM, 
+			 (regp + MN10300_ELF_GREGSET_T_REG_INDEX_E6));
+    break;
+  case E_E7_REGNUM:
+    regcache_raw_collect (regcache, E_E7_REGNUM, 
+			 (regp + MN10300_ELF_GREGSET_T_REG_INDEX_E7));
+    break;
+
+    /* ssp, msp, and usp are inaccessible.  */
+  case E_E8_REGNUM:
+    /* The gregset struct has noplace to put this: do nothing.  */
+    break;
+  case E_E9_REGNUM:
+    /* The gregset struct has noplace to put this: do nothing.  */
+    break;
+  case E_E10_REGNUM:
+    /* The gregset struct has noplace to put this: do nothing.  */
+    break;
+  case E_MCRH_REGNUM:
+    regcache_raw_collect (regcache, E_MCRH_REGNUM, 
+			 (regp + MN10300_ELF_GREGSET_T_REG_INDEX_MCRH));
+    break;
+  case E_MCRL_REGNUM:
+    regcache_raw_collect (regcache, E_MCRL_REGNUM, 
+			 (regp + MN10300_ELF_GREGSET_T_REG_INDEX_MCRL));
+    break;
+  case E_MCVF_REGNUM:
+    regcache_raw_collect (regcache, E_MCVF_REGNUM, 
+			 (regp + MN10300_ELF_GREGSET_T_REG_INDEX_MCVF));
+    break;
+  case E_FPCR_REGNUM:
+    /* FPCR is numbered among the GP regs, but handled as an FP reg.
+       Do nothing.  */
+    break;
+  case E_FPCR_REGNUM + 1:
+    /* The gregset struct has noplace to put this: do nothing.  */
+    break;
+  case E_FPCR_REGNUM + 2:
+    /* The gregset struct has noplace to put this: do nothing.  */
+    break;
+  default:	/* An error, obviously, but should we error out?  */
+    break;
+  case -1:
+    for (i = 0; i < MN10300_ELF_NGREG; i++)
+      am33_collect_gregset_method (regset, regcache, i, gregs, len);
+    break;
+  }
+  return;
+}
+
+/* Copy fp register values from regcache to regset.  */
+
+static void
+am33_collect_fpregset_method (const struct regset *regset, 
+			      const struct regcache *regcache, 
+			      int regnum, void *fpregs, size_t len)
+{
+  mn10300_elf_fpregset_t *fpregset = fpregs;
+
+  gdb_assert (len == sizeof (mn10300_elf_fpregset_t));
+
+  if (regnum == -1)
+    {
+      int i;
+      for (i = 0; i < MN10300_ELF_NFPREG; i++)
+	am33_collect_fpregset_method (regset, regcache, E_FS0_REGNUM + i,
+	                              fpregs, len);
+      am33_collect_fpregset_method (regset, regcache, 
+				    E_FPCR_REGNUM, fpregs, len);
+    }
+  else if (regnum == E_FPCR_REGNUM)
+    regcache_raw_collect (current_regcache, E_FPCR_REGNUM, 
+			  &fpregset->fpcr);
+  else if (E_FS0_REGNUM <= regnum
+           && regnum < E_FS0_REGNUM + MN10300_ELF_NFPREG)
+    regcache_raw_collect (current_regcache, regnum, 
+			  &fpregset->fpregs[regnum - E_FS0_REGNUM]);
+
+  return;
+}
+
+/* Create a struct regset from a corefile register section.  */
+
+static const struct regset *
+am33_regset_from_core_section (struct gdbarch *gdbarch, 
+			       const char *sect_name, 
+			       size_t sect_size)
+{
+  /* We will call regset_alloc, and pass the names of the supply and
+     collect methods.  */
+
+  if (sect_size == sizeof (mn10300_elf_fpregset_t))
+    return regset_alloc (gdbarch, 
+			 am33_supply_fpregset_method,
+			 am33_collect_fpregset_method);
+  else
+    return regset_alloc (gdbarch, 
+			 am33_supply_gregset_method,
+			 am33_collect_gregset_method);
+}
+
+/* AM33 Linux osabi has been recognized.
+   Now's our chance to register our corefile handling.  */
+
+static void
+am33_linux_init_osabi (struct gdbarch_info gdbinfo, struct gdbarch *gdbarch)
+{
+  set_gdbarch_regset_from_core_section (gdbarch, 
+					am33_regset_from_core_section);
+}
+
+void
+_initialize_mn10300_linux_tdep (void)
+{
+  gdbarch_register_osabi (bfd_arch_mn10300, 0,
+			  GDB_OSABI_LINUX, am33_linux_init_osabi);
+}
+