paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-12 18:49:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

* proper fix for the kqueue struct. Use PtrUInt and PtrInt respectively...

Browse Source 
git-svn-id: trunk@11994 -
This commit is contained in:
Almindor 2008-10-29 19:17:53 +00:00
parent 1ebbe74bb2
commit 1ed71f011c
1 changed files with 6 additions and 6 deletions

12
rtl/bsd/bsd.pas
View File

@ -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;