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: 
    MaxRate := 0.0;
    TotalMilliSeconds := 0;
    for Idx := 0 to System.Pred(3) do
    begin
      Total := 0;
  
  
negative.code:     NewName := AHashInstance.Name;
    end;
  
    if ASize >= 1024 * 1024 * 1024 then
    begin
      BlockSizeAndUnit := Format('%d GB', [(ASize div (1024 * 1024 * 1024))]);
    end
    else if ASize >= 1024 * 1024 then
    begin
      BlockSizeAndUnit := Format('%d MB', [(ASize div (1024 * 1024))]);
    end
    else
    begin
      BlockSizeAndUnit := Format('%d KB', [(ASize div 1024)]);
    end;
  
    Result := Format('%s Throughput: %.2f MB/s with Blocks of %s',
      [Copy(NewName, 2, System.Length(NewName) - 1), MaxRate, BlockSizeAndUnit]);
  end;
  
  class procedure TPerformanceBenchmark.DoBenchmark(var AStringList: TStringList);
  