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

* Fixed compilation check when only build after is used

Browse Source 
git-svn-id: trunk@8695 -
This commit is contained in:
marc 2006-02-03 19:30:18 +00:00
parent eac8a11f00
commit 77a5c067c7
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/main.pp
View File

@ -7299,8 +7299,10 @@ begin
Result:=DoWarnAmbiguousFiles;
if Result<>mrOk then exit;
// check if build is needed
if (pbfOnlyIfNeeded in Flags) and (not (pfAlwaysBuild in Project1.Flags))
// check if build is needed (only if we will call the compiler)
if (AReason in Project1.CompilerOptions.CompileReasons)
and (pbfOnlyIfNeeded in Flags)
and (not (pfAlwaysBuild in Project1.Flags))
then begin
Result:=DoCheckIfProjectNeedsCompilation(Project1,
CompilerFilename,CompilerParams,
@ -7348,7 +7350,8 @@ begin
// execute compilation tool 'After'
ToolAfter:=TProjectCompilationToolOptions(Project1.CompilerOptions.ExecuteAfter);
if (Result = mrOk) and (AReason in ToolAfter.CompileReasons) then begin
// no need to check for mrOk, we are exit if it wasn't
if (AReason in ToolAfter.CompileReasons) then begin
Result:=DoExecuteCompilationTool(Project1.CompilerOptions.ExecuteAfter,
Project1.ProjectDirectory,
lisExecutingCommandAfter);