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

lazutils: less hints

Browse Source 
git-svn-id: trunk@35805 -
This commit is contained in:
mattias 2012-03-07 12:05:53 +00:00
parent dce918a3c7
commit 6f352a0dbf
1 changed files with 0 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
components/lazutils/lazfilecache.pas
View File

@ -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