Permalink
Browse files

THRIFT-1713 Named and Anonymous Pipe transport (Delphi)

Patch: Jens Geyer


git-svn-id: https://svn.apache.org/repos/asf/thrift/trunk@1400514 13f79535-47bb-0310-9956-ffa450edef68
  • Loading branch information...
1 parent 98f9377 commit 79655fbe0b9bf0ca310ce35bafcfb47f76642e6d @bufferoverflow bufferoverflow committed Oct 20, 2012
@@ -287,14 +287,13 @@ procedure TSimpleServer.Serve;
except
on E: TTransportException do
begin
- if FStop then
- begin
- FLogDelegate('TSimpleServer was shutting down, caught ' + E.ClassName);
- end;
+ if FStop
+ then FLogDelegate('TSimpleServer was shutting down, caught ' + E.ToString)
+ else FLogDelegate( E.ToString);
end;
on E: Exception do
begin
- FLogDelegate( E.ToString );
+ FLogDelegate( E.ToString);
end;
end;
if InputTransport <> nil then
Oops, something went wrong.

0 comments on commit 79655fb

Please sign in to comment.