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:
parent
6f14c1daef
commit
3c01e14ef5
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue