[commit: packages/unix] master: Temporary workaround for addressing #7359 (88bfec0)

git at git.haskell.org git at git.haskell.org
Thu Nov 7 09:22:35 UTC 2013


Repository : ssh://git@git.haskell.org/unix

On branch  : master
Link       : http://git.haskell.org/packages/unix.git/commitdiff/88bfec0cf55f8c9ad74881d48cf8756c9fe627aa

>---------------------------------------------------------------

commit 88bfec0cf55f8c9ad74881d48cf8756c9fe627aa
Author: Herbert Valerio Riedel <hvr at gnu.org>
Date:   Thu Nov 7 10:21:17 2013 +0100

    Temporary workaround for addressing #7359
    
    Signed-off-by: Herbert Valerio Riedel <hvr at gnu.org>


>---------------------------------------------------------------

88bfec0cf55f8c9ad74881d48cf8756c9fe627aa
 System/Posix/Signals.hsc |   11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/System/Posix/Signals.hsc b/System/Posix/Signals.hsc
index eb46ba4..4b5321e 100644
--- a/System/Posix/Signals.hsc
+++ b/System/Posix/Signals.hsc
@@ -616,6 +616,17 @@ foreign import ccall unsafe "sigfillset"
 
 foreign import ccall unsafe "sigismember"
   c_sigismember :: Ptr CSigset -> CInt -> IO CInt
+#elif defined(darwin_HOST_OS) && __GLASGOW_HASKELL__ < 706
+-- see http://ghc.haskell.org/trac/ghc/ticket/7359#comment:3
+-- To be removed when support for GHC 7.4.x is dropped
+foreign import ccall unsafe "__hscore_sigdelset"
+  c_sigdelset   :: Ptr CSigset -> CInt -> IO CInt
+
+foreign import ccall unsafe "__hscore_sigfillset"
+  c_sigfillset  :: Ptr CSigset -> IO CInt
+
+foreign import ccall unsafe "__hscore_sigismember"
+  c_sigismember :: Ptr CSigset -> CInt -> IO CInt
 #else
 foreign import capi unsafe "signal.h sigdelset"
   c_sigdelset   :: Ptr CSigset -> CInt -> IO CInt



More information about the ghc-commits mailing list