--- Merging r14921 into '.':

U    packages/fcl-base/src/avl_tree.pp
U    packages/libxml/src/xmlxsd.pas

# revisions: 14921
------------------------------------------------------------------------
r14921 | ivost | 2010-02-18 00:56:11 +0100 (Thu, 18 Feb 2010) | 2 lines
Changed paths:
   M /trunk/packages/fcl-base/src/avl_tree.pp
   M /trunk/packages/libxml/src/xmlxsd.pas

* SetOnCompare didn't assign AValue to FOnCompare when Count was 0

------------------------------------------------------------------------

git-svn-id: branches/fixes_2_4@15058 -

packages/fcl-base/src/avl_tree.pp

@@ -1034,7 +1034,8 @@ begin
     finally
       FreeMem(List);
     end;
-  end;
+  end else
+    FOnCompare:=AValue;
 end;
 
 procedure TAVLTree.SetNodeManager(newmgr:TBaseAVLTreeNodeManager);

packages/libxml/src/xmlxsd.pas

@@ -903,8 +903,6 @@ begin
     else Exit(False);
   end;
 
-  //writeln(Len, ', ', IntToHex(Num,16));
-
   case Num of
     $30,
     $65736C6166,$65736C6146,$65736C4166,$65736C4146,$65734C6166,$65734C6146,$65734C4166,$65734C4146,