anchor.diff:    FStrHashTrie.Free;
   end;
   
  +{$IFDEF HasGenerics}
   procedure TStringHashTrieTest.TestAddAndFindManyEntriesUsingTDictionary;
   const
     Count = 1024 * 64;
  
positive.code: implementation
  
  uses
    Hash_Trie, Trie, Generics.Collections;
  
  procedure TStringHashTrieTest.TestCreate;
  begin
  
negative.code:     FDict.Free;
    end;
  end;
  {$ENDIF}
  
  initialization
    {$IFDEF FPC}
  