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

Converter: fix a memory leak when converting a single unit.

Browse Source 
git-svn-id: trunk@39670 -
This commit is contained in:
juha 2012-12-28 00:14:52 +00:00
parent 15f0c7aa65
commit 289e83d1dd
1 changed files with 27 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
converter/convertdelphi.pas
View File

@ -866,8 +866,9 @@ var
begin
IDEMessagesWindow.Clear;
DelphiUnit := TDelphiUnit.Create(Self, fOrigFilename, []);
try
Result:=fSettings.RunForm(Nil);
if Result=mrOK then
if Result=mrOK then begin
with DelphiUnit do
try
Result:=CopyAndLoadFile;
@ -893,7 +894,11 @@ begin
end;
Result:=mrAbort;
end;
end;
ShowEndingMessage(Result);
finally
DelphiUnit.Free;
end;
end;
{ TConvertDelphiProjPack }
@ -1311,7 +1316,6 @@ end;
destructor TConvertDelphiProject.Destroy;
begin
if Assigned(fMainUnitConverter) then
fMainUnitConverter.Free;
inherited Destroy;
end;