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

IDE: fixed TETSingleSrcChanges.SetMultiSrcChanges not removing while clearing

Browse Source
This commit is contained in:
mattias 2023-04-02 21:01:24 +02:00
parent efaf08ed99
commit c7f0ddbba8
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
ide/etsrceditmarks.pas
View File

@ -176,6 +176,7 @@ type
private
fAllChanges: TAvlTree; // tree of TETSingleSrcChanges sorted for Filename
FAutoSync: boolean;
fClearing: boolean;
fPendingChanges: TAvlTree; // tree of TETSingleSrcChanges sorted for Filename
FOnSync: TNotifyEvent;
FSyncQueued: boolean;
@ -625,9 +626,15 @@ end;
procedure TETMultiSrcChanges.Clear;
begin
SyncQueued:=false;
fPendingChanges.Clear;
fAllChanges.FreeAndClear;
if fClearing then exit;
fClearing:=true;
try
SyncQueued:=false;
fPendingChanges.Clear;
fAllChanges.FreeAndClear;
finally
fClearing:=false;
end;
end;
function TETMultiSrcChanges.GetChanges(const aFilename: string;
@ -753,7 +760,7 @@ begin
if Filename='' then
raise Exception.Create('TETSingleSrcChanges.SetMultiSrcChanges empty filename');
if (FMultiSrcChanges<>nil) then begin
if (csDestroying in FMultiSrcChanges.ComponentState) then begin
if (csDestroying in FMultiSrcChanges.ComponentState) or FMultiSrcChanges.fClearing then begin
fInPendingTree:=false;
end else begin
InPendingTree:=false;