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

diff --git a/src/process.c b/src/process.c
index 83de691d3934a8a3bfe17ea971cc77cba36a0b78..14fa3144339c5ee62e73d69a5226b1f4338fcc59 100644 (file)
--- a/src/process.c
+++ b/src/process.c
@@ -248,12 +248,11 @@ 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.  */
+#ifdef HAVE_PTYS
+/* The file name of the pty opened by allocate_pty.  */
 
 static char pty_name[24];
+#endif
 \f
 /* Compute the Lisp form of the process status, p->status, from
    the numeric status that was returned by `wait'.  */
@@ -363,6 +362,11 @@ status_message (status)
 \f
 #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 ()
 {
@@ -1499,7 +1503,12 @@ create_process (process, new_argv, current_dir)
   if (forkin != forkout && forkout >= 0)
     close (forkout);
 
-  XPROCESS (process)->tty_name = pty_flag ? build_string (pty_name) : Qnil;
+#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