paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-26 12:01:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: check if build needed: write state file name

Browse Source 
git-svn-id: trunk@36673 -
This commit is contained in:
mattias 2012-04-09 10:38:33 +00:00
parent 07da74130a
commit c5077ae11f
1 changed files with 35 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
packager/packagesystem.pas
View File

@ -3055,9 +3055,11 @@ begin
DebugLn('TLazPackageGraph.CheckIfCurPkgOutDirNeedsCompile Compiler custom params changed for ',APackage.IDAsString); DebugLn('TLazPackageGraph.CheckIfCurPkgOutDirNeedsCompile Compiler custom params changed for ',APackage.IDAsString);
DebugLn(' Old="',OldValue,'"'); DebugLn(' Old="',OldValue,'"');
DebugLn(' Now="',NewValue,'"'); DebugLn(' Now="',NewValue,'"');
DebugLn(' State file="',Stats^.StateFileName,'"');
Note+='Compiler custom parameters changed:'+LineEnding Note+='Compiler custom parameters changed:'+LineEnding
+' Old="'+OldValue+'"'+LineEnding +' Old="'+OldValue+'"'+LineEnding
+' Now="'+NewValue+'"'+LineEnding; +' Now="'+NewValue+'"'+LineEnding
+' State file="'+Stats^.StateFileName+'"'+LineEnding;
ConfigChanged:=true; ConfigChanged:=true;
exit(mrYes); exit(mrYes);
end; end;
@ -3068,9 +3070,11 @@ begin
DebugLn('TLazPackageGraph.CheckIfCurPkgOutDirNeedsCompile Compiler unit paths changed for ',APackage.IDAsString); DebugLn('TLazPackageGraph.CheckIfCurPkgOutDirNeedsCompile Compiler unit paths changed for ',APackage.IDAsString);
DebugLn(' Old="',OldValue,'"'); DebugLn(' Old="',OldValue,'"');
DebugLn(' Now="',NewValue,'"'); DebugLn(' Now="',NewValue,'"');
DebugLn(' State file="',Stats^.StateFileName,'"');
Note+='Compiler unit paths changed:'+LineEnding Note+='Compiler unit paths changed:'+LineEnding
+' Old="'+OldValue+'"'+LineEnding +' Old="'+OldValue+'"'+LineEnding
+' Now="'+NewValue+'"'+LineEnding; +' Now="'+NewValue+'"'+LineEnding
+' State file="'+Stats^.StateFileName+'"'+LineEnding;
ConfigChanged:=true; ConfigChanged:=true;
exit(mrYes); exit(mrYes);
end; end;
@ -3081,9 +3085,11 @@ begin
DebugLn('TLazPackageGraph.CheckIfCurPkgOutDirNeedsCompile Compiler include paths changed for ',APackage.IDAsString); DebugLn('TLazPackageGraph.CheckIfCurPkgOutDirNeedsCompile Compiler include paths changed for ',APackage.IDAsString);
DebugLn(' Old="',OldValue,'"'); DebugLn(' Old="',OldValue,'"');
DebugLn(' Now="',NewValue,'"'); DebugLn(' Now="',NewValue,'"');
DebugLn(' State file="',Stats^.StateFileName,'"');
Note+='Compiler include paths changed:'+LineEnding Note+='Compiler include paths changed:'+LineEnding
+' Old="'+OldValue+'"'+LineEnding +' Old="'+OldValue+'"'+LineEnding
+' Now="'+NewValue+'"'+LineEnding; +' Now="'+NewValue+'"'+LineEnding
+' State file="'+Stats^.StateFileName+'"'+LineEnding;
ConfigChanged:=true; ConfigChanged:=true;
exit(mrYes); exit(mrYes);
end; end;
@ -3096,9 +3102,11 @@ begin
DebugLn('TLazPackageGraph.CheckIfCurPkgOutDirNeedsCompile Compiler params changed for ',APackage.IDAsString); DebugLn('TLazPackageGraph.CheckIfCurPkgOutDirNeedsCompile Compiler params changed for ',APackage.IDAsString);
DebugLn(' Old="',LastParams,'"'); DebugLn(' Old="',LastParams,'"');
DebugLn(' Now="',CompilerParams,'"'); DebugLn(' Now="',CompilerParams,'"');
DebugLn(' State file="',Stats^.StateFileName,'"');
Note+='Compiler parameters changed:'+LineEnding Note+='Compiler parameters changed:'+LineEnding
+' Old="'+OldValue+'"'+LineEnding +' Old="'+OldValue+'"'+LineEnding
+' Now="'+NewValue+'"'+LineEnding; +' Now="'+NewValue+'"'+LineEnding
+' State file="'+Stats^.StateFileName+'"'+LineEnding;
ConfigChanged:=true; ConfigChanged:=true;
exit(mrYes); exit(mrYes);
end; end;
@ -3107,24 +3115,30 @@ begin
DebugLn('TLazPackageGraph.CheckIfCurPkgOutDirNeedsCompile Compiler filename changed for ',APackage.IDAsString); DebugLn('TLazPackageGraph.CheckIfCurPkgOutDirNeedsCompile Compiler filename changed for ',APackage.IDAsString);
DebugLn(' Old="',Stats^.CompilerFilename,'"'); DebugLn(' Old="',Stats^.CompilerFilename,'"');
DebugLn(' Now="',CompilerFilename,'"'); DebugLn(' Now="',CompilerFilename,'"');
DebugLn(' State file="',Stats^.StateFileName,'"');
Note+='Compiler filename changed:'+LineEnding Note+='Compiler filename changed:'+LineEnding
+' Old="'+Stats^.CompilerFilename+'"'+LineEnding +' Old="'+Stats^.CompilerFilename+'"'+LineEnding
+' Now="'+CompilerFilename+'"'+LineEnding; +' Now="'+CompilerFilename+'"'+LineEnding
+' State file="'+Stats^.StateFileName+'"'+LineEnding;
exit(mrYes); exit(mrYes);
end; end;
if not FileExistsCached(CompilerFilename) then begin if not FileExistsCached(CompilerFilename) then begin
DebugLn('TLazPackageGraph.CheckIfCurPkgOutDirNeedsCompile Compiler filename not found for ',APackage.IDAsString); DebugLn('TLazPackageGraph.CheckIfCurPkgOutDirNeedsCompile Compiler filename not found for ',APackage.IDAsString);
DebugLn(' File="',CompilerFilename,'"'); DebugLn(' File="',CompilerFilename,'"');
Note+='Compiler file "'+CompilerFilename+'" not found.'+LineEnding; DebugLn(' State file="',Stats^.StateFileName,'"');
Note+='Compiler file "'+CompilerFilename+'" not found.'+LineEnding
+' State file="'+Stats^.StateFileName+'"'+LineEnding;
exit(mrYes); exit(mrYes);
end; end;
if (not Stats^.ViaMakefile) if (not Stats^.ViaMakefile)
and (FileAgeCached(CompilerFilename)<>Stats^.CompilerFileDate) then begin and (FileAgeCached(CompilerFilename)<>Stats^.CompilerFileDate) then begin
DebugLn('TLazPackageGraph.CheckIfCurPkgOutDirNeedsCompile Compiler file changed for ',APackage.IDAsString); DebugLn('TLazPackageGraph.CheckIfCurPkgOutDirNeedsCompile Compiler file changed for ',APackage.IDAsString);
DebugLn(' File="',CompilerFilename,'"'); DebugLn(' File="',CompilerFilename,'"');
DebugLn(' State file="',Stats^.StateFileName,'"');
Note+='Compiler file "'+CompilerFilename+'" changed:'+LineEnding Note+='Compiler file "'+CompilerFilename+'" changed:'+LineEnding
+' Old='+FileAgeToStr(Stats^.CompilerFileDate)+LineEnding +' Old='+FileAgeToStr(Stats^.CompilerFileDate)+LineEnding
+' Now='+FileAgeToStr(FileAgeCached(CompilerFilename))+LineEnding; +' Now='+FileAgeToStr(FileAgeCached(CompilerFilename))+LineEnding
+' State file="'+Stats^.StateFileName+'"'+LineEnding;
exit(mrYes); exit(mrYes);
end; end;
@ -3139,8 +3153,9 @@ begin
if StateFileAge<FileAgeCached(SrcFilename) then begin if StateFileAge<FileAgeCached(SrcFilename) then begin
DebugLn('TLazPackageGraph.CheckIfCurPkgOutDirNeedsCompile SrcFile outdated of ',APackage.IDAsString,': ',SrcFilename); DebugLn('TLazPackageGraph.CheckIfCurPkgOutDirNeedsCompile SrcFile outdated of ',APackage.IDAsString,': ',SrcFilename);
Note+='Source file "'+SrcFilename+'" outdated:'+LineEnding Note+='Source file "'+SrcFilename+'" outdated:'+LineEnding
+' state file age='+FileAgeToStr(StateFileAge)+LineEnding +' Source file age='+FileAgeToStr(FileAgeCached(SrcFilename))+LineEnding
+' source file age='+FileAgeToStr(FileAgeCached(SrcFilename))+LineEnding; +' State file="'+Stats^.StateFileName+'"'+LineEnding
+' State file age='+FileAgeToStr(StateFileAge)+LineEnding;
exit(mrYes); exit(mrYes);
end; end;
// check main source ppu file // check main source ppu file
@ -3163,7 +3178,9 @@ begin
if not Stats^.Complete then begin if not Stats^.Complete then begin
DebugLn('TLazPackageGraph.CheckIfCurPkgOutDirNeedsCompile Compile was incomplete for ',APackage.IDAsString); DebugLn('TLazPackageGraph.CheckIfCurPkgOutDirNeedsCompile Compile was incomplete for ',APackage.IDAsString);
Note+='Last compile was incomplete.'+LineEnding; DebugLn(' State file="',Stats^.StateFileName,'"');
Note+='Last compile was incomplete.'+LineEnding
+' State file="'+Stats^.StateFileName+'"'+LineEnding;
exit(mrYes); exit(mrYes);
end; end;
@ -3181,9 +3198,11 @@ begin
// check package files // check package files
if StateFileAge<FileAgeCached(APackage.Filename) then begin if StateFileAge<FileAgeCached(APackage.Filename) then begin
DebugLn('TLazPackageGraph.CheckIfCurPkgOutDirNeedsCompile StateFile older than lpk ',APackage.IDAsString); DebugLn('TLazPackageGraph.CheckIfCurPkgOutDirNeedsCompile StateFile older than lpk ',APackage.IDAsString);
DebugLn(' State file="',Stats^.StateFileName,'"');
Note+='State file older than lpk:'+LineEnding Note+='State file older than lpk:'+LineEnding
+' state file age='+FileAgeToStr(StateFileAge)+LineEnding +' State file age='+FileAgeToStr(StateFileAge)+LineEnding
+' lpk age='+FileAgeToStr(FileAgeCached(APackage.Filename))+LineEnding; +' State file="'+Stats^.StateFileName+'"'+LineEnding
+' LPK age='+FileAgeToStr(FileAgeCached(APackage.Filename))+LineEnding;
exit(mrYes); exit(mrYes);
end; end;
for i:=0 to APackage.FileCount-1 do begin for i:=0 to APackage.FileCount-1 do begin
@ -3193,9 +3212,11 @@ begin
if FileExistsCached(AFilename) if FileExistsCached(AFilename)
and (StateFileAge<FileAgeCached(AFilename)) then begin and (StateFileAge<FileAgeCached(AFilename)) then begin
DebugLn('TLazPackageGraph.CheckIfCurPkgOutDirNeedsCompile Src has changed ',APackage.IDAsString,' ',CurFile.Filename); DebugLn('TLazPackageGraph.CheckIfCurPkgOutDirNeedsCompile Src has changed ',APackage.IDAsString,' ',CurFile.Filename);
DebugLn(' State file="',Stats^.StateFileName,'"');
Note+='State file older than source "'+AFilename+'"'+LineEnding Note+='State file older than source "'+AFilename+'"'+LineEnding
+' state file age='+FileAgeToStr(StateFileAge)+LineEnding +' State file age='+FileAgeToStr(StateFileAge)+LineEnding
+' lpk age='+FileAgeToStr(FileAgeCached(APackage.Filename))+LineEnding; +' State file="'+Stats^.StateFileName+'"'+LineEnding
+' LPK age='+FileAgeToStr(FileAgeCached(APackage.Filename))+LineEnding;
exit(mrYes); exit(mrYes);
end; end;
end; end;