From 9acb68ee3295550a5c19342561dfa1270b13667c Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sat, 19 Oct 2019 14:46:50 +0000
Subject: [PATCH] * Merging revisions 42978 from trunk:    
 ------------------------------------------------------------------------    
 r42978 | michael | 2019-09-13 18:20:39 +0200 (Fri, 13 Sep 2019) | 1 line

    * Fix some deprecated warnings
    ------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@43255 -
---
 packages/fcl-web/src/base/custhttpapp.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/packages/fcl-web/src/base/custhttpapp.pp b/packages/fcl-web/src/base/custhttpapp.pp
index 41a55c45d7..58bb5a6842 100644
--- a/packages/fcl-web/src/base/custhttpapp.pp
+++ b/packages/fcl-web/src/base/custhttpapp.pp
@@ -369,7 +369,7 @@ end;
 
 function TFPHTTPServerHandler.GetHostName: String;
 begin
-  Result:=FServer.HostName;
+  Result:=FServer.CertificateData.HostName;
 end;
 
 function TFPHTTPServerHandler.GetIdle: TNotifyEvent;
@@ -404,7 +404,7 @@ end;
 
 procedure TFPHTTPServerHandler.SetHostName(AValue: String);
 begin
-  FServer.HostName:=aValue;
+  FServer.CertificateData.HostName:=aValue;
 end;
 
 procedure TFPHTTPServerHandler.SetIdle(AValue: TNotifyEvent);