Browse Source

* a few type aliases added, capitalisation fixed

git-svn-id: trunk@2756 -
marco 19 years ago
parent
commit
a0573f1015
1 changed files with 8 additions and 5 deletions
  1. 8 5
      rtl/linux/linux.pp

+ 8 - 5
rtl/linux/linux.pp

@@ -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
-    events: cuint32;
-    data: epoll_data;
+  EPoll_Event = Record
+    Events: cuint32;
+    Data  : TEpoll_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}