diff options
| author |  Herbert Valerio Riedel <hvr@gnu.org> | 2016-01-31 17:04:25 +0100 |
|---|---|---|
| committer | Herbert Valerio Riedel <hvr@gnu.org> | 2016-01-31 17:04:25 +0100 |
| commit | ff1c16d4ee0c4ca043bd99a5d6741ea2d53e7000 (patch) | |
| tree | 229cafe6ccee197123e8f97a375efdeebcd31a50 | |
| parent | 12799d0fc7dcff0dc95640b1efad0637ad011144 (diff) | |
Add comment regarding genericRaise use
| -rw-r--r-- | System/Posix/Signals.hsc | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/System/Posix/Signals.hsc b/System/Posix/Signals.hsc index 222911a..971973e 100644 --- a/System/Posix/Signals.hsc +++ b/System/Posix/Signals.hsc @@ -290,6 +290,9 @@ foreign import ccall unsafe "killpg" raiseSignal :: Signal -> IO () raiseSignal sig = throwErrnoIfMinus1_ "raiseSignal" (c_raise sig) +-- See also note in GHC's rts/RtsUtils.c +-- This is somewhat fragile because we need to keep the +-- `#if`-conditional in sync with GHC's runtime. #if (defined(openbsd_HOST_OS) || defined(freebsd_HOST_OS) || defined(dragonfly_HOST_OS) || defined(netbsd_HOST_OS) || defined(darwin_HOST_OS)) foreign import ccall unsafe "genericRaise" c_raise :: CInt -> IO CInt |