diff src/process-unix.c @ 4765:1257b938f03a

automatic merge
author Stephen J. Turnbull <stephen@xemacs.org>
date Fri, 04 Dec 2009 10:59:45 +0900
parents aa5ed11f473b
children b3ea9c582280
line wrap: on
line diff
--- a/src/process-unix.c	Fri Dec 04 10:56:38 2009 +0900
+++ b/src/process-unix.c	Fri Dec 04 10:59:45 2009 +0900
@@ -32,10 +32,6 @@
 
 #include <config.h>
 
-#if !defined (NO_SUBPROCESSES)
-
-/* The entire file is within this conditional */
-
 #include "lisp.h"
 
 #include "buffer.h"
@@ -429,22 +425,12 @@
 {
   int sv[2];
 
-#ifdef SKTPAIR
-  if (socketpair (AF_UNIX, SOCK_STREAM, 0, sv) < 0)
-    return -1;
-  *outchannel = *inchannel = sv[0];
-  *forkout = *forkin = sv[1];
-#else /* not SKTPAIR */
-  int temp;
-  temp = pipe (sv);
-  if (temp < 0) return -1;
+  if (pipe (sv) < 0) return -1;
   *inchannel = sv[0];
   *forkout = sv[1];
-  temp = pipe (sv);
-  if (temp < 0) return -1;
+  if (pipe (sv) < 0) return -1;
   *outchannel = sv[1];
   *forkin = sv[0];
-#endif /* not SKTPAIR */
   return 0;
 }
 
@@ -902,10 +888,8 @@
     nice (- emacs_priority);
 #endif
 
-#if !defined (NO_SUBPROCESSES)
   /* Close Emacs's descriptors that this process should not have.  */
   close_process_descs ();
-#endif /* not NO_SUBPROCESSES */
   close_load_descs ();
 
   /* [[Note that use of alloca is always safe here.  It's obvious for systems
@@ -1172,10 +1156,6 @@
 	       process, and I don't feel like messing with
 	       this now. */
 
-	    /* There was some weirdo, probably wrong,
-	       conditionalization on RTU and UNIPLUS here.
-	       I deleted it.  So sue me. */
-
 	    /* SunOS has TIOCSCTTY but the close/open method
 	       also works. */
 
@@ -1998,18 +1978,6 @@
 	    continue;
 	  }
 
-#ifdef CONNECT_NEEDS_SLOWED_INTERRUPTS
-	/* Slow down polling.  Some kernels have a bug which causes retrying
-	   connect to fail after a connect. (Note that the entire purpose
-	   for this code is a very old comment concerning an Ultrix bug that
-	   requires this code.  We used to do this ALWAYS despite this!
-	   This messes up C-g out of connect() in a big way.  So instead we
-	   just assume that anyone who sees such a kernel bug will define
-	   this constant, which for now is only defined under Ultrix.) --ben
-	*/
-	slow_down_interrupts ();
-#endif
-
       loop:
 
 	/* A system call interrupted with a SIGALRM or SIGIO comes back
@@ -2017,14 +1985,8 @@
 	SETJMP (break_system_call_jump);
 	if (QUITP)
 	  {
-#ifdef CONNECT_NEEDS_SLOWED_INTERRUPTS
-	    speed_up_interrupts ();
-#endif
 	    QUIT;
 	    /* In case something really weird happens ... */
-#ifdef CONNECT_NEEDS_SLOWED_INTERRUPTS
-	    slow_down_interrupts ();
-#endif
 	  }
 
 	/* Break out of connect with a signal (it isn't otherwise possible).
@@ -2066,11 +2028,6 @@
 	    failed_connect = 1;
 	    retry_close (s);
             s = -1;
-
-#ifdef CONNECT_NEEDS_SLOWED_INTERRUPTS
-	    speed_up_interrupts ();
-#endif
-
 	    continue;
 	  }
 
@@ -2097,10 +2054,6 @@
 #endif /* USE_GETADDRINFO */
       } /* address loop */
 
-#ifdef CONNECT_NEEDS_SLOWED_INTERRUPTS
-    speed_up_interrupts ();
-#endif
-
 #ifdef USE_GETADDRINFO
     freeaddrinfo (res);
 #endif
@@ -2239,10 +2192,6 @@
      instead of 'sendto'. Consequently, we 'connect' this socket. */
 
   /* See open-network-stream-internal for comments on this part of the code */
-#ifdef CONNECT_NEEDS_SLOWED_INTERRUPTS
-  slow_down_interrupts ();
-#endif
-
  loop:
 
   /* A system call interrupted with a SIGALRM or SIGIO comes back
@@ -2250,14 +2199,8 @@
   SETJMP (break_system_call_jump);
   if (QUITP)
     {
-#ifdef CONNECT_NEEDS_SLOWED_INTERRUPTS
-      speed_up_interrupts ();
-#endif
       QUIT;
       /* In case something really weird happens ... */
-#ifdef CONNECT_NEEDS_SLOWED_INTERRUPTS
-      slow_down_interrupts ();
-#endif
     }
 
   /* Break out of connect with a signal (it isn't otherwise possible).
@@ -2288,19 +2231,12 @@
 
       retry_close (rs);
       retry_close (ws);
-#ifdef CONNECT_NEEDS_SLOWED_INTERRUPTS
-      speed_up_interrupts ();
-#endif
 
       errno = xerrno;
       report_network_error ("error connecting socket", list3 (Qunbound, name,
 							      port));
     }
 
-#ifdef CONNECT_NEEDS_SLOWED_INTERRUPTS
-  speed_up_interrupts ();
-#endif
-
   /* scope */
   if (setsockopt (ws, IPPROTO_IP, IP_MULTICAST_TTL,
 		  &thettl, sizeof (thettl)) < 0)
@@ -2361,5 +2297,3 @@
 {
   Fprovide (intern ("unix-processes"));
 }
-
-#endif /* !defined (NO_SUBPROCESSES) */