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

merge r62477 #61ff6d46d1: Fix compilation with FPC trunk

Browse Source 
git-svn-id: branches/fixes_2_0@62478 -
This commit is contained in:
ondrej 2020-01-03 10:24:51 +00:00
parent b812427da7
commit 08a6145ef0
1 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
ide/frames/compiler_compilation_options.pas
View File

@ -385,15 +385,15 @@ procedure TCompilerCompilationOptionsFrame.WriteSettings(AOptions: TAbstractIDEO
var
Options: TBaseCompilerOptions absolute AOptions;
HL: THistoryList;
begin
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;
HL := InputHistories.HistoryLists.GetList('BuildExecBefore',true,rltCaseSensitive);
HL.Assign(ExecuteBeforeCommandComboBox.Items);
HL.Push(Options.ExecuteBefore.Command);
WriteSettingsParsers(Options.ExecuteBefore,ExecBeforeParsersCheckListBox);
@ -416,10 +416,9 @@ begin
// execute after
Options.ExecuteAfter.Command := ExecuteAfterCommandComboBox.Text;
with InputHistories.HistoryLists.GetList('BuildExecAfter',true,rltCaseSensitive) do begin
Assign(ExecuteAfterCommandComboBox.Items);
Push(Options.ExecuteAfter.Command);
end;
HL := InputHistories.HistoryLists.GetList('BuildExecAfter',true,rltCaseSensitive);
HL.Assign(ExecuteAfterCommandComboBox.Items);
HL.Push(Options.ExecuteAfter.Command);
WriteSettingsParsers(Options.ExecuteAfter,ExecAfterParsersCheckListBox);
if Options.ExecuteAfter is TProjectCompilationToolOptions then
Options.ExecuteAfter.CompileReasons :=