- F9F8125F17B849D7E49D39FF7B8C49D2B9A1ACD27B1D7A3FB449D2C9971098D1F22A64263D89D210D8C15B8AD963951D674AA4998E7823C19AB22E03C4F6373A
+ B400C9418D40715D1063D700657C8CEE23E4B6DE0D237A23BCBB5293944543DE71C1DD0FB0E9984F6DDA83B57930906C4C7479A35E88F9D32BD284B5C796DEC3
vtools/src/bits.adb
(48 . 7)(48 . 7)
40       X: Positive := 1;
41    begin
42       ToString(B, Bytes);
43       for C of S loop
44       for C of Bytes loop
45          V := Character'Pos(C);
46          S(I) := Hex_Digits(Integer(Shift_Right(V, 4) + 1));
47          I := I + 1;