all remaining *.c *.h files from hp merge.

1 files changed, 884 insertions, 15 deletions

diff --git a/gdb/hppah-nat.c b/gdb/hppah-nat.c
index d9210d5..4587715 100644
--- a/gdb/hppah-nat.c
+++ b/gdb/hppah-nat.c
@@ -1,6 +1,5 @@
-/* Machine-dependent hooks for the unix child process stratum, for HPUX PA-RISC.
-
-   Copyright 1986, 1987, 1989, 1990, 1991, 1992, 1993
+/* Native support code for HPUX PA-RISC.
+   Copyright 1986, 1987, 1989, 1990, 1991, 1992, 1993, 1998
    Free Software Foundation, Inc.
 
    Contributed by the Center for Software Science at the
@@ -28,6 +27,7 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
 #include "target.h"
 #include <sys/ptrace.h>
 #include "gdbcore.h"
+#include <wait.h>
 
 extern CORE_ADDR text_end;
 
@@ -128,7 +128,8 @@ fetch_register (regno)
       if (errno != 0)
 	{
 	  /* Warning, not error, in case we are attached; sometimes the
-	     kernel doesn't let us at the registers.  */
+	   * kernel doesn't let us at the registers.
+	   */
 	  char *err = safe_strerror (errno);
 	  char *msg = alloca (strlen (err) + 128);
 	  sprintf (msg, "reading register %s: %s", REGISTER_NAME (regno), err);
@@ -165,8 +166,19 @@ child_xfer_memory (memaddr, myaddr, len, write, target)
   /* Round ending address up; get number of longwords that makes.  */
   register int count
     = (((memaddr + len) - addr) + sizeof (int) - 1) / sizeof (int);
+
   /* Allocate buffer of that many longwords.  */
-  register int *buffer = (int *) alloca (count * sizeof (int));
+  /* Note (RT) - This code formerly used alloca, which I have
+   * replaced with xmalloc and a matching free() at the end.
+   * The problem with alloca() is that there is no guarantee of
+   * when it'll be freed, and we were seeing cases of memory
+   * leaks on:
+   * (gdb) watch x
+   * (gdb) cont
+   * where the piled-up alloca's for the child_xfer_memory buffers
+   * were not getting freed.
+   */
+  register int *buffer = (int *) xmalloc (count * sizeof (int));
 
   if (write)
     {
@@ -194,16 +206,38 @@ child_xfer_memory (memaddr, myaddr, len, write, target)
 
       for (i = 0; i < count; i++, addr += sizeof (int))
 	{
-/* The HP-UX kernel crashes if you use PT_WDUSER to write into the text
-   segment.  FIXME -- does it work to write into the data segment using
-   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??!  */
+          int  pt_status;
+          int  pt_request;
+	  /* The HP-UX kernel crashes if you use PT_WDUSER to write into the text
+	     segment.  FIXME -- does it work to write into the data segment using
+	     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;
-	  call_ptrace (addr < text_end ? PT_WIUSER : PT_WDUSER, inferior_pid, 
-		  (PTRACE_ARG3_TYPE) addr,
-		  buffer[i]);
-	  if (errno)
-	    return 0;
+          pt_request = (addr < text_end) ? PT_WIUSER : PT_WDUSER;
+	  pt_status = call_ptrace (pt_request,
+                                   inferior_pid, 
+                                   (PTRACE_ARG3_TYPE) addr,
+                                   buffer[i]);
+
+          /* Did we fail?  Might we've guessed wrong about which
+             segment this address resides in?  Try the other request,
+             and see if that works...
+             */
+	  if ((pt_status == -1) && errno) {
+            errno = 0;
+            pt_request = (pt_request == PT_WIUSER) ? PT_WDUSER : PT_WIUSER;
+            pt_status = call_ptrace (pt_request,
+                                     inferior_pid, 
+                                     (PTRACE_ARG3_TYPE) addr,
+                                     buffer[i]);
+
+            /* No, we still fail.  Okay, time to punt. */
+            if ((pt_status == -1) && errno)
+              {
+                free(buffer);
+                return 0;
+              }
+	  }
 	}
     }
   else
@@ -214,13 +248,848 @@ child_xfer_memory (memaddr, myaddr, len, write, target)
 	  errno = 0;
 	  buffer[i] = call_ptrace (addr < text_end ? PT_RIUSER : PT_RDUSER, 
 			      inferior_pid, (PTRACE_ARG3_TYPE) addr, 0);
-	  if (errno)
+	  if (errno) {
+	    free(buffer);
 	    return 0;
+	  }
 	  QUIT;
 	}
 
       /* Copy appropriate bytes out of the buffer.  */
       memcpy (myaddr, (char *) buffer + (memaddr & (sizeof (int) - 1)), len);
     }
+  free(buffer);
   return len;
 }
+
+
+void
+child_post_follow_inferior_by_clone ()
+{
+  int  status;
+
+  /* This function is used when following both the parent and child
+     of a fork.  In this case, the debugger clones itself.  The original
+     debugger follows the parent, the clone follows the child.  The
+     original detaches from the child, delivering a SIGSTOP to it to
+     keep it from running away until the clone can attach itself.
+
+     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);
+}
+
+
+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;
+{
+
+  /* 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
+     first.  And, that the parent was suspended by the OS until the
+     child's exec or exit events were received.
+
+     Upon receiving that child vfork, then, we were forced to remove
+     all breakpoints in the child and continue it so that it could
+     reach the exec or exit point.
+
+     But also recall that the parent and child of a vfork share the
+     same address space.  Thus, removing bp's in the child also
+     removed them from the parent.
+
+     Now that the child has safely exec'd or exited, we must restore
+     the parent's breakpoints before we continue it.  Else, we may
+     cause it run past expected stopping points. */
+  if (followed_parent)
+    {
+      reattach_breakpoints (parent_pid);
+    }
+
+  /* Are we a debugger that followed the child of a vfork?  If so,
+     then recall that we don't actually acquire control of the child
+     until after it has exec'd or exited.
+     */
+  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(). */
+
+    }
+}
+
+/* Format a process id, given a 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;
+{
+    static char buf[30]; /* Static because address returned */
+
+    sprintf( buf, "process %d\0\0\0\0", pid );
+             /* Extra NULLs for paranoia's sake */
+             
+    return buf;
+}
+
+/* Format a thread id, given a 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.
+ */
+char *
+hppa_tid_to_str( tid )
+    pid_t tid;
+{
+    static char buf[30]; /* Static because address returned */
+
+    sprintf( buf, "system thread %d\0\0\0\0", tid );
+             /* Extra NULLs for paranoia's sake */
+             
+    return buf;
+}
+
+#if !defined (GDB_NATIVE_HPUX_11)
+
+/* The following code is a substitute for the infttrace.c versions used
+   with ttrace() in HPUX 11.  */
+
+/* This value is an arbitrary integer. */
+#define PT_VERSION 123456
+
+/* This semaphore is used to coordinate the child and parent processes
+   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;
+
+#define SEM_TALK (1)
+#define SEM_LISTEN (0)
+
+static startup_semaphore_t  startup_semaphore;
+
+extern int parent_attach_all PARAMS ((int, PTRACE_ARG3_TYPE, int));
+
+#ifdef PT_SETTRC
+/* This function causes the caller's process to be traced by its
+   parent.  This is intended to be called after GDB forks itself,
+   and before the child execs the target.
+
+   Note that HP-UX ptrace is rather funky in how this is done.
+   If the parent wants to get the initial exec event of a child,
+   it must set the ptrace event mask of the child to include execs.
+   (The child cannot do this itself.)  This must be done after the
+   child is forked, but before it execs.
+
+   To coordinate the parent and child, we implement a semaphore using
+   pipes.  After SETTRC'ing itself, the child tells the parent that
+   it is now traceable by the parent, and waits for the parent's
+   acknowledgement.  The parent can then set the child's event mask,
+   and notify the child that it can now exec.
+
+   (The acknowledgement by parent happens as a result of a call to
+   child_acknowledge_created_inferior.)  */
+
+int
+parent_attach_all (pid, addr, data)
+     int pid;
+     PTRACE_ARG3_TYPE addr;
+     int data;
+{
+  int pt_status = 0;
+
+  /* We need a memory home for a constant.  */
+  int tc_magic_child = PT_VERSION;
+  int tc_magic_parent = 0;
+
+  /* The remainder of this function is only useful for HPUX 10.0 and
+     later, as it depends upon the ability to request notification
+     of specific kinds of events by the kernel.  */
+#if defined(PT_SET_EVENT_MASK)
+
+  /* Notify the parent that we're potentially ready to exec(). */
+  write (startup_semaphore.child_channel[SEM_TALK],
+         &tc_magic_child,
+         sizeof (tc_magic_child));
+
+  /* Wait for acknowledgement from the parent. */
+  read (startup_semaphore.parent_channel[SEM_LISTEN],
+        &tc_magic_parent,
+        sizeof (tc_magic_parent));
+  if (tc_magic_child != tc_magic_parent)
+      warning ("mismatched semaphore magic");
+
+  /* Discard our copy of the semaphore. */
+  (void) close (startup_semaphore.parent_channel[SEM_LISTEN]);
+  (void) close (startup_semaphore.parent_channel[SEM_TALK]);
+  (void) close (startup_semaphore.child_channel[SEM_LISTEN]);
+  (void) close (startup_semaphore.child_channel[SEM_TALK]);
+#endif
+  
+  return 0;
+}
+#endif
+
+int
+hppa_require_attach (pid)
+     int pid;
+{
+  int pt_status;
+  CORE_ADDR  pc;
+  CORE_ADDR  pc_addr;
+  unsigned int regs_offset;
+
+  /* Are we already attached?  There appears to be no explicit way to
+     answer this via ptrace, so we try something which should be
+     innocuous if we are attached.  If that fails, then we assume
+     we're not attached, and so attempt to make it so. */
+
+  errno = 0;
+  regs_offset = U_REGS_OFFSET;
+  pc_addr = register_addr (PC_REGNUM, regs_offset);
+  pc = call_ptrace (PT_READ_U, pid, (PTRACE_ARG3_TYPE) pc_addr, 0);
+
+  if (errno)
+    {
+      errno = 0;
+      pt_status = call_ptrace (PT_ATTACH, pid, (PTRACE_ARG3_TYPE) 0, 0);
+
+      if (errno)
+        return -1;
+
+      /* Now we really are attached. */
+      errno = 0;
+    }
+  attach_flag = 1;
+  return pid;
+}
+
+int
+hppa_require_detach (pid, signal)
+  int pid;
+  int signal;
+{
+  errno = 0;
+  call_ptrace (PT_DETACH, pid, (PTRACE_ARG3_TYPE) 1, signal);
+  errno = 0;  /* Ignore any errors. */
+  return pid;
+}
+
+/* Since ptrace doesn't support memory page-protection events, which
+   are used to implement "hardware" watchpoints on HP-UX, these are
+   dummy versions, which perform no useful work.  */
+
+void
+hppa_enable_page_protection_events (pid)
+     int pid;
+{
+}
+
+void
+hppa_disable_page_protection_events (pid)
+     int pid;
+{
+}
+
+int
+hppa_insert_hw_watchpoint (pid, start, len, type)
+     int pid;
+     CORE_ADDR start;
+     LONGEST len;
+     int type;
+{
+  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;
+{
+  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;
+{
+  return 0;
+}
+
+int
+hppa_range_profitable_for_hw_watchpoint (pid, start, len)
+     int pid;
+     CORE_ADDR start;
+     LONGEST len;
+{
+  error ("Hardware watchpoints not implemented on this platform.");
+}
+
+char *
+hppa_pid_or_tid_to_str (id)
+     pid_t id;
+{
+  /* In the ptrace world, there are only processes. */
+  return hppa_pid_to_str (id);
+}
+
+/* This function has no meaning in a non-threaded world.  Thus, we
+   return 0 (FALSE).  See the use of "hppa_prepare_to_proceed" in
+   hppa-tdep.c. */
+
+pid_t
+hppa_switched_threads (pid)
+     pid_t pid;
+{
+  return (pid_t) 0;
+}
+
+void
+hppa_ensure_vforking_parent_remains_stopped (pid)
+     int pid;
+{
+  /* This assumes that the vforked parent is presently stopped, and
+     that the vforked child has just delivered its first exec event.
+     Calling kill() this way will cause the SIGTRAP to be delivered as
+     soon as the parent is resumed, which happens as soon as the
+     vforked child is resumed.  See wait_for_inferior for the use of
+     this function.  */
+  kill (pid, SIGTRAP);
+}
+
+int
+hppa_resume_execd_vforking_child_to_get_parent_vfork ()
+{
+  return 1;  /* Yes, the child must be resumed. */
+}
+
+#if defined(HPPA_GET_PROCESS_EVENTS)
+process_event_vector
+hppa_get_process_events (pid, wait_status, must_continue_pid_after)
+  int pid;
+  int wait_status;
+  int * must_continue_pid_after;
+{
+  int pt_status;
+  ptrace_state_t ptrace_state;
+  process_event_vector events = PEVT_NONE;
+
+  /* This is always TRUE with ptrace. */
+  *must_continue_pid_after = 1;
+
+  errno = 0;
+  pt_status = call_ptrace (PT_GET_PROCESS_STATE,
+                      pid,
+                      (PTRACE_ARG3_TYPE) &ptrace_state,
+                      sizeof (ptrace_state));
+  if (errno)
+    perror_with_name ("ptrace");
+  if (pt_status < 0)
+    return events;
+
+  if (ptrace_state.pe_report_event & PTRACE_SIGNAL)
+    events |= PEVT_SIGNAL;
+  if (ptrace_state.pe_report_event & PTRACE_FORK)
+    events |= PEVT_FORK;
+  if (ptrace_state.pe_report_event & PTRACE_VFORK)
+    events |= PEVT_VFORK;
+  if (ptrace_state.pe_report_event & PTRACE_EXEC)
+    events |= PEVT_EXEC;
+  if (ptrace_state.pe_report_event & PTRACE_EXIT)
+    events |= PEVT_EXIT;
+
+  return events;
+}
+#endif /* HPPA_GET_PROCESS_EVENTS */
+
+void
+require_notification_of_events (pid)
+  int pid;
+{
+#if defined(PT_SET_EVENT_MASK)
+  int pt_status;
+  ptrace_event_t ptrace_events;
+
+  /* Instruct the kernel as to the set of events we wish to be
+     informed of.  (This support does not exist before HPUX 10.0.
+     We'll assume if PT_SET_EVENT_MASK has not been defined by
+     <sys/ptrace.h>, then we're being built on pre-10.0.)
+     */
+  memset (&ptrace_events, 0, sizeof (ptrace_events));
+
+  /* Note: By default, all signals are visible to us.  If we wish
+     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);
+
+  ptrace_events.pe_set_event = 0;
+
+  ptrace_events.pe_set_event |= PTRACE_SIGNAL;
+  ptrace_events.pe_set_event |= PTRACE_EXEC;
+  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;
+  */
+
+  errno = 0;
+  pt_status = call_ptrace (PT_SET_EVENT_MASK,
+                      pid,
+                      (PTRACE_ARG3_TYPE) &ptrace_events,
+                      sizeof (ptrace_events));
+  if (errno)
+    perror_with_name ("ptrace");
+  if (pt_status < 0)
+    return;
+#endif
+}
+
+void
+require_notification_of_exec_events (pid)
+  int pid;
+{
+#if defined(PT_SET_EVENT_MASK)
+  int pt_status;
+  ptrace_event_t ptrace_events;
+
+  /* Instruct the kernel as to the set of events we wish to be
+     informed of.  (This support does not exist before HPUX 10.0.
+     We'll assume if PT_SET_EVENT_MASK has not been defined by
+     <sys/ptrace.h>, then we're being built on pre-10.0.)
+     */
+  memset (&ptrace_events, 0, sizeof (ptrace_events));
+
+  /* Note: By default, all signals are visible to us.  If we wish
+     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);
+
+  ptrace_events.pe_set_event = 0;
+
+  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;
+  */
+
+  errno = 0;
+  pt_status = call_ptrace (PT_SET_EVENT_MASK,
+                      pid,
+                      (PTRACE_ARG3_TYPE) &ptrace_events,
+                      sizeof (ptrace_events));
+  if (errno)
+    perror_with_name ("ptrace");
+  if (pt_status < 0)
+    return;
+#endif
+}
+
+/* This function is called by the parent process, with pid being the
+   ID of the child process, after the debugger has forked.  */
+
+void
+child_acknowledge_created_inferior (pid)
+    int pid;
+{
+  /* We need a memory home for a constant.  */
+  int tc_magic_parent = PT_VERSION;
+  int tc_magic_child = 0;
+
+  /* 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));
+
+  /* Notify the child that it can exec.
+
+     In the infttrace.c variant of this function, we set the child's
+     event mask after the fork but before the exec.  In the ptrace
+     world, it seems we can't set the event mask until after the exec.  */
+
+  write (startup_semaphore.parent_channel[SEM_TALK],
+         &tc_magic_parent,
+         sizeof (tc_magic_parent));
+
+  /* We'd better pause a bit before trying to set the event mask,
+     though, to ensure that the exec has happened.  We don't want to
+     wait() on the child, because that'll screw up the upper layers
+     of gdb's execution control that expect to see the exec event.
+
+     After an exec, the child is no longer executing gdb code.  Hence,
+     we can't have yet another synchronization via the pipes.  We'll
+     just sleep for a second, and hope that's enough delay...  */
+
+  sleep (1);
+
+  /* Instruct the kernel as to the set of events we wish to be
+     informed of.  */
+
+  require_notification_of_exec_events (pid);
+
+  /* Discard our copy of the semaphore. */
+  (void) close (startup_semaphore.parent_channel[SEM_LISTEN]);
+  (void) close (startup_semaphore.parent_channel[SEM_TALK]);
+  (void) close (startup_semaphore.child_channel[SEM_LISTEN]);
+  (void) close (startup_semaphore.child_channel[SEM_TALK]);
+}
+
+void
+child_post_startup_inferior (pid)
+  int pid;
+
+{
+  require_notification_of_events (pid);
+}
+
+void
+child_post_attach (pid)
+  int pid;
+{
+  require_notification_of_events (pid);
+}
+
+int
+child_insert_fork_catchpoint (pid)
+  int pid;
+{
+  /* This request is only available on HPUX 10.0 and later.  */
+#if !defined(PT_SET_EVENT_MASK)
+  error ("Unable to catch forks prior to HPUX 10.0");
+#else
+  /* Enable reporting of fork events from the kernel. */
+  /* ??rehrauer: For the moment, we're always enabling these events,
+     and just ignoring them if there's no catchpoint to catch them.
+     */
+  return 0;
+#endif
+}
+
+int
+child_remove_fork_catchpoint (pid)
+  int pid;
+{
+  /* This request is only available on HPUX 10.0 and later.  */
+#if !defined(PT_SET_EVENT_MASK)
+  error ("Unable to catch forks prior to HPUX 10.0");
+#else
+  /* Disable reporting of fork events from the kernel. */
+  /* ??rehrauer: For the moment, we're always enabling these events,
+     and just ignoring them if there's no catchpoint to catch them.  */
+  return 0;
+#endif
+}
+
+int
+child_insert_vfork_catchpoint (pid)
+  int pid;
+{
+  /* This request is only available on HPUX 10.0 and later.  */
+#if !defined(PT_SET_EVENT_MASK)
+  error ("Unable to catch vforks prior to HPUX 10.0");
+#else
+  /* Enable reporting of vfork events from the kernel. */
+  /* ??rehrauer: For the moment, we're always enabling these events,
+     and just ignoring them if there's no catchpoint to catch them.  */
+  return 0;
+#endif
+}
+
+int
+child_remove_vfork_catchpoint (pid)
+  int pid;
+{
+  /* This request is only available on HPUX 10.0 and later.  */
+#if !defined(PT_SET_EVENT_MASK)
+  error ("Unable to catch vforks prior to HPUX 10.0");
+#else
+  /* Disable reporting of vfork events from the kernel. */
+  /* ??rehrauer: For the moment, we're always enabling these events,
+     and just ignoring them if there's no catchpoint to catch them.  */
+  return 0;
+#endif
+}
+
+int
+child_has_forked (pid, childpid)
+  int pid;
+  int *  childpid;
+{
+  /* This request is only available on HPUX 10.0 and later.  */
+#if !defined(PT_GET_PROCESS_STATE)
+  *childpid = 0;
+  return 0;
+#else
+  int pt_status;
+  ptrace_state_t  ptrace_state;
+
+  errno = 0;
+  pt_status = call_ptrace (PT_GET_PROCESS_STATE,
+                      pid,
+                      (PTRACE_ARG3_TYPE) &ptrace_state,
+                      sizeof (ptrace_state));
+  if (errno)
+    perror_with_name ("ptrace");
+  if (pt_status < 0)
+    return 0;
+
+  if (ptrace_state.pe_report_event & PTRACE_FORK)
+    {
+      *childpid = ptrace_state.pe_other_pid;
+      return 1;
+    }
+
+  return 0;
+#endif
+}
+
+int
+child_has_vforked (pid, childpid)
+  int pid;
+  int * childpid;
+{
+  /* This request is only available on HPUX 10.0 and later.  */
+#if !defined(PT_GET_PROCESS_STATE)
+  *childpid = 0;
+  return 0;
+
+#else
+  int pt_status;
+  ptrace_state_t  ptrace_state;
+
+  errno = 0;
+  pt_status = call_ptrace (PT_GET_PROCESS_STATE,
+                      pid,
+                      (PTRACE_ARG3_TYPE) &ptrace_state,
+                      sizeof (ptrace_state));
+  if (errno)
+    perror_with_name ("ptrace");
+  if (pt_status < 0)
+    return 0;
+
+  if (ptrace_state.pe_report_event & PTRACE_VFORK)
+    {
+      *childpid = ptrace_state.pe_other_pid;
+      return 1;
+    }
+
+  return 0;
+#endif
+}
+
+int
+child_can_follow_vfork_prior_to_exec ()
+{
+  /* ptrace doesn't allow this. */
+  return 0;
+}
+
+int
+child_insert_exec_catchpoint (pid)
+  int pid;
+{
+  /* This request is only available on HPUX 10.0 and later.
+     */
+#if !defined(PT_SET_EVENT_MASK)
+  error ("Unable to catch execs prior to HPUX 10.0");
+
+#else
+  /* Enable reporting of exec events from the kernel. */
+  /* ??rehrauer: For the moment, we're always enabling these events,
+     and just ignoring them if there's no catchpoint to catch them.
+     */
+  return 0;
+#endif
+}
+
+int
+child_remove_exec_catchpoint (pid)
+  int pid;
+{
+  /* This request is only available on HPUX 10.0 and later.
+     */
+#if !defined(PT_SET_EVENT_MASK)
+  error ("Unable to catch execs prior to HPUX 10.0");
+
+#else
+  /* Disable reporting of exec events from the kernel. */
+  /* ??rehrauer: For the moment, we're always enabling these events,
+     and just ignoring them if there's no catchpoint to catch them.
+     */
+  return 0;
+#endif
+}
+
+int
+child_has_execd (pid, execd_pathname)
+  int pid;
+  char **  execd_pathname;
+{
+
+  /* This request is only available on HPUX 10.0 and later.
+     */
+#if !defined(PT_GET_PROCESS_STATE)
+  *execd_pathname = NULL;
+  return 0;
+
+#else
+  int pt_status;
+  ptrace_state_t  ptrace_state;
+
+  errno = 0;
+  pt_status = call_ptrace (PT_GET_PROCESS_STATE,
+                      pid,
+                      (PTRACE_ARG3_TYPE) &ptrace_state,
+                      sizeof (ptrace_state));
+  if (errno)
+    perror_with_name ("ptrace");
+  if (pt_status < 0)
+    return 0;
+
+  if (ptrace_state.pe_report_event & PTRACE_EXEC)
+    {
+      char *  exec_file = target_pid_to_exec_file (pid);
+      *execd_pathname = savestring (exec_file, strlen (exec_file));
+      return 1;
+    }
+
+  return 0;
+#endif
+}
+
+int
+child_reported_exec_events_per_exec_call ()
+{
+  return 2;  /* ptrace reports the event twice per call. */
+}
+
+int
+child_has_syscall_event (pid, kind, syscall_id)
+     int pid;
+     enum target_waitkind *kind;
+     int *syscall_id;
+{
+  /* This request is only available on HPUX 10.30 and later, via
+     the ttrace interface.  */
+
+  *kind = TARGET_WAITKIND_SPURIOUS;
+  *syscall_id = -1;
+  return 0;
+}
+
+char *
+child_pid_to_exec_file (pid)
+    int pid;
+{
+  static char  exec_file_buffer[1024];
+  int pt_status;
+  CORE_ADDR  top_of_stack;
+  char  four_chars[4];
+  int name_index;
+  int i;
+  int saved_inferior_pid;
+  boolean  done;
+  
+  /* As of 10.x HP-UX, there's an explicit request to get the pathname. */
+  pt_status = call_ptrace (PT_GET_PROCESS_PATHNAME,
+                           pid,
+                           (PTRACE_ARG3_TYPE) exec_file_buffer,
+                           sizeof (exec_file_buffer) - 1);
+  if (pt_status == 0)
+    return exec_file_buffer;
+
+  /* It appears that this request is broken prior to 10.30.
+     If it fails, try a really, truly amazingly gross hack
+     that DDE uses, of pawing through the process' data
+     segment to find the pathname.  */
+
+  top_of_stack = 0x7b03a000;
+  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
+     the right id.  */
+
+  saved_inferior_pid = inferior_pid;
+  inferior_pid = pid;
+
+  /* Try to grab a null-terminated string. */
+  while (! done)
+    {
+      if (target_read_memory (top_of_stack, four_chars, 4) != 0)
+	{
+	  inferior_pid = saved_inferior_pid;
+	  return NULL;
+	}
+      for (i = 0; i < 4; i++)
+	{
+	  exec_file_buffer[name_index++] = four_chars[i];
+	  done = (four_chars[i] == '\0');
+	  if (done)
+	    break;
+	}
+      top_of_stack += 4;
+    }
+
+  if (exec_file_buffer[0] == '\0')
+    {
+      inferior_pid = saved_inferior_pid;
+      return NULL;
+    }
+
+  inferior_pid = saved_inferior_pid;
+  return exec_file_buffer;
+}
+
+void
+pre_fork_inferior ()
+{
+  int status;
+
+  status = pipe (startup_semaphore.parent_channel);
+  if (status < 0)
+    {
+      warning ("error getting parent pipe for startup semaphore");
+      return;
+    }
+
+  status = pipe (startup_semaphore.child_channel);
+  if (status < 0)
+    {
+      warning ("error getting child pipe for startup semaphore");
+      return;
+    }
+}
+
+
+/* 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;
+{
+   return 1;
+}
+
+#endif /* ! GDB_NATIVE_HPUX_11 */