浏览代码

FIX: Range check error

Alexander Koblov 1 年之前
父节点
当前提交
3998581673
共有 2 个文件被更改,包括 10 次插入1 次删除
  1. 9 0
      plugins/wfx/ftp/synapse/doublecmd.diff
  2. 1 1
      plugins/wfx/ftp/synapse/ssl_openssl_lib.pas

+ 9 - 0
plugins/wfx/ftp/synapse/doublecmd.diff

@@ -286,6 +286,15 @@ Index: ssl_openssl_lib.pas
  // libeay.dll
  // libeay.dll
  function X509New: PX509;
  function X509New: PX509;
  begin
  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 @@
 @@ -2022,6 +2053,9 @@
          _SslGetVerifyResult := GetProcAddr(SSLLibHandle, 'SSL_get_verify_result');
          _SslGetVerifyResult := GetProcAddr(SSLLibHandle, 'SSL_get_verify_result');
          _SslCtrl := GetProcAddr(SSLLibHandle, 'SSL_ctrl');
          _SslCtrl := GetProcAddr(SSLLibHandle, 'SSL_ctrl');

+ 1 - 1
plugins/wfx/ftp/synapse/ssl_openssl_lib.pas

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