backgroundWrite, sigTTOU,
userDefinedSignal1, sigUSR1,
userDefinedSignal2, sigUSR2,
-#if HAVE_SIGPOLL
+#ifdef SIGPOLL
pollableEvent, sigPOLL,
#endif
profilingTimerExpired, sigPROF,
virtualTimerExpired, sigVTALRM,
cpuTimeLimitExceeded, sigXCPU,
fileSizeLimitExceeded, sigXFSZ,
-#if HAVE_SIGINFO
- infoEvent, sigINFO,
-#endif
-#if HAVE_SIGWINCH
- windowChange, sigWINCH,
-#endif
-- * Sending signals
raiseSignal,
sigTTOU = (#const SIGTTOU) :: CInt
sigUSR1 = (#const SIGUSR1) :: CInt
sigUSR2 = (#const SIGUSR2) :: CInt
-#if HAVE_SIGPOLL
+#ifdef SIGPOLL
sigPOLL = (#const SIGPOLL) :: CInt
#endif
sigPROF = (#const SIGPROF) :: CInt
sigVTALRM = (#const SIGVTALRM) :: CInt
sigXCPU = (#const SIGXCPU) :: CInt
sigXFSZ = (#const SIGXFSZ) :: CInt
-#if HAVE_SIGINFO
-sigINFO = (#const SIGINFO) :: CInt
-#endif
-#if HAVE_SIGWINCH
-sigWINCH = (#const SIGWINCH) :: CInt
-#endif
#else
foreign import ccall unsafe "__hsposix_SIGABRT" sigABRT :: CInt
foreign import ccall unsafe "__hsposix_SIGALRM" sigALRM :: CInt
foreign import ccall unsafe "__hsposix_SIGTTOU" sigTTOU :: CInt
foreign import ccall unsafe "__hsposix_SIGUSR1" sigUSR1 :: CInt
foreign import ccall unsafe "__hsposix_SIGUSR2" sigUSR2 :: CInt
-#if HAVE_SIGPOLL
+#ifdef SIGPOLL
foreign import ccall unsafe "__hsposix_SIGPOLL" sigPOLL :: CInt
#endif
foreign import ccall unsafe "__hsposix_SIGPROF" sigPROF :: CInt
foreign import ccall unsafe "__hsposix_SIGVTALRM" sigVTALRM :: CInt
foreign import ccall unsafe "__hsposix_SIGXCPU" sigXCPU :: CInt
foreign import ccall unsafe "__hsposix_SIGXFSZ" sigXFSZ :: CInt
-#if HAVE_SIGINFO
-foreign import ccall unsafe "__hsposix_SIGINFO" sigINFO :: CInt
-#endif
-#if HAVE_SIGWINCH
-foreign import ccall unsafe "__hsposix_SIGWINCH" sigWINCH :: CInt
-#endif
#endif /* __HUGS__ */
internalAbort ::Signal
userDefinedSignal2 :: Signal
userDefinedSignal2 = sigUSR2
-#if HAVE_SIGPOLL
+#ifdef SIGPOLL
pollableEvent :: Signal
pollableEvent = sigPOLL
#endif
fileSizeLimitExceeded :: Signal
fileSizeLimitExceeded = sigXFSZ
-#if HAVE_SIGINFO
-infoEvent :: Signal
-infoEvent = sigINFO
-#endif
-
-#if HAVE_SIGWINCH
-windowChange :: Signal
-windowChange = sigWINCH
-#endif
-
-- -----------------------------------------------------------------------------
-- Signal-related functions
raiseSignal :: Signal -> IO ()
raiseSignal sig = throwErrnoIfMinus1_ "raiseSignal" (c_raise sig)
+#if defined(__GLASGOW_HASKELL__) && (defined(openbsd_TARGET_OS) || defined(freebsd_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