From: Jake Farrell <jfarrell@apache.org>
Date: Wed, 26 Oct 2011 02:33:31 +0000 (+0000)
Subject: THRIFT-1399: One of the TServerImpl.Create CTORs lacks implementation
X-Git-Tag: 0.8.0~41
X-Git-Url: https://source.supwisdom.com/gerrit/gitweb?a=commitdiff_plain;h=806d298042243f1005c062a920b358c95444c9dd;p=common%2Fthrift.git

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 0a7fdc60..23b69764 100644
--- a/lib/delphi/src/Thrift.Server.pas
+++ b/lib/delphi/src/Thrift.Server.pas
@@ -186,13 +186,16 @@ begin
 end;
 
 constructor TServerImpl.Create(AProcessor: IProcessor;
-  AServerTransport: IServerTransport; ATransportFactory: ITransportFactory;
-  AProtocolFactory: IProtocolFactory);
-begin
-
-end;
-
-{ TSimpleServer }
+  AServerTransport: IServerTransport; ATransportFactory: ITransportFactory;
+  AProtocolFactory: IProtocolFactory);
+begin
+  Create( AProcessor, AServerTransport,
+          ATransportFactory, ATransportFactory,
+          AProtocolFactory, AProtocolFactory,
+          DefaultLogDelegate);
+end;
+
+{ TSimpleServer }
 
 constructor TSimpleServer.Create(AProcessor: IProcessor;
   AServerTransport: IServerTransport);