paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 07:09:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* make infinite a default param

Browse Source
This commit is contained in:
marcoonthegit 2022-06-26 19:10:43 +02:00
parent 8d42a9df83
commit 576ef5a33d
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -57,7 +57,7 @@ type
FHandle : TEventHandle; FHandle : TEventHandle;
FLastError : Integer; FLastError : Integer;
public public
destructor destroy;override; destructor Destroy; override;
property Handle : TEventHandle read FHandle; property Handle : TEventHandle read FHandle;
property LastError : Integer read FLastError; property LastError : Integer read FLastError;
end; end;
@ -71,10 +71,10 @@ type
AManualReset,InitialState : Boolean;const Name : string; AManualReset,InitialState : Boolean;const Name : string;
UseComWait:boolean=false); UseComWait:boolean=false);
constructor Create(UseComWait : Boolean=false); constructor Create(UseComWait : Boolean=false);
destructor destroy; override; destructor Destroy; override;
procedure ResetEvent; procedure ResetEvent;
procedure SetEvent; procedure SetEvent;
function WaitFor(Timeout : Cardinal) : TWaitResult; function WaitFor(Timeout : Cardinal=INFINITE) : TWaitResult;
Property ManualReset : Boolean read FManualReset; Property ManualReset : Boolean read FManualReset;
end; end;