paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-29 08:20:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

codetools: using FileAgeCached

Browse Source 
git-svn-id: trunk@24343 -
This commit is contained in:
mattias 2010-04-01 11:34:11 +00:00
parent 795893ae06
commit 7906cc5720
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/codetools/codecache.pas
View File

@ -627,7 +627,7 @@ begin
and (fLastIncludeLinkFileChangeStep=fChangeStep)
and (fLastIncludeLinkFile=AFilename)
and FileExistsCached(AFilename)
and (FileAgeUTF8(AFilename)=fLastIncludeLinkFileAge)
and (FileAgeCached(AFilename)=fLastIncludeLinkFileAge)
then begin
exit;
end;
@ -635,7 +635,7 @@ begin
try
Result:=SaveIncludeLinksToXML(XMLConfig,'');
fLastIncludeLinkFile:=AFilename;
fLastIncludeLinkFileAge:=FileAgeUTF8(AFilename);
fLastIncludeLinkFileAge:=FileAgeCached(AFilename);
fLastIncludeLinkFileChangeStep:=fChangeStep;
fLastIncludeLinkFileValid:=true;
finally
@ -655,7 +655,7 @@ begin
try
Result:=LoadIncludeLinksFromXML(XMLConfig,'');
fLastIncludeLinkFile:=AFilename;
fLastIncludeLinkFileAge:=FileAgeUTF8(AFilename);
fLastIncludeLinkFileAge:=FileAgeCached(AFilename);
fLastIncludeLinkFileChangeStep:=fChangeStep;
fLastIncludeLinkFileValid:=true;
finally
@ -992,7 +992,7 @@ procedure TCodeBuffer.MakeFileDateValid;
begin
FFileChangeStep:=ChangeStep;
FLoadDateValid:=true;
FLoadDate:=FileAgeUTF8(Filename);
FLoadDate:=FileAgeCached(Filename);
end;
function TCodeBuffer.SourceIsText: boolean;