paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 06:49:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix from Luiz Americo to avoid crash when a freenotification is registered during destroy. (bug ID 23031)

Browse Source 
git-svn-id: trunk@22589 -
This commit is contained in:
michael 2012-10-08 12:02:11 +00:00
parent d6c8ebc1b9
commit 3cafdc2a58
1 changed files with 5 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/objpas/classes/compon.inc
View File

@ -559,17 +559,12 @@ Procedure TComponent.FreeNotification(AComponent: TComponent);
begin
If (Owner<>Nil) and (AComponent=Owner) then exit;
if csDestroying in ComponentState then
AComponent.Notification(Self,opRemove)
else
If not (Assigned(FFreeNotifies)) then
FFreeNotifies:=TFpList.Create;
If FFreeNotifies.IndexOf(AComponent)=-1 then
begin
If not (Assigned(FFreeNotifies)) then
FFreeNotifies:=TFpList.Create;
If FFreeNotifies.IndexOf(AComponent)=-1 then
begin
FFreeNotifies.Add(AComponent);
AComponent.FreeNotification (self);
end;
FFreeNotifies.Add(AComponent);
AComponent.FreeNotification (self);
end;
end;