ada-libraries
/
AdaID
mirror of https://github.com/anthony-arnold/AdaID
1
0
Fork 0
Code Issues Releases Wiki Activity

Merge pull request #1 from jrmarino/master 

Fix Get_Version
This commit is contained in:
Anthony Arnold 2016-08-01 09:03:01 +10:00 committed by GitHub
parent 413b6e35ea 3c01e14ef5
commit a87323451d
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/adaid.adb
View File

@ -25,8 +25,8 @@ package body AdaID is
--Get the UUID Version
function Get_Version(This: in UUID) return VersionType is
-- version type in octect 9
b : constant Byte := This.data(6) and Byte(16#0F#);
-- version type in octet 7
b : constant Byte := This.data(6) and Byte(16#F0#);
begin
case b is
when 16#10# => return Time_Based;
@ -40,7 +40,7 @@ package body AdaID is
--Get the UUID Variant
function Get_Variant(This: in UUID) return VariantType is
-- variant type in octet 7
-- variant type in octet 9
b : constant Byte := This.data(8);
begin
if (b and 16#80#) = 0 then
@ -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