* configure.tgt (arm*-*-netbsd*): This variant is now fully multi-arch.

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

diff --git a/gdb/hppah-nat.c b/gdb/hppah-nat.c
index d1e632c1eabf716875262f3bb259f593ce000405..aab5e96ccf3b478c9c31b736dee03879ee309f7e 100644 (file)
--- a/gdb/hppah-nat.c
+++ b/gdb/hppah-nat.c
@@ -1,25 +1,27 @@
 /* Native support code for HPUX PA-RISC.
 /* Native support code for HPUX PA-RISC.

-   Copyright 1986, 1987, 1989, 1990, 1991, 1992, 1993, 1998, 1999
+   Copyright 1986, 1987, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996,
+   1998, 1999, 2000, 2001

    Free Software Foundation, Inc.
 
    Contributed by the Center for Software Science at the
    University of Utah (pa-gdb-bugs@cs.utah.edu).
 
    Free Software Foundation, Inc.
 
    Contributed by the Center for Software Science at the
    University of Utah (pa-gdb-bugs@cs.utah.edu).
 

-This file is part of GDB.
+   This file is part of GDB.

 
 

-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
-(at your option) any later version.
+   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
+   (at your option) any later version.

 
 

-This program is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-GNU General Public License for more details.
+   This program is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
+   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., 59 Temple Place - Suite 330,
+   Boston, MA 02111-1307, USA.  */

 
 
 #include "defs.h"
 
 
 #include "defs.h"


@@ -27,16 +29,16 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
 #include "target.h"
 #include <sys/ptrace.h>
 #include "gdbcore.h"
 #include "target.h"
 #include <sys/ptrace.h>
 #include "gdbcore.h"

-#include <wait.h>
+#include "gdb_wait.h"
+#include "regcache.h"

 #include <signal.h>
 
 extern CORE_ADDR text_end;
 
 #include <signal.h>
 
 extern CORE_ADDR text_end;
 

-static void fetch_register PARAMS ((int));
+static void fetch_register (int);

 
 void
 
 void

-fetch_inferior_registers (regno)
-     int regno;
+fetch_inferior_registers (int regno)

 {
   if (regno == -1)
     for (regno = 0; regno < NUM_REGS; regno++)
 {
   if (regno == -1)
     for (regno = 0; regno < NUM_REGS; regno++)


@@ -45,13 +47,15 @@ fetch_inferior_registers (regno)
     fetch_register (regno);
 }
 
     fetch_register (regno);
 }
 

+/* Our own version of the offsetof macro, since we can't assume ANSI C.  */
+#define HPPAH_OFFSETOF(type, member) ((int) (&((type *) 0)->member))
+

 /* Store our register values back into the inferior.
    If REGNO is -1, do this for all registers.
    Otherwise, REGNO specifies which register (so we can save time).  */
 
 void
 /* Store our register values back into the inferior.
    If REGNO is -1, do this for all registers.
    Otherwise, REGNO specifies which register (so we can save time).  */
 
 void

-store_inferior_registers (regno)
-     int regno;
+store_inferior_registers (int regno)

 {
   register unsigned int regaddr;
   char buf[80];
 {
   register unsigned int regaddr;
   char buf[80];


@@ -61,110 +65,222 @@ store_inferior_registers (regno)
 
   if (regno >= 0)
     {
 
   if (regno >= 0)
     {

+      unsigned int addr, len, offset;
+

       if (CANNOT_STORE_REGISTER (regno))
        return;
       if (CANNOT_STORE_REGISTER (regno))
        return;

-      regaddr = register_addr (regno, offset);
-      errno = 0;
-      if (regno == PCOQ_HEAD_REGNUM || regno == PCOQ_TAIL_REGNUM)
+
+      offset = 0;
+      len = REGISTER_RAW_SIZE (regno);
+
+      /* Requests for register zero actually want the save_state's
+        ss_flags member.  As RM says: "Oh, what a hack!"  */
+      if (regno == 0)
+       {
+         save_state_t ss;
+         addr = HPPAH_OFFSETOF (save_state_t, ss_flags);
+         len = sizeof (ss.ss_flags);
+
+         /* Note that ss_flags is always an int, no matter what
+            REGISTER_RAW_SIZE(0) says.  Assuming all HP-UX PA machines
+            are big-endian, put it at the least significant end of the
+            value, and zap the rest of the buffer.  */
+         offset = REGISTER_RAW_SIZE (0) - len;
+       }
+
+      /* Floating-point registers come from the ss_fpblock area.  */
+      else if (regno >= FP0_REGNUM)
+       addr = (HPPAH_OFFSETOF (save_state_t, ss_fpblock) 
+               + (REGISTER_BYTE (regno) - REGISTER_BYTE (FP0_REGNUM)));
+
+      /* Wide registers come from the ss_wide area.
+        I think it's more PC to test (ss_flags & SS_WIDEREGS) to select
+        between ss_wide and ss_narrow than to use the raw register size.
+        But checking ss_flags would require an extra ptrace call for
+        every register reference.  Bleah.  */
+      else if (len == 8)
+       addr = (HPPAH_OFFSETOF (save_state_t, ss_wide) 
+               + REGISTER_BYTE (regno));
+
+      /* Narrow registers come from the ss_narrow area.  Note that
+        ss_narrow starts with gr1, not gr0.  */
+      else if (len == 4)
+       addr = (HPPAH_OFFSETOF (save_state_t, ss_narrow)
+               + (REGISTER_BYTE (regno) - REGISTER_BYTE (1)));
+      else
+       internal_error (__FILE__, __LINE__,
+                       "hppah-nat.c (write_register): unexpected register size");
+
+#ifdef GDB_TARGET_IS_HPPA_20W
+      /* Unbelieveable.  The PC head and tail must be written in 64bit hunks
+        or we will get an error.  Worse yet, the oddball ptrace/ttrace
+        layering will not allow us to perform a 64bit register store.
+
+        What a crock.  */
+      if (regno == PCOQ_HEAD_REGNUM || regno == PCOQ_TAIL_REGNUM && len == 8)

        {
        {

-         scratch = *(int *) &registers[REGISTER_BYTE (regno)] | 0x3;
-         call_ptrace (PT_WUREGS, inferior_pid, (PTRACE_ARG3_TYPE) regaddr,
-                      scratch);
+         CORE_ADDR temp;
+
+         temp = *(CORE_ADDR *)&registers[REGISTER_BYTE (regno)];
+
+         /* Set the priv level (stored in the low two bits of the PC.  */
+         temp |= 0x3;
+
+         ttrace_write_reg_64 (PIDGET (inferior_ptid), (CORE_ADDR)addr,
+                              (CORE_ADDR)&temp);
+
+         /* If we fail to write the PC, give a true error instead of
+            just a warning.  */

          if (errno != 0)
            {
          if (errno != 0)
            {

-             /* Error, even if attached.  Failing to write these two
-                registers is pretty serious.  */
-             sprintf (buf, "writing register number %d", regno);
-             perror_with_name (buf);
+             char *err = safe_strerror (errno);
+             char *msg = alloca (strlen (err) + 128);
+             sprintf (msg, "writing `%s' register: %s",
+                       REGISTER_NAME (regno), err);
+             perror_with_name (msg);

            }
            }

+         return;

        }
        }

-      else
-       for (i = 0; i < REGISTER_RAW_SIZE (regno); i += sizeof(int))
-         {
-           errno = 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
-                  kernel doesn't let us at the registers.  */
-               char *err = safe_strerror (errno);
-               char *msg = alloca (strlen (err) + 128);
-               sprintf (msg, "writing register %s: %s",
-                        REGISTER_NAME (regno), err);
+
+      /* Another crock.  HPUX complains if you write a nonzero value to
+        the high part of IPSW.  What will it take for HP to catch a
+        clue about building sensible interfaces?  */
+     if (regno == IPSW_REGNUM && len == 8)
+       *(int *)&registers[REGISTER_BYTE (regno)] = 0;
+#endif
+
+      for (i = 0; i < len; i += sizeof (int))
+       {
+         errno = 0;
+         call_ptrace (PT_WUREGS, PIDGET (inferior_ptid),
+                      (PTRACE_ARG3_TYPE) addr + i,
+                      *(int *) &registers[REGISTER_BYTE (regno) + i]);
+         if (errno != 0)
+           {
+             /* Warning, not error, in case we are attached; sometimes
+                the kernel doesn't let us at the registers. */
+             char *err = safe_strerror (errno);
+             char *msg = alloca (strlen (err) + 128);
+             sprintf (msg, "writing `%s' register: %s",
+                       REGISTER_NAME (regno), err);
+             /* If we fail to write the PC, give a true error instead of
+                just a warning.  */
+             if (regno == PCOQ_HEAD_REGNUM || regno == PCOQ_TAIL_REGNUM)
+               perror_with_name (msg);
+             else

                warning (msg);
                warning (msg);

-               return;
-             }
-           regaddr += sizeof(int);
-         }
+             return;
+           }
+       }

     }
   else
     for (regno = 0; regno < NUM_REGS; regno++)
       store_inferior_registers (regno);
 }
 
     }
   else
     for (regno = 0; regno < NUM_REGS; regno++)
       store_inferior_registers (regno);
 }
 

-/* Fetch one register.  */

 
 

+/* Fetch a register's value from the process's U area.  */

 static void
 static void

-fetch_register (regno)
-     int regno;
+fetch_register (int regno)

 {
 {

-  register unsigned int regaddr;

   char buf[MAX_REGISTER_RAW_SIZE];
   char buf[MAX_REGISTER_RAW_SIZE];

-  register int i;
+  unsigned int addr, len, offset;
+  int i;
+
+  offset = 0;
+  len = REGISTER_RAW_SIZE (regno);

 
 

-  /* Offset of registers within the u area.  */
-  unsigned int offset;
+  /* Requests for register zero actually want the save_state's
+     ss_flags member.  As RM says: "Oh, what a hack!"  */
+  if (regno == 0)
+    {
+      save_state_t ss;
+      addr = HPPAH_OFFSETOF (save_state_t, ss_flags);
+      len = sizeof (ss.ss_flags);
+
+      /* Note that ss_flags is always an int, no matter what
+        REGISTER_RAW_SIZE(0) says.  Assuming all HP-UX PA machines
+        are big-endian, put it at the least significant end of the
+        value, and zap the rest of the buffer.  */
+      offset = REGISTER_RAW_SIZE (0) - len;
+      memset (buf, 0, sizeof (buf));
+    }

 
 

-  offset = U_REGS_OFFSET;
+  /* Floating-point registers come from the ss_fpblock area.  */
+  else if (regno >= FP0_REGNUM)
+    addr = (HPPAH_OFFSETOF (save_state_t, ss_fpblock) 
+           + (REGISTER_BYTE (regno) - REGISTER_BYTE (FP0_REGNUM)));
+
+  /* Wide registers come from the ss_wide area.
+     I think it's more PC to test (ss_flags & SS_WIDEREGS) to select
+     between ss_wide and ss_narrow than to use the raw register size.
+     But checking ss_flags would require an extra ptrace call for
+     every register reference.  Bleah.  */
+  else if (len == 8)
+    addr = (HPPAH_OFFSETOF (save_state_t, ss_wide) 
+           + REGISTER_BYTE (regno));
+
+  /* Narrow registers come from the ss_narrow area.  Note that
+     ss_narrow starts with gr1, not gr0.  */
+  else if (len == 4)
+    addr = (HPPAH_OFFSETOF (save_state_t, ss_narrow)
+           + (REGISTER_BYTE (regno) - REGISTER_BYTE (1)));

 
 

-  regaddr = register_addr (regno, offset);
-  for (i = 0; i < REGISTER_RAW_SIZE (regno); i += sizeof (int))
+  else
+    internal_error (__FILE__, __LINE__,
+                   "hppa-nat.c (fetch_register): unexpected register size");
+
+  for (i = 0; i < len; i += sizeof (int))

     {
       errno = 0;
     {
       errno = 0;

-      *(int *) &buf[i] = call_ptrace (PT_RUREGS, inferior_pid,
-                                     (PTRACE_ARG3_TYPE) regaddr, 0);
-      regaddr += sizeof (int);
+      /* Copy an int from the U area to buf.  Fill the least
+         significant end if len != raw_size.  */
+      * (int *) &buf[offset + i] =
+         call_ptrace (PT_RUREGS, PIDGET (inferior_ptid),
+                      (PTRACE_ARG3_TYPE) addr + i, 0);

       if (errno != 0)
        {
       if (errno != 0)
        {

-         /* Warning, not error, in case we are attached; sometimes the
-            kernel doesn't let us at the registers.  */
+         /* Warning, not error, in case we are attached; sometimes
+            the kernel doesn't let us at the registers. */

          char *err = safe_strerror (errno);
          char *msg = alloca (strlen (err) + 128);
          char *err = safe_strerror (errno);
          char *msg = alloca (strlen (err) + 128);

-         sprintf (msg, "reading register %s: %s", REGISTER_NAME (regno), err);
+         sprintf (msg, "reading `%s' register: %s",
+                  REGISTER_NAME (regno), err);

          warning (msg);
          warning (msg);

-         goto error_exit;
+         return;

        }
     }
        }
     }

+
+  /* If we're reading an address from the instruction address queue,
+     mask out the bottom two bits --- they contain the privilege
+     level.  */

   if (regno == PCOQ_HEAD_REGNUM || regno == PCOQ_TAIL_REGNUM)
   if (regno == PCOQ_HEAD_REGNUM || regno == PCOQ_TAIL_REGNUM)

-    buf[3] &= ~0x3;
+    buf[len - 1] &= ~0x3;
+

   supply_register (regno, buf);
   supply_register (regno, buf);

- error_exit:;

 }
 
 }
 

+

 /* 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.
 /* 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.

-  
+

    Returns the length copied, which is either the LEN argument or zero.
    This xfer function does not do partial moves, since child_ops
    doesn't allow memory operations to cross below us in the target stack
    Returns the length copied, which is either the LEN argument or zero.
    This xfer function does not do partial moves, since child_ops
    doesn't allow memory operations to cross below us in the target stack

-   anyway.  */
+   anyway.  TARGET is ignored.  */

 
 int
 
 int

-child_xfer_memory (memaddr, myaddr, len, write, target)
-     CORE_ADDR memaddr;
-     char *myaddr;
-     int len;
-     int write;
-     struct target_ops *target;                /* ignored */
+child_xfer_memory (CORE_ADDR memaddr, char *myaddr, int len, int write,
+                  struct mem_attrib *mem,
+                  struct target_ops *target)

 {
   register int i;
   /* Round starting address down to longword boundary.  */
 {
   register int i;
   /* Round starting address down to longword boundary.  */

-  register CORE_ADDR addr = memaddr & - sizeof (int);
+  register CORE_ADDR addr = memaddr & - (CORE_ADDR)(sizeof (int));

   /* Round ending address up; get number of longwords that makes.  */
   register int count
   /* Round ending address up; get number of longwords that makes.  */
   register int count

-    = (((memaddr + len) - addr) + sizeof (int) - 1) / sizeof (int);
+  = (((memaddr + len) - addr) + sizeof (int) - 1) / sizeof (int);

 
   /* Allocate buffer of that many longwords.
      Note -- do not use alloca to allocate this buffer since there is no
 
   /* Allocate buffer of that many longwords.
      Note -- do not use alloca to allocate this buffer since there is no


@@ -179,18 +295,19 @@ child_xfer_memory (memaddr, myaddr, len, write, target)
   if (write)
     {
       /* Fill start and end extra bytes of buffer with existing memory data.  */
   if (write)
     {
       /* Fill start and end extra bytes of buffer with existing memory data.  */

-      if (addr != memaddr || len < (int)sizeof (int))
+      if (addr != memaddr || len < (int) sizeof (int))

        {
          /* Need part of initial word -- fetch it.  */
        {
          /* Need part of initial word -- fetch it.  */

-         buffer[0] = call_ptrace (addr < text_end ? PT_RIUSER : PT_RDUSER, 
-                                  inferior_pid, (PTRACE_ARG3_TYPE) addr, 0);
+         buffer[0] = call_ptrace (addr < text_end ? PT_RIUSER : PT_RDUSER,
+                                  PIDGET (inferior_ptid),
+                                  (PTRACE_ARG3_TYPE) addr, 0);

        }
 
       if (count > 1)           /* FIXME, avoid if even boundary */
        {
          buffer[count - 1]
            = call_ptrace (addr < text_end ? PT_RIUSER : PT_RDUSER,
        }
 
       if (count > 1)           /* FIXME, avoid if even boundary */
        {
          buffer[count - 1]
            = call_ptrace (addr < text_end ? PT_RIUSER : PT_RDUSER,

-                          inferior_pid,
+                          PIDGET (inferior_ptid),

                           (PTRACE_ARG3_TYPE) (addr
                                               + (count - 1) * sizeof (int)),
                           0);
                           (PTRACE_ARG3_TYPE) (addr
                                               + (count - 1) * sizeof (int)),
                           0);


@@ -212,7 +329,7 @@ child_xfer_memory (memaddr, myaddr, len, write, target)
          errno = 0;
          pt_request = (addr < text_end) ? PT_WIUSER : PT_WDUSER;
          pt_status = call_ptrace (pt_request,
          errno = 0;
          pt_request = (addr < text_end) ? PT_WIUSER : PT_WDUSER;
          pt_status = call_ptrace (pt_request,

-                                  inferior_pid, 
+                                  PIDGET (inferior_ptid),

                                   (PTRACE_ARG3_TYPE) addr,
                                   buffer[i]);
 
                                   (PTRACE_ARG3_TYPE) addr,
                                   buffer[i]);
 


@@ -224,14 +341,14 @@ child_xfer_memory (memaddr, myaddr, len, write, target)
              errno = 0;
              pt_request = (pt_request == PT_WIUSER) ? PT_WDUSER : PT_WIUSER;
              pt_status = call_ptrace (pt_request,
              errno = 0;
              pt_request = (pt_request == PT_WIUSER) ? PT_WDUSER : PT_WIUSER;
              pt_status = call_ptrace (pt_request,

-                                      inferior_pid, 
+                                      PIDGET (inferior_ptid),

                                       (PTRACE_ARG3_TYPE) addr,
                                       buffer[i]);
 
              /* No, we still fail.  Okay, time to punt. */
              if ((pt_status == -1) && errno)
                {
                                       (PTRACE_ARG3_TYPE) addr,
                                       buffer[i]);
 
              /* No, we still fail.  Okay, time to punt. */
              if ((pt_status == -1) && errno)
                {

-                 free(buffer);
+                 xfree (buffer);

                  return 0;
                }
            }
                  return 0;
                }
            }


@@ -243,11 +360,12 @@ child_xfer_memory (memaddr, myaddr, len, write, target)
       for (i = 0; i < count; i++, addr += sizeof (int))
        {
          errno = 0;
       for (i = 0; i < count; i++, addr += sizeof (int))
        {
          errno = 0;

-         buffer[i] = call_ptrace (addr < text_end ? PT_RIUSER : PT_RDUSER, 
-                                  inferior_pid, (PTRACE_ARG3_TYPE) addr, 0);
+         buffer[i] = call_ptrace (addr < text_end ? PT_RIUSER : PT_RDUSER,
+                                  PIDGET (inferior_ptid),
+                                  (PTRACE_ARG3_TYPE) addr, 0);

          if (errno)
            {
          if (errno)
            {

-             free(buffer);
+             xfree (buffer);

              return 0;
            }
          QUIT;
              return 0;
            }
          QUIT;


@@ -256,13 +374,13 @@ child_xfer_memory (memaddr, myaddr, len, write, target)
       /* Copy appropriate bytes out of the buffer.  */
       memcpy (myaddr, (char *) buffer + (memaddr & (sizeof (int) - 1)), len);
     }
       /* Copy appropriate bytes out of the buffer.  */
       memcpy (myaddr, (char *) buffer + (memaddr & (sizeof (int) - 1)), len);
     }

-  free(buffer);
+  xfree (buffer);

   return len;
 }
 
 
 void
   return len;
 }
 
 
 void

-child_post_follow_inferior_by_clone ()
+child_post_follow_inferior_by_clone (void)

 {
   int status;
 
 {
   int status;
 


@@ -275,16 +393,13 @@ child_post_follow_inferior_by_clone ()
      At this point, the clone has attached to the child.  Because of
      the SIGSTOP, we must now deliver a SIGCONT to the child, or it
      won't behave properly. */
      At this point, the clone has attached to the child.  Because of
      the SIGSTOP, we must now deliver a SIGCONT to the child, or it
      won't behave properly. */

-  status = kill (inferior_pid, SIGCONT);
+  status = kill (PIDGET (inferior_ptid), SIGCONT);

 }
 
 
 void
 }
 
 
 void

-child_post_follow_vfork (parent_pid, followed_parent, child_pid, followed_child)
-     int parent_pid;
-     int followed_parent;
-     int child_pid;
-     int followed_child;
+child_post_follow_vfork (int parent_pid, int followed_parent, int child_pid,
+                        int followed_child)

 {
   /* Are we a debugger that followed the parent of a vfork?  If so,
      then recall that the child's vfork event was delivered to us
 {
   /* Are we a debugger that followed the parent of a vfork?  If so,
      then recall that the child's vfork event was delivered to us


@@ -313,43 +428,45 @@ child_post_follow_vfork (parent_pid, followed_parent, child_pid, followed_child)
   if (followed_child)
     {
       /* If the child has exited, then there's nothing for us to do.
   if (followed_child)
     {
       /* If the child has exited, then there's nothing for us to do.

-        In the case of an exec event, we'll let that be handled by
-        the normal mechanism that notices and handles exec events, in
-        resume(). */
+         In the case of an exec event, we'll let that be handled by
+         the normal mechanism that notices and handles exec events, in
+         resume(). */

     }
 }
 
 /* Format a process id, given PID.  Be sure to terminate
    this with a null--it's going to be printed via a "%s".  */
 char *
     }
 }
 
 /* Format a process id, given PID.  Be sure to terminate
    this with a null--it's going to be printed via a "%s".  */
 char *

-hppa_pid_to_str (pid)
-    pid_t pid;
+child_pid_to_str (ptid_t ptid)

 {
 {

-    /* Static because address returned */
-    static char buf[30];
+  /* Static because address returned */
+  static char buf[30];
+  pid_t pid = PIDGET (ptid);

 
 

-    /* Extra NULLs for paranoia's sake */
-    sprintf (buf, "process %d\0\0\0\0", pid);
-            
-    return buf;
+  /* Extra NUL for paranoia's sake */
+  sprintf (buf, "process %d%c", pid, '\0');
+
+  return buf;

 }
 
 /* Format a thread id, given TID.  Be sure to terminate
    this with a null--it's going to be printed via a "%s".
 
    Note: This is a core-gdb tid, not the actual system tid.
 }
 
 /* Format a thread id, given TID.  Be sure to terminate
    this with a null--it's going to be printed via a "%s".
 
    Note: This is a core-gdb tid, not the actual system tid.

-         See infttrace.c for details.  */
+   See infttrace.c for details.  */

 char *
 char *

-hppa_tid_to_str (tid)
-    pid_t tid;
+hppa_tid_to_str (ptid_t ptid)

 {
 {

-    /* Static because address returned */
-    static char buf[30];
+  /* Static because address returned */
+  static char buf[30];
+  /* This seems strange, but when I did the ptid conversion, it looked
+     as though a pid was always being passed.  - Kevin Buettner  */
+  pid_t tid = PIDGET (ptid);
+
+  /* Extra NULLs for paranoia's sake */
+  sprintf (buf, "system thread %d%c", tid, '\0');

 
 

-    /* Extra NULLs for paranoia's sake */
-    sprintf (buf, "system thread %d\0\0\0\0", tid);
-            
-    return buf;
+  return buf;

 }
 
 #if !defined (GDB_NATIVE_HPUX_11)
 }
 
 #if !defined (GDB_NATIVE_HPUX_11)


@@ -364,17 +481,19 @@ hppa_tid_to_str (tid)
    after a fork(), and before an exec() by the child.  See
    parent_attach_all for details.  */
 
    after a fork(), and before an exec() by the child.  See
    parent_attach_all for details.  */
 

-typedef struct {
-    int parent_channel[2];  /* Parent "talks" to [1], child "listens" to [0] */
-    int child_channel[2];   /* Child "talks" to [1], parent "listens" to [0] */
-} startup_semaphore_t;
+typedef struct
+{
+  int parent_channel[2];       /* Parent "talks" to [1], child "listens" to [0] */
+  int child_channel[2];                /* Child "talks" to [1], parent "listens" to [0] */
+}
+startup_semaphore_t;

 
 #define SEM_TALK (1)
 #define SEM_LISTEN (0)
 
 
 #define SEM_TALK (1)
 #define SEM_LISTEN (0)
 

-static startup_semaphore_t  startup_semaphore;
+static startup_semaphore_t startup_semaphore;

 
 

-extern int parent_attach_all PARAMS ((int, PTRACE_ARG3_TYPE, int));
+extern int parent_attach_all (int, PTRACE_ARG3_TYPE, int);

 
 #ifdef PT_SETTRC
 /* This function causes the caller's process to be traced by its
 
 #ifdef PT_SETTRC
 /* This function causes the caller's process to be traced by its


@@ -397,10 +516,7 @@ extern int parent_attach_all PARAMS ((int, PTRACE_ARG3_TYPE, int));
    child_acknowledge_created_inferior.)  */
 
 int
    child_acknowledge_created_inferior.)  */
 
 int

-parent_attach_all (pid, addr, data)
-     int pid;
-     PTRACE_ARG3_TYPE addr;
-     int data;
+parent_attach_all (int pid, PTRACE_ARG3_TYPE addr, int data)

 {
   int pt_status = 0;
 
 {
   int pt_status = 0;
 


@@ -423,7 +539,7 @@ parent_attach_all (pid, addr, data)
        &tc_magic_parent,
        sizeof (tc_magic_parent));
   if (tc_magic_child != tc_magic_parent)
        &tc_magic_parent,
        sizeof (tc_magic_parent));
   if (tc_magic_child != tc_magic_parent)

-      warning ("mismatched semaphore magic");
+    warning ("mismatched semaphore magic");

 
   /* Discard our copy of the semaphore. */
   (void) close (startup_semaphore.parent_channel[SEM_LISTEN]);
 
   /* Discard our copy of the semaphore. */
   (void) close (startup_semaphore.parent_channel[SEM_LISTEN]);


@@ -431,14 +547,13 @@ parent_attach_all (pid, addr, data)
   (void) close (startup_semaphore.child_channel[SEM_LISTEN]);
   (void) close (startup_semaphore.child_channel[SEM_TALK]);
 #endif
   (void) close (startup_semaphore.child_channel[SEM_LISTEN]);
   (void) close (startup_semaphore.child_channel[SEM_TALK]);
 #endif

-  
+

   return 0;
 }
 #endif
 
 int
   return 0;
 }
 #endif
 
 int

-hppa_require_attach (pid)
-     int pid;
+hppa_require_attach (int pid)

 {
   int pt_status;
   CORE_ADDR pc;
 {
   int pt_status;
   CORE_ADDR pc;


@@ -471,13 +586,11 @@ hppa_require_attach (pid)
 }
 
 int
 }
 
 int

-hppa_require_detach (pid, signal)
-  int pid;
-  int signal;
+hppa_require_detach (int pid, int signal)

 {
   errno = 0;
   call_ptrace (PT_DETACH, pid, (PTRACE_ARG3_TYPE) 1, signal);
 {
   errno = 0;
   call_ptrace (PT_DETACH, pid, (PTRACE_ARG3_TYPE) 1, signal);

-  errno = 0;  /* Ignore any errors. */
+  errno = 0;                   /* Ignore any errors. */

   return pid;
 }
 
   return pid;
 }
 


@@ -486,61 +599,45 @@ hppa_require_detach (pid, signal)
    dummy versions, which perform no useful work.  */
 
 void
    dummy versions, which perform no useful work.  */
 
 void

-hppa_enable_page_protection_events (pid)
-     int pid;
+hppa_enable_page_protection_events (int pid)

 {
 }
 
 void
 {
 }
 
 void

-hppa_disable_page_protection_events (pid)
-     int pid;
+hppa_disable_page_protection_events (int pid)

 {
 }
 
 int
 {
 }
 
 int

-hppa_insert_hw_watchpoint (pid, start, len, type)
-     int pid;
-     CORE_ADDR start;
-     LONGEST len;
-     int type;
+hppa_insert_hw_watchpoint (int pid, CORE_ADDR start, LONGEST len, int type)

 {
   error ("Hardware watchpoints not implemented on this platform.");
 }
 
 int
 {
   error ("Hardware watchpoints not implemented on this platform.");
 }
 
 int

-hppa_remove_hw_watchpoint (pid, start, len, type)
-     int pid;
-     CORE_ADDR start;
-     LONGEST len;
-     enum bptype type;
+hppa_remove_hw_watchpoint (int pid, CORE_ADDR start, LONGEST len,
+                          enum bptype type)

 {
   error ("Hardware watchpoints not implemented on this platform.");
 }
 
 int
 {
   error ("Hardware watchpoints not implemented on this platform.");
 }
 
 int

-hppa_can_use_hw_watchpoint (type, cnt, ot)
-     enum bptype type;
-     int cnt;
-     enum bptype ot;
+hppa_can_use_hw_watchpoint (enum bptype type, int cnt, enum bptype ot)

 {
   return 0;
 }
 
 int
 {
   return 0;
 }
 
 int

-hppa_range_profitable_for_hw_watchpoint (pid, start, len)
-     int pid;
-     CORE_ADDR start;
-     LONGEST len;
+hppa_range_profitable_for_hw_watchpoint (int pid, CORE_ADDR start, LONGEST len)

 {
   error ("Hardware watchpoints not implemented on this platform.");
 }
 
 char *
 {
   error ("Hardware watchpoints not implemented on this platform.");
 }
 
 char *

-hppa_pid_or_tid_to_str (id)
-     pid_t id;
+hppa_pid_or_tid_to_str (ptid_t id)

 {
   /* In the ptrace world, there are only processes. */
 {
   /* In the ptrace world, there are only processes. */

-  return hppa_pid_to_str (id);
+  return child_pid_to_str (id);

 }
 
 /* This function has no meaning in a non-threaded world.  Thus, we
 }
 
 /* This function has no meaning in a non-threaded world.  Thus, we


@@ -548,15 +645,13 @@ hppa_pid_or_tid_to_str (id)
    hppa-tdep.c. */
 
 pid_t
    hppa-tdep.c. */
 
 pid_t

-hppa_switched_threads (pid)
-     pid_t pid;
+hppa_switched_threads (pid_t pid)

 {
   return (pid_t) 0;
 }
 
 void
 {
   return (pid_t) 0;
 }
 
 void

-hppa_ensure_vforking_parent_remains_stopped (pid)
-     int pid;
+hppa_ensure_vforking_parent_remains_stopped (int pid)

 {
   /* This assumes that the vforked parent is presently stopped, and
      that the vforked child has just delivered its first exec event.
 {
   /* This assumes that the vforked parent is presently stopped, and
      that the vforked child has just delivered its first exec event.


@@ -568,18 +663,19 @@ hppa_ensure_vforking_parent_remains_stopped (pid)
 }
 
 int
 }
 
 int

-hppa_resume_execd_vforking_child_to_get_parent_vfork ()
+hppa_resume_execd_vforking_child_to_get_parent_vfork (void)

 {
 {

-  return 1;  /* Yes, the child must be resumed. */
+  return 1;                    /* Yes, the child must be resumed. */

 }
 
 void
 }
 
 void

-require_notification_of_events (pid)
-     int pid;
+require_notification_of_events (int pid)

 {
 #if defined(PT_SET_EVENT_MASK)
   int pt_status;
   ptrace_event_t ptrace_events;
 {
 #if defined(PT_SET_EVENT_MASK)
   int pt_status;
   ptrace_event_t ptrace_events;

+  int nsigs;
+  int signum;

 
   /* Instruct the kernel as to the set of events we wish to be
      informed of.  (This support does not exist before HPUX 10.0.
 
   /* Instruct the kernel as to the set of events we wish to be
      informed of.  (This support does not exist before HPUX 10.0.


@@ -591,7 +687,29 @@ require_notification_of_events (pid)
      the kernel to keep certain signals hidden from us, we do it
      by calling sigdelset (ptrace_events.pe_signals, signal) for
      each such signal here, before doing PT_SET_EVENT_MASK.  */
      the kernel to keep certain signals hidden from us, we do it
      by calling sigdelset (ptrace_events.pe_signals, signal) for
      each such signal here, before doing PT_SET_EVENT_MASK.  */

-  sigemptyset (&ptrace_events.pe_signals);
+  /* RM: The above comment is no longer true. We start with ignoring
+     all signals, and then add the ones we are interested in. We could
+     do it the other way: start by looking at all signals and then
+     deleting the ones that we aren't interested in, except that
+     multiple gdb signals may be mapped to the same host signal
+     (eg. TARGET_SIGNAL_IO and TARGET_SIGNAL_POLL both get mapped to
+     signal 22 on HPUX 10.20) We want to be notified if we are
+     interested in either signal.  */
+  sigfillset (&ptrace_events.pe_signals);
+
+  /* RM: Let's not bother with signals we don't care about */
+  nsigs = (int) TARGET_SIGNAL_LAST;
+  for (signum = nsigs; signum > 0; signum--)
+    {
+      if ((signal_stop_state (signum)) ||
+         (signal_print_state (signum)) ||
+         (!signal_pass_state (signum)))
+       {
+         if (target_signal_to_host_p (signum))
+           sigdelset (&ptrace_events.pe_signals,
+                      target_signal_to_host (signum));
+       }
+    }

 
   ptrace_events.pe_set_event = 0;
 
 
   ptrace_events.pe_set_event = 0;
 


@@ -600,14 +718,14 @@ require_notification_of_events (pid)
   ptrace_events.pe_set_event |= PTRACE_FORK;
   ptrace_events.pe_set_event |= PTRACE_VFORK;
   /* ??rehrauer: Add this one when we're prepared to catch it...
   ptrace_events.pe_set_event |= PTRACE_FORK;
   ptrace_events.pe_set_event |= PTRACE_VFORK;
   /* ??rehrauer: Add this one when we're prepared to catch it...

-  ptrace_events.pe_set_event |= PTRACE_EXIT;
-  */
+     ptrace_events.pe_set_event |= PTRACE_EXIT;
+   */

 
   errno = 0;
   pt_status = call_ptrace (PT_SET_EVENT_MASK,
 
   errno = 0;
   pt_status = call_ptrace (PT_SET_EVENT_MASK,

-                     pid,
-                     (PTRACE_ARG3_TYPE) &ptrace_events,
-                     sizeof (ptrace_events));
+                          pid,
+                          (PTRACE_ARG3_TYPE) & ptrace_events,
+                          sizeof (ptrace_events));

   if (errno)
     perror_with_name ("ptrace");
   if (pt_status < 0)
   if (errno)
     perror_with_name ("ptrace");
   if (pt_status < 0)


@@ -616,8 +734,7 @@ require_notification_of_events (pid)
 }
 
 void
 }
 
 void

-require_notification_of_exec_events (pid)
-     int pid;
+require_notification_of_exec_events (int pid)

 {
 #if defined(PT_SET_EVENT_MASK)
   int pt_status;
 {
 #if defined(PT_SET_EVENT_MASK)
   int pt_status;


@@ -639,14 +756,14 @@ require_notification_of_exec_events (pid)
 
   ptrace_events.pe_set_event |= PTRACE_EXEC;
   /* ??rehrauer: Add this one when we're prepared to catch it...
 
   ptrace_events.pe_set_event |= PTRACE_EXEC;
   /* ??rehrauer: Add this one when we're prepared to catch it...

-  ptrace_events.pe_set_event |= PTRACE_EXIT;
-  */
+     ptrace_events.pe_set_event |= PTRACE_EXIT;
+   */

 
   errno = 0;
   pt_status = call_ptrace (PT_SET_EVENT_MASK,
 
   errno = 0;
   pt_status = call_ptrace (PT_SET_EVENT_MASK,

-                     pid,
-                     (PTRACE_ARG3_TYPE) &ptrace_events,
-                     sizeof (ptrace_events));
+                          pid,
+                          (PTRACE_ARG3_TYPE) & ptrace_events,
+                          sizeof (ptrace_events));

   if (errno)
     perror_with_name ("ptrace");
   if (pt_status < 0)
   if (errno)
     perror_with_name ("ptrace");
   if (pt_status < 0)


@@ -658,8 +775,7 @@ require_notification_of_exec_events (pid)
    ID of the child process, after the debugger has forked.  */
 
 void
    ID of the child process, after the debugger has forked.  */
 
 void

-child_acknowledge_created_inferior (pid)
-     int pid;
+child_acknowledge_created_inferior (int pid)

 {
   /* We need a memory home for a constant.  */
   int tc_magic_parent = PT_VERSION;
 {
   /* We need a memory home for a constant.  */
   int tc_magic_parent = PT_VERSION;


@@ -672,7 +788,7 @@ child_acknowledge_created_inferior (pid)
   /* Wait for the child to tell us that it has forked. */
   read (startup_semaphore.child_channel[SEM_LISTEN],
        &tc_magic_child,
   /* Wait for the child to tell us that it has forked. */
   read (startup_semaphore.child_channel[SEM_LISTEN],
        &tc_magic_child,

-       sizeof(tc_magic_child));
+       sizeof (tc_magic_child));

 
   /* Notify the child that it can exec.
 
 
   /* Notify the child that it can exec.
 


@@ -706,22 +822,19 @@ child_acknowledge_created_inferior (pid)
 }
 
 void
 }
 
 void

-child_post_startup_inferior (pid)
-     int pid;
+child_post_startup_inferior (ptid_t ptid)

 {
 {

-  require_notification_of_events (pid);
+  require_notification_of_events (PIDGET (ptid));

 }
 
 void
 }
 
 void

-child_post_attach (pid)
-     int pid;
+child_post_attach (int pid)

 {
   require_notification_of_events (pid);
 }
 
 int
 {
   require_notification_of_events (pid);
 }
 
 int

-child_insert_fork_catchpoint (pid)
-     int pid;
+child_insert_fork_catchpoint (int pid)

 {
   /* This request is only available on HPUX 10.0 and later.  */
 #if !defined(PT_SET_EVENT_MASK)
 {
   /* This request is only available on HPUX 10.0 and later.  */
 #if !defined(PT_SET_EVENT_MASK)


@@ -735,8 +848,7 @@ child_insert_fork_catchpoint (pid)
 }
 
 int
 }
 
 int

-child_remove_fork_catchpoint (pid)
-     int pid;
+child_remove_fork_catchpoint (int pid)

 {
   /* This request is only available on HPUX 10.0 and later.  */
 #if !defined(PT_SET_EVENT_MASK)
 {
   /* This request is only available on HPUX 10.0 and later.  */
 #if !defined(PT_SET_EVENT_MASK)


@@ -750,8 +862,7 @@ child_remove_fork_catchpoint (pid)
 }
 
 int
 }
 
 int

-child_insert_vfork_catchpoint (pid)
-     int pid;
+child_insert_vfork_catchpoint (int pid)

 {
   /* This request is only available on HPUX 10.0 and later.  */
 #if !defined(PT_SET_EVENT_MASK)
 {
   /* This request is only available on HPUX 10.0 and later.  */
 #if !defined(PT_SET_EVENT_MASK)


@@ -765,8 +876,7 @@ child_insert_vfork_catchpoint (pid)
 }
 
 int
 }
 
 int

-child_remove_vfork_catchpoint (pid)
-     int pid;
+child_remove_vfork_catchpoint (int pid)

 {
   /* This request is only available on HPUX 10.0 and later.  */
 #if !defined(PT_SET_EVENT_MASK)
 {
   /* This request is only available on HPUX 10.0 and later.  */
 #if !defined(PT_SET_EVENT_MASK)


@@ -780,9 +890,7 @@ child_remove_vfork_catchpoint (pid)
 }
 
 int
 }
 
 int

-child_has_forked (pid, childpid)
-     int pid;
-     int *childpid;
+child_has_forked (int pid, int *childpid)

 {
   /* This request is only available on HPUX 10.0 and later.  */
 #if !defined(PT_GET_PROCESS_STATE)
 {
   /* This request is only available on HPUX 10.0 and later.  */
 #if !defined(PT_GET_PROCESS_STATE)


@@ -790,12 +898,12 @@ child_has_forked (pid, childpid)
   return 0;
 #else
   int pt_status;
   return 0;
 #else
   int pt_status;

-  ptrace_state_t  ptrace_state;
+  ptrace_state_t ptrace_state;

 
   errno = 0;
   pt_status = call_ptrace (PT_GET_PROCESS_STATE,
                           pid,
 
   errno = 0;
   pt_status = call_ptrace (PT_GET_PROCESS_STATE,
                           pid,

-                          (PTRACE_ARG3_TYPE) &ptrace_state,
+                          (PTRACE_ARG3_TYPE) & ptrace_state,

                           sizeof (ptrace_state));
   if (errno)
     perror_with_name ("ptrace");
                           sizeof (ptrace_state));
   if (errno)
     perror_with_name ("ptrace");


@@ -813,9 +921,7 @@ child_has_forked (pid, childpid)
 }
 
 int
 }
 
 int

-child_has_vforked (pid, childpid)
-     int pid;
-     int *childpid;
+child_has_vforked (int pid, int *childpid)

 {
   /* This request is only available on HPUX 10.0 and later.  */
 #if !defined(PT_GET_PROCESS_STATE)
 {
   /* This request is only available on HPUX 10.0 and later.  */
 #if !defined(PT_GET_PROCESS_STATE)


@@ -824,12 +930,12 @@ child_has_vforked (pid, childpid)
 
 #else
   int pt_status;
 
 #else
   int pt_status;

-  ptrace_state_t  ptrace_state;
+  ptrace_state_t ptrace_state;

 
   errno = 0;
   pt_status = call_ptrace (PT_GET_PROCESS_STATE,
                           pid,
 
   errno = 0;
   pt_status = call_ptrace (PT_GET_PROCESS_STATE,
                           pid,

-                          (PTRACE_ARG3_TYPE) &ptrace_state,
+                          (PTRACE_ARG3_TYPE) & ptrace_state,

                           sizeof (ptrace_state));
   if (errno)
     perror_with_name ("ptrace");
                           sizeof (ptrace_state));
   if (errno)
     perror_with_name ("ptrace");


@@ -847,15 +953,14 @@ child_has_vforked (pid, childpid)
 }
 
 int
 }
 
 int

-child_can_follow_vfork_prior_to_exec ()
+child_can_follow_vfork_prior_to_exec (void)

 {
   /* ptrace doesn't allow this. */
   return 0;
 }
 
 int
 {
   /* ptrace doesn't allow this. */
   return 0;
 }
 
 int

-child_insert_exec_catchpoint (pid)
-     int pid;
+child_insert_exec_catchpoint (int pid)

 {
   /* This request is only available on HPUX 10.0 and later.   */
 #if !defined(PT_SET_EVENT_MASK)
 {
   /* This request is only available on HPUX 10.0 and later.   */
 #if !defined(PT_SET_EVENT_MASK)


@@ -870,8 +975,7 @@ child_insert_exec_catchpoint (pid)
 }
 
 int
 }
 
 int

-child_remove_exec_catchpoint (pid)
-     int pid;
+child_remove_exec_catchpoint (int pid)

 {
   /* This request is only available on HPUX 10.0 and later.  */
 #if !defined(PT_SET_EVENT_MASK)
 {
   /* This request is only available on HPUX 10.0 and later.  */
 #if !defined(PT_SET_EVENT_MASK)


@@ -886,9 +990,7 @@ child_remove_exec_catchpoint (pid)
 }
 
 int
 }
 
 int

-child_has_execd (pid, execd_pathname)
-     int pid;
-     char **execd_pathname;
+child_has_execd (int pid, char **execd_pathname)

 {
   /* This request is only available on HPUX 10.0 and later.  */
 #if !defined(PT_GET_PROCESS_STATE)
 {
   /* This request is only available on HPUX 10.0 and later.  */
 #if !defined(PT_GET_PROCESS_STATE)


@@ -897,12 +999,12 @@ child_has_execd (pid, execd_pathname)
 
 #else
   int pt_status;
 
 #else
   int pt_status;

-  ptrace_state_t  ptrace_state;
+  ptrace_state_t ptrace_state;

 
   errno = 0;
   pt_status = call_ptrace (PT_GET_PROCESS_STATE,
                           pid,
 
   errno = 0;
   pt_status = call_ptrace (PT_GET_PROCESS_STATE,
                           pid,

-                          (PTRACE_ARG3_TYPE) &ptrace_state,
+                          (PTRACE_ARG3_TYPE) & ptrace_state,

                           sizeof (ptrace_state));
   if (errno)
     perror_with_name ("ptrace");
                           sizeof (ptrace_state));
   if (errno)
     perror_with_name ("ptrace");


@@ -911,7 +1013,7 @@ child_has_execd (pid, execd_pathname)
 
   if (ptrace_state.pe_report_event & PTRACE_EXEC)
     {
 
   if (ptrace_state.pe_report_event & PTRACE_EXEC)
     {

-      char *  exec_file = target_pid_to_exec_file (pid);
+      char *exec_file = target_pid_to_exec_file (pid);

       *execd_pathname = savestring (exec_file, strlen (exec_file));
       return 1;
     }
       *execd_pathname = savestring (exec_file, strlen (exec_file));
       return 1;
     }


@@ -921,16 +1023,13 @@ child_has_execd (pid, execd_pathname)
 }
 
 int
 }
 
 int

-child_reported_exec_events_per_exec_call ()
+child_reported_exec_events_per_exec_call (void)

 {
 {

-  return 2;  /* ptrace reports the event twice per call. */
+  return 2;                    /* ptrace reports the event twice per call. */

 }
 
 int
 }
 
 int

-child_has_syscall_event (pid, kind, syscall_id)
-     int pid;
-     enum target_waitkind *kind;
-     int *syscall_id;
+child_has_syscall_event (int pid, enum target_waitkind *kind, int *syscall_id)

 {
   /* This request is only available on HPUX 10.30 and later, via
      the ttrace interface.  */
 {
   /* This request is only available on HPUX 10.30 and later, via
      the ttrace interface.  */


@@ -941,8 +1040,7 @@ child_has_syscall_event (pid, kind, syscall_id)
 }
 
 char *
 }
 
 char *

-child_pid_to_exec_file (pid)
-     int pid;
+child_pid_to_exec_file (int pid)

 {
   static char exec_file_buffer[1024];
   int pt_status;
 {
   static char exec_file_buffer[1024];
   int pt_status;


@@ -950,9 +1048,9 @@ child_pid_to_exec_file (pid)
   char four_chars[4];
   int name_index;
   int i;
   char four_chars[4];
   int name_index;
   int i;

-  int saved_inferior_pid;
+  ptid_t saved_inferior_ptid;

   boolean done;
   boolean done;

-  
+

 #ifdef PT_GET_PROCESS_PATHNAME
   /* As of 10.x HP-UX, there's an explicit request to get the pathname. */
   pt_status = call_ptrace (PT_GET_PROCESS_PATHNAME,
 #ifdef PT_GET_PROCESS_PATHNAME
   /* As of 10.x HP-UX, there's an explicit request to get the pathname. */
   pt_status = call_ptrace (PT_GET_PROCESS_PATHNAME,


@@ -972,19 +1070,19 @@ child_pid_to_exec_file (pid)
   name_index = 0;
   done = 0;
 
   name_index = 0;
   done = 0;
 

-  /* On the chance that pid != inferior_pid, set inferior_pid
-     to pid, so that (grrrr!) implicit uses of inferior_pid get
+  /* On the chance that pid != inferior_ptid, set inferior_ptid
+     to pid, so that (grrrr!) implicit uses of inferior_ptid get

      the right id.  */
 
      the right id.  */
 

-  saved_inferior_pid = inferior_pid;
-  inferior_pid = pid;
+  saved_inferior_ptid = inferior_ptid;
+  inferior_ptid = pid_to_ptid (pid);

 
   /* Try to grab a null-terminated string. */
 
   /* Try to grab a null-terminated string. */

-  while (! done)
+  while (!done)

     {
       if (target_read_memory (top_of_stack, four_chars, 4) != 0)
        {
     {
       if (target_read_memory (top_of_stack, four_chars, 4) != 0)
        {

-         inferior_pid = saved_inferior_pid;
+         inferior_ptid = saved_inferior_ptid;

          return NULL;
        }
       for (i = 0; i < 4; i++)
          return NULL;
        }
       for (i = 0; i < 4; i++)


@@ -999,16 +1097,16 @@ child_pid_to_exec_file (pid)
 
   if (exec_file_buffer[0] == '\0')
     {
 
   if (exec_file_buffer[0] == '\0')
     {

-      inferior_pid = saved_inferior_pid;
+      inferior_ptid = saved_inferior_ptid;

       return NULL;
     }
 
       return NULL;
     }
 

-  inferior_pid = saved_inferior_pid;
+  inferior_ptid = saved_inferior_ptid;

   return exec_file_buffer;
 }
 
 void
   return exec_file_buffer;
 }
 
 void

-pre_fork_inferior ()
+pre_fork_inferior (void)

 {
   int status;
 
 {
   int status;
 


@@ -1026,18 +1124,17 @@ pre_fork_inferior ()
       return;
     }
 }
       return;
     }
 }

-

 \f
 \f

+

 /* Check to see if the given thread is alive.
 
    This is a no-op, as ptrace doesn't support threads, so we just
    return "TRUE".  */
 
 int
 /* Check to see if the given thread is alive.
 
    This is a no-op, as ptrace doesn't support threads, so we just
    return "TRUE".  */
 
 int

-child_thread_alive (pid)
-     int pid;
+child_thread_alive (ptid_t ptid)

 {
 {

-   return 1;
+  return 1;

 }
 
 #endif /* ! GDB_NATIVE_HPUX_11 */
 }
 
 #endif /* ! GDB_NATIVE_HPUX_11 */