* gdbint.texinfo (User Interface): ISO C rather than ISO-C.

[binutils.git] / gdb / inflow.c

diff --git a/gdb/inflow.c b/gdb/inflow.c
index b88352ccda715a5dd852da1a9f7785d96ef192d0..526acdfdc7e20423adea999655d5374daf360698 100644 (file)
--- a/gdb/inflow.c
+++ b/gdb/inflow.c
@@ -1,118 +1,280 @@
 /* Low level interface to ptrace, for GDB when running under Unix.
 /* Low level interface to ptrace, for GDB when running under Unix.

-   Copyright (C) 1986, 1987 Free Software Foundation, Inc.
+   Copyright 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995,
+   1996, 1998, 1999, 2000, 2001 Free Software Foundation, Inc.

 
 

-GDB is distributed in the hope that it will be useful, but WITHOUT ANY
-WARRANTY.  No author or distributor accepts responsibility to anyone
-for the consequences of using it or for whether it serves any
-particular purpose or works at all, unless he says so in writing.
-Refer to the GDB General Public License for full details.
+   This file is part of GDB.

 
 

-Everyone is granted permission to copy, modify and redistribute GDB,
-but only under the conditions described in the GDB General Public
-License.  A copy of this license is supposed to have been given to you
-along with GDB so you can know your rights and responsibilities.  It
-should be in a file named COPYING.  Among other things, the copyright
-notice and this notice must be preserved on all copies.
+   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.

 
 

-In other words, go ahead and share GDB, but don't try to stop
-anyone else from sharing it farther.  Help stamp out software hoarding!
-*/
+   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.  */

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

-#include "initialize.h"
-#include "param.h"

 #include "frame.h"
 #include "inferior.h"
 #include "frame.h"
 #include "inferior.h"

+#include "command.h"
+#include "serial.h"
+#include "terminal.h"
+#include "target.h"
+#include "gdbthread.h"

 
 

-#include <stdio.h>
-#include <sys/param.h>
-#include <sys/dir.h>
-#include <sys/user.h>
+#include "gdb_string.h"

 #include <signal.h>
 #include <signal.h>

-#include <sys/ioctl.h>
-#include <sgtty.h>

 #include <fcntl.h>
 #include <fcntl.h>

+#ifdef HAVE_SYS_SELECT_H
+#include <sys/select.h>
+#endif

 
 

-#ifdef UMAX_PTRACE
-#include <a.out.h>
+#ifdef HAVE_TERMIOS
+#define PROCESS_GROUP_TYPE pid_t

 #endif
 
 #endif
 

-#ifdef NEW_SUN_PTRACE
-#include <sys/ptrace.h>
-#include <machine/reg.h>
+#ifdef HAVE_TERMIO
+#define PROCESS_GROUP_TYPE int

 #endif
 
 #endif
 

-extern int errno;
+#ifdef HAVE_SGTTY
+#ifdef SHORT_PGRP
+/* This is only used for the ultra.  Does it have pid_t?  */
+#define PROCESS_GROUP_TYPE short
+#else
+#define PROCESS_GROUP_TYPE int
+#endif
+#endif /* sgtty */

 
 

-/* Nonzero if we are debugging an attached outside process
-   rather than an inferior.  */
+#ifdef HAVE_SYS_IOCTL_H
+#include <sys/ioctl.h>
+#endif

 
 

-static int attach_flag;
+#if defined (SIGIO) && defined (FASYNC) && defined (FD_SET) && defined (F_SETOWN)
+static void handle_sigio (int);
+#endif

 
 

-START_FILE
+extern void _initialize_inflow (void);
+
+static void pass_signal (int);
+
+static void kill_command (char *, int);
+
+static void terminal_ours_1 (int);

 \f
 /* Record terminal status separately for debugger and inferior.  */
 
 \f
 /* Record terminal status separately for debugger and inferior.  */
 

-static struct sgttyb sg_inferior;
-static struct tchars tc_inferior;
-static struct ltchars ltc_inferior;
-static int lmode_inferior;
-static int tflags_inferior;
-static int pgrp_inferior;
+static struct serial *stdin_serial;

 
 

-static struct sgttyb sg_ours;
-static struct tchars tc_ours;
-static struct ltchars ltc_ours;
-static int lmode_ours;
+/* TTY state for the inferior.  We save it whenever the inferior stops, and
+   restore it when it resumes.  */
+static serial_ttystate inferior_ttystate;
+
+/* Our own tty state, which we restore every time we need to deal with the
+   terminal.  We only set it once, when GDB first starts.  The settings of
+   flags which readline saves and restores and unimportant.  */
+static serial_ttystate our_ttystate;
+
+/* fcntl flags for us and the inferior.  Saved and restored just like
+   {our,inferior}_ttystate.  */
+static int tflags_inferior;

 static int tflags_ours;
 static int tflags_ours;

-static int pgrp_ours;

 
 

-/* Copy of inferior_io_terminal when inferior was last started.  */
+#ifdef PROCESS_GROUP_TYPE
+/* Process group for us and the inferior.  Saved and restored just like
+   {our,inferior}_ttystate.  */
+PROCESS_GROUP_TYPE our_process_group;
+PROCESS_GROUP_TYPE inferior_process_group;
+#endif
+
+/* While the inferior is running, we want SIGINT and SIGQUIT to go to the
+   inferior only.  If we have job control, that takes care of it.  If not,
+   we save our handlers in these two variables and set SIGINT and SIGQUIT
+   to SIG_IGN.  */
+
+static void (*sigint_ours) ();
+static void (*sigquit_ours) ();
+
+/* The name of the tty (from the `tty' command) that we gave to the inferior
+   when it was last started.  */
+

 static char *inferior_thisrun_terminal;
 
 static char *inferior_thisrun_terminal;
 

-static void terminal_ours_1 ();
+/* Nonzero if our terminal settings are in effect.  Zero if the
+   inferior's settings are in effect.  Ignored if !gdb_has_a_terminal
+   ().  */
+
+int terminal_is_ours;
+
+enum
+  {
+    yes, no, have_not_checked
+  }
+gdb_has_a_terminal_flag = have_not_checked;
+
+/* Does GDB have a terminal (on stdin)?  */
+int
+gdb_has_a_terminal (void)
+{
+  switch (gdb_has_a_terminal_flag)
+    {
+    case yes:
+      return 1;
+    case no:
+      return 0;
+    case have_not_checked:
+      /* Get all the current tty settings (including whether we have a
+         tty at all!).  Can't do this in _initialize_inflow because
+         serial_fdopen() won't work until the serial_ops_list is
+         initialized.  */
+
+#ifdef F_GETFL
+      tflags_ours = fcntl (0, F_GETFL, 0);
+#endif
+
+      gdb_has_a_terminal_flag = no;
+      stdin_serial = serial_fdopen (0);
+      if (stdin_serial != NULL)
+       {
+         our_ttystate = serial_get_tty_state (stdin_serial);
+
+         if (our_ttystate != NULL)
+           {
+             gdb_has_a_terminal_flag = yes;
+#ifdef HAVE_TERMIOS
+             our_process_group = tcgetpgrp (0);
+#endif
+#ifdef HAVE_TERMIO
+             our_process_group = getpgrp ();
+#endif
+#ifdef HAVE_SGTTY
+             ioctl (0, TIOCGPGRP, &our_process_group);
+#endif
+           }
+       }
+
+      return gdb_has_a_terminal_flag == yes;
+    default:
+      /* "Can't happen".  */
+      return 0;
+    }
+}

 
 

-/* Nonzero if our terminal settings are in effect.
-   Zero if the inferior's settings are in effect.  */
-static int terminal_is_ours;
+/* Macro for printing errors from ioctl operations */
+
+#define        OOPSY(what)     \
+  if (result == -1)    \
+    fprintf_unfiltered(gdb_stderr, "[%s failed in terminal_inferior: %s]\n", \
+           what, safe_strerror (errno))
+
+static void terminal_ours_1 (int);

 
 /* Initialize the terminal settings we record for the inferior,
    before we actually run the inferior.  */
 
 void
 
 /* Initialize the terminal settings we record for the inferior,
    before we actually run the inferior.  */
 
 void

-terminal_init_inferior ()
+terminal_init_inferior_with_pgrp (int pgrp)

 {
 {

-  if (remote_debugging)
-    return;
+  if (gdb_has_a_terminal ())
+    {
+      /* We could just as well copy our_ttystate (if we felt like
+         adding a new function serial_copy_tty_state()).  */
+      if (inferior_ttystate)
+       xfree (inferior_ttystate);
+      inferior_ttystate = serial_get_tty_state (stdin_serial);
+
+#ifdef PROCESS_GROUP_TYPE
+      inferior_process_group = pgrp;
+#endif

 
 

-  sg_inferior = sg_ours;
-  tc_inferior = tc_ours;
-  ltc_inferior = ltc_ours;
-  lmode_inferior = lmode_ours;
-  tflags_inferior = tflags_ours;
-  pgrp_inferior = inferior_pid;
+      /* Make sure that next time we call terminal_inferior (which will be
+         before the program runs, as it needs to be), we install the new
+         process group.  */
+      terminal_is_ours = 1;
+    }
+}

 
 

-  terminal_is_ours = 1;
+void
+terminal_init_inferior (void)
+{
+#ifdef PROCESS_GROUP_TYPE
+  /* This is for Lynx, and should be cleaned up by having Lynx be a separate
+     debugging target with a version of target_terminal_init_inferior which
+     passes in the process group to a generic routine which does all the work
+     (and the non-threaded child_terminal_init_inferior can just pass in
+     inferior_ptid to the same routine).  */
+  /* We assume INFERIOR_PID is also the child's process group.  */
+  terminal_init_inferior_with_pgrp (PIDGET (inferior_ptid));
+#endif /* PROCESS_GROUP_TYPE */

 }
 
 /* Put the inferior's terminal settings into effect.
    This is preparation for starting or resuming the inferior.  */
 
 void
 }
 
 /* Put the inferior's terminal settings into effect.
    This is preparation for starting or resuming the inferior.  */
 
 void

-terminal_inferior ()
+terminal_inferior (void)

 {
 {

-  if (remote_debugging)
-    return;
-
-  if (terminal_is_ours)   /*  && inferior_thisrun_terminal == 0) */
+  if (gdb_has_a_terminal () && terminal_is_ours
+      && inferior_thisrun_terminal == 0)

     {
     {

-      fcntl (0, F_SETFL, tflags_inferior);
-      fcntl (0, F_SETFL, tflags_inferior);
-      ioctl (0, TIOCSETN, &sg_inferior);
-      ioctl (0, TIOCSETC, &tc_inferior);
-      ioctl (0, TIOCSLTC, &ltc_inferior);
-      ioctl (0, TIOCLSET, &lmode_inferior);
-      ioctl (0, TIOCSPGRP, &pgrp_inferior);
+      int result;
+
+#ifdef F_GETFL
+      /* Is there a reason this is being done twice?  It happens both
+         places we use F_SETFL, so I'm inclined to think perhaps there
+         is some reason, however perverse.  Perhaps not though...  */
+      result = fcntl (0, F_SETFL, tflags_inferior);
+      result = fcntl (0, F_SETFL, tflags_inferior);
+      OOPSY ("fcntl F_SETFL");
+#endif
+
+      /* Because we were careful to not change in or out of raw mode in
+         terminal_ours, we will not change in our out of raw mode with
+         this call, so we don't flush any input.  */
+      result = serial_set_tty_state (stdin_serial, inferior_ttystate);
+      OOPSY ("setting tty state");
+
+      if (!job_control)
+       {
+         sigint_ours = (void (*)()) signal (SIGINT, SIG_IGN);
+#ifdef SIGQUIT
+         sigquit_ours = (void (*)()) signal (SIGQUIT, SIG_IGN);
+#endif
+       }
+
+      /* If attach_flag is set, we don't know whether we are sharing a
+         terminal with the inferior or not.  (attaching a process
+         without a terminal is one case where we do not; attaching a
+         process which we ran from the same shell as GDB via `&' is
+         one case where we do, I think (but perhaps this is not
+         `sharing' in the sense that we need to save and restore tty
+         state)).  I don't know if there is any way to tell whether we
+         are sharing a terminal.  So what we do is to go through all
+         the saving and restoring of the tty state, but ignore errors
+         setting the process group, which will happen if we are not
+         sharing a terminal).  */
+
+      if (job_control)
+       {
+#ifdef HAVE_TERMIOS
+         result = tcsetpgrp (0, inferior_process_group);
+         if (!attach_flag)
+           OOPSY ("tcsetpgrp");
+#endif
+
+#ifdef HAVE_SGTTY
+         result = ioctl (0, TIOCSPGRP, &inferior_process_group);
+         if (!attach_flag)
+           OOPSY ("TIOCSPGRP");
+#endif
+       }
+

     }
   terminal_is_ours = 0;
 }
     }
   terminal_is_ours = 0;
 }


@@ -126,11 +288,8 @@ terminal_inferior ()
    should be called to get back to a normal state of affairs.  */
 
 void
    should be called to get back to a normal state of affairs.  */
 
 void

-terminal_ours_for_output ()
+terminal_ours_for_output (void)

 {
 {

-  if (remote_debugging)
-    return;
-

   terminal_ours_1 (1);
 }
 
   terminal_ours_1 (1);
 }
 


@@ -139,515 +298,474 @@ terminal_ours_for_output ()
    so they can be restored properly later.  */
 
 void
    so they can be restored properly later.  */
 
 void

-terminal_ours ()
+terminal_ours (void)

 {
 {

-  if (remote_debugging)
-    return;
-

   terminal_ours_1 (0);
 }
 
   terminal_ours_1 (0);
 }
 

+/* output_only is not used, and should not be used unless we introduce
+   separate terminal_is_ours and terminal_is_ours_for_output
+   flags.  */
+

 static void
 static void

-terminal_ours_1 (output_only)
-     int output_only;
+terminal_ours_1 (int output_only)

 {
 {

-  /* Ignore this signal since it will happen when we try to set the pgrp.  */
-  int (*osigttou) ();
+  /* Checking inferior_thisrun_terminal is necessary so that
+     if GDB is running in the background, it won't block trying
+     to do the ioctl()'s below.  Checking gdb_has_a_terminal
+     avoids attempting all the ioctl's when running in batch.  */
+  if (inferior_thisrun_terminal != 0 || gdb_has_a_terminal () == 0)
+    return;

 
 

-  if (!terminal_is_ours)  /*   && inferior_thisrun_terminal == 0)  */
+  if (!terminal_is_ours)

     {
     {

+#ifdef SIGTTOU
+      /* Ignore this signal since it will happen when we try to set the
+         pgrp.  */
+      void (*osigttou) () = NULL;
+#endif
+      int result;
+

       terminal_is_ours = 1;
 
       terminal_is_ours = 1;
 

-      osigttou = signal (SIGTTOU, SIG_IGN);
+#ifdef SIGTTOU
+      if (job_control)
+       osigttou = (void (*)()) signal (SIGTTOU, SIG_IGN);
+#endif

 
 

-      ioctl (0, TIOCGPGRP, &pgrp_inferior);
-      ioctl (0, TIOCSPGRP, &pgrp_ours);
+      if (inferior_ttystate)
+       xfree (inferior_ttystate);
+      inferior_ttystate = serial_get_tty_state (stdin_serial);
+#ifdef HAVE_TERMIOS
+      inferior_process_group = tcgetpgrp (0);
+#endif
+#ifdef HAVE_TERMIO
+      inferior_process_group = getpgrp ();
+#endif
+#ifdef HAVE_SGTTY
+      ioctl (0, TIOCGPGRP, &inferior_process_group);
+#endif

 
 

-      signal (SIGTTOU, osigttou);
+      /* Here we used to set ICANON in our ttystate, but I believe this
+         was an artifact from before when we used readline.  Readline sets
+         the tty state when it needs to.
+         FIXME-maybe: However, query() expects non-raw mode and doesn't
+         use readline.  Maybe query should use readline (on the other hand,
+         this only matters for HAVE_SGTTY, not termio or termios, I think).  */
+
+      /* Set tty state to our_ttystate.  We don't change in our out of raw
+         mode, to avoid flushing input.  We need to do the same thing
+         regardless of output_only, because we don't have separate
+         terminal_is_ours and terminal_is_ours_for_output flags.  It's OK,
+         though, since readline will deal with raw mode when/if it needs to.
+       */
+
+      serial_noflush_set_tty_state (stdin_serial, our_ttystate,
+                                   inferior_ttystate);
+
+      if (job_control)
+       {
+#ifdef HAVE_TERMIOS
+         result = tcsetpgrp (0, our_process_group);
+#if 0
+         /* This fails on Ultrix with EINVAL if you run the testsuite
+            in the background with nohup, and then log out.  GDB never
+            used to check for an error here, so perhaps there are other
+            such situations as well.  */
+         if (result == -1)
+           fprintf_unfiltered (gdb_stderr, "[tcsetpgrp failed in terminal_ours: %s]\n",
+                               safe_strerror (errno));
+#endif
+#endif /* termios */
+
+#ifdef HAVE_SGTTY
+         result = ioctl (0, TIOCSPGRP, &our_process_group);
+#endif
+       }
+
+#ifdef SIGTTOU
+      if (job_control)
+       signal (SIGTTOU, osigttou);
+#endif

 
 

+      if (!job_control)
+       {
+         signal (SIGINT, sigint_ours);
+#ifdef SIGQUIT
+         signal (SIGQUIT, sigquit_ours);
+#endif
+       }
+
+#ifdef F_GETFL

       tflags_inferior = fcntl (0, F_GETFL, 0);
       tflags_inferior = fcntl (0, F_GETFL, 0);

-      ioctl (0, TIOCGETP, &sg_inferior);
-      ioctl (0, TIOCGETC, &tc_inferior);
-      ioctl (0, TIOCGLTC, &ltc_inferior);
-      ioctl (0, TIOCLGET, &lmode_inferior);
-    }

 
 

-  sg_ours.sg_flags &= ~RAW & ~CBREAK;
-  if (output_only)
-    sg_ours.sg_flags |= (RAW | CBREAK) & sg_inferior.sg_flags;
-
-  fcntl (0, F_SETFL, tflags_ours);
-  fcntl (0, F_SETFL, tflags_ours);
-  ioctl (0, TIOCSETN, &sg_ours);
-  ioctl (0, TIOCSETC, &tc_ours);
-  ioctl (0, TIOCSLTC, &ltc_ours);
-  ioctl (0, TIOCLSET, &lmode_ours);
-  sg_ours.sg_flags &= ~RAW & ~CBREAK;
+      /* Is there a reason this is being done twice?  It happens both
+         places we use F_SETFL, so I'm inclined to think perhaps there
+         is some reason, however perverse.  Perhaps not though...  */
+      result = fcntl (0, F_SETFL, tflags_ours);
+      result = fcntl (0, F_SETFL, tflags_ours);
+#endif
+
+      result = result;         /* lint */
+    }

 }
 
 }
 

-static void
-term_status_command ()
+/* ARGSUSED */
+void
+term_info (char *arg, int from_tty)

 {
 {

-  register int i;
+  target_terminal_info (arg, from_tty);
+}

 
 

-  if (remote_debugging)
+/* ARGSUSED */
+void
+child_terminal_info (char *args, int from_tty)
+{
+  if (!gdb_has_a_terminal ())

     {
     {

-      printf ("No terminal status when remote debugging.\n");
+      printf_filtered ("This GDB does not control a terminal.\n");

       return;
     }
 
       return;
     }
 

-  printf ("Inferior's terminal status (currently saved by GDB):\n");
-  printf ("fcntl flags = 0x%x, lmode = 0x%x,\nsgttyb.sg_flags = 0x%x, owner pid = %d.\n",
-         tflags_inferior, lmode_inferior,
-         sg_inferior.sg_flags, pgrp_inferior);
-  printf ("tchars: ");
-  for (i = 0; i < sizeof (struct tchars); i++)
-    printf ("0x%x ", ((char *)&tc_inferior)[i]);
-  printf ("\n");
-  printf ("ltchars: ");
-  for (i = 0; i < sizeof (struct ltchars); i++)
-    printf ("0x%x ", ((char *)&ltc_inferior)[i]);
-  printf ("\n");
-}
-\f
-static void
-new_tty (ttyname)
-     char *ttyname;
-{
-  register int tty;
-  register int fd;
+  printf_filtered ("Inferior's terminal status (currently saved by GDB):\n");

 
 

-#if 0
-  /* I think it is better not to do this.  Then C-z on the GDB terminal
-     will still stop the program, while C-z on the data terminal
-     will be input.  */
+  /* First the fcntl flags.  */
+  {
+    int flags;

 
 

-  /* Disconnect the child process from our controlling terminal.  */
-  tty = open("/dev/tty", O_RDWR);
-  if (tty > 0)
-    {
-      ioctl(tty, TIOCNOTTY, 0);
-      close(tty);
-    }
+    flags = tflags_inferior;
+
+    printf_filtered ("File descriptor flags = ");
+
+#ifndef O_ACCMODE
+#define O_ACCMODE (O_RDONLY | O_WRONLY | O_RDWR)
+#endif
+    /* (O_ACCMODE) parens are to avoid Ultrix header file bug */
+    switch (flags & (O_ACCMODE))
+      {
+      case O_RDONLY:
+       printf_filtered ("O_RDONLY");
+       break;
+      case O_WRONLY:
+       printf_filtered ("O_WRONLY");
+       break;
+      case O_RDWR:
+       printf_filtered ("O_RDWR");
+       break;
+      }
+    flags &= ~(O_ACCMODE);
+
+#ifdef O_NONBLOCK
+    if (flags & O_NONBLOCK)
+      printf_filtered (" | O_NONBLOCK");
+    flags &= ~O_NONBLOCK;

 #endif
 #endif

-  /* Now open the specified new terminal.  */

 
 

-  tty = open(ttyname, O_RDWR);
-  if (tty == -1)
-    _exit(1);
+#if defined (O_NDELAY)
+    /* If O_NDELAY and O_NONBLOCK are defined to the same thing, we will
+       print it as O_NONBLOCK, which is good cause that is what POSIX
+       has, and the flag will already be cleared by the time we get here.  */
+    if (flags & O_NDELAY)
+      printf_filtered (" | O_NDELAY");
+    flags &= ~O_NDELAY;
+#endif

 
 

-  dup2(tty, 0);
-  dup2(tty, 1);
-  dup2(tty, 2);
-  close(tty);
+    if (flags & O_APPEND)
+      printf_filtered (" | O_APPEND");
+    flags &= ~O_APPEND;
+
+#if defined (O_BINARY)
+    if (flags & O_BINARY)
+      printf_filtered (" | O_BINARY");
+    flags &= ~O_BINARY;
+#endif
+
+    if (flags)
+      printf_filtered (" | 0x%x", flags);
+    printf_filtered ("\n");
+  }
+
+#ifdef PROCESS_GROUP_TYPE
+  printf_filtered ("Process group = %d\n",
+                  (int) inferior_process_group);
+#endif
+
+  serial_print_tty_state (stdin_serial, inferior_ttystate, gdb_stdout);

 }
 \f
 }
 \f

-/* Start an inferior process and returns its pid.
-   ALLARGS is a vector of program-name and args.
-   ENV is the environment vector to pass.  */
+/* NEW_TTY_PREFORK is called before forking a new child process,
+   so we can record the state of ttys in the child to be formed.
+   TTYNAME is null if we are to share the terminal with gdb;
+   or points to a string containing the name of the desired tty.

 
 

-int
-create_inferior (allargs, env)
-     char **allargs;
-     char **env;
-{
-  int pid;
-  extern int sys_nerr;
-  extern char *sys_errlist[];
-  extern int errno;
+   NEW_TTY is called in new child processes under Unix, which will
+   become debugger target processes.  This actually switches to
+   the terminal specified in the NEW_TTY_PREFORK call.  */

 
 

-  /* exec is said to fail if the executable is open.  */
-  close_exec_file ();
+void
+new_tty_prefork (char *ttyname)
+{
+  /* Save the name for later, for determining whether we and the child
+     are sharing a tty.  */
+  inferior_thisrun_terminal = ttyname;
+}

 
 

-  pid = vfork ();
-  if (pid < 0)
-    perror_with_name ("vfork");
+void
+new_tty (void)
+{
+  register int tty;

 
 

-  if (pid == 0)
+  if (inferior_thisrun_terminal == 0)
+    return;
+#if !defined(__GO32__) && !defined(_WIN32)
+#ifdef TIOCNOTTY
+  /* Disconnect the child process from our controlling terminal.  On some
+     systems (SVR4 for example), this may cause a SIGTTOU, so temporarily
+     ignore SIGTTOU. */
+  tty = open ("/dev/tty", O_RDWR);
+  if (tty > 0)

     {
     {

-      /* Run inferior in a separate process group.  */
-      setpgrp (getpid (), getpid ());
+      void (*osigttou) ();

 
 

-      inferior_thisrun_terminal = inferior_io_terminal;
-      if (inferior_io_terminal != 0)
-       new_tty (inferior_io_terminal);
+      osigttou = (void (*)()) signal (SIGTTOU, SIG_IGN);
+      ioctl (tty, TIOCNOTTY, 0);
+      close (tty);
+      signal (SIGTTOU, osigttou);
+    }
+#endif

 
 

-/* Not needed on Sun, at least, and loses there
-   because it clobbers the superior.  */
-/*???      signal (SIGQUIT, SIG_DFL);
-      signal (SIGINT, SIG_DFL);  */
+  /* Now open the specified new terminal.  */

 
 

-      ptrace (0);
-      execle ("/bin/sh", "sh", "-c", allargs, 0, env);
+#ifdef USE_O_NOCTTY
+  tty = open (inferior_thisrun_terminal, O_RDWR | O_NOCTTY);
+#else
+  tty = open (inferior_thisrun_terminal, O_RDWR);
+#endif
+  if (tty == -1)
+    {
+      print_sys_errmsg (inferior_thisrun_terminal, errno);
+      _exit (1);
+    }

 
 

-      fprintf (stderr, "Cannot exec /bin/sh: %s.\n",
-              errno < sys_nerr ? sys_errlist[errno] : "unknown error");
-      fflush (stderr);
-      _exit (0177);
+  /* Avoid use of dup2; doesn't exist on all systems.  */
+  if (tty != 0)
+    {
+      close (0);
+      dup (tty);
+    }
+  if (tty != 1)
+    {
+      close (1);
+      dup (tty);
+    }
+  if (tty != 2)
+    {
+      close (2);
+      dup (tty);

     }
     }

-  return pid;
+  if (tty > 2)
+    close (tty);
+#endif /* !go32 && !win32 */

 }
 }

-
+\f

 /* Kill the inferior process.  Make us have no inferior.  */
 
 /* Kill the inferior process.  Make us have no inferior.  */
 

+/* ARGSUSED */

 static void
 static void

-kill_command ()
+kill_command (char *arg, int from_tty)

 {
 {

-  if (remote_debugging)
-    return;
-  if (inferior_pid == 0)
+  /* FIXME:  This should not really be inferior_ptid (or target_has_execution).
+     It should be a distinct flag that indicates that a target is active, cuz
+     some targets don't have processes! */
+
+  if (ptid_equal (inferior_ptid, null_ptid))

     error ("The program is not being run.");
     error ("The program is not being run.");

-  if (!query ("Kill the inferior process? "))
+  if (!query ("Kill the program being debugged? "))

     error ("Not confirmed.");
     error ("Not confirmed.");

-  kill_inferior ();
-}
+  target_kill ();

 
 

-kill_inferior ()
-{
-  if (remote_debugging)
-    return;
-  if (inferior_pid == 0)
-    return;
-  ptrace (8, inferior_pid, 0, 0);
-  wait (0);
-  inferior_died ();
-}
+  init_thread_list ();         /* Destroy thread info */

 
 

-inferior_died ()
-{
-  inferior_pid = 0;
-  attach_flag = 0;
-  mark_breakpoints_out ();
-  reopen_exec_file ();
-  if (have_core_file_p ())
-    set_current_frame (read_register (FP_REGNUM));
-}
-
-/* Resume execution of the inferior process.
-   If STEP is nonzero, single-step it.
-   If SIGNAL is nonzero, give it that signal.  */
-
-void
-resume (step, signal)
-     int step;
-     int signal;
-{
-  errno = 0;
-  if (remote_debugging)
-    remote_resume (step, signal);
-  else
+  /* Killing off the inferior can leave us with a core file.  If so,
+     print the state we are left in.  */
+  if (target_has_stack)

     {
     {

-      ptrace (step ? 9 : 7, inferior_pid, 1, signal);
-      if (errno)
-       perror_with_name ("ptrace");
+      printf_filtered ("In %s,\n", target_longname);
+      if (selected_frame == NULL)
+       fputs_filtered ("No selected stack frame.\n", gdb_stdout);
+      else
+       print_stack_frame (selected_frame,
+                          frame_relative_level (selected_frame), 1);

     }
 }
 \f
     }
 }
 \f

-#ifdef NEW_SUN_PTRACE
+/* Call set_sigint_trap when you need to pass a signal on to an attached
+   process when handling SIGINT */

 
 

-/* Start debugging the process whose number is PID.  */
-
-attach (pid)
-     int pid;
+/* ARGSUSED */
+static void
+pass_signal (int signo)

 {
 {

-  errno = 0;
-  ptrace (PTRACE_ATTACH, pid, 0, 0);
-  if (errno)
-    perror_with_name ("ptrace");
-  attach_flag = 1;
-  return pid;
+#ifndef _WIN32
+  kill (PIDGET (inferior_ptid), SIGINT);
+#endif

 }
 
 }
 

-/* Stop debugging the process whose number is PID
-   and continue it with signal number SIGNAL.
-   SIGNAL = 0 means just continue it.  */
+static void (*osig) ();

 
 void
 
 void

-detach (signal)
-     int signal;
+set_sigint_trap (void)

 {
 {

-  errno = 0;
-  ptrace (PTRACE_DETACH, inferior_pid, 1, signal);
-  if (errno)
-    perror_with_name ("ptrace");
-  attach_flag = 0;
+  if (attach_flag || inferior_thisrun_terminal)
+    {
+      osig = (void (*)()) signal (SIGINT, pass_signal);
+    }

 }
 }

-#endif
-\f
-#ifdef NEW_SUN_PTRACE

 
 void
 
 void

-fetch_inferior_registers ()
+clear_sigint_trap (void)

 {
 {

-  struct regs inferior_registers;
-  struct fp_status inferior_fp_registers;
-  extern char registers[];
-
-  if (remote_debugging)
-    remote_fetch_registers (registers);
-  else
+  if (attach_flag || inferior_thisrun_terminal)

     {
     {

-      ptrace (PTRACE_GETREGS, inferior_pid, &inferior_registers);
-      ptrace (PTRACE_GETFPREGS, inferior_pid, &inferior_fp_registers);
-
-      bcopy (&inferior_registers, registers, 16 * 4);
-      bcopy (&inferior_fp_registers, &registers[REGISTER_BYTE (FP0_REGNUM)],
-            sizeof inferior_fp_registers.fps_regs);
-      *(int *)&registers[REGISTER_BYTE (PS_REGNUM)] = inferior_registers.r_ps;
-      *(int *)&registers[REGISTER_BYTE (PC_REGNUM)] = inferior_registers.r_pc;
-      bcopy (&inferior_fp_registers.fps_control,
-            &registers[REGISTER_BYTE (FPC_REGNUM)],
-            sizeof inferior_fp_registers - sizeof inferior_fp_registers.fps_regs);
+      signal (SIGINT, osig);

     }
 }
     }
 }

+\f
+#if defined (SIGIO) && defined (FASYNC) && defined (FD_SET) && defined (F_SETOWN)
+static void (*old_sigio) ();

 
 

-/* 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).  */
-
-store_inferior_registers (regno)
-     int regno;
+static void
+handle_sigio (int signo)

 {
 {

-  struct regs inferior_registers;
-  struct fp_status inferior_fp_registers;
-  extern char registers[];
+  int numfds;
+  fd_set readfds;
+
+  signal (SIGIO, handle_sigio);

 
 

-  if (remote_debugging)
-    remote_store_registers (registers);
-  else
+  FD_ZERO (&readfds);
+  FD_SET (target_activity_fd, &readfds);
+  numfds = select (target_activity_fd + 1, &readfds, NULL, NULL, NULL);
+  if (numfds >= 0 && FD_ISSET (target_activity_fd, &readfds))

     {
     {

-      bcopy (registers, &inferior_registers, 16 * 4);
-      bcopy (&registers[REGISTER_BYTE (FP0_REGNUM)], &inferior_fp_registers,
-            sizeof inferior_fp_registers.fps_regs);
-      inferior_registers.r_ps = *(int *)&registers[REGISTER_BYTE (PS_REGNUM)];
-      inferior_registers.r_pc = *(int *)&registers[REGISTER_BYTE (PC_REGNUM)];
-      bcopy (&registers[REGISTER_BYTE (FPC_REGNUM)],
-            &inferior_fp_registers.fps_control,
-            sizeof inferior_fp_registers - sizeof inferior_fp_registers.fps_regs);
-
-      ptrace (PTRACE_SETREGS, inferior_pid, &inferior_registers);
-      ptrace (PTRACE_SETFPREGS, inferior_pid, &inferior_fp_registers);
+#ifndef _WIN32
+      if ((*target_activity_function) ())
+       kill (PIDGET (inferior_ptid), SIGINT);
+#endif

     }
 }
 
     }
 }
 

-#else
+static int old_fcntl_flags;

 
 void
 
 void

-fetch_inferior_registers ()
+set_sigio_trap (void)

 {
 {

-  register int regno;
-  register unsigned int regaddr;
-  char buf[MAX_REGISTER_RAW_SIZE];
-  register int i;
-
-#ifdef UMAX_PTRACE
-  unsigned int offset = 0;
-#else
-  struct user u;
-  unsigned int offset = (char *) &u.u_ar0 - (char *) &u;
-  offset = ptrace (3, inferior_pid, offset, 0) - KERNEL_U_ADDR;
-#endif
-
-  for (regno = 0; regno < NUM_REGS; regno++)
+  if (target_activity_function)

     {
     {

-      regaddr = register_addr (regno, offset);
-      for (i = 0; i < REGISTER_RAW_SIZE (regno); i += sizeof (int))
-       {
-         *(int *) &buf[i] = ptrace (3, inferior_pid, regaddr, 0);
-         regaddr += sizeof (int);
-       }
-      supply_register (regno, buf);
+      old_sigio = (void (*)()) signal (SIGIO, handle_sigio);
+      fcntl (target_activity_fd, F_SETOWN, getpid ());
+      old_fcntl_flags = fcntl (target_activity_fd, F_GETFL, 0);
+      fcntl (target_activity_fd, F_SETFL, old_fcntl_flags | FASYNC);

     }
 }
 
     }
 }
 

-/* 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).  */
-
-store_inferior_registers (regno)
-     int regno;
+void
+clear_sigio_trap (void)

 {
 {

-  register unsigned int regaddr;
-  char buf[80];
-
-#ifdef UMAX_PTRACE
-  unsigned int offset = 0;
-#else
-  struct user u;
-  unsigned int offset = (char *) &u.u_ar0 - (char *) &u;
-  offset = ptrace (3, inferior_pid, offset, 0) - KERNEL_U_ADDR;
-#endif
-
-  if (regno >= 0)
+  if (target_activity_function)

     {
     {

-      regaddr = register_addr (regno, offset);
-      errno = 0;
-      ptrace (6, inferior_pid, regaddr, read_register (regno));
-      if (errno != 0)
-       {
-         sprintf (buf, "writing register number %d", regno);
-         perror_with_name (buf);
-       }
-    }
-  else for (regno = 0; regno < NUM_REGS; regno++)
-    {
-      regaddr = register_addr (regno, offset);
-      errno = 0;
-      ptrace (6, inferior_pid, regaddr, read_register (regno));
-      if (errno != 0)
-       {
-         sprintf (buf, "writing register number %d", regno);
-         perror_with_name (buf);
-       }
+      signal (SIGIO, old_sigio);
+      fcntl (target_activity_fd, F_SETFL, old_fcntl_flags);

     }
 }
     }
 }

-
-#endif /* not NEW_SUN_PTRACE */
-\f
-/* NOTE! I tried using PTRACE_READDATA, etc., to read and write memory
-   in the NEW_SUN_PTRACE case.
-   It ought to be straightforward.  But it appears that writing did
-   not write the data that I specified.  I cannot understand where
-   it got the data that it actually did write.  */
-
-/* Copy LEN bytes from inferior's memory starting at MEMADDR
-   to debugger memory starting at MYADDR.  */
-
-read_inferior_memory (memaddr, myaddr, len)
-     CORE_ADDR memaddr;
-     char *myaddr;
-     int len;
+#else /* No SIGIO.  */
+void
+set_sigio_trap (void)

 {
 {

-  register int i;
-  /* Round starting address down to longword boundary.  */
-  register CORE_ADDR addr = memaddr & - sizeof (int);
-  /* 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));
-
-  /* Read all the longwords */
-  for (i = 0; i < count; i++, addr += sizeof (int))
-    {
-      if (remote_debugging)
-       buffer[i] = remote_fetch_word (addr);
-      else
-       buffer[i] = ptrace (1, inferior_pid, addr, 0);
-    }
+  if (target_activity_function)
+    internal_error (__FILE__, __LINE__, "failed internal consistency check");
+}

 
 

-  /* Copy appropriate bytes out of the buffer.  */
-  bcopy ((char *) buffer + (memaddr & (sizeof (int) - 1)), myaddr, len);
+void
+clear_sigio_trap (void)
+{
+  if (target_activity_function)
+    internal_error (__FILE__, __LINE__, "failed internal consistency check");

 }
 }

+#endif /* No SIGIO.  */
+\f

 
 

-/* Copy LEN bytes of data from debugger memory at MYADDR
-   to inferior's memory at MEMADDR.
-   On failure (cannot write the inferior)
-   returns the value of errno.  */
+/* This is here because this is where we figure out whether we (probably)
+   have job control.  Just using job_control only does part of it because
+   setpgid or setpgrp might not exist on a system without job control.
+   It might be considered misplaced (on the other hand, process groups and
+   job control are closely related to ttys).

 
 

+   For a more clean implementation, in libiberty, put a setpgid which merely
+   calls setpgrp and a setpgrp which does nothing (any system with job control
+   will have one or the other).  */

 int
 int

-write_inferior_memory (memaddr, myaddr, len)
-     CORE_ADDR memaddr;
-     char *myaddr;
-     int len;
+gdb_setpgid (void)

 {
 {

-  register int i;
-  /* Round starting address down to longword boundary.  */
-  register CORE_ADDR addr = memaddr & - sizeof (int);
-  /* 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));
-  extern int errno;
-
-  /* Fill start and end extra bytes of buffer with existing memory data.  */
-
-  if (remote_debugging)
-    buffer[0] = remote_fetch_word (addr);
-  else
-    buffer[0] = ptrace (1, inferior_pid, addr, 0);
-
-  if (count > 1)
-    {
-      if (remote_debugging)
-       buffer[count - 1]
-         = remote_fetch_word (addr + (count - 1) * sizeof (int));
-      else
-       buffer[count - 1]
-         = ptrace (1, inferior_pid,
-                   addr + (count - 1) * sizeof (int), 0);
-    }
-
-  /* Copy data to be written over corresponding part of buffer */
-
-  bcopy (myaddr, (char *) buffer + (memaddr & (sizeof (int) - 1)), len);
+  int retval = 0;

 
 

-  /* Write the entire buffer.  */
-
-  for (i = 0; i < count; i++, addr += sizeof (int))
+  if (job_control)

     {
     {

-      errno = 0;
-      if (remote_debugging)
-       remote_store_word (addr, buffer[i]);
-      else
-       ptrace (4, inferior_pid, addr, buffer[i]);
-      if (errno)
-       return errno;
+#if defined (HAVE_TERMIOS) || defined (TIOCGPGRP)
+#ifdef HAVE_SETPGID
+      /* The call setpgid (0, 0) is supposed to work and mean the same
+         thing as this, but on Ultrix 4.2A it fails with EPERM (and
+         setpgid (getpid (), getpid ()) succeeds).  */
+      retval = setpgid (getpid (), getpid ());
+#else
+#ifdef HAVE_SETPGRP
+#ifdef SETPGRP_VOID 
+      retval = setpgrp ();
+#else
+      retval = setpgrp (getpid (), getpid ());
+#endif
+#endif /* HAVE_SETPGRP */
+#endif /* HAVE_SETPGID */
+#endif /* defined (HAVE_TERMIOS) || defined (TIOCGPGRP) */

     }
 
     }
 

-  return 0;
+  return retval;

 }
 }

-\f
-static void
-try_writing_regs_command ()
-{
-  register int i;
-  register int value;
-  extern int errno;
-
-  if (inferior_pid == 0)
-    error ("There is no inferior process now.");

 
 

-  for (i = 0; ; i += 2)
-    {
-      QUIT;
-      errno = 0;
-      value = ptrace (3, inferior_pid, i, 0);
-      ptrace (6, inferior_pid, i, value);
-      if (errno == 0)
-       {
-         printf (" Succeeded with address 0x%x; value 0x%x (%d).\n",
-                 i, value, value);
-       }
-      else if ((i & 0377) == 0)
-       printf (" Failed at 0x%x.\n", i);
-    }
-}
-\f
-static
-initialize ()
+void
+_initialize_inflow (void)

 {
 {

-  add_com ("term-status", class_obscure, term_status_command,
-          "Print info on inferior's saved terminal status.");
-
-  add_com ("try-writing-regs", class_obscure, try_writing_regs_command,
-          "Try writing all locations in inferior's system block.\n\
-Report which ones can be written.");
+  add_info ("terminal", term_info,
+           "Print inferior's saved terminal status.");

 
   add_com ("kill", class_run, kill_command,
           "Kill execution of program being debugged.");
 
 
   add_com ("kill", class_run, kill_command,
           "Kill execution of program being debugged.");
 

-  inferior_pid = 0;
-
-  ioctl (0, TIOCGETP, &sg_ours);
-  ioctl (0, TIOCGETC, &tc_ours);
-  ioctl (0, TIOCGLTC, &ltc_ours);
-  ioctl (0, TIOCLGET, &lmode_ours);
-  fcntl (0, F_GETFL, tflags_ours);
-  ioctl (0, TIOCGPGRP, &pgrp_ours);
+  inferior_ptid = null_ptid;

 
   terminal_is_ours = 1;
 
   terminal_is_ours = 1;

-}

 
 

-END_FILE
+  /* OK, figure out whether we have job control.  If neither termios nor
+     sgtty (i.e. termio or go32), leave job_control 0.  */
+
+#if defined (HAVE_TERMIOS)
+  /* Do all systems with termios have the POSIX way of identifying job
+     control?  I hope so.  */
+#ifdef _POSIX_JOB_CONTROL
+  job_control = 1;
+#else
+#ifdef _SC_JOB_CONTROL
+  job_control = sysconf (_SC_JOB_CONTROL);
+#else
+  job_control = 0;             /* have to assume the worst */
+#endif /* _SC_JOB_CONTROL */
+#endif /* _POSIX_JOB_CONTROL */
+#endif /* HAVE_TERMIOS */
+
+#ifdef HAVE_SGTTY
+#ifdef TIOCGPGRP
+  job_control = 1;
+#else
+  job_control = 0;
+#endif /* TIOCGPGRP */
+#endif /* sgtty */
+}