From 49e7a98ca1f342dfa148e0a27172cc91670c81b5 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= Date: Thu, 10 Aug 2023 22:37:59 +0200 Subject: [PATCH] * Make sure it compiles with version 3.2 (pas2js) --- packages/fcl-base/src/syncobjs.pp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/packages/fcl-base/src/syncobjs.pp b/packages/fcl-base/src/syncobjs.pp index 835f97cea4..797d4c3f01 100644 --- a/packages/fcl-base/src/syncobjs.pp +++ b/packages/fcl-base/src/syncobjs.pp @@ -82,10 +82,10 @@ type function WaitFor(Timeout : Cardinal=INFINITE) : TWaitResult;overload; {$IFNDEF VER3_2} function WaitFor(const Timeout : TTimespan) : TWaitResult;overload; - {$ENDIF} {$IFDEF MSWINDOWS} class function WaitForMultiple(const HandleObjs: THandleObjectArray; Timeout: Cardinal; AAll: Boolean; out SignaledObj: THandleObject; UseCOMWait: Boolean = False; Len: Integer = 0): TWaitResult; {$ENDIF MSWINDOWS} + {$ENDIF VER3_2} property Handle : TEventHandle read FHandle; property LastError : Integer read FLastError; end; @@ -266,6 +266,7 @@ begin end; {$ENDIF} +{$IFNDEF VER3_2} {$IFDEF MSWINDOWS} class function THandleObject.WaitForMultiple(const HandleObjs: THandleObjectArray; Timeout: Cardinal; AAll: Boolean; out SignaledObj: THandleObject; UseCOMWait: Boolean = False; Len: Integer = 0): TWaitResult; const COWAIT_DEFAULT = 0; @@ -335,7 +336,8 @@ begin Result := wrError; end; end; -{$endif} +{$endif MSWINDOWS} +{$ENDIF VER_3_2} destructor THandleObject.Destroy; begin