anchor.diff:      case FAutoFreeValueMode of
         afmFree             : TObject(value).Free;
         afmFreeMem          : FreeMem(value);
  -      afmStrDispose       : StrDispose(value);
  +      afmAnsiStrDispose   : {$IFDEF UNICODE}AnsiStrings.{$ENDIF}StrDispose(PAnsiChar(value));
         afmReleaseInterface : IUnknown(Value)._Release;
       end;
   end;
  
positive.code:   kvp : PKeyValuePair;
    AChildIndex : Byte;
    ParentNodePtr : PPKeyValuePairNode;
    Node, SmallestNode, SmallestNodeParent : PKeyValuePairNode;
    HashTrieNode : PHashTrieNode;
    TreeHash : THashRecord;
    Hash : Word;
    procedure FindSmallestNodeOnRight;
    var
      ANode : PKeyValuePairNode;
  
negative.code: implementation
  
  uses
    xxHash, SysUtils, uSuperFastHash {$IFDEF UNICODE}, AnsiStrings {$ENDIF};
  
  resourcestring
    SInternalErrorUseHashTableWithHashSize = 'Internal error: if AUseHashTable is True then AHashSize must be <= 20 calling constructor THashTrie.Create()';
  