paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 00:38:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Make procedure InvalidateOptions private for both project and package options.

Browse Source 
git-svn-id: trunk@59045 -
This commit is contained in:
juha 2018-09-17 16:53:43 +00:00
parent a1d9f85634
commit 7f272a8e4e
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/project.pp
View File

@ -512,6 +512,7 @@ type
FBuildMode: TProjectBuildMode;
FProject: TProject;
FCompileReasons: TCompileReasons;
procedure InvalidateOptions;
protected
procedure SetTargetCPU(const AValue: string); override;
procedure SetTargetOS(const AValue: string); override;
@ -543,7 +544,6 @@ type
procedure Assign(Source: TPersistent); override;
function CreateDiff(CompOpts: TBaseCompilerOptions;
Tool: TCompilerDiffTool = nil): boolean; override; // true if differ
procedure InvalidateOptions;
procedure SetAlternativeCompile(const Command: string; ScanFPCMsgs: boolean); override;
public
property LazProject: TProject read FProject;

2
packager/packagedefs.pas
View File

@ -342,6 +342,7 @@ type
private
FLazPackage: TLazPackage;
FSkipCompiler: Boolean;
procedure InvalidateOptions;
protected
procedure SetLazPackage(const AValue: TLazPackage);
procedure SetCustomOptions(const AValue: string); override;
@ -362,7 +363,6 @@ type
procedure Clear; override;
procedure GetInheritedCompilerOptions(var OptionsList: TFPList); override;
function GetOwnerName: string; override;
procedure InvalidateOptions;
function GetDefaultMainSourceFileName: string; override;
function CreateTargetFilename: string; override;
function HasCompilerCommand: boolean; override;