anchor.diff:      FDict.Free;
     end;
   end;
  +{$ENDIF}
   
   initialization
     {$IFDEF FPC}
  
positive.code:     procedure TestAddDuplicatesFailure;
      procedure TestAddAndFindHash16;
      procedure TestAddAndFindHash64;
      procedure TestAddAndFindManyEntriesUsingTDictionary;
      procedure TestRemove;
      procedure TestIterator;
      procedure TestIteratorDuplicateString;
  
negative.code: {$IFDEF FPC}
  {$mode objfpc}{$H+}
  {$ENDIF}
  
  {$IF CompilerVersion >= 22}
    {$DEFINE HasGenerics}
  {$IFEND}
  
  interface
  
  