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

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

Revision: 581
Author:   jcmoraisjr
Date:     2006-02-05 06:25:24 -0800 (Sun, 05 Feb 2006)
ViewCVS:  http://svn.sourceforge.net/instantobjects?rev=581&view=rev

Log Message:
-----------
Fixed leakage using TInstantObject instance via interface pointer.

Bug # 1424540

Modified Paths:
--------------
    trunk/Source/Core/InstantPersistence.pas
Modified: trunk/Source/Core/InstantPersistence.pas
===================================================================
--- trunk/Source/Core/InstantPersistence.pas	2006-02-05 14:07:57 UTC (rev 580)
+++ trunk/Source/Core/InstantPersistence.pas	2006-02-05 14:25:24 UTC (rev 581)
@@ -8900,7 +8900,14 @@
 
 function TInstantObject._Release: Integer;
 begin
-  Result := Release;
+  FreeCircularReferences;
+  Result := DoRelease;
+  if FRefCount = 1 then
+    try
+      Finit;
+    finally
+      inherited FreeInstance;
+    end;
 end;
 
 { TInstantConnectionDef }