anchor.diff:        and (FKeys[I] <= MaxListSize) then Result.Put(FKeys[I], FValues[I]);
   end;
   
  -function THashMap.ToArrayList(Sync, ReadWriteSync: Boolean): TArrayList;
  +function THashMap.ToArrayList(Sync: Boolean; ReadWriteSync: Boolean
  +  ): TArrayList;
   var
     I: Integer;
   begin
  
positive.code:   FValues.Assign(Source.Values);
  end;
  
  procedure THashMap.Clear;
  begin
    FKeys.Clear;
  
negative.code:     function GetCount: Integer;
      function GetKeys: IImmutableList;
      function GetValues: IImmutableList;
      function GetKey(const AValue: Variant): Variant;
      function Get(const AKey: Variant): Variant; overload;
      procedure Put(const AKey, AValue: Variant);
      function Get(const AKey: Variant; var AValue: Variant): Boolean; overload;
      function Add(const AKey, AValue: Variant): Boolean;
      procedure Clear;
      function ContainsKey(const AKey: Variant): Boolean;
      function ContainsValue(const AValue: Variant): Boolean;
      function Delete(const AKey: Variant): Variant;
      function GetEnumerator: IMapEnumerator;
      function Join(const ItemGlue: string = ';';
                    const KeyValueGlue: string = '=';
  