Change change of To_String

The RFC 4122 standard specifies that the hexidecimal representation of
the UUID is in lowercase characters, not uppercase.

"Each field is treated as an integer and has its value printed as a
zero-filled hexadecimal digit string with the most significant
digit first.  The hexadecimal values "a" through "f" are output as
lower case characters and are case insensitive on input."
This commit is contained in:
jrmarino 2016-07-30 19:47:16 -05:00
parent 6f14c1daef
commit 3c01e14ef5
1 changed files with 1 additions and 1 deletions

View File

@ -88,7 +88,7 @@ package body AdaID is
result : String(1 .. 36);
index : Integer := 1;
base : constant Integer := 2 ** 4;
chars : constant String(1 .. base) := "0123456789ABCDEF";
chars : constant String(1 .. base) := "0123456789abcdef";
b : Integer;
begin
for i in ByteArray'Range loop