paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 21:39:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: added TCodeBuffer.InvalidateLoadDate

Browse Source 
git-svn-id: trunk@51369 -
This commit is contained in:
mattias 2016-01-21 12:03:28 +00:00
parent 9f7a580842
commit 3c2bf43f60
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/codetools/codecache.pas
View File

@ -95,6 +95,7 @@ type
procedure IncrementRefCount; procedure IncrementRefCount;
procedure ReleaseRefCount; procedure ReleaseRefCount;
procedure MakeFileDateValid; procedure MakeFileDateValid;
procedure InvalidateLoadDate;
function SourceIsText: boolean; function SourceIsText: boolean;
public public
property CodeCache: TCodeCache read FCodeCache write FCodeCache; property CodeCache: TCodeCache read FCodeCache write FCodeCache;
@ -1419,6 +1420,11 @@ begin
FLoadDate:=FileAgeCached(Filename); FLoadDate:=FileAgeCached(Filename);
end; end;
procedure TCodeBuffer.InvalidateLoadDate;
begin
FLoadDateValid:=false;
end;
function TCodeBuffer.SourceIsText: boolean; function TCodeBuffer.SourceIsText: boolean;
var var
l: LongInt; l: LongInt;