anchor.diff:    TConverters = class sealed(TObject)
   
     strict private
  -{$IFDEF DELPHI}
  -    // lifted from DUnitX.Utils.
  -    class function SplitString(const S, Delimiters: string)
  +    class function SplitString(const S: String; Delimiter: Char)
         : THashLibStringArray; static;
   
  -{$ENDIF DELPHI}
   {$IFDEF DEBUG}
       class procedure Check(a_in: THashLibByteArray;
         a_in_size, a_out_size: Int32); overload; static;
  -
   {$ENDIF DEBUG}
       class procedure swap_copy_str_to_u32(src: Pointer; src_index: Int32;
         dest: Pointer; dest_index: Int32; length: Int32); static;
  
positive.code: uses
  {$IFDEF HAS_UNITSCOPE}
    System.Classes,
    System.SysUtils,
  {$ELSE}
    Classes,
    SysUtils,
  {$ENDIF HAS_UNITSCOPE}
    HlpHashLibTypes,
  
negative.code: {$IFDEF DEBUG}
      Check(a_in, 1, 4);
  {$ENDIF DEBUG}
      workstring := AnsiUpperCase(TBitConverter.ToString(a_in));
  
      ar := TConverters.SplitString(workstring, '-');
      hex := '';
      I := 0;
  
  