X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=include%2FHsBase.h;h=9bbbdc8f2260e868f9fce01b4159a7b85adc3fd6;hb=7451b6856c0302dd926cd0230423840d6cbdced6;hp=862cf44e75e8ed950fe22c963cfa81ec5b0bdc56;hpb=29d970ffba3201eaafed574e6f67e2786a80021f;p=ghc-base.git

diff --git a/include/HsBase.h b/include/HsBase.h
index 862cf44..9bbbdc8 100644
--- a/include/HsBase.h
+++ b/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);