daily update
[external/binutils.git] / gdb / irix5-nat.c
index 880568e..c53c115 100644 (file)
@@ -1,7 +1,8 @@
 /* Native support for the SGI Iris running IRIX version 5, for GDB.
 
    Copyright (C) 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1998,
-   1999, 2000, 2001, 2002, 2004, 2006, 2007 Free Software Foundation, Inc.
+   1999, 2000, 2001, 2002, 2004, 2006, 2007, 2008, 2009
+   Free Software Foundation, Inc.
 
    Contributed by Alessandro Forin(af@cs.cmu.edu) at CMU
    and by Per Bothner(bothner@cs.wisc.edu) at U.Wisconsin.
@@ -12,7 +13,7 @@
 
    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
+   the Free Software Foundation; either version 3 of the License, or
    (at your option) any later version.
 
    This program is distributed in the hope that it will be useful,
@@ -21,9 +22,7 @@
    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., 51 Franklin Street, Fifth Floor,
-   Boston, MA 02110-1301, USA.  */
+   along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
 
 #include "defs.h"
 #include "inferior.h"
@@ -43,9 +42,6 @@
 static void fetch_core_registers (struct regcache *, char *,
                                  unsigned int, int, CORE_ADDR);
 
-/* Size of elements in jmpbuf */
-
-#define JB_ELEMENT_SIZE 4
 
 /*
  * See the comment in m68k-tdep.c regarding the utility of these functions.
@@ -59,24 +55,25 @@ supply_gregset (struct regcache *regcache, const gregset_t *gregsetp)
 {
   int regi;
   const greg_t *regp = &(*gregsetp)[0];
-  int gregoff = sizeof (greg_t) - mips_isa_regsize (current_gdbarch);
+  struct gdbarch *gdbarch = get_regcache_arch (regcache);
+  int gregoff = sizeof (greg_t) - mips_isa_regsize (gdbarch);
   static char zerobuf[32] = {0};
 
   for (regi = 0; regi <= CTX_RA; regi++)
     regcache_raw_supply (regcache, regi,
                         (const char *) (regp + regi) + gregoff);
 
-  regcache_raw_supply (regcache, mips_regnum (current_gdbarch)->pc,
+  regcache_raw_supply (regcache, mips_regnum (gdbarch)->pc,
                       (const char *) (regp + CTX_EPC) + gregoff);
-  regcache_raw_supply (regcache, mips_regnum (current_gdbarch)->hi,
+  regcache_raw_supply (regcache, mips_regnum (gdbarch)->hi,
                       (const char *) (regp + CTX_MDHI) + gregoff);
-  regcache_raw_supply (regcache, mips_regnum (current_gdbarch)->lo,
+  regcache_raw_supply (regcache, mips_regnum (gdbarch)->lo,
                       (const char *) (regp + CTX_MDLO) + gregoff);
-  regcache_raw_supply (regcache, mips_regnum (current_gdbarch)->cause,
+  regcache_raw_supply (regcache, mips_regnum (gdbarch)->cause,
                       (const char *) (regp + CTX_CAUSE) + gregoff);
 
   /* Fill inaccessible registers with zero.  */
-  regcache_raw_supply (regcache, mips_regnum (current_gdbarch)->badvaddr, zerobuf);
+  regcache_raw_supply (regcache, mips_regnum (gdbarch)->badvaddr, zerobuf);
 }
 
 void
@@ -85,6 +82,7 @@ fill_gregset (const struct regcache *regcache, gregset_t *gregsetp, int regno)
   int regi, size;
   greg_t *regp = &(*gregsetp)[0];
   gdb_byte buf[MAX_REGISTER_SIZE];
+  struct gdbarch *gdbarch = get_regcache_arch (regcache);
 
   /* Under Irix6, if GDB is built with N32 ABI and is debugging an O32
      executable, we have to sign extend the registers to 64 bits before
@@ -93,39 +91,39 @@ fill_gregset (const struct regcache *regcache, gregset_t *gregsetp, int regno)
   for (regi = 0; regi <= CTX_RA; regi++)
     if ((regno == -1) || (regno == regi))
       {
-       size = register_size (current_gdbarch, regi);
+       size = register_size (gdbarch, regi);
        regcache_raw_collect (regcache, regi, buf);
        *(regp + regi) = extract_signed_integer (buf, size);
       }
 
-  if ((regno == -1) || (regno == PC_REGNUM))
+  if ((regno == -1) || (regno == gdbarch_pc_regnum (gdbarch)))
     {
-      regi = mips_regnum (current_gdbarch)->pc;
-      size = register_size (current_gdbarch, regi);
+      regi = mips_regnum (gdbarch)->pc;
+      size = register_size (gdbarch, regi);
       regcache_raw_collect (regcache, regi, buf);
       *(regp + CTX_EPC) = extract_signed_integer (buf, size);
     }
 
-  if ((regno == -1) || (regno == mips_regnum (current_gdbarch)->cause))
+  if ((regno == -1) || (regno == mips_regnum (gdbarch)->cause))
     {
-      regi = mips_regnum (current_gdbarch)->cause;
-      size = register_size (current_gdbarch, regi);
+      regi = mips_regnum (gdbarch)->cause;
+      size = register_size (gdbarch, regi);
       regcache_raw_collect (regcache, regi, buf);
       *(regp + CTX_CAUSE) = extract_signed_integer (buf, size);
     }
 
-  if ((regno == -1) || (regno == mips_regnum (current_gdbarch)->hi))
+  if ((regno == -1) || (regno == mips_regnum (gdbarch)->hi))
     {
-      regi = mips_regnum (current_gdbarch)->hi;
-      size = register_size (current_gdbarch, regi);
+      regi = mips_regnum (gdbarch)->hi;
+      size = register_size (gdbarch, regi);
       regcache_raw_collect (regcache, regi, buf);
       *(regp + CTX_MDHI) = extract_signed_integer (buf, size);
     }
 
-  if ((regno == -1) || (regno == mips_regnum (current_gdbarch)->lo))
+  if ((regno == -1) || (regno == mips_regnum (gdbarch)->lo))
     {
-      regi = mips_regnum (current_gdbarch)->lo;
-      size = register_size (current_gdbarch, regi);
+      regi = mips_regnum (gdbarch)->lo;
+      size = register_size (gdbarch, regi);
       regcache_raw_collect (regcache, regi, buf);
       *(regp + CTX_MDLO) = extract_signed_integer (buf, size);
     }
@@ -133,7 +131,7 @@ fill_gregset (const struct regcache *regcache, gregset_t *gregsetp, int regno)
 
 /*
  * Now we do the same thing for floating-point registers.
- * We don't bother to condition on FP0_REGNUM since any
+ * We don't bother to condition on gdbarch_fp0_regnum since any
  * reasonable MIPS configuration has an R3010 in it.
  *
  * Again, see the comments in m68k-tdep.c.
@@ -145,11 +143,12 @@ supply_fpregset (struct regcache *regcache, const fpregset_t *fpregsetp)
   int regi;
   static char zerobuf[32] = {0};
   char fsrbuf[8];
+  struct gdbarch *gdbarch = get_regcache_arch (regcache);
 
   /* FIXME, this is wrong for the N32 ABI which has 64 bit FP regs. */
 
   for (regi = 0; regi < 32; regi++)
-    regcache_raw_supply (regcache, FP0_REGNUM + regi,
+    regcache_raw_supply (regcache, gdbarch_fp0_regnum (gdbarch) + regi,
                         (const char *) &fpregsetp->fp_r.fp_regs[regi]);
 
   /* We can't supply the FSR register directly to the regcache,
@@ -161,12 +160,11 @@ supply_fpregset (struct regcache *regcache, const fpregset_t *fpregsetp)
   memcpy (fsrbuf + 4, &fpregsetp->fp_csr, 4);
 
   regcache_raw_supply (regcache,
-                      mips_regnum (current_gdbarch)->fp_control_status,
-                      fsrbuf);
+                      mips_regnum (gdbarch)->fp_control_status, fsrbuf);
 
   /* FIXME: how can we supply FCRIR?  SGI doesn't tell us. */
   regcache_raw_supply (regcache,
-                      mips_regnum (current_gdbarch)->fp_implementation_revision,
+                      mips_regnum (gdbarch)->fp_implementation_revision,
                       zerobuf);
 }
 
@@ -175,20 +173,23 @@ fill_fpregset (const struct regcache *regcache, fpregset_t *fpregsetp, int regno
 {
   int regi;
   char *from, *to;
+  struct gdbarch *gdbarch = get_regcache_arch (regcache);
 
   /* FIXME, this is wrong for the N32 ABI which has 64 bit FP regs. */
 
-  for (regi = FP0_REGNUM; regi < FP0_REGNUM + 32; regi++)
+  for (regi = gdbarch_fp0_regnum (gdbarch);
+       regi < gdbarch_fp0_regnum (gdbarch) + 32; regi++)
     {
       if ((regno == -1) || (regno == regi))
        {
-         to = (char *) &(fpregsetp->fp_r.fp_regs[regi - FP0_REGNUM]);
+         to = (char *) &(fpregsetp->fp_r.fp_regs[regi - gdbarch_fp0_regnum
+                                                        (gdbarch)]);
           regcache_raw_collect (regcache, regi, to);
        }
     }
 
   if (regno == -1
-      || regno == mips_regnum (current_gdbarch)->fp_control_status)
+      || regno == mips_regnum (gdbarch)->fp_control_status)
     {
       char fsrbuf[8];
 
@@ -198,37 +199,13 @@ fill_fpregset (const struct regcache *regcache, fpregset_t *fpregsetp, int regno
          So we use a buffer of the correct size and copy the register
          value from that buffer.  */
       regcache_raw_collect (regcache,
-                           mips_regnum (current_gdbarch)->fp_control_status,
-                           fsrbuf);
+                           mips_regnum (gdbarch)->fp_control_status, fsrbuf);
 
       memcpy (&fpregsetp->fp_csr, fsrbuf + 4, 4);
     }
 }
 
 
-/* Figure out where the longjmp will land.
-   We expect the first arg to be a pointer to the jmp_buf structure from which
-   we extract the pc (JB_PC) that we will land at.  The pc is copied into PC.
-   This routine returns true on success. */
-
-int
-get_longjmp_target (CORE_ADDR *pc)
-{
-  char *buf;
-  CORE_ADDR jb_addr;
-
-  buf = alloca (TARGET_PTR_BIT / TARGET_CHAR_BIT);
-  jb_addr = read_register (MIPS_A0_REGNUM);
-
-  if (target_read_memory (jb_addr + JB_PC * JB_ELEMENT_SIZE, buf,
-                         TARGET_PTR_BIT / TARGET_CHAR_BIT))
-    return 0;
-
-  *pc = extract_unsigned_integer (buf, TARGET_PTR_BIT / TARGET_CHAR_BIT);
-
-  return 1;
-}
-
 /* Provide registers to GDB from a core file.
 
    CORE_REG_SECT points to an array of bytes, which were obtained from
@@ -248,18 +225,19 @@ fetch_core_registers (struct regcache *regcache,
                      int which, CORE_ADDR reg_addr)
 {
   char *srcp = core_reg_sect;
-  int regsize = mips_isa_regsize (current_gdbarch);
+  struct gdbarch *gdbarch = get_regcache_arch (regcache);
+  int regsize = mips_isa_regsize (gdbarch);
   int regno;
 
   /* If regsize is 8, this is a N32 or N64 core file.
      If regsize is 4, this is an O32 core file.  */
-  if (core_reg_size != regsize * NUM_REGS)
+  if (core_reg_size != regsize * gdbarch_num_regs (gdbarch))
     {
       warning (_("wrong size gregset struct in core file"));
       return;
     }
 
-  for (regno = 0; regno < NUM_REGS; regno++)
+  for (regno = 0; regno < gdbarch_num_regs (gdbarch); regno++)
     {
       regcache_raw_supply (regcache, regno, srcp);
       srcp += regsize;