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

IDE: check lfm files of packages if changed, even if not added to package, issue #25120

Browse Source 
git-svn-id: trunk@43045 -
This commit is contained in:
mattias 2013-09-30 17:28:34 +00:00
parent 679b613dc8
commit 652a96891a
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
packager/packagesystem.pas
View File

@ -3026,6 +3026,7 @@ var
SrcPPUFile: String;
AFilename: String;
CompilerFilename, CompilerParams, SrcFilename: string;
LFMFilename: String;
begin
Result:=mrYes;
{$IFDEF VerbosePkgCompile}
@ -3253,9 +3254,22 @@ begin
Note+='State file older than source "'+AFilename+'"'+LineEnding
+' State file age='+FileAgeToStr(StateFileAge)+LineEnding
+' State file="'+Stats^.StateFileName+'"'+LineEnding
+' LPK age='+FileAgeToStr(FileAgeCached(APackage.Filename))+LineEnding;
+' Src file age='+FileAgeToStr(FileAgeCached(AFilename))+LineEnding;
exit(mrYes);
end;
if FilenameIsPascalUnit(AFilename) then begin
LFMFilename:=ChangeFileExt(AFilename,'.lfm');
if FileExistsCached(LFMFilename)
and (StateFileAge<FileAgeCached(LFMFilename)) then begin
DebugLn('TLazPackageGraph.CheckIfCurPkgOutDirNeedsCompile LFM has changed ',APackage.IDAsString,' ',LFMFilename);
DebugLn(' State file="',Stats^.StateFileName,'"');
Note+='State file older than resource "'+LFMFilename+'"'+LineEnding
+' State file age='+FileAgeToStr(StateFileAge)+LineEnding
+' State file="'+Stats^.StateFileName+'"'+LineEnding
+' Resource file age='+FileAgeToStr(FileAgeCached(LFMFilename))+LineEnding;
exit(mrYes);
end;
end;
end;
{$IFDEF VerbosePkgCompile}