paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-26 21:11:46 +01:00
Code Issues Packages Projects Releases Wiki Activity

* a few type aliases added, capitalisation fixed

Browse Source 
git-svn-id: trunk@2756 -
This commit is contained in:
marco 2006-03-05 13:28:27 +00:00
parent 8d2dd005c7
commit a0573f1015
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/linux/linux.pp
View File

@ -62,19 +62,22 @@ Const
type type
TCloneFunc=function(args:pointer):longint;cdecl; TCloneFunc=function(args:pointer):longint;cdecl;
epoll_data = record EPoll_Data = Record
case integer of case integer of
0: (ptr: pointer); 0: (ptr: pointer);
1: (fd: cint); 1: (fd: cint);
2: (u32: cuint); 2: (u32: cuint);
3: (u64: cuint64); 3: (u64: cuint64);
end; end;
TEPoll_Data = Epoll_Data;
PEPoll_Data = ^Epoll_Data;
pepoll_event = ^epoll_event; EPoll_Event = Record
epoll_event = record Events: cuint32;
events: cuint32; Data : TEpoll_Data;
data: epoll_data;
end; end;
TEPoll_Event = Epoll_Event;
PEpoll_Event = ^Epoll_Event;
function Clone(func:TCloneFunc;sp:pointer;flags:longint;args:pointer):longint; {$ifdef FPC_USE_LIBC} cdecl; external name 'clone'; {$endif} function Clone(func:TCloneFunc;sp:pointer;flags:longint;args:pointer):longint; {$ifdef FPC_USE_LIBC} cdecl; external name 'clone'; {$endif}