anchor.diff:  {$ENDIF FPC}
   end;
   
  -class function TBits.Asr64(Value: int64; ShiftBits: Int32): int64;
  +class function TBits.Asr64(Value: Int64; ShiftBits: Int32): Int64;
   begin
   {$IFDEF FPC}
     Result := SarInt64(Value, ShiftBits);
  
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: 
  { TBits }
  
  class procedure TBits.ReverseByteArray(Source, Dest: Pointer; Size: Int64);
  var
    ptr_src, ptr_dest: PByte;
  begin
  