You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@thrift.apache.org by jf...@apache.org on 2011/10/26 04:33:31 UTC
svn commit: r1189007 - /thrift/trunk/lib/delphi/src/Thrift.Server.pas
Author: jfarrell
Date: Wed Oct 26 02:33:31 2011
New Revision: 1189007
URL: http://svn.apache.org/viewvc?rev=1189007&view=rev
Log:
THRIFT-1399: One of the TServerImpl.Create CTORs lacks implementation
Client: delphi
Patch: Jens Geyer
Adding delphi test server missing constructor.
Modified:
thrift/trunk/lib/delphi/src/Thrift.Server.pas
Modified: thrift/trunk/lib/delphi/src/Thrift.Server.pas
URL: http://svn.apache.org/viewvc/thrift/trunk/lib/delphi/src/Thrift.Server.pas?rev=1189007&r1=1189006&r2=1189007&view=diff
==============================================================================
--- thrift/trunk/lib/delphi/src/Thrift.Server.pas (original)
+++ thrift/trunk/lib/delphi/src/Thrift.Server.pas Wed Oct 26 02:33:31 2011
@@ -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);