paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 01:02:41 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/buildintf/compoptsintf.pas
View File

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

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

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