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

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

Revision: 791
          http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=791&view=rev
Author:   andreavaccari
Date:     2008-09-26 15:57:21 +0000 (Fri, 26 Sep 2008)

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


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

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