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

IDE: build ide: if building fails, clear flag clean up once

Browse Source 
git-svn-id: trunk@37118 -
This commit is contained in:
mattias 2012-05-01 11:15:58 +00:00
parent 44b12851fb
commit 147aa605ec
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/buildlazdialog.pas
View File

@ -397,8 +397,12 @@ begin
Tool.CmdLineParams:=Tool.CmdLineParams+CmdLineParams;
// run
Result:=ExternalTools.Run(Tool,Macros,false);
if Result<>mrOk then exit;
// clean only once. If building failed the user must first fix the error
// before a clean build is needed.
ApplyCleanOnce;
if Result<>mrOk then begin
exit;
end;
end;
Result:=mrOk;
finally