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

[<fas...@us...>]

Revision: 665
Author:   fastbike2
Date:     2006-04-10 11:55:03 -0700 (Mon, 10 Apr 2006)
ViewCVS:  http://svn.sourceforge.net/instantobjects?rev=665&view=rev

Log Message:
-----------
Bug Fix [ 1464661 ] TInstantReference.Assign causes AV
Check for nil before we try to clone a TInstantReference attribute object.

Modified Paths:
--------------
    trunk/Source/Core/InstantPersistence.pas
Modified: trunk/Source/Core/InstantPersistence.pas
===================================================================
--- trunk/Source/Core/InstantPersistence.pas	2006-04-10 08:31:44 UTC (rev 664)
+++ trunk/Source/Core/InstantPersistence.pas	2006-04-10 18:55:03 UTC (rev 665)
@@ -6285,7 +6285,12 @@
     begin
       // cross-connector object assignment must be supported for InstantPump.
       if Self.Connector <> Connector then
-        Self.Value := Value.Clone(Self.Connector)
+      begin
+        if Assigned(Value) then
+          Self.Value := Value.Clone(Self.Connector)
+        else
+          Self.Value := nil;  
+      end
       else
         Self.Value := Value;
     end;