install-reloc: Support multi-binary installation.

[gnulib.git] / lib / dup2.c

diff --git a/lib/dup2.c b/lib/dup2.c
index 04f2a4d..f128e7a 100644 (file)
--- a/lib/dup2.c
+++ b/lib/dup2.c
@@ -1,6 +1,6 @@
 /* Duplicate an open file descriptor to a specified file descriptor.
 
-   Copyright (C) 1999, 2004-2007, 2009-2011 Free Software Foundation, Inc.
+   Copyright (C) 1999, 2004-2007, 2009-2013 Free Software Foundation, Inc.
 
    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
@@ -29,20 +29,22 @@
 
 # undef dup2
 
-# if defined _WIN32 || defined __WIN32__
+# if (defined _WIN32 || defined __WIN32__) && ! defined __CYGWIN__
+
+/* Get declarations of the native Windows API functions.  */
+#  define WIN32_LEAN_AND_MEAN
+#  include <windows.h>
+
 #  include "msvc-inval.h"
-#  ifndef __CYGWIN__
-#   define WIN32_LEAN_AND_MEAN
-#   include <windows.h>
-#   include "msvc-nothrow.h"
-#  endif
 
-static inline int
+/* Get _get_osfhandle.  */
+#  include "msvc-nothrow.h"
+
+static int
 ms_windows_dup2 (int fd, int desired_fd)
 {
   int result;
 
-#  ifndef __CYGWIN__
   /* If fd is closed, mingw hangs on dup2 (fd, fd).  If fd is open,
      dup2 (fd, fd) returns 0, but all further attempts to use fd in
      future dup2 calls will hang.  */
@@ -55,7 +57,6 @@ ms_windows_dup2 (int fd, int desired_fd)
         }
       return fd;
     }
-#  endif
 
   /* Wine 1.0.1 return 0 when desired_fd is negative but not -1:
      http://bugs.winehq.org/show_bug.cgi?id=21289 */
@@ -76,13 +77,14 @@ ms_windows_dup2 (int fd, int desired_fd)
     }
   DONE_MSVC_INVAL;
 
-  /* Cygwin 1.5.x dup2 (1, 1) returns 0.  */
   if (result == 0)
     result = desired_fd;
 
   return result;
 }
+
 #  define dup2 ms_windows_dup2
+
 # endif
 
 int
@@ -90,10 +92,20 @@ rpl_dup2 (int fd, int desired_fd)
 {
   int result;
 
+# ifdef F_GETFL
   /* On Linux kernels 2.6.26-2.6.29, dup2 (fd, fd) returns -EBADF.
+     On Cygwin 1.5.x, dup2 (1, 1) returns 0.
+     On Cygwin 1.7.17, dup2 (1, -1) dumps core.
+     On Cygwin 1.7.25, dup2 (1, 256) can dump core.
      On Haiku, dup2 (fd, fd) mistakenly clears FD_CLOEXEC.  */
+#  if HAVE_SETDTABLESIZE
+  setdtablesize (desired_fd + 1);
+#  endif
+  if (desired_fd < 0)
+    fd = desired_fd;
   if (fd == desired_fd)
     return fcntl (fd, F_GETFL) == -1 ? -1 : fd;
+# endif
 
   result = dup2 (fd, desired_fd);