* configure.in (AC_PREREQ): autoconf 2.5 or higher.
[deliverable/binutils-gdb.git] / gdb / hppah-nat.c
index 60942dfd64f5e92a86bade180df9dfb8cb4c3a01..17a675dc6af8b7ed18a13b6ccc381bcf879ca84b 100644 (file)
@@ -20,7 +20,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., 675 Mass Ave, Cambridge, MA 02139, USA.  */
+Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
 
 
 #include "defs.h"
@@ -32,58 +32,6 @@ extern CORE_ADDR text_end;
 
 static void fetch_register ();
 
-/* This function simply calls ptrace with the given arguments.  
-   It exists so that all calls to ptrace are isolated in this 
-   machine-dependent file. */
-int
-call_ptrace (request, pid, addr, data)
-     int request, pid;
-     PTRACE_ARG3_TYPE addr;
-     int data;
-{
-  return ptrace (request, pid, addr, data, 0);
-}
-
-void
-kill_inferior ()
-{
-  if (inferior_pid == 0)
-    return;
-  ptrace (PT_EXIT, inferior_pid, (PTRACE_ARG3_TYPE) 0, 0, 0);
-  wait ((int *)0);
-  target_mourn_inferior ();
-}
-
-/* Start debugging the process whose number is PID.  */
-int
-attach (pid)
-     int pid;
-{
-  errno = 0;
-  ptrace (PT_ATTACH, pid, (PTRACE_ARG3_TYPE) 0, 0, 0);
-  if (errno)
-    perror_with_name ("ptrace");
-  attach_flag = 1;
-  return pid;
-}
-
-/* Stop debugging the process whose number is PID
-   and continue it with signal number SIGNAL.
-   SIGNAL = 0 means just continue it.  */
-
-void
-detach (signal)
-     int signal;
-{
-  errno = 0;
-  ptrace (PT_DETACH, inferior_pid, (PTRACE_ARG3_TYPE) 1, signal, 0);
-  if (errno)
-    perror_with_name ("ptrace");
-  attach_flag = 0;
-}
-
-/* Fetch all registers, or just one, from the child process.  */
-
 void
 fetch_inferior_registers (regno)
      int regno;
@@ -112,13 +60,15 @@ store_inferior_registers (regno)
 
   if (regno >= 0)
     {
+      if (CANNOT_STORE_REGISTER (regno))
+       return;
       regaddr = register_addr (regno, offset);
       errno = 0;
       if (regno == PCOQ_HEAD_REGNUM || regno == PCOQ_TAIL_REGNUM)
         {
           scratch = *(int *) &registers[REGISTER_BYTE (regno)] | 0x3;
-          ptrace (PT_WUREGS, inferior_pid, (PTRACE_ARG3_TYPE) regaddr,
-                  scratch, 0);
+          call_ptrace (PT_WUREGS, inferior_pid, (PTRACE_ARG3_TYPE) regaddr,
+                  scratch);
           if (errno != 0)
             {
              /* Error, even if attached.  Failing to write these two
@@ -131,8 +81,8 @@ store_inferior_registers (regno)
        for (i = 0; i < REGISTER_RAW_SIZE (regno); i += sizeof(int))
          {
            errno = 0;
-           ptrace (PT_WUREGS, inferior_pid, (PTRACE_ARG3_TYPE) regaddr,
-                   *(int *) &registers[REGISTER_BYTE (regno) + i], 0);
+           call_ptrace (PT_WUREGS, inferior_pid, (PTRACE_ARG3_TYPE) regaddr,
+                   *(int *) &registers[REGISTER_BYTE (regno) + i]);
            if (errno != 0)
              {
                /* Warning, not error, in case we are attached; sometimes the
@@ -142,22 +92,14 @@ store_inferior_registers (regno)
                sprintf (msg, "writing register %s: %s",
                         reg_names[regno], err);
                warning (msg);
-               goto error_exit;
+               return;
              }
            regaddr += sizeof(int);
          }
     }
   else
-    {
-      for (regno = 0; regno < NUM_REGS; regno++)
-       {
-         if (CANNOT_STORE_REGISTER (regno))
-           continue;
-         store_inferior_registers (regno);
-       }
-    }
- error_exit:
-  return;
+    for (regno = 0; regno < NUM_REGS; regno++)
+      store_inferior_registers (regno);
 }
 
 /* Fetch one register.  */
@@ -180,8 +122,8 @@ fetch_register (regno)
   for (i = 0; i < REGISTER_RAW_SIZE (regno); i += sizeof (int))
     {
       errno = 0;
-      *(int *) &buf[i] = ptrace (PT_RUREGS, inferior_pid,
-                                (PTRACE_ARG3_TYPE) regaddr, 0, 0);
+      *(int *) &buf[i] = call_ptrace (PT_RUREGS, inferior_pid,
+                                (PTRACE_ARG3_TYPE) regaddr, 0);
       regaddr += sizeof (int);
       if (errno != 0)
        {
@@ -200,34 +142,6 @@ fetch_register (regno)
  error_exit:;
 }
 
-/* Resume execution of process PID.
-   If STEP is nonzero, single-step it.
-   If SIGNAL is nonzero, give it that signal.  */
-
-void
-child_resume (pid, step, signal)
-     int pid;
-     int step;
-     int signal;
-{
-  errno = 0;
-
-  if (pid == -1)
-    pid = inferior_pid;
-
-  /* An address of (PTRACE_ARG3_TYPE) 1 tells ptrace to continue from where
-     it was. (If GDB wanted it to start some other way, we have already
-     written a new PC value to the child.)  */
-
-  if (step)
-    ptrace (PT_SINGLE, pid, (PTRACE_ARG3_TYPE) 1, signal, 0);
-  else
-    ptrace (PT_CONTIN, pid, (PTRACE_ARG3_TYPE) 1, signal, 0);
-
-  if (errno)
-    perror_with_name ("ptrace");
-}
-
 /* Copy LEN bytes to or from inferior's memory starting at MEMADDR
    to debugger memory starting at MYADDR.   Copy to inferior if
    WRITE is nonzero.
@@ -260,16 +174,16 @@ child_xfer_memory (memaddr, myaddr, len, write, target)
 
       if (addr != memaddr || len < (int)sizeof (int)) {
        /* Need part of initial word -- fetch it.  */
-        buffer[0] = ptrace (addr < text_end ? PT_RIUSER : PT_RDUSER, 
-                           inferior_pid, (PTRACE_ARG3_TYPE) addr, 0, 0);
+        buffer[0] = call_ptrace (addr < text_end ? PT_RIUSER : PT_RDUSER, 
+                           inferior_pid, (PTRACE_ARG3_TYPE) addr, 0);
       }
 
       if (count > 1)           /* FIXME, avoid if even boundary */
        {
          buffer[count - 1]
-           = ptrace (addr < text_end ? PT_RIUSER : PT_RDUSER, inferior_pid,
+           = call_ptrace (addr < text_end ? PT_RIUSER : PT_RDUSER, inferior_pid,
                      (PTRACE_ARG3_TYPE) (addr + (count - 1) * sizeof (int)),
-                     0, 0);
+                     0);
        }
 
       /* Copy data to be written over corresponding part of buffer */
@@ -285,9 +199,9 @@ child_xfer_memory (memaddr, myaddr, len, write, target)
    WIUSER, or do these idiots really expect us to figure out which segment
    the address is in, so we can use a separate system call for it??!  */
          errno = 0;
-         ptrace (addr < text_end ? PT_WIUSER : PT_WDUSER, inferior_pid, 
+         call_ptrace (addr < text_end ? PT_WIUSER : PT_WDUSER, inferior_pid, 
                  (PTRACE_ARG3_TYPE) addr,
-                 buffer[i], 0);
+                 buffer[i]);
          if (errno)
            return 0;
        }
@@ -298,8 +212,8 @@ child_xfer_memory (memaddr, myaddr, len, write, target)
       for (i = 0; i < count; i++, addr += sizeof (int))
        {
          errno = 0;
-         buffer[i] = ptrace (addr < text_end ? PT_RIUSER : PT_RDUSER, 
-                             inferior_pid, (PTRACE_ARG3_TYPE) addr, 0, 0);
+         buffer[i] = call_ptrace (addr < text_end ? PT_RIUSER : PT_RDUSER, 
+                             inferior_pid, (PTRACE_ARG3_TYPE) addr, 0);
          if (errno)
            return 0;
          QUIT;
This page took 0.026228 seconds and 4 git commands to generate.