Improve release doc slightly.

[deliverable/binutils-gdb.git] / gdb / mips-xdep.c

diff --git a/gdb/mips-xdep.c b/gdb/mips-xdep.c
index 4052a9c4bd96e54973018e43e4896919d6985516..6c0e51955304003e8b81e6201fbae3eab3e3c1d1 100644 (file)
--- a/gdb/mips-xdep.c
+++ b/gdb/mips-xdep.c
@@ -23,10 +23,11 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
 #include "inferior.h"
 #include "gdbcore.h"
 
-/* For now we stub this out; sgi format is super-hairy (and completely
-   different in the new release) */
+/* For now we stub this out; sgi core format is super-hairy (and completely
+   different in the new release).
+   For most mips systems, this function is defined in coredep.c.   */
 
-#if defined(sgi) || !defined(GDB_TARGET_IS_MIPS)
+#if defined(sgi) 
 void
 fetch_core_registers (core_reg_sect, core_reg_size, which, reg_addr)
      char *core_reg_sect;
@@ -36,6 +37,12 @@ fetch_core_registers (core_reg_sect, core_reg_size, which, reg_addr)
 {
   return;
 }
+#endif
+
+/* Access to the inferior is only good for native systems, not cross.
+   I am not sure why this is stubbed out on SGI...   --gnu@cygnus.com  */
+
+#if defined(sgi) || !defined(GDB_TARGET_IS_MIPS)
 
 /* ARGSUSED */
 void
@@ -56,17 +63,22 @@ store_inferior_registers (regno)
 
 #else
 
-/* Map gdb internal register number to ptrace address. */
+/* DECstation native... */
+
+#include <sys/ptrace.h>
+
+/* Map gdb internal register number to ptrace ``address''.
+   These ``addresses'' are defined in DECstation <sys/ptrace.h> */
 
 #define REGISTER_PTRACE_ADDR(regno) \
- (regno < 32 ? regno           \
-  : regno == PC_REGNUM ? 96    \
-  : regno == CAUSE_REGNUM ? 97 \
-  : regno == HI_REGNUM ? 98    \
-  : regno == LO_REGNUM ? 99    \
-  : regno == FCRCS_REGNUM ? 100        \
-  : regno == FCRIR_REGNUM ? 101        \
-  : regno >= FP0_REGNUM ? regno - (FP0_REGNUM-32)\
+   (regno < 32 ?               GPR_BASE + regno \
+  : regno == PC_REGNUM ?       PC      \
+  : regno == CAUSE_REGNUM ?    CAUSE   \
+  : regno == HI_REGNUM ?       MMHI    \
+  : regno == LO_REGNUM ?       MMLO    \
+  : regno == FCRCS_REGNUM ?    FPC_CSR \
+  : regno == FCRIR_REGNUM ?    FPC_EIR \
+  : regno >= FP0_REGNUM ?      FPR_BASE + (regno - FP0_REGNUM) \
   : 0)
 
 /* Get all registers from the inferior */
@@ -86,7 +98,7 @@ fetch_inferior_registers (regno)
       regaddr = REGISTER_PTRACE_ADDR (regno);
       for (i = 0; i < REGISTER_RAW_SIZE (regno); i += sizeof (int))
        {
-         *(int *) &buf[i] = ptrace (3, inferior_pid,
+         *(int *) &buf[i] = ptrace (PT_READ_U, inferior_pid,
                                     (PTRACE_ARG3_TYPE) regaddr, 0);
          regaddr += sizeof (int);
        }
@@ -112,7 +124,7 @@ store_inferior_registers (regno)
     {
       regaddr = REGISTER_PTRACE_ADDR (regno);
       errno = 0;
-      ptrace (6, inferior_pid, (PTRACE_ARG3_TYPE) regaddr,
+      ptrace (PT_WRITE_U, inferior_pid, (PTRACE_ARG3_TYPE) regaddr,
              read_register (regno));
       if (errno != 0)
        {
@@ -143,26 +155,3 @@ store_inferior_registers (regno)
 }
 
 #endif /* sgi */
-
-#if 0
-void
-fetch_core_registers ()
-{
-  register int regno;
-  int val;
-
-  for (regno = 1; regno < NUM_REGS; regno++) {
-    char buf[MAX_REGISTER_RAW_SIZE];
-
-    val = bfd_seek (core_bfd, register_addr (regno, 0));
-    if (val < 0 || (val = bfd_read (core_bfd, buf, sizeof buf)) < 0) {
-      char buffer[50];
-      strcpy (buffer, "Reading register ");
-      strcat (buffer, reg_names[regno]);
-
-      perror_with_name (buffer);
-    }
-    supply_register (regno, buf);
-  }
-}
-#endif /* 0 */