paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-08 15:19:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

Assertions to debug issue #36318.

Browse Source 
git-svn-id: trunk@63111 -
This commit is contained in:
juha 2020-05-02 10:51:09 +00:00
parent 368225808a
commit ef165a7ed0
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/buildintf/ideexterntoolintf.pas
View File

@ -943,7 +943,7 @@ begin
repeat
ExternalToolList.HandleMesages;
if AllStopped then exit;
Sleep(20);
Sleep(50);
//debugln(['TExternalToolGroup.WaitForExit ',Now,'==========================']);
//for i:=0 to Count-1 do
// debugln([' Stage=',dbgs(Items[i].Stage),' "',Items[i].Title,'"']);
@ -1233,6 +1233,7 @@ end;
procedure TAbstractExternalTool.LeaveCriticalSection;
begin
Assert(Assigned(FWorkerMessages), 'TAbstractExternalTool.LeaveCriticalSection: FWorkerMessages=Nil.');
FWorkerMessages.LeaveCriticalSection;
end;

3
ide/exttools.pas
View File

@ -904,10 +904,11 @@ begin
Assert(Owner is TExternalToolsBase, 'TExternalTool.WaitForExit: Owner is not TExternalToolsBase.');
TExternalToolsBase(Owner).HandleMesages;
end;
Assert(Assigned(ExternalToolList), 'TExternalTool.WaitForExit: ExternalToolList=Nil.');
// check if this tool still exists
if MyTools.IndexOf(Self)<0 then exit;
// still running => wait
Sleep(10);
Sleep(50);
until false;
end;