paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 15:47:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Make sure UpdateCount=0 when inherited destructor is called (and ooFree is dispatched (Bug ID 25821)

Browse Source 
git-svn-id: trunk@26960 -
This commit is contained in:
michael 2014-03-05 09:22:19 +00:00
parent 15bb6b2c72
commit a1252febae
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/objpas/classes/collect.inc
View File

@ -302,8 +302,12 @@ end;
destructor TCollection.Destroy; destructor TCollection.Destroy;
begin begin
BeginUpdate; // Prevent OnChange FUpdateCount:=1; // Prevent OnChange
DoClear; try
DoClear;
Finally
FUpdateCount:=0;
end;
FItems.Free; FItems.Free;
Inherited Destroy; Inherited Destroy;
end; end;