paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 01:39:42 +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 ReleaseRefCount;
procedure MakeFileDateValid;
procedure InvalidateLoadDate;
function SourceIsText: boolean;
public
property CodeCache: TCodeCache read FCodeCache write FCodeCache;
@ -1419,6 +1420,11 @@ begin
FLoadDate:=FileAgeCached(Filename);
end;
procedure TCodeBuffer.InvalidateLoadDate;
begin
FLoadDateValid:=false;
end;
function TCodeBuffer.SourceIsText: boolean;
var
l: LongInt;