diff options
| author | ivost <ivost@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2010-02-17 23:56:11 +0000 |
|---|---|---|
| committer | ivost <ivost@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2010-02-17 23:56:11 +0000 |
| commit | 2663b68638abfa9af48f1e92c069c110726d2e4b (patch) | |
| tree | a361c94c31ecaeb1034042e173147c0ae13d48e1 /packages/fcl-base | |
| parent | ea7d28b4627ccb9cdb98bf7fef939983fdfd941e (diff) | |
| download | fpc-2663b68638abfa9af48f1e92c069c110726d2e4b.tar.gz | |
* SetOnCompare didn't assign AValue to FOnCompare when Count was 0
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@14921 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/fcl-base')
| -rw-r--r-- | packages/fcl-base/src/avl_tree.pp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/packages/fcl-base/src/avl_tree.pp b/packages/fcl-base/src/avl_tree.pp index e28a7d4b84..859c048160 100644 --- a/packages/fcl-base/src/avl_tree.pp +++ b/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); |