Преглед на файлове

Update UBaseTypes.pas

Fixed Lazarus 32bits compiler error
PascalCoin преди 6 години
родител
ревизия
3145add710
променени са 1 файла, в които са добавени 1 реда и са изтрити 1 реда
  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}