paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-21 13:10:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed ppoll for infinite timeouts (patch by Edmund Grimley Evans)

Browse Source 
git-svn-id: trunk@31042 -
This commit is contained in:
Jonas Maebe 2015-06-13 21:02:02 +00:00
parent ab43e07320
commit e54d0a41af
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/linux/bunxsysc.inc
View File

@ -492,10 +492,15 @@ function fpPoll(fds: ppollfd; nfds: cuint; timeout: clong): cint;
{$if defined(generic_linux_syscalls)} {$if defined(generic_linux_syscalls)}
var ts : timespec; var ts : timespec;
begin begin
ts.tv_sec := timeout div 1000; if timeout<0 then
ts.tv_nsec := (timeout mod 1000) * 1000000; fpPoll:=do_syscall(syscall_nr_ppoll,tsysparam(fds),tsysparam(nfds),0,0)
fpPoll:=do_syscall(syscall_nr_ppoll,tsysparam(fds),tsysparam(nfds), else
tsysparam(@ts),0); begin
ts.tv_sec := timeout div 1000;
ts.tv_nsec := (timeout mod 1000) * 1000000;
fpPoll:=do_syscall(syscall_nr_ppoll,tsysparam(fds),tsysparam(nfds),
tsysparam(@ts),0);
end
end; end;
{$else} {$else}
begin begin