mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Don't free file source manually.

Browse source
This commit is contained in:
cobines 2009-11-14 20:25:12 +00:00
commit ee8a9b17c1
1 changed files with 0 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/fpackdlg.pas
View file

@ -92,7 +92,6 @@ var
Operation: TFileSourceOperation;
OperationHandle: TOperationHandle;
ProgressDialog: TfrmFileOp;
bTargetFileSourceCreated: Boolean = False;
begin
try
with TfrmPackDlg.Create(nil) do
@ -131,7 +130,6 @@ begin
else
begin
// Create a new target file source.
bTargetFileSourceCreated := True;
// Only WCX now.
NewTargetFileSource := TWcxArchiveFileSource.CreateByArchiveName(edtPackCmd.Text);
@ -177,8 +175,6 @@ begin
finally
if Assigned(Files) then
FreeAndNil(Files);
if bTargetFileSourceCreated and Assigned(NewTargetFileSource) then
FreeAndNil(NewTargetFileSource);
end;
end;