Permalink
Browse files

Fix for compilation error. Changed SizeType to HashType.

  • Loading branch information...
1 parent a96c358 commit b7509cdabb3fef5d660e7aef6d61683780b40355 @anthony-arnold committed Feb 1, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 src/adaid.adb
View
4 src/adaid.adb
@@ -70,13 +70,13 @@ package body AdaID is
--Get the hash value for the UUID
function Get_Hash_Value(This: in UUID) return HashType is
- seed : SizeType := 0;
+ seed : HashType := 0;
begin
-- Hashing (in case it's needed)
for i in ByteArray'Range loop
seed := seed xor
(
- SizeType(This.data(i))
+ HashType(This.data(i))
+ 16#9E3779B9#
+ shift_left(seed, 6)
+ shift_right(seed, 2)

0 comments on commit b7509cd

Please sign in to comment.