Fix typo

risoflora · Feb 14, 2024 · 9d7b784 · 9d7b784
1 parent 13ac175
commit 9d7b784
Showing 1 changed file with 7 additions and 7 deletions.
diff --git a/Source/BrookHTTPServer.pas b/Source/BrookHTTPServer.pas
@@ -1015,28 +1015,28 @@ procedure TBrookHTTPServer.DoOpen;
     FSecurity.Validate;
     if FHostName <> EmptyStr then
     begin
-      if not Assigned(sg_httpsrv_tls_listen3) then
+      if not Assigned(sg_httpsrv_tls_listen4) then
         raise ENotSupportedException.Create(SBrookTLSNotAvailable);
-      FActive := sg_httpsrv_tls_listen3(FHandle,
+      FActive := sg_httpsrv_tls_listen4(FHandle,
         M.ToCNullableString(FSecurity.PrivateKey),
         M.ToCNullableString(FSecurity.PrivatePassword),
         M.ToCNullableString(FSecurity.Certificate),
         M.ToCNullableString(FSecurity.Trust),
         M.ToCNullableString(FSecurity.DHParams),
-        M.ToCNullableString(FSecurity.Priorities), FPort, FThreaded);
+        M.ToCNullableString(FSecurity.Priorities), M.ToCString(FHostName),
+        FPort, FBacklog, FThreaded);
     end
     else
     begin
-      if not Assigned(sg_httpsrv_tls_listen4) then
+      if not Assigned(sg_httpsrv_tls_listen3) then
         raise ENotSupportedException.Create(SBrookTLSNotAvailable);
-      FActive := sg_httpsrv_tls_listen4(FHandle,
+      FActive := sg_httpsrv_tls_listen3(FHandle,
         M.ToCNullableString(FSecurity.PrivateKey),
         M.ToCNullableString(FSecurity.PrivatePassword),
         M.ToCNullableString(FSecurity.Certificate),
         M.ToCNullableString(FSecurity.Trust),
         M.ToCNullableString(FSecurity.DHParams),
-        M.ToCNullableString(FSecurity.Priorities), M.ToCString(FHostName),
-        FPort, FBacklog, FThreaded);
+        M.ToCNullableString(FSecurity.Priorities), FPort, FThreaded);
     end;
   end
   else