Permalink
Browse files

fix for EVP_sha256_sign() on 64-bit OS

  • Loading branch information...
Arnaud Bouchez
Arnaud Bouchez committed Apr 26, 2018
1 parent 79912a3 commit 5769b3580f574ae9e3d20e0851650eee73545e57
Showing with 7 additions and 7 deletions.
  1. +1 −1 SQLite3/mORMot.pas
  2. +5 −5 SynOpenSSL.pas
  3. +1 −1 SynopseCommit.inc
@@ -61036,7 +61036,7 @@ procedure TServiceMethodExecute.RawExecute(const Instances: PPointerArray;
(ValueType in [smvRecord{$ifndef NOVARIANTS},smvVariant{$endif}]) then begin
// pass by reference
if (RegisterIdent=0) and (FPRegisterIdent=0) and (SizeInStack>0) then
MoveFast(Value,Stack[InStackOffset],SizeInStack) else begin
MoveFast(Value,Stack[InStackOffset],SizeInStack) else begin
if RegisterIdent>0 then
call.ParamRegs[RegisterIdent] := PtrInt(Value);
if FPRegisterIdent>0 then
@@ -254,10 +254,10 @@ TOpenSSLLib = class
EVP_sha512: function: PEVP_MD; cdecl;
EVP_PKEY_size: function(key: PEVP_PKEY): integer; cdecl;
EVP_DigestSignInit: function(aCtx: PEVP_MD_CTX; aPCtx: PEVP_PKEY_CTX; aType: PEVP_MD; aEngine: ENGINE; aKey: PEVP_PKEY): integer; cdecl;
EVP_DigestUpdate: function(ctx: PEVP_MD_CTX; d: pointer; cnt: cardinal): integer; cdecl;
EVP_DigestSignFinal: function(ctx: PEVP_MD_CTX; d: PByte; var cnt: cardinal): integer; cdecl;
EVP_DigestUpdate: function(ctx: PEVP_MD_CTX; d: pointer; cnt: size_t): integer; cdecl;
EVP_DigestSignFinal: function(ctx: PEVP_MD_CTX; d: PByte; var cnt: size_t): integer; cdecl;
EVP_DigestVerifyInit: function(aCtx: PEVP_MD_CTX; aPCtx: PEVP_PKEY_CTX; aType: PEVP_MD; aEngine: ENGINE; aKey: pEVP_PKEY): integer; cdecl;
EVP_DigestVerifyFinal: function(ctx: pEVP_MD_CTX; d: PByte; cnt: cardinal): integer; cdecl;
EVP_DigestVerifyFinal: function(ctx: pEVP_MD_CTX; d: PByte; cnt: size_t): integer; cdecl;
CRYPTO_malloc: function(aLength: longint; f: PAnsiChar; aLine: integer): pointer; cdecl;
CRYPTO_free: procedure(str: pointer); cdecl;
SSLeay_version: function(t: integer): PAnsiChar; cdecl;
@@ -301,7 +301,7 @@ TOpenSSLLib = class
SSL_get0_alpn_selected: procedure(s: PSSL; out data: PAnsiChar; out len: integer); cdecl;
SSL_clear: function(s: PSSL): integer; cdecl;
// aliases
EVP_DigestVerifyUpdate: function(ctx: PEVP_MD_CTX; d: pointer; cnt: cardinal): integer; cdecl;
EVP_DigestVerifyUpdate: function(ctx: PEVP_MD_CTX; d: pointer; cnt: size_t): integer; cdecl;
sk_ASN1_OBJECT_num: function(stack: PSTACK): integer; cdecl; // = sk_num
sk_GENERAL_NAME_num: function(stack: PSTACK): integer; cdecl; // = sk_num
sk_GENERAL_NAME_pop: function(stack: PSTACK): pointer; cdecl; // = sk_pop
@@ -755,7 +755,7 @@ function TOpenSSLLib.EVP_sha256_sign(msg, privkey: pointer; msglen, privkeylen:
priv: PBIO;
pkey: PEVP_PKEY;
ctx: PEVP_MD_CTX;
size: cardinal;
size: size_t;
begin
result := '';
if (privkey = nil) or (privkeylen = 0) then begin
@@ -1 +1 @@
'1.18.4551'
'1.18.4552'

0 comments on commit 5769b35

Please sign in to comment.