From: dons <unknown>
Date: Sat, 2 Oct 2004 07:34:38 +0000 (+0000)
Subject: [project @ 2004-10-02 07:34:38 by dons]
X-Git-Tag: nhc98-1-18-release~231
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=713b4382b1c7420c6267d29809d01ad540f4ed46;p=haskell-directory.git

[project @ 2004-10-02 07:34:38 by dons]
Bind raiseSignal to genericRaise, on OpenBSD only, atm.
---

diff --git a/System/Posix/Signals.hsc b/System/Posix/Signals.hsc
index db68d28..ee40238 100644
--- a/System/Posix/Signals.hsc
+++ b/System/Posix/Signals.hsc
@@ -287,8 +287,13 @@ foreign import ccall unsafe "killpg"
 raiseSignal :: Signal -> IO ()
 raiseSignal sig = throwErrnoIfMinus1_ "raiseSignal" (c_raise sig)
 
+#if defined(__GLASGOW_HASKELL__) && defined(openbsd_TARGET_OS)
+foreign import ccall unsafe "genericRaise"
+  c_raise :: CInt -> IO CInt
+#else
 foreign import ccall unsafe "raise"
   c_raise :: CInt -> IO CInt
+#endif
 
 #ifdef __GLASGOW_HASKELL__
 data Handler = Default