Updated Branches: refs/heads/master 026d7fc0e -> beb937740
THRIFT-2331 Missing call to ReadStructBegin() in TApplicationException.Read() Patch: Jens Geyer Project: http://git-wip-us.apache.org/repos/asf/thrift/repo Commit: http://git-wip-us.apache.org/repos/asf/thrift/commit/beb93774 Tree: http://git-wip-us.apache.org/repos/asf/thrift/tree/beb93774 Diff: http://git-wip-us.apache.org/repos/asf/thrift/diff/beb93774 Branch: refs/heads/master Commit: beb937740a19340431ffd99ecb14f8a5c05624c2 Parents: 026d7fc Author: Jens Geyer <[email protected]> Authored: Thu Jan 23 19:16:52 2014 +0100 Committer: Jens Geyer <[email protected]> Committed: Thu Jan 23 19:16:52 2014 +0100 ---------------------------------------------------------------------- lib/delphi/src/Thrift.pas | 2 ++ 1 file changed, 2 insertions(+) ---------------------------------------------------------------------- http://git-wip-us.apache.org/repos/asf/thrift/blob/beb93774/lib/delphi/src/Thrift.pas ---------------------------------------------------------------------- diff --git a/lib/delphi/src/Thrift.pas b/lib/delphi/src/Thrift.pas index f4b47ed..65f23ab 100644 --- a/lib/delphi/src/Thrift.pas +++ b/lib/delphi/src/Thrift.pas @@ -107,9 +107,11 @@ var field : IField; msg : string; typ : TExceptionType; + struc : IStruct; begin msg := ''; typ := TExceptionType.Unknown; + struc := iprot.ReadStructBegin; while ( True ) do begin field := iprot.ReadFieldBegin;
