paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-29 10:20:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

OpenSSL: fix uninitialized results

Browse Source
This commit is contained in:
Ondrej Pokorny 2025-07-20 12:47:13 +02:00
parent 3310a49ce0
commit 5dd835c79f
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/openssl/src/openssl.pas
View File

@ -3895,8 +3895,7 @@ end;
//
function EVP_CIPHER_CTX_new(): PEVP_CIPHER_CTX;
begin
if InitSSLInterface then
if Assigned(_EVP_CIPHER_CTX_new) then
if InitSSLInterface and Assigned(_EVP_CIPHER_CTX_new) then
Result := _EVP_CIPHER_CTX_new()
else
Result := nil;
@ -3920,13 +3919,12 @@ end;
function EVP_CIPHER_CTX_cleanup(a: PEVP_CIPHER_CTX): cint;
begin
Result := -1;
if InitSSLInterface then
if Assigned(_EVP_CIPHER_CTX_cleanup) then
Result := _EVP_CIPHER_CTX_cleanup(a)
else if Assigned(_EVP_CIPHER_CTX_reset) then
Result := _EVP_CIPHER_CTX_reset(a)
else
Result := -1;
Result := _EVP_CIPHER_CTX_reset(a);
end;
function EVP_CIPHER_CTX_set_key_length(x: PEVP_CIPHER_CTX; keylen: cint): cint;