Set the IO manager pipe descriptors to FD_CLOEXEC

This pipe is an internal implementation detail, we don't really want
it to be exposed.

1 files changed, 20 insertions, 0 deletions

diff --git a/libraries/base/include/HsBase.h b/libraries/base/include/HsBase.h
index 862cf44e75..9bbbdc8f22 100644
--- a/libraries/base/include/HsBase.h
+++ b/libraries/base/include/HsBase.h
@@ -659,6 +659,26 @@ __hscore_f_setfl( void )
 #endif
 }
 
+INLINE int
+__hscore_f_setfd( void )
+{
+#ifdef F_SETFD
+  return F_SETFD;
+#else
+  return 0;
+#endif
+}
+
+INLINE long
+__hscore_fd_cloexec( void )
+{
+#ifdef FD_CLOEXEC
+  return FD_CLOEXEC;
+#else
+  return 0;
+#endif
+}
+
 // defined in rts/RtsStartup.c.
 extern void* __hscore_get_saved_termios(int fd);
 extern void __hscore_set_saved_termios(int fd, void* ts);