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

codetools: added TCodeCache.ClearAllModified

Browse Source 
git-svn-id: trunk@59559 -
This commit is contained in:
mattias 2018-11-16 17:50:00 +00:00
parent f275a9445c
commit e1221dcbc2
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
components/codetools/codecache.pas
View File

@ -198,6 +198,7 @@ type
procedure Clear;
procedure ClearAllSourceLogEntries;
procedure ClearIncludedByEntry(const IncludeFilename: string);
procedure ClearAllModified;
procedure OnBufferSetFileName(Sender: TCodeBuffer;
const OldFilename: string);
procedure OnBufferSetScanner(Sender: TCodeBuffer);
@ -533,6 +534,20 @@ begin
end;
end;
procedure TCodeCache.ClearAllModified;
var
Code: TCodeBuffer;
ANode: TAVLTreeNode;
begin
ANode:=FItems.FindLowest;
while ANode<>nil do begin
Code:=TCodeBuffer(ANode.Data);
if Code.Modified then
Code.Clear;
ANode:=FItems.FindSuccessor(ANode);
end;
end;
function TCodeCache.Count: integer;
begin
Result:=FItems.Count;