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

[<dav...@us...>]

Revision: 888
          http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=888&view=rev
Author:   davidvtaylor
Date:     2010-01-03 03:39:29 +0000 (Sun, 03 Jan 2010)

Log Message:
-----------
* Fix for compile breakage under D2010 caused by a parameter type mismatch in TInstantAttribute.Initialize. This change is only a quick fix. A more complete design review should be performed.

Modified Paths:
--------------
    trunk/Source/Core/InstantPersistence.pas

Modified: trunk/Source/Core/InstantPersistence.pas
===================================================================
--- trunk/Source/Core/InstantPersistence.pas	2010-01-03 03:34:13 UTC (rev 887)
+++ trunk/Source/Core/InstantPersistence.pas	2010-01-03 03:39:29 UTC (rev 888)
@@ -2453,7 +2453,7 @@
     begin
       for CustomAttribute in RttiMember.GetAttributes do
         if CustomAttribute is TInstantRttiAttribute then
-          TInstantRttiAttribute(CustomAttribute).Change(Self, RttiMember);
+          TInstantRttiAttribute(CustomAttribute).Change(Self.GetOwner, RttiMember);
     end;
 
   var