anchor.diff:      /// <param name="Size">Size of the Array to Reverse.</param>
   
       class procedure ReverseByteArray(Source, Dest: Pointer;
  -      Size: int64); static;
  +      Size: Int64); static;
   
       /// <summary>
       /// Calculates Arithmetic shift right.
  
positive.code: 
  { TBits }
  
  class procedure TBits.ReverseByteArray(Source, Dest: Pointer; Size: int64);
  var
    ptr_src, ptr_dest: PByte;
  begin
  
negative.code:     /// <returns>Shifted value.</returns>
      /// Implementation was found here <see cref="https://github.com/Spelt/ZXing.Delphi/blob/master/Lib/Classes/Common/MathUtils.pas" />
  
      class function Asr64(Value: Int64; ShiftBits: Int32): Int64; static; inline;
  
      class function RotateLeft8(a_value: Byte; a_n: Int32): Byte; static; inline;
      class function RotateLeft32(a_value: UInt32; a_n: Int32): UInt32;
        static; inline;
      class function RotateLeft64(a_value: UInt64; a_n: Int32): UInt64;
        static; inline;
      class function RotateRight8(a_value: Byte; a_n: Int32): Byte;
        static; inline;
      class function RotateRight32(a_value: UInt32; a_n: Int32): UInt32;
        static; inline;
      class function RotateRight64(a_value: UInt64; a_n: Int32): UInt64;
        static; inline;
  
    end;
  