paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 20:19:24 +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; procedure TFileStateCache.WriteDebugReport;
var var
ANode: TAVLTreeNode; ANode: TAVLTreeNode;
AFile: TFileStateCacheItem; //AFile: TFileStateCacheItem;
begin begin
{$NOTE ToDo} {$NOTE ToDo}
//debugln('TFileStateCache.WriteDebugReport FTimeStamp=',dbgs(FTimeStamp)); //debugln('TFileStateCache.WriteDebugReport FTimeStamp=',dbgs(FTimeStamp));
ANode:=FFiles.FindLowest; ANode:=FFiles.FindLowest;
while ANode<>nil do begin while ANode<>nil do begin
AFile:=TFileStateCacheItem(ANode.Data); //AFile:=TFileStateCacheItem(ANode.Data);
//debugln(' "',AFile.Filename,'" TimeStamp=',dbgs(AFile.TimeStamp)); //debugln(' "',AFile.Filename,'" TimeStamp=',dbgs(AFile.TimeStamp));
ANode:=FFiles.FindSuccessor(ANode); ANode:=FFiles.FindSuccessor(ANode);
end; end;