diff options
-rw-r--r-- | System/Posix/Signals.hsc | 5 | ||||
-rw-r--r-- | cbits/HsUnix.c | 6 | ||||
-rw-r--r-- | include/HsUnix.h | 4 | ||||
-rw-r--r-- | unix.cabal | 2 |
4 files changed, 4 insertions, 13 deletions
diff --git a/System/Posix/Signals.hsc b/System/Posix/Signals.hsc index d4c6d51..9119190 100644 --- a/System/Posix/Signals.hsc +++ b/System/Posix/Signals.hsc @@ -86,9 +86,7 @@ module System.Posix.Signals ( -- * Waiting for signals getPendingSignals, -#ifndef cygwin32_HOST_OS awaitSignal, -#endif #ifdef __GLASGOW_HASKELL__ -- * The @NOCLDSTOP@ flag @@ -575,8 +573,6 @@ getPendingSignals = do throwErrnoIfMinus1_ "getPendingSignals" (c_sigpending p) return (SignalSet fp) -#ifndef cygwin32_HOST_OS - -- | @awaitSignal iset@ suspends execution until an interrupt is received. -- If @iset@ is @Just s@, @awaitSignal@ calls @sigsuspend@, installing -- @s@ as the new signal mask before suspending execution; otherwise, it @@ -605,7 +601,6 @@ awaitSignal maybe_sigset = do foreign import ccall unsafe "sigsuspend" c_sigsuspend :: Ptr CSigset -> IO CInt -#endif #ifdef __HUGS__ foreign import ccall unsafe "sigdelset" diff --git a/cbits/HsUnix.c b/cbits/HsUnix.c index fb63b45..49f90e8 100644 --- a/cbits/HsUnix.c +++ b/cbits/HsUnix.c @@ -69,18 +69,16 @@ int __hsunix_unlockpt(int fd) // push a SVR4 STREAMS module; do nothing if STREAMS not available int __hsunix_push_module(int fd, const char *module) { -#if defined(I_PUSH) && !defined(__CYGWIN__) && !defined(HAVE_DEV_PTC) +#if defined(I_PUSH) && !defined(HAVE_DEV_PTC) return ioctl(fd, I_PUSH, module); #else return 0; #endif } -#if !defined(__MINGW32__) int __hscore_mkstemp(char *filetemplate) { return (mkstemp(filetemplate)); } -#endif #if HAVE_MKSTEMPS int __hscore_mkstemps(char *filetemplate, int suffixlen) { @@ -95,7 +93,7 @@ char *__hscore_mkdtemp(char *filetemplate) { #endif -#if !defined(__MINGW32__) && !defined(irix_HOST_OS) +#if !defined(irix_HOST_OS) int __hscore_getrlimit(int resource, struct rlimit *rlim) { return (getrlimit(resource, rlim)); } diff --git a/include/HsUnix.h b/include/HsUnix.h index 8b468b7..e276726 100644 --- a/include/HsUnix.h +++ b/include/HsUnix.h @@ -143,9 +143,7 @@ int __hsunix_unlockpt(int fd); // push a SVR4 STREAMS module; do nothing if STREAMS not available int __hsunix_push_module(int fd, const char *module); -#if !defined(__MINGW32__) int __hscore_mkstemp(char *filetemplate); -#endif #if HAVE_MKSTEMPS int __hscore_mkstemps(char *filetemplate, int suffixlen); @@ -155,7 +153,7 @@ int __hscore_mkstemps(char *filetemplate, int suffixlen); char *__hscore_mkdtemp(char *filetemplate); #endif -#if !defined(__MINGW32__) && !defined(irix_HOST_OS) +#if !defined(irix_HOST_OS) int __hscore_getrlimit(int resource, struct rlimit *rlim); int __hscore_setrlimit(int resource, struct rlimit *rlim); #endif @@ -17,7 +17,7 @@ description: Operating System Interface for Computing Environments - IEEE Std. 1003.1). . - The package is not supported under Windows (except under Cygwin). + The package is not supported under Windows. extra-source-files: changelog.md |