Browse Source

* Make sure it compiles with version 3.2 (pas2js)

Michaël Van Canneyt 2 years ago
parent
commit
49e7a98ca1
1 changed files with 4 additions and 2 deletions
  1. 4 2
      packages/fcl-base/src/syncobjs.pp

+ 4 - 2
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