Browse Source

fixed a minor compiler hint.

Ugochukwu Mmaduekwe 7 years ago
parent
commit
eb682b35cc
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;