Просмотр исходного кода

2.0.4: Merged revisions 4292 via svnmerge from
2.0.4: svn+ssh://svn.freepascal.org/FPC/svn/fpc/trunk

........
r4292 | Almindor | 2006-07-25 13:44:24 +0200 (di, 25 jul 2006) | 2 lines

* fix 64bit epoll "special" packing
........

git-svn-id: branches/fixes_2_0@4295 -

micha 19 лет назад
Родитель
Сommit
a6c7ec696e
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;
   PEPoll_Data = ^Epoll_Data;
 
-  EPoll_Event = Record
+  EPoll_Event = {$ifdef cpu64} packed {$endif} record
     Events: cuint32;
     Data  : TEpoll_Data;
   end;