From 1dcb7423283c2491189f45fc2f75c4e90e3f9693 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Sat, 22 Feb 2014 01:06:25 +0000
Subject: [PATCH] LazUtils: RefCounted Obj, assert

git-svn-id: trunk@44198 -
---
 components/lazutils/lazclasses.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/components/lazutils/lazclasses.pas b/components/lazutils/lazclasses.pas
index 607b12e3bc..6c83706e69 100644
--- a/components/lazutils/lazclasses.pas
+++ b/components/lazutils/lazclasses.pas
@@ -93,6 +93,7 @@ end;
 procedure TRefCountedObject.AddReference{$IFDEF WITH_REFCOUNT_DEBUG}(DebugIdAdr: Pointer = nil; DebugIdTxt: String = ''){$ENDIF};
 begin
   {$IFDEF WITH_REFCOUNT_DEBUG}
+  Assert(not FInDestroy, 'Adding reference while destroying');
   DbgAddName(DebugIdAdr, DebugIdTxt);
   {$ENDIF}
   Inc(FRefcount);