You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
lazarus/lazarus-2.0.6--illegal-qual...

34 lines
1.8 KiB

--- lazarus-2.0.6/lazarus/ide/frames/compiler_compilation_options.pas 2019-03-07 00:02:00.000000000 +0100
+++ lazarus-2.0.6--patched/lazarus/ide/frames/compiler_compilation_options.pas 2020-02-08 12:26:26.678811589 +0100
@@ -389,12 +389,10 @@
Options.CreateMakefileOnBuild := chkCreateMakefile.Checked;
// execute before
Options.ExecuteBefore.Command := ExecuteBeforeCommandComboBox.Text;
- with InputHistories.HistoryLists.GetList('BuildExecBefore',true,rltCaseSensitive) do begin
- Assign(ExecuteBeforeCommandComboBox.Items);
- Push(Options.ExecuteBefore.Command);
- end;
+ InputHistories.HistoryLists.GetList('BuildExecBefore',true,rltCaseSensitive).Assign(ExecuteBeforeCommandComboBox.Items);
+ InputHistories.HistoryLists.GetList('BuildExecBefore',true,rltCaseSensitive).Push(Options.ExecuteBefore.Command);
WriteSettingsParsers(Options.ExecuteBefore,ExecBeforeParsersCheckListBox);
if Options.ExecuteBefore is TProjectCompilationToolOptions then
@@ -415,12 +413,11 @@
TPkgCompilerOptions(Options).SkipCompiler := chkCompilerCompile.Checked;
// execute after
Options.ExecuteAfter.Command := ExecuteAfterCommandComboBox.Text;
- with InputHistories.HistoryLists.GetList('BuildExecAfter',true,rltCaseSensitive) do begin
- Assign(ExecuteAfterCommandComboBox.Items);
- Push(Options.ExecuteAfter.Command);
- end;
+ InputHistories.HistoryLists.GetList('BuildExecAfter',true,rltCaseSensitive).Assign(ExecuteAfterCommandComboBox.Items);
+ InputHistories.HistoryLists.GetList('BuildExecAfter',true,rltCaseSensitive).Push(Options.ExecuteAfter.Command);
+
WriteSettingsParsers(Options.ExecuteAfter,ExecAfterParsersCheckListBox);
if Options.ExecuteAfter is TProjectCompilationToolOptions then
Options.ExecuteAfter.CompileReasons :=
MakeCompileReasons(chkExecAfterCompile, chkExecAfterBuild, chkExecAfterRun);