From 6f352a0dbf3c4d1d5a0d84f46fd9547afee29522 Mon Sep 17 00:00:00 2001 From: mattias Date: Wed, 7 Mar 2012 12:05:53 +0000 Subject: [PATCH] lazutils: less hints git-svn-id: trunk@35805 - --- components/lazutils/lazfilecache.pas | 19 ------------------- 1 file changed, 19 deletions(-) diff --git a/components/lazutils/lazfilecache.pas b/components/lazutils/lazfilecache.pas index 203725445a..e70500704b 100644 --- a/components/lazutils/lazfilecache.pas +++ b/components/lazutils/lazfilecache.pas @@ -73,7 +73,6 @@ type CreateIfNotExists: boolean): TFileStateCacheItem; function Check(const Filename: string; AFlag: TFileStateCacheItemFlag; out AFile: TFileStateCacheItem; var FlagIsSet: boolean): boolean; - procedure WriteDebugReport; procedure AddChangeTimeStampHandler(const Handler: TOnChangeFileStateTimeStamp); procedure RemoveChangeTimeStampHandler(const Handler: TOnChangeFileStateTimeStamp); function CalcMemSize: PtrUint; @@ -413,7 +412,6 @@ begin @CompareFilenameWithFileStateCacheItem)=nil then begin //DebugLn(format('FileStateCache.FindFile: "%s"',[FileName])); - WriteDebugReport; raise Exception.Create(''); end; end else @@ -438,23 +436,6 @@ begin //debugln('TFileStateCache.Check Filename=',Filename,' AFile.Filename=',AFile.Filename,' ',s,'=',dbgs(FlagIsSet),' Valid=',dbgs(Result)); end; -procedure TFileStateCache.WriteDebugReport; -var - ANode: TAVLTreeNode; - //AFile: TFileStateCacheItem; -begin - {$NOTE ToDo} - //debugln('TFileStateCache.WriteDebugReport FTimeStamp=',dbgs(FTimeStamp)); - ANode:=FFiles.FindLowest; - while ANode<>nil do begin - //AFile:=TFileStateCacheItem(ANode.Data); - //debugln(' "',AFile.Filename,'" TimeStamp=',dbgs(AFile.TimeStamp)); - ANode:=FFiles.FindSuccessor(ANode); - end; - //debugln(' FFiles=',dbgs(FFiles.ConsistencyCheck)); - //debugln(FFiles.ReportAsString); -end; - procedure TFileStateCache.AddChangeTimeStampHandler( const Handler: TOnChangeFileStateTimeStamp); begin