From 576ef5a33d0331af55047818aa4556b1ce448ab1 Mon Sep 17 00:00:00 2001
From: marcoonthegit <marco@freepascal.org>
Date: Sun, 26 Jun 2022 19:10:43 +0200
Subject: [PATCH] * make infinite a default param

---
 packages/fcl-base/src/syncobjs.pp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/packages/fcl-base/src/syncobjs.pp b/packages/fcl-base/src/syncobjs.pp
index 6372cb043c..3c0705f313 100644
--- a/packages/fcl-base/src/syncobjs.pp
+++ b/packages/fcl-base/src/syncobjs.pp
@@ -57,7 +57,7 @@ type
       FHandle : TEventHandle;
       FLastError : Integer;
    public
-      destructor destroy;override;
+      destructor Destroy; override;
       property Handle : TEventHandle read FHandle;
       property LastError : Integer read FLastError;
    end;
@@ -71,10 +71,10 @@ type
         AManualReset,InitialState : Boolean;const Name : string;
         UseComWait:boolean=false);
       constructor Create(UseComWait : Boolean=false);
-      destructor destroy; override;
+      destructor Destroy; override;
       procedure ResetEvent;
       procedure SetEvent;
-      function WaitFor(Timeout : Cardinal) : TWaitResult;
+      function WaitFor(Timeout : Cardinal=INFINITE) : TWaitResult;
       Property ManualReset : Boolean read FManualReset;
    end;