comparison src/process.c @ 11609:3b2dacb1bfe9

(create_process): Don't reference pty_name if !HAVE_PTYS.

11608:23e8d67edd9d

static Lisp_Object get_process ();

/* Maximum number of bytes to send to a pty without an eof.  */
static int pty_max_bytes;

/* Open an available pty, returning a file descriptor.
   Return -1 on failure.
   The file name of the terminal corresponding to the pty
   is left in the variable pty_name.  */

static char pty_name[24];

/* Compute the Lisp form of the process status, p->status, from
   the numeric status that was returned by `wait'.  */

Lisp_Object status_convert ();

  else
    return Fcopy_sequence (Fsymbol_name (symbol));
}

#ifdef HAVE_PTYS

int
allocate_pty ()
{
  struct stat stb;

  alarm (0);
  start_polling ();
  if (forkin != forkout && forkout >= 0)
    close (forkout);

  XPROCESS (process)->tty_name = pty_flag ? build_string (pty_name) : Qnil;

#ifdef SIGCHLD
#ifdef BSD4_1
  sigrelse (SIGCHLD);
#else /* not BSD4_1 */

11609:3b2dacb1bfe9

static Lisp_Object get_process ();

/* Maximum number of bytes to send to a pty without an eof.  */
static int pty_max_bytes;

#ifdef HAVE_PTYS
/* The file name of the pty opened by allocate_pty.  */

static char pty_name[24];
#endif

/* Compute the Lisp form of the process status, p->status, from
   the numeric status that was returned by `wait'.  */

Lisp_Object status_convert ();

  else
    return Fcopy_sequence (Fsymbol_name (symbol));
}

#ifdef HAVE_PTYS

/* Open an available pty, returning a file descriptor.
   Return -1 on failure.
   The file name of the terminal corresponding to the pty
   is left in the variable pty_name.  */

int
allocate_pty ()
{
  struct stat stb;

  alarm (0);
  start_polling ();
  if (forkin != forkout && forkout >= 0)
    close (forkout);

#ifdef HAVE_PTYS
  if (pty_flag)
    XPROCESS (process)->tty_name = build_string (pty_name);
  else
#endif
    XPROCESS (process)->tty_name = Qnil;

#ifdef SIGCHLD
#ifdef BSD4_1
  sigrelse (SIGCHLD);
#else /* not BSD4_1 */