From: sof <unknown>
Date: Mon, 20 Aug 2001 14:57:42 +0000 (+0000)
Subject: [project @ 2001-08-20 14:57:42 by sof]
X-Git-Tag: Approximately_9120_patches~1171
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=63ea1af6a66ec012b780b8f15c8876d2afdf8e2c;p=ghc-hetmet.git

[project @ 2001-08-20 14:57:42 by sof]
sigemptyset: may be implemented as a macro on some plats,
so wrap it up in an inline function to get the C types
right. (Thomas Nordin, using OpenBSD, spotted this one).
---

diff --git a/ghc/lib/std/PrelPosix.hsc b/ghc/lib/std/PrelPosix.hsc
index 6432a29..587f4f6 100644
--- a/ghc/lib/std/PrelPosix.hsc
+++ b/ghc/lib/std/PrelPosix.hsc
@@ -1,7 +1,7 @@
 {-# OPTIONS -fno-implicit-prelude #-}
 
 -- ---------------------------------------------------------------------------
--- $Id: PrelPosix.hsc,v 1.11 2001/08/14 13:40:08 sewardj Exp $
+-- $Id: PrelPosix.hsc,v 1.12 2001/08/20 14:57:42 sof Exp $
 --
 -- POSIX support layer for the standard libraries
 --
@@ -285,8 +285,9 @@ foreign import "fcntl" unsafe
 foreign import "fork" unsafe
    fork :: IO CPid 
 
-foreign import "sigemptyset" unsafe
+foreign import "sigemptyset_wrap" unsafe
    c_sigemptyset :: Ptr CSigset -> IO ()
+#def inline void sigemptyset_wrap(sigset_t *set) { sigemptyset(set); }
 
 foreign import "sigaddset" unsafe
    c_sigaddset :: Ptr CSigset -> CInt -> IO ()