paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 16:30:41 +02: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
TCloneFunc=function(args:pointer):longint;cdecl;
epoll_data = record
EPoll_Data = Record
case integer of
0: (ptr: pointer);
1: (fd: cint);
2: (u32: cuint);
3: (u64: cuint64);
end;
TEPoll_Data = Epoll_Data;
PEPoll_Data = ^Epoll_Data;
pepoll_event = ^epoll_event;
epoll_event = record
events: cuint32;
data: epoll_data;
EPoll_Event = Record
Events: cuint32;
Data : TEpoll_Data;
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}