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

[<and...@us...>]

Revision: 792
          http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=792&view=rev
Author:   andreavaccari
Date:     2008-11-20 09:43:47 +0000 (Thu, 20 Nov 2008)

Log Message:
-----------


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

Modified: trunk/Source/Core/InstantPersistence.pas
===================================================================
--- trunk/Source/Core/InstantPersistence.pas	2008-09-26 15:57:21 UTC (rev 791)
+++ trunk/Source/Core/InstantPersistence.pas	2008-11-20 09:43:47 UTC (rev 792)
@@ -7197,10 +7197,10 @@
 var
   ANode, Delete, Child: TInstantCacheNode;
 begin
+  ANode := FindNode(AObject.PersistentId);
   if ANode = Leaf then
     Exit;
 
-  ANode := FindNode(AObject.PersistentId);
   if (ANode.Left = Leaf) or (ANode.Right = Leaf) then
     Delete := ANode
   else