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
--- a/lib/delphi/src/Thrift.Server.pas
+++ b/lib/delphi/src/Thrift.Server.pas
@@ -186,13 +186,16 @@
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);