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

git-svn-id: trunk@14921 -

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,