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: Debug message.

Browse source
This commit is contained in:
cobines 2011-07-20 10:31:39 +00:00
commit d439c153ed
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/newdesign/ufileview.pas
View file

@ -452,6 +452,7 @@ end;
destructor TFileView.Destroy;
var
i: Integer;
DbgWorkersThread: TFunctionThread;
begin
for i := 0 to FileSourcesCount - 1 do
FHistory.FileSource[i].RemoveReloadEventListener(@ReloadEvent);
@ -463,8 +464,9 @@ begin
// Wait until all the workers finish.
FWorkersThread.Finish;
DCDebug('Waiting for workers thread ', hexStr(FWorkersThread));
DbgWorkersThread := FWorkersThread;
TFunctionThread.Finalize(FWorkersThread);
DCDebug('Finalized workers thread ', hexStr(FWorkersThread));
DCDebug('Finalized workers thread ', hexStr(DbgWorkersThread));
end;
// Now all the workers can be safely freed.