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

Prevent occasional crash in external tool threads with Sleep(1), especially with LazBuild. Issue #37883.

Browse Source 
git-svn-id: branches/fixes_2_0@64023 -
This commit is contained in:
juha 2020-10-15 19:08:37 +00:00
parent 8ddcd102ee
commit 5d06959c36
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/ideintf/ideexterntoolintf.pas
View File

@ -1229,11 +1229,13 @@ end;
procedure TAbstractExternalTool.EnterCriticalSection;
begin
Sleep(1); // Force context switch to prevent occasional crash. Issue #36318, #37883 etc.
FWorkerMessages.EnterCriticalSection;
end;
procedure TAbstractExternalTool.LeaveCriticalSection;
begin
Sleep(1);
FWorkerMessages.LeaveCriticalSection;
end;