anchor.diff:      /// <param name="ShiftBits">Integer, number of bits to shift value to.</param>
       /// <returns>Shifted value.</returns>
   
  -    class function Asr32(value: Int32; ShiftBits: Int32): Int32; static; inline;
  +    class function Asr32(Value: Int32; ShiftBits: Int32): Int32; static; inline;
   
       /// <summary>
       /// Calculates Arithmetic shift right.
  
positive.code:   System.Assert(a_n >= 0);
  {$ENDIF DEBUG}
  {$IFDEF FPC}
    result := RolQWord(a_value, a_n);
  {$ELSE}
    a_n := a_n and 63;
  
    result := (a_value shl a_n) or (a_value shr (64 - a_n));
  {$ENDIF FPC}
  end;
  
  
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 RotateLeft32(a_value: UInt32; a_n: Int32): UInt32; overload;
        static; inline;
  