paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 20:59:06 +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; destructor TExternalTool.Destroy;
begin begin
debugln(['TExternalTool.Destroy ',Title]); //debugln(['TExternalTool.Destroy ',Title]);
EnterCriticalSection; EnterCriticalSection;
try try
FStage:=etsDestroying; FStage:=etsDestroying;
@ -798,7 +798,7 @@ begin
NeedProcTerminate:=false; NeedProcTerminate:=false;
EnterCriticalSection; EnterCriticalSection;
try try
debugln(['TExternalTool.DoTerminate ',Title,' Terminated=',Terminated,' Stage=',dbgs(Stage)]); //debugln(['TExternalTool.DoTerminate ',Title,' Terminated=',Terminated,' Stage=',dbgs(Stage)]);
if Terminated then exit; if Terminated then exit;
if Stage=etsStopped then exit; if Stage=etsStopped then exit;
@ -1391,7 +1391,10 @@ end;
procedure TExternalTools.HandleMesages; procedure TExternalTools.HandleMesages;
begin begin
Application.ProcessMessages; if Application<>nil then
Application.ProcessMessages
else
CheckSynchronize;
end; end;
procedure TExternalTools.RegisterParser(Parser: TExtToolParserClass); procedure TExternalTools.RegisterParser(Parser: TExtToolParserClass);