anchor.diff:  
   { TBits }
   
  -class procedure TBits.ReverseByteArray(Source, Dest: Pointer; Size: int64);
  +class procedure TBits.ReverseByteArray(Source, Dest: Pointer; Size: Int64);
   var
     ptr_src, ptr_dest: PByte;
   begin
  
positive.code:     /// <param name="Size">Size of the Array to Reverse.</param>
  
      class procedure ReverseByteArray(Source, Dest: Pointer;
        Size: int64); static;
  
      /// <summary>
      /// Calculates Arithmetic shift right.
  
negative.code: {$ENDIF FPC}
  end;
  
  class function TBits.Asr64(Value: Int64; ShiftBits: Int32): Int64;
  begin
  {$IFDEF FPC}
    Result := SarInt64(Value, ShiftBits);
  