anchor.diff:  {$IFDEF FPC}
   {$mode objfpc}{$H+}
   {$ENDIF}
  +
  +{$IF CompilerVersion >= 22}
  +  {$DEFINE HasGenerics}
  +{$IFEND}
   
   interface
   
  
positive.code: implementation
  
  uses
    Hash_Trie, Trie, Generics.Collections;
  
  procedure TStringHashTrieTest.TestCreate;
  begin
  
negative.code:     FDict.Free;
    end;
  end;
  {$ENDIF}
  
  initialization
    {$IFDEF FPC}
  