瀏覽代碼

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}