Debug, tests

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1701 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

1 files changed, 6 insertions, 1 deletions

diff --git a/otherlibs/win32unix/pipe.c b/otherlibs/win32unix/pipe.c
index c782f7afa..411a76bad 100644
--- a/otherlibs/win32unix/pipe.c
+++ b/otherlibs/win32unix/pipe.c
@@ -12,6 +12,7 @@
 /* $Id$ */
 
 #include <mlvalues.h>
+#include <memory.h>
 #include <alloc.h>
 #include "unixsupport.h"
 #include <fcntl.h>
@@ -20,10 +21,14 @@
 
 value unix_pipe(value unit)                /* ML */
 {
+  SECURITY_ATTRIBUTES attr;
   HANDLE readh, writeh;
   value readfd = Val_unit, writefd = Val_unit, res;
 
-  if (! CreatePipe(&readh, &writeh, NULL, SIZEBUF)) {
+  attr.nLength = sizeof(attr);
+  attr.lpSecurityDescriptor = NULL;
+  attr.bInheritHandle = TRUE;
+  if (! CreatePipe(&readh, &writeh, &attr, SIZEBUF)) {
     _dosmaperr(GetLastError());
     uerror("pipe", Nothing);
   }