Browse Source

Merge branch 'master' into travis

Ugochukwu Mmaduekwe 7 years ago
parent
commit
e066234d35
1 changed files with 2 additions and 2 deletions
  1. 2 2
      CryptoLib/src/Utils/ClpArrayUtils.pas

+ 2 - 2
CryptoLib/src/Utils/ClpArrayUtils.pas

@@ -289,7 +289,7 @@ begin
   while (i >= 0) do
   while (i >= 0) do
   begin
   begin
     hc := hc * 257;
     hc := hc * 257;
-    hc := hc xor data[i];
+    hc := hc xor Int32(data[i]);
     System.Dec(i);
     System.Dec(i);
   end;
   end;
   Result := hc;
   Result := hc;
@@ -313,7 +313,7 @@ begin
   while (i >= 0) do
   while (i >= 0) do
   begin
   begin
     hc := hc * 257;
     hc := hc * 257;
-    hc := hc xor data[off + i];
+    hc := hc xor Int32(data[off + i]);
     System.Dec(i);
     System.Dec(i);
   end;
   end;
   Result := hc;
   Result := hc;