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

codetools: accelerated TCodeCache.SaveIncludeLinksDataToList

Browse Source 
git-svn-id: trunk@25689 -
This commit is contained in:
mattias 2010-05-27 13:30:02 +00:00
parent 5c3930c99d
commit 9a8dce2b4e
1 changed files with 24 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
components/codetools/codecache.pas
View File

@ -525,35 +525,28 @@ var
LastLine: String;
CurrDate: TDateTime;
ExpirationTime: TDateTime;
Node: TAVLTreeNode;
procedure AddLine(Line: string);
var
p: Integer;
p1: PChar;
p2: PChar;
p: PtrUint;
begin
p:=1;
while (p<=length(Line)) and (p<=length(LastLine))
and (Line[p]=LastLine[p]) do
inc(p);
p1:=PChar(Line);
p2:=PChar(LastLine);
while (p1^=p2^) and (p1^<>#0) do begin
inc(p1);
inc(p2);
end;
p:=p1-PChar(Line);
List.Add(IntToStr(p-1)+':'+copy(Line,p,length(Line)));
LastLine:=Line;
end;
procedure SaveLinkTree(ANode: TAVLTreeNode);
var
ALink: TIncludedByLink;
DiffTime: TDateTime;
begin
if ANode=nil then exit;
SaveLinkTree(ANode.Left);
ALink:=TIncludedByLink(ANode.Data);
DiffTime:=CurrDate-ALink.LastTimeUsed;
if (FExpirationTimeInDays<=0) or (DiffTime<ExpirationTime) then begin
AddLine(ALink.IncludeFilename);
AddLine(ALink.IncludedByFile+';'+IntToStr(round(CurrDate-ALink.LastTimeUsed)));
end;
SaveLinkTree(ANode.Right);
end;
var
ALink: TIncludedByLink;
DiffTime: TDateTime;
begin
UpdateIncludeLinks;
if FIncludeLinks.Count=0 then exit;
@ -561,7 +554,16 @@ begin
LastLine:='';
CurrDate:=Date;
List.Add(DateToCfgStr(CurrDate));
SaveLinkTree(FIncludeLinks.Root);
Node:=FIncludeLinks.FindLowest;
while Node<>nil do begin
ALink:=TIncludedByLink(Node.Data);
DiffTime:=CurrDate-ALink.LastTimeUsed;
if (FExpirationTimeInDays<=0) or (DiffTime<ExpirationTime) then begin
AddLine(ALink.IncludeFilename);
AddLine(ALink.IncludedByFile+';'+IntToStr(round(CurrDate-ALink.LastTimeUsed)));
end;
Node:=FIncludeLinks.FindSuccessor(Node);
end;
end;
function TCodeCache.LastIncludedByFile(const IncludeFilename: string): string;