Explorar o código

Update UBaseTypes.pas

Fixed Lazarus 32bits compiler error
PascalCoin %!s(int64=6) %!d(string=hai) anos
pai
achega
3145add710
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  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}