瀏覽代碼

ISSigFunc: Really avoid implicit integer cast.

Jordan Russell 1 月之前
父節點
當前提交
0859b71ce8
共有 1 個文件被更改,包括 1 次插入1 次删除
  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);
   begin
     const U = UTF8String(S);
-    const N: Int32 = Length(U);
+    const N: UInt32 = UInt32(Length(U));
     SHA256Update(Context, N, SizeOf(N));
     if N > 0 then
       SHA256Update(Context, Pointer(U)^, N*SizeOf(U[1]));