anchor.diff:  end;
   
   class procedure TConverters.ReadUInt64AsBytesBE(a_in: UInt64;
  -  a_out: THashLibByteArray; a_index: Int32);
  +  const a_out: THashLibByteArray; a_index: Int32);
   begin
     a_out[a_index] := Byte(a_in shr 56);
     a_out[a_index + 1] := Byte(a_in shr 48);
  
positive.code: end;
  
  class procedure TConverters.ReadUInt32AsBytesLE(a_in: UInt32;
    a_out: THashLibByteArray; a_index: Int32);
  begin
    a_out[a_index] := Byte(a_in);
    a_out[a_index + 1] := Byte(a_in shr 8);
  
negative.code: end;
  
  class procedure TConverters.ReadUInt64AsBytesLE(a_in: UInt64;
    const a_out: THashLibByteArray; a_index: Int32);
  begin
    a_out[a_index] := Byte(a_in);
    a_out[a_index + 1] := Byte(a_in shr 8);
  