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

IDE: write Makefile.compiled only if changed

Browse Source 
git-svn-id: trunk@29411 -
This commit is contained in:
mattias 2011-02-07 13:48:47 +00:00
parent 8d2dbd9ff1
commit 130a6629f7
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
packager/packagesystem.pas
View File

@ -49,8 +49,9 @@ uses
Classes, SysUtils, FileProcs, FileUtil, LCLProc, Forms, Controls, Dialogs,
InterfaceBase,
// codetools
AVL_Tree, Laz_XMLCfg, DefineTemplates, CodeCache, BasicCodeTools,
CodeToolsStructs, NonPascalCodeTools, SourceChanger, CodeToolManager,
AVL_Tree, Laz_XMLCfg, DefineTemplates, CodeCache,
BasicCodeTools, CodeToolsStructs, NonPascalCodeTools, SourceChanger,
CodeToolManager,
// IDEIntf,
SrcEditorIntf, IDEExternToolIntf, IDEDialogs, IDEMsgIntf, PackageIntf,
LazIDEIntf,
@ -3824,7 +3825,7 @@ begin
[ccloDoNotAppendOutFileOption,ccloNoMacroParams]);
try
XMLConfig:=TXMLConfig.CreateClean(MakefileCompiledFilename);
XMLConfig:=TXMLConfig.Create(MakefileCompiledFilename);
try
XMLConfig.SetValue('Makefile/Value',True);
s:=OtherOptions;
@ -3837,8 +3838,10 @@ begin
s:=s+' '+CreateRelativePath(APackage.GetSrcFilename,APackage.Directory);
//debugln(['TLazPackageGraph.WriteMakeFile IncPath="',IncPath,'" UnitPath="',UnitPath,'" Custom="',CustomOptions,'" Out="',UnitOutputPath,'"']);
XMLConfig.SetValue('Params/Value',s);
InvalidateFileStateCache;
XMLConfig.Flush;
if XMLConfig.Modified then begin
InvalidateFileStateCache;
XMLConfig.Flush;
end;
finally
XMLConfig.Free;
end;