[Instantobjects-cvscommit] SF.net SVN: instantobjects: [619] trunk/Source/Core/InstantPersistence.pas

[<jcm...@us...>]

Revision: 619
Author:   jcmoraisjr
Date:     2006-02-22 09:38:12 -0800 (Wed, 22 Feb 2006)
ViewCVS:  http://svn.sourceforge.net/instantobjects?rev=619&view=rev

Log Message:
-----------
Fixed new TInstanReferences.DestroyObject method that is causing an infinite loop into FreeCircularReference.

Modified Paths:
--------------
    trunk/Source/Core/InstantPersistence.pas
Modified: trunk/Source/Core/InstantPersistence.pas
===================================================================
--- trunk/Source/Core/InstantPersistence.pas	2006-02-21 19:43:52 UTC (rev 618)
+++ trunk/Source/Core/InstantPersistence.pas	2006-02-22 17:38:12 UTC (rev 619)
@@ -7204,7 +7204,7 @@
   Index: Integer;
 begin
   Index := IndexOf(AObject);
-  Result := Index >= 0;
+  Result := (Index >= 0) and ObjectReferenceList.RefItems[Index].HasInstance;
   if Result then
     ObjectReferenceList.RefItems[Index].DestroyInstance;
 end;