anchor.diff:  
   { TPerformanceBenchmark }
   
  -class function TPerformanceBenchmark.Calculate(AHashInstance: IHash;
  -  ANamePrefix: String = ''; ASize: Int32 = 65536): String;
  +class function TPerformanceBenchmark.Calculate(const AHashInstance: IHash;
  +  const ANamePrefix: String; ASize: Int32): String;
   const
     THREE_SECONDS_IN_MILLISECONDS = UInt32(3000);
   var
  
positive.code:     NewName := AHashInstance.Name;
    end;
  
    Result := Format('%s Throughput: %.2f MB/s with Blocks of %d KB',
      [Copy(NewName, 2, System.Length(NewName) - 1), MaxRate, ASize div 1024]);
  end;
  
  class procedure TPerformanceBenchmark.DoBenchmark(var AStringList: TStringList);
  
negative.code:   Idx: Int32;
    Total: Int64;
    A, B, TotalMilliSeconds: UInt32;
    NewName, BlockSizeAndUnit: String;
  begin
  
    System.SetLength(Data, ASize);
  