diff options
-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; |