paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-08 16:19:29 +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 repeat
ExternalToolList.HandleMesages; ExternalToolList.HandleMesages;
if AllStopped then exit; if AllStopped then exit;
Sleep(20); Sleep(50);
//debugln(['TExternalToolGroup.WaitForExit ',Now,'==========================']); //debugln(['TExternalToolGroup.WaitForExit ',Now,'==========================']);
//for i:=0 to Count-1 do //for i:=0 to Count-1 do
// debugln([' Stage=',dbgs(Items[i].Stage),' "',Items[i].Title,'"']); // debugln([' Stage=',dbgs(Items[i].Stage),' "',Items[i].Title,'"']);
@ -1233,6 +1233,7 @@ end;
procedure TAbstractExternalTool.LeaveCriticalSection; procedure TAbstractExternalTool.LeaveCriticalSection;
begin begin
Assert(Assigned(FWorkerMessages), 'TAbstractExternalTool.LeaveCriticalSection: FWorkerMessages=Nil.');
FWorkerMessages.LeaveCriticalSection; FWorkerMessages.LeaveCriticalSection;
end; end;

3
ide/exttools.pas
View File

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