Przeglądaj źródła

ISSigFunc: Really avoid implicit integer cast.

Jordan Russell 1 miesiąc temu
rodzic
commit
0859b71ce8
1 zmienionych plików z 1 dodań i 1 usunięć
  1. 1 1
      Components/ISSigFunc.pas

+ 1 - 1
Components/ISSigFunc.pas

@@ -102,7 +102,7 @@ function CalcHashToSign(const AIncludeFileNameAndTag: Boolean; const AFileName:
   procedure SHA256UpdateWithString(var Context: TSHA256Context; const S: String);
   procedure SHA256UpdateWithString(var Context: TSHA256Context; const S: String);
   begin
   begin
     const U = UTF8String(S);
     const U = UTF8String(S);
-    const N: Int32 = Length(U);
+    const N: UInt32 = UInt32(Length(U));
     SHA256Update(Context, N, SizeOf(N));
     SHA256Update(Context, N, SizeOf(N));
     if N > 0 then
     if N > 0 then
       SHA256Update(Context, Pointer(U)^, N*SizeOf(U[1]));
       SHA256Update(Context, Pointer(U)^, N*SizeOf(U[1]));