浏览代码

* Fix windows compilation

git-svn-id: trunk@46991 -
michael 5 年之前
父节点
当前提交
202976b457
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      packages/openssl/src/openssl.pas

+ 1 - 1
packages/openssl/src/openssl.pas

@@ -5626,7 +5626,7 @@ begin
   Idx:=Low(SSL_DLL_Names);
   While (not Result) and (Idx<=High(SSL_DLL_Names)) do
     begin
-    Result := TryLoadLibPair(MakeLibName(SSL_DLL_Names[Idx],''), MakeLibName(Crypto_DLL_Names[Idx]),'');
+    Result := TryLoadLibPair(MakeLibName(SSL_DLL_Names[Idx],''), MakeLibName(Crypto_DLL_Names[Idx],''));
     Inc(Idx);
     end;
 {$ELSE}