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

* Make sure it compiles with version 3.2 (pas2js)

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-08-10 22:37:59 +02:00
parent 120bb80d0b
commit 49e7a98ca1
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -82,10 +82,10 @@ type
function WaitFor(Timeout : Cardinal=INFINITE) : TWaitResult;overload; function WaitFor(Timeout : Cardinal=INFINITE) : TWaitResult;overload;
{$IFNDEF VER3_2} {$IFNDEF VER3_2}
function WaitFor(const Timeout : TTimespan) : TWaitResult;overload; function WaitFor(const Timeout : TTimespan) : TWaitResult;overload;
{$ENDIF}
{$IFDEF MSWINDOWS} {$IFDEF MSWINDOWS}
class function WaitForMultiple(const HandleObjs: THandleObjectArray; Timeout: Cardinal; AAll: Boolean; out SignaledObj: THandleObject; UseCOMWait: Boolean = False; Len: Integer = 0): TWaitResult; class function WaitForMultiple(const HandleObjs: THandleObjectArray; Timeout: Cardinal; AAll: Boolean; out SignaledObj: THandleObject; UseCOMWait: Boolean = False; Len: Integer = 0): TWaitResult;
{$ENDIF MSWINDOWS} {$ENDIF MSWINDOWS}
{$ENDIF VER3_2}
property Handle : TEventHandle read FHandle; property Handle : TEventHandle read FHandle;
property LastError : Integer read FLastError; property LastError : Integer read FLastError;
end; end;
@ -266,6 +266,7 @@ begin
end; end;
{$ENDIF} {$ENDIF}
{$IFNDEF VER3_2}
{$IFDEF MSWINDOWS} {$IFDEF MSWINDOWS}
class function THandleObject.WaitForMultiple(const HandleObjs: THandleObjectArray; Timeout: Cardinal; AAll: Boolean; out SignaledObj: THandleObject; UseCOMWait: Boolean = False; Len: Integer = 0): TWaitResult; 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; const COWAIT_DEFAULT = 0;
@ -335,7 +336,8 @@ begin
Result := wrError; Result := wrError;
end; end;
end; end;
{$endif} {$endif MSWINDOWS}
{$ENDIF VER_3_2}
destructor THandleObject.Destroy; destructor THandleObject.Destroy;
begin begin