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

LazUtils: RefCountedObject, handle nested RleaseRef

Browse Source 
git-svn-id: trunk@43861 -
This commit is contained in:
martin 2014-01-31 19:41:45 +00:00
parent a254f34a26
commit d82c0c96c4
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/lazutils/lazclasses.pas
View File

@ -25,7 +25,7 @@ type
TRefCountedObject = class(TFreeNotifyingObject)
private
FRefCount: Integer;
FRefCount, FInDecRefCount: Integer;
{$IFDEF WITH_REFCOUNT_DEBUG}
FDebugList: TStringList;
FInDestroy: Boolean;
@ -162,6 +162,7 @@ end;
constructor TRefCountedObject.Create;
begin
FRefCount := 0;
FInDecRefCount := 0;
{$IFDEF WITH_REFCOUNT_DEBUG}
if FDebugList = nil then
FDebugList := TStringList.Create;
@ -172,7 +173,7 @@ end;
destructor TRefCountedObject.Destroy;
begin
{$IFDEF WITH_REFCOUNT_DEBUG}
FDebugList.Free;
FreeAndNil(FDebugList);
{$ENDIF}
Assert(FRefcount = 0, 'Destroying referenced object');
inherited;
@ -185,11 +186,18 @@ begin
DbgRemoveName(DebugIdAdr, DebugIdTxt);
{$ENDIF}
Assert(FRefCount > 0, 'TRefCountedObject.ReleaseReference RefCount > 0');
Dec(FRefCount);
inc(FInDecRefCount);
// call only if overridden
// Do not check for RefCount = 0, since this was done, by whoever decreased it;
If TMethod(@DoReferenceReleased).Code <> Pointer(@TRefCountedObject.DoReferenceReleased) then
DoReferenceReleased;
if FRefCount = 0 then DoFree;
dec(FInDecRefCount);
if (FRefCount = 0) and (FInDecRefCount = 0) then
DoFree;
end;
{$IFDEF WITH_REFCOUNT_DEBUG}