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

codetools: include links: use date

Browse Source 
git-svn-id: trunk@25682 -
This commit is contained in:
mattias 2010-05-27 08:15:16 +00:00
parent e05038a12d
commit f6f1568eab
1 changed files with 4 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/codetools/codecache.pas
View File

@ -673,7 +673,7 @@ function TCodeCache.SaveIncludeLinksToXML(XMLConfig: TXMLConfig;
const XMLPath: string): boolean;
var
Index: integer;
CurTime: TDateTime;
CurrDate: TDateTime;
ExpirationTime: TDateTime;
procedure SaveLinkTree(ANode: TAVLTreeNode);
@ -684,15 +684,8 @@ var
if ANode=nil then exit;
SaveLinkTree(ANode.Left);
ALink:=TIncludedByLink(ANode.Data);
DiffTime:=CurTime-ALink.LastTimeUsed;
DiffTime:=CurrDate-ALink.LastTimeUsed;
if (FExpirationTimeInDays<=0) or (DiffTime<ExpirationTime) then begin
{if Index<50 then
DebugLn('TCodeCache.SaveIncludeLinksToXML ',
Index,' ',ALink.IncludeFilename,
' LastTimeUsed=',FormatDateTime('ddddd', ALink.LastTimeUsed),
' CurTime=',DateToNormalStr('ddddd',CurTime),
' DiffTime=',DiffTime,
' ExpirationTime=',ExpirationTime);}
APath:=XMLPath+'IncludeLinks/Link'+IntToStr(Index)+'/';
XMLConfig.SetValue(APath+'IncludeFilename/Value',ALink.IncludeFilename);
XMLConfig.SetValue(APath+'IncludedByFilename/Value',ALink.IncludedByFile);
@ -705,12 +698,13 @@ var
begin
try
CurTime:=Now;
CurrDate:=Date;
ExpirationTime:=TDateTime(FExpirationTimeInDays);
UpdateIncludeLinks;
XMLConfig.SetValue(XMLPath+'IncludeLinks/Version',IncludeLinksFileVersion);
XMLConfig.SetDeleteValue(XMLPath+'IncludeLinks/ExpirationTimeInDays',
FExpirationTimeInDays,0);
XMLConfig.SetValue(XMLPath+'IncludeLinks/BaseDate',DateToCfgStr(CurrDate));
Index:=0;
SaveLinkTree(FIncludeLinks.Root);
XMLConfig.SetDeleteValue(XMLPath+'IncludeLinks/Count',Index,0);