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

* Correctly close IFDEF block

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-11-11 17:57:53 +01:00 committed by Pierre Muller
parent e1433d2cda
commit ed7137d197
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
packages/fcl-base/src/syncobjs.pp
View File

@ -636,6 +636,19 @@ begin
end;
{$ENDIF WAITLOOP}
procedure MSecsFromNow (tNow : Timeval; aTimeout : Integer; out tfuture: TTimespec);
var
td,tm : integer;
begin
td:=aTimeout div 1000;
tm:=aTimeout mod 1000;
tfuture.tv_sec:=tnow.tv_sec+td;
tfuture.tv_nsec:=tnow.tv_usec*1000+(tm*1000*1000);
end;
{$ENDIF UNIX}
{ ---------------------------------------------------------------------
TSemaphore
---------------------------------------------------------------------}
@ -709,19 +722,6 @@ begin
end;
procedure MSecsFromNow (tNow : Timeval; aTimeout : Integer; out tfuture: TTimespec);
var
td,tm : integer;
begin
td:=aTimeout div 1000;
tm:=aTimeout mod 1000;
tfuture.tv_sec:=tnow.tv_sec+td;
tfuture.tv_nsec:=tnow.tv_usec*1000+(tm*1000*1000);
end;
{$ENDIF UNIX}
function TSemaphore.WaitFor(aTimeout: Cardinal = INFINITE): TWaitResult;