FIX: Range check error

(cherry picked from commit 3998581673)
This commit is contained in:
Alexander Koblov 2023-12-02 15:41:12 +03:00
commit 4b5159b623
2 changed files with 10 additions and 1 deletions

View file

@ -286,6 +286,15 @@ Index: ssl_openssl_lib.pas
// libeay.dll
function X509New: PX509;
begin
@@ -1924,7 +1955,7 @@
{$ENDIF}
end;
-function GetLibFileName(Handle: THandle): string;
+function GetLibFileName(Handle: TLibHandle): string;
var
n: integer;
begin
@@ -2022,6 +2053,9 @@
_SslGetVerifyResult := GetProcAddr(SSLLibHandle, 'SSL_get_verify_result');
_SslCtrl := GetProcAddr(SSLLibHandle, 'SSL_ctrl');

View file

@ -1955,7 +1955,7 @@ begin
{$ENDIF}
end;
function GetLibFileName(Handle: THandle): string;
function GetLibFileName(Handle: TLibHandle): string;
var
n: integer;
begin