From 63ea1af6a66ec012b780b8f15c8876d2afdf8e2c Mon Sep 17 00:00:00 2001 From: sof Date: Mon, 20 Aug 2001 14:57:42 +0000 Subject: [PATCH] [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). --- ghc/lib/std/PrelPosix.hsc | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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 () -- 1.7.10.4