* Rename remote-es1800.c to remote-es.c

[deliverable/binutils-gdb.git] / gdb / irix4-nat.c

diff --git a/gdb/irix4-nat.c b/gdb/irix4-nat.c
index c524c99349a8a07f0680de4cbd303fe7e1ebf1a8..d2d4258b9e596cc24a3ede17ea44ddd434fb3593 100644 (file)
--- a/gdb/irix4-nat.c
+++ b/gdb/irix4-nat.c
@@ -1,5 +1,5 @@
 /* Native support for the SGI Iris running IRIX version 4, for GDB.
-   Copyright 1988, 1989, 1990, 1991, 1992 Free Software Foundation, Inc.
+   Copyright 1988, 1989, 1990, 1991, 1992, 1993 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.
    Implemented for Irix 4.x by Garrett A. Wollman.
@@ -117,7 +117,7 @@ fill_fpregset (fpregsetp, regno)
       if ((regno == -1) || (regno == regi))
        {
          from = (char *) &registers[REGISTER_BYTE (regi)];
-         to = (char *) &(fpregsetp->fp_r.fp_regs[regi]);
+         to = (char *) &(fpregsetp->fp_r.fp_regs[regi - FP0_REGNUM]);
          bcopy(from, to, REGISTER_RAW_SIZE (regi));
        }
     }
@@ -148,3 +148,19 @@ get_longjmp_target(pc)
 
   return 1;
 }
+
+void
+fetch_core_registers (core_reg_sect, core_reg_size, which, reg_addr)
+     char *core_reg_sect;
+     unsigned core_reg_size;
+     int which;                        /* Unused */
+     unsigned int reg_addr;    /* Unused */
+{
+  if (core_reg_size != REGISTER_BYTES)
+    {
+      warning ("wrong size gregset struct in core file");
+      return;
+    }
+
+  memcpy ((char *)registers, core_reg_sect, core_reg_size);
+}