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

codetools: added TCodeCache.ClearAllModified

Browse Source 
git-svn-id: branches/fixes_2_0@59561 -
This commit is contained in:
mattias 2018-11-16 17:51:07 +00:00
parent 9b3ee1136a
commit e09b7587c8
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 Clear;
procedure ClearAllSourceLogEntries; procedure ClearAllSourceLogEntries;
procedure ClearIncludedByEntry(const IncludeFilename: string); procedure ClearIncludedByEntry(const IncludeFilename: string);
procedure ClearAllModified;
procedure OnBufferSetFileName(Sender: TCodeBuffer; procedure OnBufferSetFileName(Sender: TCodeBuffer;
const OldFilename: string); const OldFilename: string);
procedure OnBufferSetScanner(Sender: TCodeBuffer); procedure OnBufferSetScanner(Sender: TCodeBuffer);
@ -533,6 +534,20 @@ begin
end; end;
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; function TCodeCache.Count: integer;
begin begin
Result:=FItems.Count; Result:=FItems.Count;