From: simonmar <unknown>
Date: Mon, 11 Oct 2004 10:54:57 +0000 (+0000)
Subject: [project @ 2004-10-11 10:54:57 by simonmar]
X-Git-Tag: nhc98-1-18-release~216
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b1725ddeb0676cb6d453fcd4a2e88c55dd99d3ce;p=haskell-directory.git

[project @ 2004-10-11 10:54:57 by simonmar]
genericRaise() hack needed on FreeBSD too.
---

diff --git a/System/Posix/Signals.hsc b/System/Posix/Signals.hsc
index ee40238..3585ddb 100644
--- a/System/Posix/Signals.hsc
+++ b/System/Posix/Signals.hsc
@@ -287,7 +287,7 @@ foreign import ccall unsafe "killpg"
 raiseSignal :: Signal -> IO ()
 raiseSignal sig = throwErrnoIfMinus1_ "raiseSignal" (c_raise sig)
 
-#if defined(__GLASGOW_HASKELL__) && defined(openbsd_TARGET_OS)
+#if defined(__GLASGOW_HASKELL__) && (defined(openbsd_TARGET_OS) || defined(freebsd_TARGET_OS))
 foreign import ccall unsafe "genericRaise"
   c_raise :: CInt -> IO CInt
 #else