From 1ed71f011c39f0b74458a918a80a0eaa32e35153 Mon Sep 17 00:00:00 2001 From: Almindor Date: Wed, 29 Oct 2008 19:17:53 +0000 Subject: [PATCH] * proper fix for the kqueue struct. Use PtrUInt and PtrInt respectively... git-svn-id: trunk@11994 - --- rtl/bsd/bsd.pas | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/rtl/bsd/bsd.pas b/rtl/bsd/bsd.pas index 9ed7c96291..67ec793a65 100644 --- a/rtl/bsd/bsd.pas +++ b/rtl/bsd/bsd.pas @@ -93,11 +93,11 @@ const type PKEvent = ^TKEvent; TKEvent = record - Ident : cuint; { identifier for this event } + Ident : PtrUInt; { identifier for this event } Filter : cshort; { filter for event } Flags : cushort; FFlags : cuint; - Data : cint; + Data : PtrInt; uData : Pointer; { opaque user data identifier } end; @@ -106,9 +106,9 @@ function kqueue: cint; extdecl; function kevent(kq: cint; ChangeList: PKEvent; nChanged: cint; EventList: PKevent; nEvents: cint; Timeout: PTimeSpec): cint; extdecl; -procedure EV_SET(kevp: PKEvent; const aIdent: cuint; const aFilter: cshort; +procedure EV_SET(kevp: PKEvent; const aIdent: PtrUInt; const aFilter: cshort; const aFlags: cushort; const aFFlags: cuint; - const aData: cint; const auData: Pointer); inline; + const aData: PtrInt; const auData: Pointer); inline; implementation @@ -117,8 +117,8 @@ uses SysCall; {$endif} -procedure EV_SET(kevp: PKEvent; const aIdent: cuint; const aFilter: cshort; const aFlags: cushort; - const aFFlags: cuint; const aData: cint; const auData: Pointer); inline; +procedure EV_SET(kevp: PKEvent; const aIdent: PtrUInt; const aFilter: cshort; const aFlags: cushort; + const aFFlags: cuint; const aData: PtrInt; const auData: Pointer); inline; begin kevp^.Ident := aIdent; kevp^.Filter := aFilter;