paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 15:19:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix timespec=nil for -dgeneric_linux_syscalls (aarch64) case.

Browse Source 
git-svn-id: trunk@33392 -
This commit is contained in:
marco 2016-03-30 19:21:05 +00:00
parent 78da04f8d5
commit 2221e4e4bd
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/linux/bunxsysc.inc
View File

@ -463,12 +463,18 @@ Function fpSelect(N:cint;readfds,writefds,exceptfds:pfdSet;TimeOut:PTimeVal):cin
{$if defined(generic_linux_syscalls)}
var ts : timespec;
pts : PTimeSpec;
begin
ts.tv_sec := timeout^.tv_sec;
ts.tv_nsec := timeout^.tv_usec * 1000;
pts:=nil;
if assigned(timeout) then
begin
pts:=@ts;
ts.tv_sec := timeout^.tv_sec;
ts.tv_nsec := timeout^.tv_usec * 1000;
end;
fpSelect:=do_syscall(syscall_nr_pselect6,n,
tsysparam(readfds),tsysparam(writefds),
tsysparam(exceptfds),tsysparam(@ts),0);
tsysparam(exceptfds),tsysparam(pts),0);
end;
{$else}