instantobjects-cvscommit

[Nando D. <na...@us...>]

Update of /cvsroot/instantobjects/Source/Core
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16322/Core

Modified Files:
	InstantPersistence.pas 
Log Message:
Fixed dangling reference count when reading external Part objects

Index: InstantPersistence.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** InstantPersistence.pas	30 Sep 2004 15:26:39 -0000	1.11
--- InstantPersistence.pas	30 Sep 2004 17:49:56 -0000	1.12
***************
*** 14077,14084 ****
              Open;
              try
                if not IsEmpty then
!                 Value := AttributeMetadata.ObjectClass.Retrieve(Fields[1].AsString, False, False, AObject.Connector)
!               else
!                 Value := nil;
              finally
                Close;
--- 14077,14083 ----
              Open;
              try
+               Value := nil;
                if not IsEmpty then
!                 Value := AttributeMetadata.ObjectClass.Retrieve(Fields[1].AsString, False, False, AObject.Connector);
              finally
                Close;
***************
*** 14108,14115 ****
              Open;
              try
                if not IsEmpty then
!                 Value := AttributeMetadata.ObjectClass.Retrieve(Fields[1].AsString, False, False, AObject.Connector)
!               else
!                 Value := nil;
              finally
                Close;
--- 14107,14113 ----
              Open;
              try
+               Value := nil;
                if not IsEmpty then
!                 Value := AttributeMetadata.ObjectClass.Retrieve(Fields[1].AsString, False, False, AObject.Connector);
              finally
                Close;