commit f5972c9682744014c9d825c3ccd9200e44449c6e
author Kyle Johnson <kyle@powerworld.com> Mon Apr 25 23:00:54 2016 -0500
committer Jens Geyer <jensg@apache.org> Fri Apr 29 23:29:23 2016 +0200
tree 7f783b8bc9dd433f59054548eaa3d66271c4af2a
parent e363a34e63e851f17061a912a77e75a8ed8474bc

THRIFT-3797 Generated Delphi processor shouldn't error out on timed out exceptions
Client: Delphi
Patch: Kyle Johnson

This closes #994

compiler/cpp/src/generate/t_delphi_generator.cc

diff --git a/compiler/cpp/src/generate/t_delphi_generator.cc b/compiler/cpp/src/generate/t_delphi_generator.cc
index 5578501..fece1da 100644
--- a/compiler/cpp/src/generate/t_delphi_generator.cc
+++ b/compiler/cpp/src/generate/t_delphi_generator.cc
@@ -2291,10 +2291,20 @@
   indent_down_impl();
   indent_impl(s_service_impl) << "except" << endl;
   indent_up_impl();
+  indent_impl(s_service_impl) << "on TTransportExceptionTimedOut do begin" << endl;
+  indent_up_impl();
+  indent_impl(s_service_impl) << "Result := True;" << endl;
+  indent_impl(s_service_impl) << "Exit;" << endl;
+  indent_down_impl();
+  indent_impl(s_service_impl) << "end;" << endl;
+  indent_impl(s_service_impl) << "else begin" << endl;
+  indent_up_impl();
   indent_impl(s_service_impl) << "Result := False;" << endl;
   indent_impl(s_service_impl) << "Exit;" << endl;
   indent_down_impl();
   indent_impl(s_service_impl) << "end;" << endl;
+  indent_down_impl();
+  indent_impl(s_service_impl) << "end;" << endl;
   indent_impl(s_service_impl) << "Result := True;" << endl;
   indent_down_impl();
   indent_impl(s_service_impl) << "end;" << endl << endl;