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

lazbuild: fixed clean up

Browse Source 
git-svn-id: trunk@45990 -
This commit is contained in:
mattias 2014-07-28 18:56:13 +00:00
parent 322062cc24
commit b34a88d7c4
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/exttools.pas
View File

@ -614,7 +614,7 @@ end;
destructor TExternalTool.Destroy;
begin
debugln(['TExternalTool.Destroy ',Title]);
//debugln(['TExternalTool.Destroy ',Title]);
EnterCriticalSection;
try
FStage:=etsDestroying;
@ -798,7 +798,7 @@ begin
NeedProcTerminate:=false;
EnterCriticalSection;
try
debugln(['TExternalTool.DoTerminate ',Title,' Terminated=',Terminated,' Stage=',dbgs(Stage)]);
//debugln(['TExternalTool.DoTerminate ',Title,' Terminated=',Terminated,' Stage=',dbgs(Stage)]);
if Terminated then exit;
if Stage=etsStopped then exit;
@ -1391,7 +1391,10 @@ end;
procedure TExternalTools.HandleMesages;
begin
Application.ProcessMessages;
if Application<>nil then
Application.ProcessMessages
else
CheckSynchronize;
end;
procedure TExternalTools.RegisterParser(Parser: TExtToolParserClass);