Bladeren bron

Update UBaseTypes.pas

Fixed Lazarus 32bits compiler error
PascalCoin 6 jaren geleden
bovenliggende
commit
3145add710
1 gewijzigde bestanden met toevoegingen van 1 en 1 verwijderingen
  1. 1 1
      src/core/UBaseTypes.pas

+ 1 - 1
src/core/UBaseTypes.pas

@@ -443,7 +443,7 @@ end;
 class function TPlatform.GetTickCount: TTickCount;
 begin
   Result := {$IFDEF CPU64}GetTickCount64{$ELSE}
-   {$IFDEF FPC}System.GetTickCount{$ELSE}
+   {$IFDEF FPC}SysUtils.GetTickCount{$ELSE}
      {$IFDEF MSWINDOWS}Windows.GetTickCount{$ELSE}
      TThread.GetTickCount;
      {$ENDIF}