THRIFT-1399: One of the TServerImpl.Create CTORs lacks implementation

Client: delphi
Patch: Jens Geyer

Adding delphi test server missing constructor.

git-svn-id: https://svn.apache.org/repos/asf/thrift/trunk@1189007 13f79535-47bb-0310-9956-ffa450edef68

diff --git a/lib/delphi/src/Thrift.Server.pas b/lib/delphi/src/Thrift.Server.pas
index 0a7fdc6..23b6976 100644 (file)
--- a/lib/delphi/src/Thrift.Server.pas
+++ b/lib/delphi/src/Thrift.Server.pas
@@ -186,13 +186,16 @@ begin
 end;\r
 \r
 constructor TServerImpl.Create(AProcessor: IProcessor;\r
-  AServerTransport: IServerTransport; ATransportFactory: ITransportFactory;\r
-  AProtocolFactory: IProtocolFactory);\r
-begin\r
-\r
-end;\r
-\r
-{ TSimpleServer }\r
+  AServerTransport: IServerTransport; ATransportFactory: ITransportFactory;
+  AProtocolFactory: IProtocolFactory);
+begin
+  Create( AProcessor, AServerTransport,
+          ATransportFactory, ATransportFactory,
+          AProtocolFactory, AProtocolFactory,
+          DefaultLogDelegate);
+end;
+
+{ TSimpleServer }
 \r
 constructor TSimpleServer.Create(AProcessor: IProcessor;\r
   AServerTransport: IServerTransport);\r