diff options
| author | Jens Geyer <jensg@apache.org> | 2014-01-23 19:16:52 +0100 |
|---|---|---|
| committer | Jens Geyer <jensg@apache.org> | 2014-01-23 19:16:52 +0100 |
| commit | beb937740a19340431ffd99ecb14f8a5c05624c2 (patch) | |
| tree | cdeb434698db728d159e4a36cf85647c1141b02b /lib/delphi/src/Thrift.pas | |
| parent | 026d7fc0e1eaac1a36d964ec3b900e34c11c0c81 (diff) | |
| download | thrift-beb937740a19340431ffd99ecb14f8a5c05624c2.tar.gz | |
THRIFT-2331 Missing call to ReadStructBegin() in TApplicationException.Read()
Patch: Jens Geyer
Diffstat (limited to 'lib/delphi/src/Thrift.pas')
| -rw-r--r-- | lib/delphi/src/Thrift.pas | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/delphi/src/Thrift.pas b/lib/delphi/src/Thrift.pas index f4b47edcd..65f23abf2 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; |