فهرست منبع

* fix 64bit epoll "special" packing

git-svn-id: trunk@4292 -
Almindor 19 سال پیش
والد
کامیت
3d1370bf8b
1فایلهای تغییر یافته به همراه1 افزوده شده و 1 حذف شده
  1. 1 1
      rtl/linux/linux.pp

+ 1 - 1
rtl/linux/linux.pp

@@ -127,7 +127,7 @@ type
   TEPoll_Data =  Epoll_Data;
   TEPoll_Data =  Epoll_Data;
   PEPoll_Data = ^Epoll_Data;
   PEPoll_Data = ^Epoll_Data;
 
 
-  EPoll_Event = record
+  EPoll_Event = {$ifdef cpu64} packed {$endif} record
     Events: cuint32;
     Events: cuint32;
     Data  : TEpoll_Data;
     Data  : TEpoll_Data;
   end;
   end;