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

ExtTool: Restore one Enter-/LeaveCriticalSection. It is needed.

Browse Source 
git-svn-id: trunk@64213 -
This commit is contained in:
juha 2020-12-16 22:23:16 +00:00
parent d5099bfbd4
commit a9fe05f1eb
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/buildintf/ideexterntoolintf.pas
View File

@ -2354,8 +2354,8 @@ var
begin
if csDestroying in ComponentState then exit;
Changed:=false;
//EnterCriticalSection; // Beware: Tool is already in critical section !!!
//try
EnterCriticalSection; // Beware: Tool is already in critical section
try
if (FPendingLines=nil) or (FPendingProgressLine=nil) then exit;
//DebugLn(['TExtToolView.ProcessNewMessages START From=',FirstMsgLine,' To=',Tool.WorkerMessages.Count-1]);
NewProgressLine:=nil;
@ -2383,9 +2383,9 @@ begin
PendingProgressLine.Msg:='';
end;
//debugln(['TExtToolView.ProcessNewMessages END Changed=',Changed,' Progress="',ProgressLine.Msg,'"']);
//finally !!!
// LeaveCriticalSection;
//end;
finally
LeaveCriticalSection;
end;
if Changed and Assigned(OnChanged) then begin
// wake up main thread