| commit | beb937740a19340431ffd99ecb14f8a5c05624c2 | [log] [tgz] |
|---|---|---|
| author | Jens Geyer <jensg@apache.org> | Thu Jan 23 19:16:52 2014 +0100 |
| committer | Jens Geyer <jensg@apache.org> | Thu Jan 23 19:16:52 2014 +0100 |
| tree | cdeb434698db728d159e4a36cf85647c1141b02b | |
| parent | 026d7fc0e1eaac1a36d964ec3b900e34c11c0c81 [diff] [blame] |
THRIFT-2331 Missing call to ReadStructBegin() in TApplicationException.Read() Patch: Jens Geyer
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 @@ field : IField; msg : string; typ : TExceptionType; + struc : IStruct; begin msg := ''; typ := TExceptionType.Unknown; + struc := iprot.ReadStructBegin; while ( True ) do begin field := iprot.ReadFieldBegin;