forked from Lainports/opnsense-ports
8cb1a96ede
Taken from: https://github.com/freebsd/freebsd-ports.git Commit id: 5070672073b68be364139bc6b3a89100bd17d331
41 lines
1.2 KiB
Text
41 lines
1.2 KiB
Text
--- ./src/System/KQueue.chs.orig 2012-01-03 14:00:32.000000000 +0100
|
|
+++ ./src/System/KQueue.chs 2012-01-27 07:17:17.000000000 +0100
|
|
@@ -21,6 +21,7 @@
|
|
|
|
#include <sys/time.h>
|
|
#include <sys/event.h>
|
|
+#include "MachDeps.h"
|
|
|
|
import Control.Applicative ( (<$>), (<*>) )
|
|
import Control.Exception ( Exception, throwIO )
|
|
@@ -62,11 +63,19 @@
|
|
|
|
-- | A kernel event.
|
|
data KEvent = KEvent
|
|
+#if SIZEOF_HSWORD == 4
|
|
+ { ident :: CUInt -- ^ The identifier for the event, often a file descriptor.
|
|
+#else
|
|
{ ident :: CULong -- ^ The identifier for the event, often a file descriptor.
|
|
+#endif
|
|
, evfilter :: Filter -- ^ The kernel filter (type of event).
|
|
, flags :: [Flag] -- ^ Actions to perform on the event.
|
|
, fflags :: [FFlag] -- ^ Filter-specific flags.
|
|
+#if SIZEOF_HSWORD == 4
|
|
+ , data_ :: CInt -- ^ Filter-specific data value.
|
|
+#else
|
|
, data_ :: CLong -- ^ Filter-specific data value.
|
|
+#endif
|
|
, udata :: Ptr () -- ^ User-defined data, passed through unchanged.
|
|
} deriving (Show, Eq)
|
|
|
|
@@ -122,8 +131,10 @@
|
|
, NoteExit = NOTE_EXIT
|
|
, NoteFork = NOTE_FORK
|
|
, NoteExec = NOTE_EXEC
|
|
+#ifndef __FreeBSD__
|
|
, NoteSignal = NOTE_SIGNAL
|
|
, NoteReap = NOTE_REAP
|
|
+#endif
|
|
};
|
|
#endc
|
|
|