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

IDE: Free the new IDE builder object only at the very end. It is used longer than it first appears.

Browse Source 
git-svn-id: trunk@44031 -
This commit is contained in:
juha 2014-02-12 16:40:10 +00:00
parent 197fad765b
commit 3407665a5d
1 changed files with 30 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
ide/main.pp
View File

@ -1652,6 +1652,7 @@ begin
{$IFDEF IDE_MEM_CHECK}CheckHeapWrtMemCnt('TMainIDE.Destroy C ');{$ENDIF}
FreeThenNil(IDEProtocolOpts);
FreeThenNil(fBuilder);
DebugLn('[TMainIDE.Destroy] END');
end;
@ -4531,6 +4532,7 @@ var
FoundProfToBuild: Boolean;
s: String;
begin
if ToolStatus<>itNone then exit;
with MiscellaneousOptions do begin
FoundProfToBuild:=False;
s:=sLineBreak+sLineBreak;
@ -4559,9 +4561,9 @@ var
DlgResult: TModalResult;
begin
if ToolStatus<>itNone then exit;
if fBuilder=Nil then
fBuilder:=TLazarusBuilder.Create; // Will be freed in the very end.
MainBuildBoss.SetBuildTargetIDE;
fBuilder := TLazarusBuilder.Create; // Build profile is not known yet.
try
try
DlgResult:=fBuilder.ShowConfigureBuildLazarusDlg(MiscellaneousOptions.BuildLazProfiles);
finally
@ -4590,9 +4592,6 @@ begin
DoBuildLazarus([]);
end;
end;
finally
FreeAndNil(fBuilder);
end;
end;
procedure TMainIDE.mnuCustomExtToolClick(Sender: TObject);
@ -7517,7 +7516,6 @@ var
FPCVersion, FPCRelease, FPCPatch: integer;
PkgCompileFlags: TPkgCompileFlags;
ProfileChanged: Boolean;
BuilderCreated: Boolean;
begin
if ToolStatus<>itNone then begin
IDEMessageDialog(lisNotNow,lisYouCanNotBuildLazarusWhileDebuggingOrCompiling,
@ -7532,8 +7530,7 @@ begin
exit;
end;
BuilderCreated := fBuilder = Nil;
if BuilderCreated then
if fBuilder=Nil then
fBuilder:=TLazarusBuilder.Create;
{$IFNDEF EnableNewExtTools}
MessagesView.BeginBlock;
@ -7617,8 +7614,6 @@ begin
if ProfileChanged then
MiscellaneousOptions.Save;
finally
if BuilderCreated then
FreeAndNil(fBuilder);
MainBuildBoss.SetBuildTargetProject1(true);
DoCheckFilesOnDisk;
{$IFNDEF EnableNewExtTools}