소스 검색

Compilation Fix: remove implementation statics

Herman Schoenfeld 6 년 전
부모
커밋
baee5c32ee
1개의 변경된 파일2개의 추가작업 그리고 4개의 파일을 삭제
  1. 2 4
      src/core/USettings.pas

+ 2 - 4
src/core/USettings.pas

@@ -155,20 +155,18 @@ begin
 end;
 
 class function TSettings.GetAllowDownloadNewCheckpointIfOlderThan: Boolean;
-  static;
 begin
   CheckLoaded;
   Result := FAppParams.ParamByName[CT_PARAM_AllowDownloadNewCheckpointIfOlderThan].GetAsBoolean(False);
 end;
 
 class function TSettings.GetMinFutureBlocksToDownloadNewSafebox: Integer;
-  static;
 begin
   CheckLoaded;
   Result := FAppParams.ParamByName[CT_PARAM_MinFutureBlocksToDownloadNewSafebox].GetAsInteger(0);
 end;
 
-class procedure TSettings.SetAllowDownloadNewCheckpointIfOlderThan(ABool: Boolean); static;
+class procedure TSettings.SetAllowDownloadNewCheckpointIfOlderThan(ABool: Boolean);
 begin
   CheckLoaded;
   FAppParams.ParamByName[CT_PARAM_AllowDownloadNewCheckpointIfOlderThan].SetAsBoolean(ABool);
@@ -186,7 +184,7 @@ begin
   Result := FAppParams.ParamByName[CT_PARAM_JSONRPCEnabled].GetAsBoolean(false);
 end;
 
-class procedure TSettings.SetMinFutureBlocksToDownloadNewSafebox(AInt: Integer); static;
+class procedure TSettings.SetMinFutureBlocksToDownloadNewSafebox(AInt: Integer);
 begin
   CheckLoaded;
   FAppParams.ParamByName[CT_PARAM_MinFutureBlocksToDownloadNewSafebox].SetAsInteger(AInt);