From b8ef2c11a14c9dc85fd1c69801c50f9ab0cd7f6e Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Thu, 17 Jan 2019 09:52:40 +0000
Subject: [PATCH] * Add support to use GNU TLS

git-svn-id: trunk@40886 -
---
 .../fcl-web/examples/simpleserver/simpleserver.pas     | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/packages/fcl-web/examples/simpleserver/simpleserver.pas b/packages/fcl-web/examples/simpleserver/simpleserver.pas
index c25762880f..91c05590e4 100644
--- a/packages/fcl-web/examples/simpleserver/simpleserver.pas
+++ b/packages/fcl-web/examples/simpleserver/simpleserver.pas
@@ -1,8 +1,16 @@
 {$mode objfpc}
 {$h+}
+{ $define USEGNUTLS}
 program simpleserver;
 
-uses sysutils, custhttpapp, fpwebfile, sslbase, opensslsockets;
+uses
+  sysutils,
+{$ifdef USEGNUTLS}
+  gnutlssockets,
+{$else}
+  opensslsockets,
+{$endif}
+  sslbase,custhttpapp, fpwebfile;
 
 Type