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

lazutils: clean up

Browse Source 
git-svn-id: trunk@32826 -
This commit is contained in:
mattias 2011-10-11 21:02:40 +00:00
parent 795218e549
commit 00ebb16e0b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/lazutils/lazfilecache.pas
View File

@ -430,13 +430,13 @@ end;
procedure TFileStateCache.WriteDebugReport;
var
ANode: TAVLTreeNode;
AFile: TFileStateCacheItem;
//AFile: TFileStateCacheItem;
begin
{$NOTE ToDo}
//debugln('TFileStateCache.WriteDebugReport FTimeStamp=',dbgs(FTimeStamp));
ANode:=FFiles.FindLowest;
while ANode<>nil do begin
AFile:=TFileStateCacheItem(ANode.Data);
//AFile:=TFileStateCacheItem(ANode.Data);
//debugln(' "',AFile.Filename,'" TimeStamp=',dbgs(AFile.TimeStamp));
ANode:=FFiles.FindSuccessor(ANode);
end;