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

IdeConfig, BuildIntf: Fix a typo in the method name TLazCompilerOptions.SetTargetFilenameAppplyConventions and field

Browse Source
This commit is contained in:
n7800 2024-09-14 17:04:48 +05:00 committed by Martin
parent d604978e80
commit 8644edbc61
2 changed files with 8 additions and 8 deletions
components/buildintf
compoptsintf.pas
ide/packages/ideconfig
compileroptions.pp

14
components/buildintf/compoptsintf.pas
View File

@ -200,7 +200,7 @@ type
procedure SetStopAfterErrCount(const AValue: integer);
procedure SetStripSymbols(const AValue: Boolean);
procedure SetSyntaxMode(const AValue: string);
procedure SetTargetFilenameAppplyConventions(const AValue: boolean);
procedure SetTargetFilenameApplyConventions(const AValue: boolean);
procedure SetTrashVariables(const AValue: Boolean);
procedure SetUncertainOpt(const AValue: Boolean);
procedure SetUseAnsiStr(const AValue: Boolean);
@ -271,7 +271,7 @@ type
FUseExternalDbgSyms : Boolean;
fTargetFileExt: string;
fTargetFilename: string;
FTargetFilenameAppplyConventions: boolean;
FTargetFilenameApplyConventions: boolean;
// Messages:
fShowWarn: Boolean;
fShowNotes: Boolean;
@ -392,7 +392,7 @@ type
// target:
property TargetFileExt: string read FTargetFileExt write SetTargetFileExt; // empty for default
property TargetFilename: string read fTargetFilename write SetTargetFilename; // empty for default
property TargetFilenameApplyConventions: boolean read FTargetFilenameAppplyConventions write SetTargetFilenameAppplyConventions;
property TargetFilenameApplyConventions: boolean read FTargetFilenameApplyConventions write SetTargetFilenameApplyConventions;
// parsing:
property SyntaxMode: string read FSyntaxMode write SetSyntaxMode;
@ -890,11 +890,11 @@ begin
IncreaseChangeStamp;
end;
procedure TLazCompilerOptions.SetTargetFilenameAppplyConventions(
procedure TLazCompilerOptions.SetTargetFilenameApplyConventions(
const AValue: boolean);
begin
if FTargetFilenameAppplyConventions=AValue then exit;
FTargetFilenameAppplyConventions:=AValue;
if FTargetFilenameApplyConventions=AValue then exit;
FTargetFilenameApplyConventions:=AValue;
IncreaseChangeStamp;
end;
@ -1001,7 +1001,7 @@ begin
fOnChanged:=TMethodList.Create;
FChangeStamp:=InvalidChangeStamp;
FSavedChangeStamp:=FChangeStamp;
FTargetFilenameAppplyConventions:=true;
FTargetFilenameApplyConventions:=true;
FOwner := TheOwner;
end;

2
ide/packages/ideconfig/compileroptions.pp
View File

@ -3055,7 +3055,7 @@ begin
// target
if Done(Tool.AddDiff('TargetFileExt',fTargetFileExt,CompOpts.fTargetFileExt)) then exit;
if Done(Tool.AddDiff('TargetFilename',fTargetFilename,CompOpts.fTargetFilename)) then exit;
if Done(Tool.AddDiff('TargetFilenameAppplyConventions',FTargetFilenameAppplyConventions,CompOpts.FTargetFilenameAppplyConventions)) then exit;
if Done(Tool.AddDiff('TargetFilenameApplyConventions',FTargetFilenameApplyConventions,CompOpts.FTargetFilenameApplyConventions)) then exit;
// search paths
if Tool<>nil then Tool.Path:='Paths';