add MEM_FNS_DECLARED

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

diff --git a/gdb/mips-xdep.c b/gdb/mips-xdep.c
index 51984e73566ddbf9f3167169b3eed48570bbc925..e314bf7c18edca4efdb58f41b6b5f2dcad9bb3b7 100644 (file)
--- a/gdb/mips-xdep.c
+++ b/gdb/mips-xdep.c
@@ -1,5 +1,5 @@
 /* Low level MIPS interface to ptrace, for GDB when running under Unix.
-   Copyright (C) 1988, 1989, 1991 Free Software Foundation, Inc.
+   Copyright 1988, 1989, 1991, 1992 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.
 
@@ -19,51 +19,41 @@ 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., 675 Mass Ave, Cambridge, MA 02139, USA.  */
 
-#include <stdio.h>
-#ifdef sgi
-#include <sys/inst.h>
-#else
-#include <mips/inst.h>
-#endif
 #include "defs.h"
-#include "param.h"
-#include "frame.h"
 #include "inferior.h"
-#include "symtab.h"
-#include "value.h"
-
-#ifdef USG
-#include <sys/types.h>
-#endif
-
-#include <sys/param.h>
-#include <sys/dir.h>
-#include <signal.h>
-#include <sys/ioctl.h>
-/* #include <fcntl.h>  Can we live without this?  */
-
 #include "gdbcore.h"
 
-#include <sys/user.h>          /* After a.out.h  */
-#include <sys/file.h>
-#include <sys/stat.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.   */
 
-#ifdef sgi
+#if defined(sgi) 
 void
-fetch_core_registers ()
+fetch_core_registers (core_reg_sect, core_reg_size, which, reg_addr)
+     char *core_reg_sect;
+     unsigned core_reg_size;
+     int which;
+     unsigned int 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
-fetch_inferior_registers ()
+fetch_inferior_registers (regno)
+     int regno;
 {
   return;
 }
 
+/* ARGSUSED */
+void
 store_inferior_registers (regno)
      int regno;
 {
@@ -73,12 +63,32 @@ store_inferior_registers (regno)
 
 #else
 
+/* 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 ?               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)
+
+static const char zerobuf[MAX_REGISTER_RAW_SIZE];
+
 /* Get all registers from the inferior */
 
 void
-fetch_inferior_registers ()
+fetch_inferior_registers (regno)
+     int regno;
 {
-  register int regno;
   register unsigned int regaddr;
   char buf[MAX_REGISTER_RAW_SIZE];
   register int i;
@@ -87,14 +97,19 @@ fetch_inferior_registers ()
 
   for (regno = 1; regno < NUM_REGS; regno++)
     {
-      regaddr = register_addr (regno, 1);
+      regaddr = REGISTER_PTRACE_ADDR (regno);
       for (i = 0; i < REGISTER_RAW_SIZE (regno); i += sizeof (int))
        {
-         *(int *) &buf[i] = ptrace (3, inferior_pid, regaddr, 0);
+         *(int *) &buf[i] = ptrace (PT_READ_U, inferior_pid,
+                                    (PTRACE_ARG3_TYPE) regaddr, 0);
          regaddr += sizeof (int);
        }
       supply_register (regno, buf);
     }
+
+  supply_register (ZERO_REGNUM, zerobuf);
+  /* Frame ptr reg must appear to be 0; it is faked by stack handling code. */
+  supply_register (FP_REGNUM, zerobuf);
 }
 
 /* Store our register values back into the inferior.
@@ -113,9 +128,10 @@ store_inferior_registers (regno)
 
   if (regno > 0)
     {
-      regaddr = register_addr (regno, 1);
+      regaddr = REGISTER_PTRACE_ADDR (regno);
       errno = 0;
-      ptrace (6, inferior_pid, regaddr, read_register (regno));
+      ptrace (PT_WRITE_U, inferior_pid, (PTRACE_ARG3_TYPE) regaddr,
+             read_register (regno));
       if (errno != 0)
        {
          sprintf (buf, "writing register number %d", regno);
@@ -124,14 +140,17 @@ store_inferior_registers (regno)
     }
   else
     {
-      for (regno = 1; regno < NUM_REGS; regno++)
+      for (regno = 0; regno < NUM_REGS; regno++)
        {
-         if (regno == 32 || regno == 35 || regno == 36
-             || regno == 71 || regno == FP_REGNUM)
+         if (regno == ZERO_REGNUM || regno == PS_REGNUM
+             || regno == BADVADDR_REGNUM || regno == CAUSE_REGNUM
+             || regno == FCRIR_REGNUM || regno == FP_REGNUM
+             || (regno >= FIRST_EMBED_REGNUM && regno <= LAST_EMBED_REGNUM))
            continue;
          regaddr = register_addr (regno, 1);
          errno = 0;
-         ptrace (6, inferior_pid, regaddr, read_register (regno));
+         ptrace (6, inferior_pid, (PTRACE_ARG3_TYPE) regaddr,
+                 read_register (regno));
          if (errno != 0)
            {
              sprintf (buf, "writing all regs, number %d", regno);
@@ -142,26 +161,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 */