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

Backport trunk r53890 #714bd8024f. Prevent freeze in converter.

Browse Source 
git-svn-id: branches/fixes_1_6@53962 -
This commit is contained in:
juha 2017-01-17 11:59:42 +00:00
parent a51a45d3d2
commit 34ee510a75
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
converter/convertsettings.pas
View File

@ -971,7 +971,8 @@ end;
procedure TConvertSettingsForm.CancelButtonClick(Sender: TObject);
begin
if Assigned(fCacheUnitsThread) then begin
if Assigned(fCacheUnitsThread) and fThreadStarted then
begin
(fCacheUnitsThread as TCacheUnitsThread).Searcher.Stop;
fCacheUnitsThread.WaitFor;
end;