Browse Source

* Fix windows compilation

git-svn-id: trunk@46991 -
(cherry picked from commit 202976b457fc706bc54091d2c1c3cdc1ab132f17)
michael 4 years ago
parent
commit
ad5b651e81
1 changed files with 1 additions and 1 deletions
  1. 1 1
      packages/openssl/src/openssl.pas

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

@@ -5707,7 +5707,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}